Re: [VB6 ] 請問一個我覺得很複雜的問題
: 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
→
05/08 21:25, , 1F
05/08 21:25, 1F
→
05/09 06:45, , 2F
05/09 06:45, 2F
噓
05/09 08:42, , 3F
05/09 08:42, 3F
→
05/09 08:43, , 4F
05/09 08:43, 4F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 5 之 5 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
