will
|
分享:
▲
▼
第一個我這樣寫 (1) Dim a(3, 5)
a(0, 0) = 20 a(0, 1) = 40 a(0, 2) = 30 a(0, 3) = 79 a(0, 4) = 74
a(1, 0) = 79 a(1, 1) = 81 a(1, 2) = 68 a(1, 3) = 62 a(1, 4) = 68
a(2, 0) = 43 a(2, 1) = 89 a(2, 2) = 62 a(2, 3) = 65 a(2, 4) = 78
Dim p As String p = InputBox("請輸入學生學號0~4", "成績查詢系統") MsgBox "學生成績為 數學 國文 英文" & a(0, p) & a(1, p) & a(2, p), 0, "成績單"
可以用可是... 若輸入0 會出現---> 學生成績為 數學 國文 英文207943 要怎樣改>"< 其他的還在想....
|
相信使世界變的美好!!
|
x0
[6 樓]
From:台灣中華電信
| Posted:2005-06-07 23:59 |
|
|
will
|
分享:
▲
▼
下面是引用panasonic732於2005-06-8 09:31發表的 : a(0, p) & a(1, p) & a(2, p), 0, "成績單"
你這邊就設定錯了...=.= 你把p的值帶進去就知道了 a(0, 0)-->20 a(1, 0)-->79 a(2, 0)-->43 這樣有錯嗎?? 你是說他們的學號應該是1-5嗎? 那在就 "請輸入學生學號+1" 還是 a(0, 1) = 20 a(0, 2) = 40 a(0, 3) = 30 a(0, 4) = 79 a(0, 5) = 74 a(1, 1) = 79 a(1, 2) = 81 a(1, 3) = 68 a(1, 4) = 62 a(1, 5) = 68 a(2, 1) = 43 a(2, 2) = 89 a(2, 3) = 62 a(2, 4) = 65 a(2, 5) = 78 重新輸入後就便這樣 我主要的問題是希望輸入後可以向以下這樣 學生成績為 數學20 國文79 英文43
|
相信使世界變的美好!!
|
x0
[8 樓]
From:台灣中華電信
| Posted:2005-06-08 19:41 |
|
|
|