[VBA ] 陣列問題
輸入任意名學生某科成績，計算其共幾名學生，
平均分數，及格與不及格人數，最高分及最低分
因為我現在上課有上到利用儲存格的格式下去寫這題的程式
如果我要利用陣列的方式寫的話該如何去改呢???
以下是利用儲存格的格式寫的程式碼
(不曉得哪位大大能幫我利用陣列的程式下去寫!!!)
我的msn是:hsiangtai0323@hotmail.com
請各位大大幫忙 !!!
-----------------------------------------------
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
→
10/29 22:37, , 1F
10/29 22:37, 1F
→
10/29 22:37, , 2F
10/29 22:37, 2F
→
10/29 22:47, , 3F
10/29 22:47, 3F
→
10/30 21:19, , 4F
10/30 21:19, 4F
→
10/30 22:15, , 5F
10/30 22:15, 5F