Dim i(8) As Integer
Private Sub Command1_Click()
Private Function max() As Integer
Dimi(1 To 10) As Integer
f(i) = Int(Rnd * 100 + 7)
End Function
Private Sub Form_Load()
Dim A As Integer
Dim B As Integer
A = Text1.Text
B = Text2.Text
If A> B Then
Print A
Else: Print B
EndIf
Dim i(8) As Integer
For i = 0 To 7
A(i) = Int(Rnd * 100 + 6)
Dim max As Integer
max = A(i)
Function max (A(i)) as Integer
End If