2. 计算机
  3. 现有如下一段程序： Option Base 1 Private Sub Cornmand1_Click() Dim a a=Array(3，5，7，9)：x=1 For i=4 To 1 Step－1 s=s+a(i)*x：x=x*1

现有如下一段程序： Option Base 1 Private Sub Cornmand1_Click() Dim a a=Array(3，5，7，9)：x=1 For i=4 To 1 Step－1 s=s+a(i)*x：x=x*1

admin2019-03-08  44
问题 现有如下一段程序：
Option Base 1
Private Sub Cornmand1_Click()
  Dim a
  a=Array(3，5，7，9)：x=1
  For i=4 To 1 Step－1
    s=s+a(i)*x：x=x*10
  Next
  Print s
End Sub  
执行程序，单击Commandl命令按钮，执行上述事件过程，输出结果是
选项 A、9753
B、3579
C、35
D、79
答案B
解析 本题考查数组的使用和循环结构。在Commandl的Click事件过程中，首先定义变量a，然后通过Array函数给变量a赋值。在循环内，s保存累加和，x表示权重，每次扩大10倍，随着循环次数增加x越来越大。循环结束后，s的值为3579。
转载请注明原文地址:https://jikaoti.com/ti/m7m0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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