跪求vb问题解答～～～！！！

来源：百度知道 编辑：UC知道 时间：2024/09/23 05:53:05
编写程序：
在Form1中单击"产生"菜单项后，在文本框内内随机产生10个四位正整数，每个数占一行，此时"查找"按钮变为有效；单击"查找"按钮，在标签内显示文本框内内出现的最大随机数。

复制下面的代码到记事本,保存成Form1.frm
====================================
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3195
ClientLeft = 165
ClientTop = 735
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command1
Caption = "查找"
Enabled = 0 'False
Height = 375
Left = 120
TabIndex = 2
Top = 2640
Width = 1335
End
Begin VB.TextBox Text1
Height = 2175
Left = 120
MultiLine = -1 'True
TabIndex = 1
Text = "Form1.frx":000