[請問] VB6成績系統?
※ [本文轉錄自 ask 看板]
作者: JustRyo225 (綺琦) 站內: ask
標題: [請問] VB6成績系統?
時間: Sat Mar 27 18:43:34 2010
最近在試著做一個VB成績系統
score = Val(InputBox("SCORE=?"))
Rem m是最小值，s是總分，a是平均，n是人數
m = 100: s = 0: a = 0: n = 0
Text1.Text = "你打的資料:"
Do Until score = -99
Text1.Text = Text1.Text & score & Space(3)
s = s + score
n = n + 1
If score < m Then m = score
score = Val(InputBox("SCORE=?"))
g1 = 0: g2 = 0: g3 = 0: g4 = 0: g5 = 0
Select Case score
Case 90 To 100 '優
g1 = g1 + 1
Case 80 To 89 '甲
g2 = g2 + 1
Case 70 To 79 '乙
g3 = g3 + 1
Case 60 To 69 '丙
g4 = g4 + 1
Case Else '不及格
g5 = g5 + 1
End Select
Loop
a = s / n
If Check2.Value = 1 Then Text1.Text = "最低分是 " & m & "分"
If Check1.Value = 1 Then Text1.Text = "平均分是 " & a & "分"
If Check3.Value = 1 Then Text1.Text = Text1 & vbCrLf & "優有" & g1 & "人" _
vbCrLf & "甲有" & g2 & "人" _
vbCrLf & "乙有" & g3 & "人" _
vbCrLf & "丙有" & g4 & "人" _
vbCrLf & "不及格有" & g5 & "人" _
標色的地方是有錯...
但我試了好幾次要怎麼改呢?
還有第二題....
產生亂數~
Print "產生15到27之亂數"
Randomize Timer
For i = 1 To 10
Rnd
Print Int(Rnd * 13) + 15
Next i
End Sub
例如出來的數是
15
15
24
21
23
18
26
22
21
20
那如果我還要程式出來的結果是
15有2個
21有2個.....
要怎麼打呢?
以上謝謝板友m(__ __)m
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.37.53.61
※ 編輯: JustRyo225 來自: 114.37.53.61 (03/27 18:44)
→
03/27 20:02,
03/27 20:02
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.37.60.129
推
03/28 21:38, , 1F
03/28 21:38, 1F
→
03/28 21:38, , 2F
03/28 21:38, 2F
→
03/28 21:39, , 3F
03/28 21:39, 3F
→
03/28 22:16, , 4F
03/28 22:16, 4F
推
03/29 02:37, , 5F
03/29 02:37, 5F
→
03/29 02:38, , 6F
03/29 02:38, 6F
→
03/29 07:38, , 7F
03/29 07:38, 7F