2. 计算机
  3. 阅读程序： Option Base 1 Private Sub Form_Click() 　　Dim art,Sum 　　Sum=0 　　art=Array(1,3,5,7,9,11,13,15,17,19) 　　For

阅读程序： Option Base 1 Private Sub Form_Click() 　　Dim art,Sum 　　Sum=0 　　art=Array(1,3,5,7,9,11,13,15,17,19) 　　For

admin2012-03-22  25
问题 阅读程序：    Option Base 1    Private Sub Form_Click()    　　Dim art,Sum    　　Sum=0    　　art=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+art(i)    　　End If    　　Next i    　　Pdnt Sum    End Sub    程序运行后，单击窗体，输出结果为(    )。   
选项 A、13
B、14
C、27
D、15
答案C
解析
转载请注明原文地址:https://jikaoti.com/ti/BNO0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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