2. 计算机
  3. 有如下程序： Option Base 1 Pfivate Sub Form_Click() 　Dim arr,Sum 　Sum=0 　arr=Array(1,3,5,7,9,11,13,15,17,19) 　For i=

有如下程序： Option Base 1 Pfivate Sub Form_Click() 　Dim arr,Sum 　Sum=0 　arr=Array(1,3,5,7,9,11,13,15,17,19) 　For i=

admin2013-04-11  55
问题 有如下程序：    Option Base 1    Pfivate Sub Form_Click()    　Dim arr,Sum    　Sum=0    　arr=Array(1,3,5,7,9,11,13,15,17,19)    　For i=1 To 10    　　If arr(i)/3=arr(i)\3 Then    　　　Sum=Sum+arr(i)    　　End If    　Nexti    　print Sum    End Sub    程序运行后，单击窗体，输出结果为(    )。   
选项 A、25
B、26
C、27
D、28
答案C
解析
转载请注明原文地址:https://www.kaotiyun.com/show/Xahp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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