【卓顶精品】最新高职招考计算机类程序设计数组知识.doc
- 格式：doc
- 大小：75.50 KB
- 文档页数：12
1
数组训练
1．DIMA(3,3)
FORI=1TO3
FORJ=1TO3
A(I,J)=inputboP(“请输入一个整数”)
NEPTJ
NEPTI
FORI=1TO2
FORJ=I+1TO3
TEMP=A(J,I)：A（J，I）=A（I，J）：A（I，J）=TEMP
NEPTJ
NEPTI
PRINT
FORI=1TO3
FORJ=1TO3
PRINTA（I，J）；
NEPTJ
PRINT
NEPTI
程序运行后，分别输入：1、6、4、8、2、5、9、3、7，则程序的运
行结果为： 。
2、DIMa(10,10)
k=1
fori=1to10
forj=1toi
a(I,J)=k
k=k+1
printa(I,j);
ifk>10thenEND
nePtj
print
nePti
end
2
以上程序运行后，a(3,3)的值是
3．下列程序的运行结果为： 。
DimA(5,5)AsInteger,IAsInteger,JAsInteger
ForI=1TO3
ForJ=1To3
A(I,J)=(I-1)K3+J： PrintA(I,J)；
NePtJ
Print
NePtI
End
4、在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：
PrivateSubCommandlClick()
DimiAsInteger,jAsInteger
Dima(10,10)AsInteger
Fori=1To3
Forj=iTo3
a(i,j)=(i-1)K3+j
Printa(i,j);
NePtj
Print
NePti
EndSub
程序运行后，单击命令按钮，窗体上显示的是_____。
5、在窗体上画一个命令按钮，名称为Command1,然后编写如下代码：
OptionBase0
PrivateSubCommand1_Click()
DimA(4)AsInteger,B(4)AsInteger
Fork=0To2
A(k+1)=InputBoP(“请输入一个整数”)：B(3-k)=A(k+1)
NePtk
PrintB(k)
EndSub
3
程序运行后，单击命令按钮，在输入对话框中分别输入2、4、6，输
入结果为_____。
6、有如下程序:
dimA(5)
FORK=1TO5
A(K)=2KK
NePtk
FORK=2TO4
A(K)=A(K+1)+A(K-1)
NePtk
printA(2),A(4)
则程序输出结果是__________。
７．下列程序运行后输出的结果是（ ）
FORI=1to10
A(I)=IK10+I
NEPTI
PRINTA(6)/A(5)
8、在窗体上添加一命令按钮，其名为Command1,然后编写如下事件
代码：
PrivateSubCommand1_Click()
Dima(5)AsInteger,b(5)AsInteger
n=3
ForI=1to5
a(i)=I:b(i)=2Ka(i)+i
NePtI
Printa(n);b(n)
EndSub
程序运行的结果为_________________。
9.Optionbase1
PrivateSubCommand1_Click()
Dima(3,3)
Fori=1to3
Forj=1to3
4
a(i,j)=iKj+i
NePtj
NePti
Sum=0
Fori=1to3
Sum=Sum+a(i,4-i)
NePti
PrintSum
EndSub
运行后单击按钮,输出结果是 。
10．有如下程序：
privatesubform_click()
dima(3,3)
forj=1to3
fork=1to3
ifj=kthen
a(k,j)=1
elseifj
else
a(k,j)=3
endif
nePtk
nePtj
forj=1to3
fork=1to3
printa(j,k)；
nePtk
print
nePtj
endsub
程序运行的结果是 。
11、在窗体上添加一命令按钮，其名为command1，然后编写如下事件
5
代码：
Privatesubcommand1_click()
dima(5)asinteger,b(5)asinteger
n=3
fori=1to5
a(i)=i
b(n)=2Kn+i
nePti
Printa(n);b(n)
程序运行的结果为（ ）
12、程序运行后，单击命令按钮，输出结果是（）
Privatesubform_click()
Dimarr(100)
Fori=1to100
Arr(i)=2Ki
NePti
Printarr(arr(15)-2)
Endsub
13、dimP(3,5)
fori=1to3
forj=1to5
P(i,j)=P(i-1,j-1)+i+j
nePtj,i
printP(3,4)
上面程序运行时输出的结果为 。
14.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件
过程：
privatesubcommand1_click()
DimintA(4)AsInteger，intB(4)AsInteger
Fori=0To2
intA(i+1)=iK2+1
intB(3-i)=intA(i+1)
