作者luludo (林小猴)
站内Visual_Basic
标题Re: [VB6 ] 请问一个我觉得很复杂的问题
时间Mon May 8 20:47:09 2006
: 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
;
那如果我要用msgbox显示出TotalCount...TotalCount - lessthan60 ...lessthan60
要怎麽用呢
例如 全班人数:X人
及格人数:X人
.
.
这样子
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.170.231.114
1F：→ colawei:会问这种问题表示你一定没看书 <(￣︿￣)@m 05/08 21:25
2F：→ fumizuki:范例和教处到处都有... 05/09 06:45
3F：嘘 gxp:我觉得这种人就不要再帮他了,帮他只是害他都不动脑 05/09 08:42
4F：→ gxp:光是一开始说题目看不懂就觉得很扯了~ 05/09 08:43