UC知道溢出是什么错误
来源：百度知道 编辑：UC知道 时间：2024/05/21 22:26:44
Private Sub Command1_Click()
msg$ = "请输入分数(-1结束)"
msgtitle$ = "输入数据"
start:
score = InputBox(msg$, msgtitle$)
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$(n2)
Text2.Text = Str$(n1)
Text3.Text = Str$(total / n)
End Sub
Private Sub Command3_Click()
n = 0: n1 = 0: n2 = 0: total = 0
End
End Sub
Private Sub Form_Load()
Dim n As Single
Dim n1 As Single
Dim n2 As Single
Dim score As Single
Dim total As Single
End Sub
是VB中出现的问题
msg$ = "请输入分数(-1结束)"
msgtitle$ = "输入数据"
start:
score = InputBox(msg$, msgtitle$)
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$(n2)
Text2.Text = Str$(n1)
Text3.Text = Str$(total / n)
End Sub
Private Sub Command3_Click()
n = 0: n1 = 0: n2 = 0: total = 0
End
End Sub
Private Sub Form_Load()
Dim n As Single
Dim n1 As Single
Dim n2 As Single
Dim score As Single
Dim total As Single
End Sub
是VB中出现的问题
溢出就是实际使用的空间,大于申请的空间,比如说说明了一个1..20的数组,但执行或语句中出现这个数组的下标变成21(上溢)或0(下溢).就叫溢出.
您好
我不知道您使用的是什么语言
但我可以告诉你
在pascal里
溢出是201错误