Vb综合应用题~~~ 在窗体上有两个标签框，名称分别为Label1和Label2，标题分别为“随机数”和“奇数”
在窗体上有两个标签框，名称分别为Label1和Label2，标题分别为“随机数”和“奇数”；两个文本框，名诚分别为Text1和Text2；两个命令按钮，分别为“奇数”和“结束”。要求完成以下操作。（1）运行程序。加在窗体时产生30个【10，100】之间的随机数
（2）单击“奇数”按钮，将Text1中的奇数显示在Text2中
（3）单击“结束”按钮，退出应用程序
万分感谢
第1个回答 2013-01-05
随机数是显示在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
相似回答
