VB 作业！

来源：百度知道 编辑：UC知道 时间：2024/06/18 09:15:45
利用随机函数产生60个100—200之间的随机整数，将其中的偶数按由小到大的顺序排列并输出，将奇数按由大到小的顺序排列并输出！ 出来的数不要重复！

楼上的会出现重复，所以要改进一下：

'为窗体添加一个Command1控件，执行时，点击Command1即可
Private Sub Command1_Click()
Dim A(1 To 60) As Integer
Dim i As Integer, j As Integer
Dim MinValue As Integer, MaxValue As Integer, Temp As Integer
MinValue = 100
MaxValue = 200
Randomize
For i = 1 To 60
ReGet:
Temp = MinValue + Int(Rnd * (MaxValue - MinValue + 1))
For j = 1 To i - 1
If Temp = A(j) Then GoTo ReGet
Next
A(i) = Temp
Next

S = ""
For i = 1 To 60
S = S & A(i) & IIf(i Mod 10 = 0, vbCrLf, " ")
Next
Print S & vbCrLf

'下面先对数组进行从小到大排序
For i = 1 To 59
For j = i To 60
If A(i) > A(j) Then
T = A(i)
A(i) = A(j)
A(j) = T
End If
Next
Next

j = 0
S = ""
For i = 1 To 60
If A(i) Mod 2 = 0 Then
j = j + 1
S = S & A(i) & IIf(j Mod 10 = 0, vbCrLf, " ")
End If
Next
Prin