有如下程序: 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=a

admin2010-07-10  26

问题 有如下程序:
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
MsgBox Sum
End Sub
程序运行后,单击窗体,消息框的输出结果为______。

选项

答案12

解析  本题考查VBA中循环的知识。对于这种循环结构,首先看条件判断在循环体的前面还是后面,如果是先判断条件,则有可能一次也不执行循环体;如果是后判断条件,则无论条件如何至少执行一次循环体。在Until循环中条件为False时执行循环体,条件为True时退出循环:在While循环中条件为True时执行循环体,条件为False时退出循环,这一点要注意区分清楚。本题是一个后判断条件的While循环,在循环中首先利用整除10去掉a的最后一位,然后判断当前的a的个位数上的值是否满足循环条件,直至a=12时由于个位数为2
转载请注明原文地址:https://jikaoti.com/ti/NTw0FFFM
0

最新回复(0)