Re: [VB6 ] 請問一個我覺得很複雜的問題
: 因為人數未知所以用迴圈來解決
: 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
→
05/08 12:48, , 1F
05/08 12:48, 1F
→
05/08 12:48, , 2F
05/08 12:48, 2F
討論串 (同標題文章)
完整討論串 (本文為第 3 之 5 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
