作者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