VB实训，产生随机数，打出来

来源：百度知道 编辑：UC知道 时间：2024/05/19 21:15:50
新建一窗体，窗体标题为“数组的使用”。加载窗体时利用随机函数，产生10个两位随机整数，将其存放在一个数组中，并显示在窗体上的文本框中。在窗本上添加一个按钮，单击之，在窗体上分别打印出其中的奇数和偶数（奇数打印在一行，偶数打印在一行中）

Private Sub Command1_Click()
Dim i As Integer
Dim oushu As String
Dim jishu As String
Dim a(9) '定义数组
For i = 0 To 9
a(i) = Int(Rnd * 100 + 10) '随机赋值
Text1 = Text1 & a(i) & " " '把文本框往窗体下方放,以免挡住奇数行,偶数行
Next
Print
For i = 0 To 9
If a(i) Mod 2 = 0 Then oushu = oushu & a(i) & " " Else jishu = jishu & a(i) & " "
Next
Print "偶数行:" & oushu
Print "奇数行:" & jishu
End Sub