代码如下：
Private Sub Form_Load()
Dim n As Variant
Dim n1 As Variant
Dim n2 As Variant
Dim total As Variant
Dim score As Variant
End Sub

Private Sub Command1_Click()
start:
score = InputBox("请输入分数(-1结束)", "输入分数")
If score < 0 Or score > 100 Then
GoTo finish
Else
total = total + score
n = n + 1
If score < 60 Then
n1 = 1 + 1
Else
n2 = n2 + 1
End If
End If
GoTo start:
finish:
End Sub

Private Sub Command2_Click()
Text1.Text = Str$(n1)
Text2.Text = Str$(n2)
Text3.Text = Str$(total / n) //单击command2的时候此行老是溢出
End Sub

Private Sub Command3_Click()
End
End Sub
大哥大姐能不能告诉我问题出在哪里啊？？ 谢谢了啊？？

可是我按照楼上的做了
还是同样的结果啊
有谁能不能告诉我啊？？？

4楼怎么会看到我的代码里边有 n=1+1 呢 ??
我的代码里是 n=n1+1 啊
6楼说的对啊 我想在text3中显示平均分

但是我把各楼大虾的指点都改正了，还是依旧啊 （我是说单击command2的时候显示溢出啊！）
还是请大虾把代码写道VB里边帮我改正一下 行不行啊？？？
谢谢了啊！！！！

虽然这个问题还没有解决。但是我还是要谢谢各位的帮忙

这个也是书上的例子
这个念头书上都会有错，真是搞不懂他们是怎么搞得！！！