中科新闻网九阴真经6伤单剑:请教高手给我编一段小代码 用vb
来源：百度文库 编辑：中科新闻网 时间：2024/04/20 06:17:27
要求从1－－13中随机选3个出来，已经选出的数字就不能再选了，并且要求3个数字从小到大排列。
楼上的代码好象有问题，产生随机数，排序，还有语法都存在问题！
我这个是通过编译的：
Randomize
Dim a(3), max, i, j, t, k
a(1) = 0
a(2) = 0
a(3) = 0
For i = 1 To 3
k = Int(Rnd * 13) + 1
If k = a(1) Or k = a(2) Or k = a(3) Then
i = i - 1
Else
a(i) = k
End If
Next i
max = a(1)
For i = 1 To 3
For j = i + 1 To 3
If a(j) >= a(i) Then
max = a(j)
Else
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next j, i
Print a(1), a(2), a(3)
比较复杂。。
是有点问题，临时编的没有经过测试，语法还是没有问题的哈
Private Sub Command1_Click()
Randomize
Dim a(3), min, i, j, t, k
a(1) = 0
a(2) = 0
a(3) = 0
k = Null
For i = 1 To 3
Do
k = Int(Rnd * 13) + 1
For j = 1 To 3
If a(j) = k Then k = Null: Exit For
Next j
Loop While k = Null
a(i) = k
Next i
min = a(1)
For i = 1 To 3
For j = 1 To 3
If a(j) >= a(i) Then
t = a(i): a(i) = a(j): a(j) = t
min = a(j)
End If
Next j, i
Print a(1), a(2), a(3)
End Sub