现有如下一段程序: 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  44

问题 现有如下一段程序:
    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/F5Tp777K
0

最新回复(0)