作者ttnakafzcm (@@)
看板Visual_Basic
標題[請問] 1題VB
時間Mon Mar 22 22:03:37 2010
※ [本文轉錄自 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)
1F：→ edctw:好吧如果HCC大脫了那我就跟03/16 22:58
2F：→ edctw:再去跟北捷建議看看可不可以三人成行一人免費 03/16 22:58
3F：→ HCCLandRover:edctw跟著脫03/16 23:02
4F：→ edctw:你敢脫我一定跟XD 歡迎使用PrtScn03/16 23:06
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.136.121.50
5F：推 banqhsia:存到陣列？ 03/22 21:48
6F：→ ttnakafzcm:呃 這題不能用陣列 03/22 21:50
7F：推 banqhsia:題目可以敘述更清楚嗎, 不能存到陣列不然要存到哪裡? 03/22 21:51
8F：→ ttnakafzcm:存到TXT 有4種結果 頻軍 不及格 90以上 最高分 03/22 21:53
9F：→ mepass:如果你可以把試了很久的屍體拿出來 並且詳細講你的問題 03/22 21:55
10F：→ mepass:那我想會更有幫助 03/22 21:55
11F：→ ttnakafzcm:好 稍後 我修文 03/22 21:55
12F：→ banqhsia:Print你知道怎麼寫嗎？ 03/22 21:56
13F：→ ttnakafzcm:我貼上屍體了 03/22 21:57
14F：推 banqhsia:你在寫什麼..@@ 03/22 21:59
※ 編輯: ttnakafzcm 來自: 220.136.121.50 (03/22 22:00)
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.136.121.50
15F：推 jwjeng:為何 Do Until score = -1 完馬上 Loop ? 03/23 00:52
16F：→ jwjeng:推 banqhsia:你在寫什麼..@@ 03/23 00:54
17F：推 chrisjon:印象中，一個Do配一個loop...怎麼兩個Do配到三個loop? 03/23 03:08
18F：→ frank082474:真的很怪~看的不是很懂你在寫啥 03/23 13:52
19F：推 meto000:那段select case有人這樣寫的嗎？ case is < 60... 03/24 02:00
20F：推 mindscold:case is 該不會是古老以前的寫法吧？ 03/24 09:23
21F：→ mindscold:對不起 我還是看沒有… 03/24 09:30
22F：→ conlich:看起來不像VB的寫法... 03/24 19:36