VB编程题：利用随机子函数产生30个不同三位正整数

'建议Form的AutoRedraw属性设为True
'祝你学习愉快

Private Sub Command1_Click()
Dim num(29) As Integer '定义含30个整型的一维数组
Randomize Timer '初始化随机种子
For i = 0 To 29
num(i) = Int(Rnd * 900 + 100) '生成随机数
Print num(i); '打印随机数
If i > 0 Then
For j = 0 To i - 1
If num(i) > num(j) Then '与之前的数字比较大小
num(i) = num(j) + num(i) '此后三句为交换数字
num(j) = num(i) - num(j)
num(i) = num(i) - num(j)
End If
Next j
End If
Next i
Print
For i = 0 To 29
Print num(i); '打印排序后的数字
Next i
End Sub

Private Sub Form_click()
Dim a(1 To 30) As Integer
Randomize
For i = 1 To 30
a(i) = Int(100 * Rnd + 100)
Print a(i);
Next
Print
For i = 1 To 30
k = i
For j = i + 1 To 30
If a(k) < a(j) Then k = j
Next
t = a(i)
a(i) = a(k)
a(k) = t
Print a(i);
Next
End Sub

Private Sub Command1_Click()
Dim b(100 To 999) As Boolean
Dim arr(1 To 30) As Integer
Randomize
For i = 1 To 30
Do
x = Int(900 * Rnd) + 100
Loop While b(x)
b(x) = True
arr(i) = x
Print arr(i);
If i Mod 10 = 0 Then Print
Next i
Print
Print "排序后"
For i = 1 To 30
For j = 30 To i + 1 Step -1
If arr(j - 1) < arr(j) Then
t = arr(j - 1): arr(j - 1) = arr(j): arr(j) = t
End If
Next j
Print arr(i);
If i Mod 10 = 0 Then Print
Next i
End Sub