高职招考计算机类程序设计数组知识

数组训练

1．DIM A(3,3)

FOR I=1 TO 3

FOR J=1 TO 3

A(I,J)=inputbox(“请输入一个整数”)

NEXT J

NEXT I

FOR I=1 TO 2

FOR J=I+1 TO 3

TEMP=A(J,I)：A（J，I）=A（I，J）：A（I，J）=TEMP NEXT J

NEXT I

PRINT

FOR I=1 TO 3

FOR J=1 TO 3

PRINT A（I，J）；

NEXT J

PRINT

NEXT I

程序运行后，分别输入：1、6、4、8、2、5、9、3、7，则程序的运行结果为：。

2、DIM a(10,10)

k=1

for i=1 to 10

for j=1 to i

a(I,J)=k

k=k+1

print a(I,j);

if k>10 then END

next j

print

next i

end

以上程序运行后，a(3,3)的值是

3．下列程序的运行结果为：。

Dim A(5,5) As Integer,I As Integer,J As Integer

For I=1 TO 3

For J=1 To 3

A(I,J)=(I-1)*3+J ：Print A(I,J)；

Next J

Print

Next I

End

4、在窗体上画一个名称为Commandl 的命令按钮，然后编写如下程序：

Private Sub Commandl Click()

Dim i As Integer, j As Integer

Dim a (10,10) As Integer

For i=1 To 3

For j= i To 3

a(i,j)=(i-1)*3+j

Print a (i,j);

Next j

Print

Next i

End Sub

程序运行后，单击命令按钮，窗体上显示的是_____ 。

5、在窗体上画一个命令按钮，名称为Command1, 然后编写如下代码：

Option Base 0

Private Sub Command1_Click()

Dim A (4)As Integer,B(4) As Integer

For k=0 To 2

A(k+1)=InputBox(“ 请输入一个整数”) ：B(3-k)=A(k+1) Next k

Print B(k)

End Sub

程序运行后，单击命令按钮，在输入对话框中分别输入2 、4 、6 ，输入结果为_____ 。

6、有如下程序:

dim A(5)

FOR K=1 TO 5

A(K)=2*K

Next k

FOR K=2 TO 4

A(K)=A(K+1)+A(K-1)

Next k

print A(2),A(4)

则程序输出结果是__________。

７．下列程序运行后输出的结果是（）

FOR I=1 to 10

A(I)=I*10+I

NEXT I

PRINT A(6)/A(5)

8、在窗体上添加一命令按钮，其名为Command1,然后编写如下事件代码：

Private Sub Command1_Click( )

Dim a(5) As Integer,b(5) As Integer

n=3

For I=1 to 5

a(i)=I : b(i)=2*a(i)+i

Next I

Print a(n);b(n)

End Sub

程序运行的结果为_________________。

9.Option base 1

Private Sub Command1_Click()

Dim a(3,3)

For i=1 to 3

For j=1 to 3

a(i,j)=i*j+i

Next j

Next i

Sum=0

For i=1 to 3

Sum=Sum+a(i,4-i)

Next i

Print Sum

End Sub

运行后单击按钮,输出结果是。

10．有如下程序：

private sub form_click( )

dim a(3,3)

for j=1 to 3

for k=1 to 3

if j=k then

a(k,j)=1

elseif j

a(k,j)=2

else

a(k,j)=3

end if

next k

next j

for j=1 to 3

for k=1 to 3

print a(j,k)；

next k

print

next j

end sub

程序运行的结果是。

11、在窗体上添加一命令按钮，其名为command1，然后编写如下事件代码：