Question

几道简单的VB题 望各位大侠指教

题目： 在考生文件夹下有一个工程文件SJT5.VBP，相应的窗体文件为SJT5.FRM。 在窗体上已有一文本框TEXT2，一个标签LABEL1请把标题设置为“最大数：”，一个命令按钮COMMAND2,请把标题设置为“产生随机数”。请在窗体上画一个文本框TEXT1，内空，请设置适当属性，允许文本框多行输出，并有垂直滚动条；画一个命令按钮COMMAND1，标题是“输出最大值”。
程序运行时，当单击“产生随机数”按钮时将随机产生20个1---100内的整数，存放于窗体级数组A中并在TEXT1中显示出来（COMMAND2_CLICK()过程已给出），当单击“输出最大值”按钮时将数组A中的最大值找出并输出在TEXT2中（COMMAND1_CLICK()过程由考生自行编写）。
注意：窗体中已给出的控件及属性和过程不得改动，程序编完后至少运行一次，并通过窗体右上角的“关闭”按钮来结束程序的运行，否则不得分。
最后把修改后的文件按原文件名存盘。

注：“示例”中显示的随机数与实际产生的随机数有可能不一致。
其给出的部份代码如下：Dim a(1 To 20) As Integer
Private Sub Command2_Click()
Text1.Text = ""
Text2 = ""
Randomize
For i = 1 To 20
a(i) = Int(Rnd * 100) + 1
Text1.Text = Text1.Text & a(i) & " "
Next
End Sub
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
Text1 = ""
Text2 = ""
Command2_Click
Command1_Click
Open "[PATH]get5.dat" For Output As #1
Print #1, Val(Text2)
For i = 1 To 20
Print #1, a(i)
Next i
Close
End Sub

Answer 1

Dim a(1 To 20) As Long'数组声明你没给出，我加上了

Private Sub Command1_Click()'计算最大值
Dim max
For i = 1 To 20
If a(i) > max Then max = a(i)
Next i
Text2.Text = max
End Sub
'Text1.ScrollBars =2 只读属性，必须手调，不能用代码
'Text1.MultiLine = True也是只读，不解释