→ colawei:會問這種問題表示你一定沒看書 <(￣︿￣)@m 05/08 21:25
→ fumizuki:範例和教處到處都有... 05/09 06:45
噓 gxp:我覺得這種人就不要再幫他了,幫他只是害他都不動腦 05/09 08:42
→ gxp:光是一開始說題目看不懂就覺得很扯了~ 05/09 08:43
: 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