Re: [VB6 ] 請問一個我覺得很複雜的問題

[Firedance (迎火飛舞)]

        如果我把程式改成這樣子

        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
→ colawei:if all=0 then .....