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