[請問] 1題VB

[ttnakafzcm (@@)]

※ [本文轉錄自 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)
→ edctw:好吧如果HCC大脫了那我就跟
→ edctw:再去跟北捷建議看看可不可以三人成行一人免費
→ HCCLandRover:edctw跟著脫
→ edctw:你敢脫我一定跟XD 歡迎使用PrtScn
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.136.121.50
推 banqhsia:存到陣列？
→ ttnakafzcm:呃  這題不能用陣列
推 banqhsia:題目可以敘述更清楚嗎, 不能存到陣列不然要存到哪裡?
→ ttnakafzcm:存到TXT  有4種結果 頻軍 不及格  90以上 最高分
→ mepass:如果你可以把試了很久的屍體拿出來 並且詳細講你的問題
→ mepass:那我想會更有幫助
→ ttnakafzcm:好  稍後  我修文
→ banqhsia:Print你知道怎麼寫嗎？
→ ttnakafzcm:我貼上屍體了
推 banqhsia:你在寫什麼..@@
※ 編輯: ttnakafzcm      來自: 220.136.121.50       (03/22 22:00)

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 220.136.121.50
推 jwjeng:為何 Do Until score = -1 完馬上 Loop ?
→ jwjeng:推 banqhsia:你在寫什麼..@@
推 chrisjon:印象中，一個Do配一個loop...怎麼兩個Do配到三個loop?
→ frank082474:真的很怪~看的不是很懂你在寫啥
推 meto000:那段select case有人這樣寫的嗎？ case is < 60...
推 mindscold:case is 該不會是古老以前的寫法吧？
→ mindscold:對不起 我還是看沒有…
→ conlich:看起來不像VB的寫法...