作者hsiangtai (请您帮帮我 !!!)
看板Visual_Basic
标题[VBA ] 阵列问题
时间Wed Oct 29 22:01:48 2008
输入任意名学生某科成绩，计算其共几名学生，
平均分数，及格与不及格人数，最高分及最低分
因为我现在上课有上到利用储存格的格式下去写这题的程式
如果我要利用阵列的方式写的话该如何去改呢???
以下是利用储存格的格式写的程式码
(不晓得哪位大大能帮我利用阵列的程式下去写!!!)
我的msn是:
[email protected]
请各位大大帮忙 !!!
-----------------------------------------------
Dim Score As String
Dim LastRow As Integer
Dim 及格 As Integer
Dim 不及格 As Integer
Worksheets("Sheet1").Cells.Clear
Do
Score = InputBox("输入成绩")
If Score <> "" Then
LastRow = Range("A65536").End(xlUp).row
If Cells(1, 1) <> "" Then
Cells(LastRow + 1, 1) = Score
If Score >= 60 Then
及格 = 及格 + 1
Else
不及格 = 不及格 + 1
End If
Else
Cells(1, 1) = Score
End If
Else
MsgBox "学生人数=" & LastRow + 1 & Chr(13) & _
"最高分=" & Application.Max(Range("A1:A" & CStr(LastRow + 1))) & Chr(13) & _
"最低分=" & Application.Min(Range("A1:A" & CStr(LastRow + 1))) & Chr(13) & _
"平均=" & Application.Average(Range("A1:A" & CStr(LastRow + 1))) & Chr(13) & _
"及格人数=" & 及格
Exit Sub
End If
Loop While Score <> ""
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 122.125.196.82
1F：→ MOONRAKER:就dim scores(1000) as single 10/29 22:37
2F：→ MOONRAKER:然後所有的cells(k,1)改成scores(k)，这样就好 10/29 22:37
3F：→ hsiangtai:我还是不懂你的意思，可以说清楚一点吗??? 10/29 22:47
4F：→ MOONRAKER:我提示很清楚了 你应该自己去找阵列的教材看仔细吧 10/30 21:19
5F：→ MOONRAKER:要我帮你写程式是不可能的 10/30 22:15