作者Firedance (迎火飞舞)
看板Visual_Basic
标题Re: [VB6 ] 请问一个我觉得很复杂的问题
时间Mon May 8 17:48:56 2006
如果我把程式改成这样子
Do
n10:
math = InputBox("请输入分数(0~100，quit为离开)")
If math = "quit" Then Exit Do
If math < 0 Or math > 100 Then
MsgBox "请输入0~100之间": GoTo n10:
Else
GoTo n20:
End If
n20:
all = all + 1
If math < 60 Then
no60 = no60 + 1
End If
sum = sum + math
Loop
MsgBox "输入quit，离开程式"
math60 = all - no60
Avg = sum / all
想请问一下，如果我一开始就直接按quit的话就会发生溢位(avg=sum/all)这行
我要如何改才不会发生这个问题呢??
还有如果都没不及格的人的话要如何让他预设值显示出为0呢??
因为这样子写的话不会显示出来说..OTZ...
--
世人的目光总有些距离 试着改变自己的恶习
模糊比清醒要来的容易 一生愿一世都不能忘记
http://wubai.myweb.hinet.net
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 211.21.183.50
1F：→ colawei:if all=0 then ..... 05/08 21:25