2. 计算机
  3. 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(1 To 10) Dim p(1 To 3) k=5 For i=1 To 10 a(i)=i

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(1 To 10) Dim p(1 To 3) k=5 For i=1 To 10 a(i)=i

admin2009-03-15  38
问题 在窗体上画一个命令按钮，然后编写如下事件过程：
   Private Sub Command1_Click()
   Dim a(1 To 10)
   Dim p(1 To 3)
   k=5
   For i=1 To 10
      a(i)=i
   Next i
   For i=1 To 3
      p(i)=a(i*i)
   Next i
   For i=1 To 3
      k=k+p(i)*2
        Next i
       Print k
   End Sub
   程序运行后，单击命令按钮，输出结果是【  】。
选项
答案33
解析 观察程序，通过第一个以i为循环变量的循杯，给数组a0进行赋值，数组a()中的各个元素的值就是其下标值。
   通过第二个以i为循环变量的循环，给数组p()进行赋值；
   i=1,p(i)=a(i*i)，p(1)=a(1)=1
   i=2,p(i)=a(i*i)，p(2)=a(4)=4
   i=3,p(i)=a(i*i)，p(3)=a(9)=9
   通过第三个以i为循环变量的循环，得到变量k的值：
   i=1，k=k+p(i)*2=5+p(1)*2=7
   i=2,k=k+q(i)*2=7+p(2)*2=15
   i=3，k=k+p(i)*2=15+p(3)*2=33
   最终输出结果是：33。
转载请注明原文地址:https://kaotiyun.com/show/rx1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)