Question

Vb综合应用题~~~ 在窗体上有两个标签框，名称分别为Label1和Label2，标题分别为“随机数”和“奇数”

在窗体上有两个标签框，名称分别为Label1和Label2，标题分别为“随机数”和“奇数”；两个文本框，名诚分别为Text1和Text2；两个命令按钮，分别为“奇数”和“结束”。要求完成以下操作。（1）运行程序。加在窗体时产生30个【10，100】之间的随机数
（2）单击“奇数”按钮，将Text1中的奇数显示在Text2中
（3）单击“结束”按钮，退出应用程序
万分感谢

若以下回答无法解决问题，邀请你更新回答

Answer 1

随机数是显示在text1中吗？各个数之间用空格间隔开没问题吧。邮箱留下。

追问

嗯，Text1是随机数，Text2是奇数
476756670@qq.com

追答

已发。

追问

收到了，但是我现在的电脑没有VB插件，打不开，能不能帮我把程序的过程发过来，万分感谢啊

追答

已发。

追问

我说的是文字版的编程过程啊.......麻烦了

追答

控件自己拖啊。
Dim num(29) As Long
Private Sub Command1_Click()
Dim i As Long
For i = 0 To 29
If num(i) Mod 2 = 1 Then
Text2.Text = Text2.Text & num(i) & " "
End If
Next i
End Sub
Private Sub Form_Load()
Randomize
Dim i As Long
For i = 0 To 29
num(i) = Rnd() * 91 + 10
Text1.Text = Text1.Text & num(i) & " "
Next i
End Sub