Re: [VB6 ] 請問一個我覺得很複雜的問題
※ 引述《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
推
05/08 11:49, , 1F
05/08 11:49, 1F
→
05/08 11:50, , 2F
05/08 11:50, 2F
推
05/08 12:47, , 3F
05/08 12:47, 3F
討論串 (同標題文章)
以下文章回應了本文：
完整討論串 (本文為第 2 之 5 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
