求救，有没有大佬教一下代码思路

Dim ass As Long
Function GetRandomMath(m, n)
Randomize
GetRandomMath = Int(((n - m + 1) * Rnd) + m)
End Function
Private Sub Form_Load()
ass = 29
n = 0
Dim jwe(10)
Dim jws(10)
For a = 1 To 10
jwe(n) = GetRandomMath(30, 100)
' jws(n) = CStr(jwe(n))
' message jws(n), False
If n = 0 Then
Else
If jwe(n) > ass Then
ass = jwe(n)
End If
End If
n = n + 1
Next
MsgBox ass
End Sub
这样不知道行不行

好了
Private Sub message(text As String, e As Boolean)
If e = False Then
Text1.text = Text1.text & Time & ":" & text & Chr(13) & Chr(10)
Else
MsgBox text
End If
End Sub
Dim ss As Long
Function GetRandomMath(m, n)
Randomize
GetRandomMath = Int(((n - m + 1) * Rnd) + m)
End Function
Private Sub Form_Load()
ss = 29
n = 0
Dim jwe(10) as long
Dim jws(10) as string
For a = 1 To 10
jwe(n) = GetRandomMath(30, 100)
' jws(n) = CStr(jwe(n))
' message jws(n), False
If n = 0 Then
Else
If jwe(n) > ss Then
ss = jwe(n)
End If
End If
n = n + 1
Next
MsgBox ss
End Sub