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