第1个回答 2014-06-24
不要太简单。。。。。。
首先定义一个全局数组变量
Dim a() As Long
Private Sub Command1_click() '产生随机数
Dim Str As String
Str = ""
ReDim a(29)
For i = 0 To 29
Randomize
a(i) = Clng(Rnd *200+1)
If Str = "" Then Str = Cstr(a(i)) Else Str = Str & " " & a(i)
Next
Text1.Text = Str
End Sub
Private Sub Command2_Click() '取奇数
Dim Str As String
Str = ""
For i = 0 To 29
If a(i) Mod 2 = 1 Then
If Str = "" Then Str = Cstr(a(i)) Else Str = Str & " " & a(i)
End If
Next
Text2.Text = Str
End Sub
Private Sub Command3_Click() '退出
End
End Sub本回答被提问者采纳