代码如下：
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
大哥大姐能不能告诉我问题出在哪里啊？？ 谢谢了啊？？

错误不少,你自个看吧:
Option Explicit
Dim n As Single
Dim n1 As Single
Dim n2 As Single
Dim total As Single
Dim score As Single
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 = n1 + 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

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

n1 = 1 + 1
基本看不懂你的意图是什么？但是找到一个绝对的错误！
另外你希望程序做什么啊？

Dim n As long
Dim n1 As long
Dim n2 As long
Dim total As long
Dim score As long

你想计算平均分吧~~~
除了上面的人说过的错误，你的 Goto 语句 GoTo start: 还应该把后面的冒号去掉。

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

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

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

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