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

福建省高职招考信息技术类计算机程序语言设计基础 PAGE \* MERGEFORMAT PAGE \* MERGEFORMAT 1 数组训练 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 k10 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)+iNext IPrint 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)