Question

单击form1的”产生数据”按钮产生10个1到100的整数并在”原始数据”旁的文本框中显示

单击form1的”产生数据”按钮产生10个1到100的整数并在”原始数据”旁的文本框中显示

Answer 1

Dim x As Integer
Private Sub Command1_Click()
Randomize
Dim a(20) As Integer
For i = 1 To 20
a(i) = Int(Rnd * 100)
Text1 = Text1 " " a(i)
If x < a(i) Then x = a(i)
Next i
End Sub

Private Sub Command2_Click()
Text2 = x
End Sub