- 帖子
- 7
- 主題
- 3
- 精華
- 0
- 積分
- 60
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 註冊時間
- 2016-6-2
- 最後登錄
- 2022-5-1
|
[發問] 請教手動輸入的3維陣列,如何將數值排列?
我對陣列寫法沒啥概念.
如果要以VBA表達(非寫進儲存格方式),
1.由大到小排列3個學生的第2個學期的第2科目成績,請教該引用哪種函數?
2.Score(2, 1, 1)能不能直接由Score(1, 1, 1)寫入到Score(3, 1, 1)? 而Score(0, 0, 0)直接跳過.
感謝各位
Sub test()
Dim Score(2, 1, 1) As Byte
Score(0, 0, 0) = InputBox("請輸入第1位學生第1個學期的第1科目成績：")
Score(0, 0, 1) = InputBox("請輸入第1位學生第1個學期的第2科目成績：")
Score(0, 1, 0) = InputBox("請輸入第1位學生第2個學期的第1科目成績：")
Score(0, 1, 1) = InputBox("請輸入第1位學生第2個學期的第2科目成績：")
Score(1, 0, 0) = InputBox("請輸入第2位學生第1個學期的第1科目成績：")
Score(1, 0, 1) = InputBox("請輸入第2位學生第1個學期的第2科目成績：")
Score(1, 1, 0) = InputBox("請輸入第2位學生第2個學期的第1科目成績：")
Score(1, 1, 1) = InputBox("請輸入第2位學生第2個學期的第2科目成績：")
Score(2, 0, 0) = InputBox("請輸入第3位學生第1個學期的第1科目成績：")
Score(2, 0, 1) = InputBox("請輸入第3位學生第1個學期的第2科目成績：")
Score(2, 1, 0) = InputBox("請輸入第3位學生第2個學期的第1科目成績：")
Score(2, 1, 1) = InputBox("請輸入第3位學生第2個學期的第2科目成績：")
MsgBox Score(0, 1, 1) & "," & Score(1, 1, 1) & "," & Score(2, 1, 1)
End Sub |
|
發表於 2017-6-27 15:03
| 
發表於 2017-7-3 17:03
| 