Re: [VB6 ] 請問一個我覺得很複雜的問題

[luludo (林小猴)]

: 因為人數未知所以用迴圈來解決
: 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
→ fumizuki:一堆網頁都找得到資料吧
→ colawei:印在Form上, 記得AutoRedraw要打開