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

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

admin2020-04-18  54
问题 现有如下一段程序：
    Option Base1
    Private Sub Command1_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
    执行程序，单击Command1命令按钮，执行上述事件过程，输出结果是
选项 A、9753
B、3579
C、35
D、79
答案B
解析 本题考查数组的使用和循环结构。在Command1的Click事件过程中，首先定义变量a，然后通过Array函数给变量a赋值。在循环内，s保存累加和，x表示权重，每次扩大10倍，随着循环次数增加x越来越大。循环结束后，s的值为3579。
转载请注明原文地址:https://kaotiyun.com/show/ryTp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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