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

福建省高职招考信息技术类计算机程序语言设计基础数组训练1DIM A(3,3)FOR I=1 TO 3 FOR J=1 TO 3A(I,J)=inputbox(“请输入一个整数”) NEXT JNEXT IFOR I=1 TO 2 FOR J=I+1 TO 3TEMP=A(J,I)：A（J，I）=A（I，J）：A（I，J）=TEMP NEXT JNEXT IPRINTFOR I=1 TO 3 FOR J=1 TO 3PRINT A（I，J）； NEXT J PRINTNEXT I程序运行后，分别输入：1、6、4、8、2、5、9、3、7，则程序的运行结果为： 。2、DIM a(10,10)k=1for i=1 to 10 for j=1 to i a(I,J)=kk=k+1print a(I,j);if k10 then END next j print next i end以上程序运行后，a(3,3)的值是 3下列程序的运行结果为： 。Dim A(5,5) As Integer,I As Integer,J As IntegerFor I=1 TO 3For J=1 To 3A(I,J)=(I-1)*3+J ：Print A(I,J)；Next JPrintNext IEnd4、在窗体上画一个名称为 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 kprint A(2),A(4)则程序输出结果是_。下列程序运行后输出的结果是（）FOR I=1 to 10 A(I)=I*10+INEXT IPRINT 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)+iNext IPrint a(n);b(n)End Sub程序运行的结果为_。9.Option base 1Private Sub Command1_Click()Dim a(3,3) For i=1 to 3For j=1 to 3 a(i,j)=i*j+iNext j Next i Sum=0 For i=1 to 3Sum=Sum+a(i,4-i) Next i Print SumEnd Sub运行后单击按钮,输出结果是 。10有如下程序：private sub form_click( )dim a(3,3)for j=1 to 3for k=1 to 3if j=k then a(k,j)=1elseif j0 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 ifor 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 jnext iprint for I=I to 3 for j=1 to 3 print a(i,j); next jprint next iend sub 程序运行后，窗体中显示的是： 18.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Dim arr(5) As Integer, n As IntegerFor i = 1 To 5arr(i) = i + 1Nextfun arr, nText1.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 = 10For J = 1 To 10 If J Mod 3 = 0 Then K = K + 1 M(K) = J Else M(P) = J P = P - 1 End IfNext JPrint M(3), M(6)24、下述单击命令按钮后的输出结果_Private Sub Command1_Click()Dim arr1(10) As Integer, arr2(10) As Integern = 4For i = 5 To 1 step -2arr1(i) = i arr2(n) = 2 * n + iNext iPrint arr2(n); arr1(n)End Sub25、以下程序运行的结果是 。Private sub command1 click( )Dim Fib(10) AS IntegerFib(1)=1fib(2)=1for i=3 To 20Fib(i)=Fib(i-1)+Fib(i-2)Next iPrint Fib(12)End sub26.Private Sub Command1_Click()Dim A(1 To 5) As IntegerDim x As IntegerFor I = 1 To 5A(I) = INext II = 1 Do While x a(i - 1) And a(i) a(i + 1) Then s = s + a(i) ：Count = Count + 1 End IfNext iPrint s, Count（2）Option Base 1Private Sub Cmd1_Click()DIM aA=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 SSa (k) End SelectNEXT kPrint “S=” , S28. 设有如下程序：private sub form_click( )dim aa=array(1,2,3,4,5,6,7,8,9)for i=0 to 3print a(5-i)； next iend sub程序运行后的输出结果是。29. 以下程序运行后，单击窗体输出的结果是_Option Base 1Private Sub Form_Click()Dim aa=Array(19,17,15,13,11,9,7,5,3,11)For i=1 To 10If a(i)/3=a(i)3 Or a(i)/5=a(i)5 ThenSum=Sum+a(i)End IfNext iPrint SumEnd Sub30、以下程序运行