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

福建省高职招考信息技术类计算机程序语言设计基础

数组训练

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(k1)=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 jim a(5) as integer,b(5) as integer
n=3
for i=1 to 5
a(i)=i
b(n)=2*n+i
next i
Print a(n);b(n)
程序运行的结果为（　　）
12、程序运行后，单击命令按钮，输出结果是（ ）
Private sub form_click( )
Dim arr(100)
For i=1 to 100
Arr(i)=2*i
Next i
Print arr(arr(15)-2)
End sub
13、dim x(3,5)
for i=1 to 3
for j=1 to 5
x(i,j)=x(i-1,j-1)+i+j
next j,i
print x(3,4)
上面程序运行时输出的结果为 。
14.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
private sub command1_click( )
Dim intA(4) As Integer，intB(4) As Integer
     For i = 0 To 2
         intA(i + 1) = i * 2 + 1
         intB(3 - i ) = intA(i + 1)
     Next i
     Print intB(i)
End sub
程序运行后的结果是　　　　　　　　　　　　　　　。
15、在窗体上画一个命令按钮，然后编写如下程序：
Private sub command1_click ( )
Dim a(1 to ３,２ to 4) as integer
For I=1 to ３
For j=２ to 4
A(I,j)=I*2+j＊３
Next j
Next I
Print a(2,3)+a(3,2)
Endsub
程序运行后，单击命令按钮，在窗体上的的输出结果是 。
16．Private Sub Command1_Click()
Dim sum As Integer
Dim arr(6) As Integer
arr(0) = -1：arr(1) = 2：arr(2) = 3：arr(3) = -6：arr(4) ＝ 8：arr(5) = 9
For i= 0 To 5
If arr(i) >0 Then sum = sum + arr(i)
Next i
Print sum
End Sub
上面程序运行后，单击Command1命令按钮，输出结果是 。
17.private sub form_click()
dim a(3,3)
for i=1 to 3
for j=1 to 3
t=t+1
a(i,j)=t
next j
next i

for i=1 to 2
for j=i+1 to 3
t=a(j,i)：a(j,i)=a(i,j)： a(i,j) =t
next j
next i
print
for I=I to 3
for j=1 to 3
print a(i,j);
next j
print
next i
end sub
程序运行后，窗体中显示的是：
18.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
　Dim arr(5) As Integer, n As Integer
　For i = 1 To 5
　　arr(i) = i + 1
　Next
　fun arr, n
　Text1.Text = Str(n)
End Sub
程序运行后,单击命令按钮,则在文本框中显示的内容是　　
19.下列程序段的执行结果为
Dim A(10)，B(5)
For I=1 To 10
A(1)=I
Next I
For J=1 To 5
B(J)=J*20
Next J
A(5)=B(3) ：Print "A(5)="；A(5)
20、DIM A(10) AS INTEGER
FOR I= 1 TO 10
A( I )= I
NEXT I
PRINT A(I)
则程序运行输出结果为
21、 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
　　Private Sub Command1_Click()
   　　Dim array1(10,10) As Integer
   　　Dim i,j As Integer
   　　For i=1 To 3
      　　For j=2 To 4
          　　array1(i,j)=i+j
      　　Next j
   　　Next I
   　　Text1.Text=array1(2,3)+array1(3,4)
　　End Sub
程序运行后，单击命令按钮，在文本框中显示的值是 ____
22.在窗体上画一个命令按钮Command1，然后编写如下代码：
Private Sub Command1_Click()
Dim a(5,5)
For i=1 to 3
For j=1 to 4
a(i,j)=i*j
Next j
Next i
For n=1 to 2
For M=1 to 3
Print a(M,n);
Next M
Next n
End Sub
程序运行后，单击命令按钮，输出结果为 。
23、下列Visual Basic程序执行的结果？______________
Dim M(10):K = 0:P = 10
For J = 1 To 10
If J Mod 3 = 0 Then
K = K + 1
M(K) = J
Else
M(P) = J
P = P - 1
End If
Next J
Print M(3), M(6)
24、下述单击命令按钮后的输出结果_______________
Private Sub Command1_Click()
Dim arr1(10) As Integer, arr2(10) As Integer
n = 4
For i = 5 To 1 step -2
arr1(i) = i
arr2(n) = 2 * n + i
Next i
Print arr2(n); arr1(n)
End Sub
25、以下程序运行的结果是 。
Private sub command1 click( )
Dim Fib(10) AS Integer
Fib(1)=1
fib(2)=1
for i=3 To 20
Fib(i)=Fib(i-1)+Fib(i-2)
Next i
Print Fib(12)
End sub

26.Private Sub Command1_Click()
Dim A(1 To 5) As Integer
Dim x As Integer
For I = 1 To 5
A(I) = I
Next I
I = 1
  Do While x < 6
A(I) = A(I) + x
x = x + 2
I = I + 2
Loop
Text1.Text = A(1)
Text2.Text = A(3)
End Sub
写出程序运行时单击Command1按纽，文本框Text1和Text2上的输出结果是______

知识点补充：
动态数组：变体型变量可以作为动态数组来使用，其赋值方式是用Array(值1，值2，值3，...值N)函数赋值，该数组大小由Array函数中值的个数来决定，如：
DIM a
A=array(21,12,23,44,65)
则该变体型变量A将作为一维数组，下标默认从0开始，即为
0 TO 5，其中包含5个数组元素，分别是A(0),A(1),A(2),A(3),A（4）
27、下列程序运行后的结果是　　　　　　
（1）Option Base 1
Dim a
A=array( 2, 8, 5, 3, 10 9, 13, 15, 14, 7)
Count = 0
For i = 2 To 9
If a(i) > a(i - 1) And a(i) > a(i + 1) Then
s = s + a(i) ：Count = Count + 1
End If
Next i
Print s, Count
（2）Option Base 1
Private Sub Cmd1_Click()
DIM a
A=array(1，－2，3，－4，0，－6，7，－8，0，－10)
FOR k=1 TO 10
Select Case SGN(a(k))
Case 1
S=S+a(k)
Case 0
S=S+1
Case –1
S＝S－a (k)
End Select
NEXT k
Print “S=” , S
28. 设有如下程序：
private sub form_click( )
dim a
a=array(1,2,3,4,5,6,7,8,9)
for i=0 to 3
print a(5-i)；
next i
end sub
程序运行后的输出结果是 。
29. 以下程序运行后，单击窗体输出的结果是
Option Base 1
Private Sub Form_Click()
Dim a
a=Array(19,17,15,13,11,9,7,5,3,11)
For i=1 To 10
If a(i)/3=a(i)\3 Or a(i)/5=a(i)\5 Then
Sum=Sum+a(i)
End If
Next i
Print Sum
End Sub
30、以下程序运行结果是
Dim a As Variant,b As Variant,c(1,3) As integer
a=Array(3,25,6,34) b=Array(23,56,32,12)
For j=0 to 3
C(0,j)=a(j) ：C(1,j)=b(j)
Next j
m = c(1,1)
for i=0 to 1
for j=0 to 3
if m