VB 产生一个随机数组,将其中的奇偶分离出来,在另外两个图片框中输出
来源:百度知道 编辑:UC知道 时间:2024/05/11 15:07:54
按每行10个输出。
按每行10个数字格式输出:
Private Sub Form_click()
Dim a(1 To 60) As Integer, o(1 To 60) As Integer, ji(1 To 60) As Integer
Randomize
num1 = 0
num2 = 0
For i = 1 To 60
a(i) = Int(Rnd * 101 + 100)
Picture1.Print a(i);
If a(i) Mod 2 = 0 Then
num1 = num1 + 1
o(num1) = a(i)
Else
num2 = num2 + 1
ji(num2) = a(i)
End If
If i Mod 10 = 0 Then Picture1.Print
Next
Print num1, num2
For i = 1 To num1 - 1
For j = i + 1 To num1
If o(i) > o(j) Then
temp = o(i)
o(i) = o(j)
o(j) = temp
End If
Next
Next
For i = 1 To num1
Picture2.Print o(i);
If i Mod 10 = 0 Then Picture2.Print
Next
For i = 1 To num2 - 1
For j = i + 1 To num2
If ji(i) < ji(j) Then
temp = ji(i)
ji(i) = ji(j)
ji(j) = temp
End If
Next
Picture3.Print ji(i);
If i Mod 10 = 0 Then Picture3.Print
Next
Picture3.Print ji(num2)
En