单项选择题

阅读程序： Option Base 1 Private 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 Next i Print Sum End Sub程序运行后，单击窗体，输出结果为

A．13
B．14
C．27
D．15
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1_Click( ) Dim a a=Array(1,2,3,4,5) For i=1 To UBound(a) a(i)=a(i)+i-1 Next Print a(3) End Sub程序运行后，单击命令按钮，则在窗体上显示的内容是
A．4
B．5
C．6
D．7
单项选择题
在窗体上画一个名称为Command1的命令按钮，并编写如下程序： Private Sub Command1_Click( ) Dim x As Integer Static y As Integer x=10 y=5 Call f1(x，y) Print x，y End Sub Private Sub f1(ByRef x1 As Integer，y1 As Integer) x1=x1+2 y1=y1+2 End Sub程序运行后，单击命令按钮，在窗体上显示的内容是
A．10 5
B．12 5
C．10 7
D．12 7
相关试题