作者luludo (林小猴)
站内Visual_Basic
标题Re: [VB6 ] 请问一个我觉得很复杂的问题
时间Mon May 8 11:56:47 2006
: 因为人数未知所以用回圈来解决
: Private Sub Form_Click()
: Dim x As Single
: Dim TotalCount As Integer
: Dim lessthan60 As Integer
: Dim sum As Long
: Do 请问一下这里不用放 While... 吗
: 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.170.231.114
1F：→ fumizuki:一堆网页都找得到资料吧 05/08 12:48
2F：→ colawei:印在Form上, 记得AutoRedraw要打开 05/08 12:48