asp 活 VB 实现个小小问题！！！

Question

asp 活 VB 实现    目的 要实现 从三个数组(来自TEXT中输入的)中随机取数 但是条件是 第一组要小于第2组依次下去 然后显示与另外地 TEXT4.TEXT

Answer 1

b1 = Text1.Text
b2 = Text2.Text
b3 = Text3.TextDim a1()
Dim a2()
Dim a3()a1() = Array(b1)
a2() = Array(b2)
a3() = Array(b3)For i = 0 To UBound(a1)
    For j = 0 To UBound(a2)
   
        If a1(i) < a2(j) Then
             For k = 0 To UBound(a3)
                If a2(j) < a3(k) Then
                  List1.AddItem Str(a1(i)) & "," & Str(a2(j)) & "," & Str(a3(k))
                End If
            Next k
        End If
    Next j
Next i
  不知道能行不啊···