有vb高手吗，我有一道编程题运行时总是出错，请高人指点！

这道题目是这样的：随机产生10个30~100（包括30，100）的正整数，求最大值、最小值和平均值，并显示整个数组的值和结果。以下是我自己的完整程序：
Option Explicit

Private Sub Form_Load()
Text1.Text = ""
Dim Num!, i%
Dim ar(9)
For i = 0 To 9
Randomize
Num = Int(Rnd * 71 + 30)
ar(i) = Num
Text1.Text = Text1.Text & " " & ar(i)
Next i

Dim max%, min%, sum%, aver%
max = ar(0)
min = ar(0)
sum = 0
For i = 1 To 9
sum = sum + ar(i)
If ar(i) > max Then
max = ar(i)
End If
If ar(i) < min Then
min = ar(i)
End If
Next i
aver = sum / 10
End Sub

Private Sub Command1_Click()
Text2.Text = max
End Sub

Private Sub Command2_Click()
Text3.Text = min
End Sub

Private Sub Command3_Click()
Text4.Text = aver
End Sub

运行时点command1（或2、3）时，弹出对话框说我的变量（max、min、aver等）没有定义，这是怎么回事呢？
请尽量在原题上进行修改，若实在不行也可另给出正确的程序。但无论如何，程序段务必先自行在vb上运行检验，本人只对正确且合适的回答给分，视

如果没有option explicit 这句，就把这三个变量放在所有过程的最上面，General一般就是指这里在msdn中找的一些资料，看看吧常量和变量命名约定：

变量范围前缀：

有vb高手吗，我有一道编程题运行时总是出错，请高人指点！ 一道VB编程题~~~高手请进~~~~~ 一道VB编程题~~请高手帮忙 我有一道C语言编程题,请求高手解答 我有一道VB程序题向高手请教一下 一道vb编程题 一道VB编程题 VB编程题一道 我有VB编程天赋吗？ 有VB编程高手吗？？速度来帮忙~~~~