1、福建省高职招考信息技术类计算机程序语言设计基础1数组训练1DIM A(3,3)FOR I=1 TO 3FOR J=1 TO 3A(I,J)=inputbox(“请输入一个整数”)NEXT JNEXT IFOR I=1 TO 2FOR J=I+1 TO 3TEMP=A(J,I)：A（J，I ）=A （I ，J）： A（I，J）=TEMPNEXT JNEXT IPRINTFOR I=1 TO 3FOR J=1 TO 3PRINT A（I，J） ；NEXT JPRINTNEXT I程序运行后，分别输入：1、6、4 、8、2 、5 、9、3、7，则程序的运行结果为： 。2、DIM a(10,10)k=
2、1for i=1 to 10for j=1 to ia(I,J)=kk=k+1print a(I,j);if k10 then ENDnext jprint next i福建省高职招考信息技术类计算机程序语言设计基础2end以上程序运行后，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 的命令按钮，然后编写如
3、下程序： 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 Intege
4、r,B(4) As Integer For k=0 To 2 A(k+1)=InputBox(“ 请输入一个整数 ”) ： B(3-k)=A(k+1) Next k 福建省高职招考信息技术类计算机程序语言设计基础3Print B(k) End Sub 程序运行后，单击命令按钮，在输入对话框中分别输入 2 、 4 、 6 ，输入结果为 _ 。6、 有如下程序:dim A(5)FOR K=1 TO 5 A(K)=2*KNext k FOR K=2 TO 4 A(K)=A(K+1)+A(K-1)Next kprint A(2),A(4)则程序输出结果是_。下列程序运行后输出的结果是（ ）FOR I=
5、1 to 10A(I)=I*10+INEXT IPRINT A(6)/A(5)8、在窗体上添加一命令按钮，其名为 Command1,然后编写如下事件代码：Private Sub Command1_Click( )Dim a(5) As Integer,b(5) As Integern=3For I=1 to 5a(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 3福建省高职招考信息技术类计算机程序语
6、言设计基础4For j=1 to 3a(i,j)=i*j+iNext jNext iSum=0For i=1 to 3Sum=Sum+a(i,4-i)Next iPrint 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 iPrint sum End Sub 上面程序运行后，单击 Command1 命令按钮，输出结果是 。17.private s
7、ub form_click()dim a(3,3)for i=1 to 3for j=1 to 3t=t+1a(i,j)=tnext jnext i福建省高职招考信息技术类计算机程序语言设计基础7for i=1 to 2 for j=i+1 to 3t=a(j,i)：a(j,i)=a(i,j)： a(i,j) =tnext jnext iprint for I=I to 3for j=1 to 3print a(i,j);next jprint next iend sub 程序运行后，窗体中显示的是： 18.在窗体上画一个名称为 Text1 的文本框和一个名称为Command1 的命令按钮 ,
8、然后编写如下事件过程: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 10A(1)=INext IFor J=1 To 5福建省高职招考信息技术类计算机程序语言设计基础8B(J)=J*20Next JA(5)=B(3) ：Print “A(5)=“；A
9、(5)20、DIM A(10) AS INTEGERFOR I= 1 TO 10A( I )= INEXT IPRINT 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) E
10、nd Sub 程序运行后，单击命令按钮，在文本框中显示的值是 _22.在窗体上画一个命令按钮 Command1，然后编写如下代码：Private Sub Command1_Click()Dim a(5,5)For i=1 to 3For j=1 to 4a(i,j)=i*jNext jNext iFor n=1 to 2For M=1 to 3Print a(M,n);Next M福建省高职招考信息技术类计算机程序语言设计基础9Next nEnd Sub程序运行后，单击命令按钮，输出结果为 。23、下列 Visual Basic 程序执行的结果？ _Dim M(10):K = 0:P = 10
11、For J = 1 To 10If J Mod 3 = 0 ThenK = K + 1M(K) = JElseM(P) = JP = P - 1End 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、以下程序运行的结果是 。Pr
12、ivate 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)福建省高职招考信息技术类计算机程序语言设计基础10End sub26.Private Sub Command1_Click()Dim A(1 To 5) As IntegerDim x As IntegerFor I = 1 To 5A(I) = INext II = 1Do While x 6A(I) = A(I) + xx = x + 2I = I + 2LoopText1.Text = A(1)Text2.Text = A(3)End Sub写出程序运行时单击 Command1 按纽，文本框 Text1 和Text2 上的输出结果是_
