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

[dunn (月光遺留下深深嘆息)]

※ 引述《luludo (林小猴)》之銘言：
: 갊: 某班人數學生不詳,欲輸入每人的數學成績,當輸入-1時表示結束輸入,然後計算全班人數
: .及格人數.不及格人數.及全班平均分數
: 有沒有人會作這一題的
: 因為我連題目都有點看不太懂了
: 請各位幫我解題一下....謝謝^^
因為人數未知所以用迴圈來解決
Private Sub Form_Click()
        Dim x As Single
        Dim TotalCount As Integer
        Dim lessthan60 As Integer
        Dim sum As Long
        Do
                x = Val(InputBox("請輸入分數,-1結束"))
                If x = -1 Then Exit Do
                TotalCount = TotalCount + 1
                sum = sum + x
                If x < 60 Then lessthan60 = lessthan60 + 1
        Loop
        Me.Print TotalCount
        Me.Print TotalCount - lessthan60
        Me.Print lessthan60
        If TotalCount > 0 Then Me.Print sum / TotalCount
End Sub

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 218.175.164.214
推 luludo:先謝謝你喔...不過我想問你喔...如果我只要算3個人的話...
→ luludo:這樣它要怎麼結束阿...因為它會一直讓我輸入成績
推 fumizuki:就說了輸入-1結束了@@