Re: [VB6 ] 請問一個我覺得很複雜的問題
如果我把程式改成這樣子
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
→
05/08 21:25, , 1F
05/08 21:25, 1F
討論串 (同標題文章)
完整討論串 (本文為第 4 之 5 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
