求高手解VB题,小弟跪谢了求高手解VB
一、
1。B
2。C
3。D
4。A
5。D
6。C
7。A
8。A
9。A
10。A
11。
12。
13。
14。D
15。C
16。A
17。C
18。D
19。A
20。D
二、
1。 Dim a(8) As Integer
Dim b(2, 2) As Integer
Dim i As Integer, j As Integer, k As Integer
For i = 0 To 2
For j = 0 To 2
b(i, j) = a(k)
Debug。 Print b(i, j)
k = k + 1
Next j
Next i
2。
为了方便可以先自定义类型
在mo...全部
一、
1。B
2。C
3。D
4。A
5。D
6。C
7。A
8。A
9。A
10。A
11。
12。
13。
14。D
15。C
16。A
17。C
18。D
19。A
20。D
二、
1。
Dim a(8) As Integer
Dim b(2, 2) As Integer
Dim i As Integer, j As Integer, k As Integer
For i = 0 To 2
For j = 0 To 2
b(i, j) = a(k)
Debug。
Print b(i, j)
k = k + 1
Next j
Next i
2。
为了方便可以先自定义类型
在mod中写入
public type student
sName as string
zhuanye as string
age as integer
score as integer
end type
用open打开文件
用line一行一行读取
splite分割空格取姓名 XXX
int 输出
其他的自己查书
学编程重要的就是多练。收起