[請問] 1題VB
※ [本文轉錄自 ask 看板]
作者: ttnakafzcm (@@) 看板: ask
標題: [請問] 1題VB
時間: Mon Mar 22 21:45:02 2010
題目:
某班學生人數不祥，連續輸入每個學生的VB成績，當輸入-1時表示結束輸入
，然後計算: 1 全班人數 2 全班平均人數 3 90分以上人數 4 不及格人數 5 最高分數
小弟遇到一點問題
如果要用Inputbox輸入成績，同時Print在左上角
並且再輸入-1時停止迴圈，但是不列印-1
還有在輸入視窗時 內文要有第X個人的成績
並把輸入的成績做各種處理
然後 只能用DO迴圈
還有最高分的部份不知怎判斷
拜託各位大大了
我試了很久都試不出來.......
Private Sub cmdin_Click()
Dim score As Integer, count As Integer
count = 1
Do While score = InputBox(成績, 第Count個人VB成績, 60)
Print score
Do Until score = -1
Loop
count = count + 1
total = total + score
Loop Until score = -1
score = score + 1
Select Case score
Case Is >= 90: count1 = count1 + 1
Case Is < 60: count2 = count2 + 1
End Select
Loop Until score = -1
average = total / count
End Sub
--
#1BdnQuUz (MRT)
→
03/16 22:58,
03/16 22:58
→
03/16 22:58,
03/16 22:58
→
03/16 23:02,
03/16 23:02
→
03/16 23:06,
03/16 23:06
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.136.121.50
推
03/22 21:48,
03/22 21:48
→
03/22 21:50,
03/22 21:50
推
03/22 21:51,
03/22 21:51
→
03/22 21:53,
03/22 21:53
→
03/22 21:55,
03/22 21:55
→
03/22 21:55,
03/22 21:55
→
03/22 21:55,
03/22 21:55
→
03/22 21:56,
03/22 21:56
→
03/22 21:57,
03/22 21:57
推
03/22 21:59,
03/22 21:59
※ 編輯: ttnakafzcm 來自: 220.136.121.50 (03/22 22:00)
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.136.121.50
推
03/23 00:52, , 1F
03/23 00:52, 1F
→
03/23 00:54, , 2F
03/23 00:54, 2F
推
03/23 03:08, , 3F
03/23 03:08, 3F
→
03/23 13:52, , 4F
03/23 13:52, 4F
推
03/24 02:00, , 5F
03/24 02:00, 5F
推
03/24 09:23, , 6F
03/24 09:23, 6F
→
03/24 09:30, , 7F
03/24 09:30, 7F
→
03/24 19:36, , 8F
03/24 19:36, 8F
討論串 (同標題文章)