作者dunn (月光遗留下深深叹息)
看板Visual_Basic
标题Re: [VB6 ] 请问一个我觉得很复杂的问题
时间Mon May 8 07:46:41 2006
※ 引述《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
1F：推 luludo:先谢谢你喔...不过我想问你喔...如果我只要算3个人的话... 05/08 11:49
2F：→ luludo:这样它要怎麽结束阿...因为它会一直让我输入成绩 05/08 11:50
3F：推 fumizuki:就说了输入-1结束了@@ 05/08 12:47