设有以下程序: Private Sub Form_Click() x=50 For i=1To4 y=InputBox("请输入一个整数") y=Val(y) If y Mod5=0Then a=a+y x=y Else a=a+x End If Next

admin2016-09-19  28

问题 设有以下程序:
Private Sub Form_Click()
x=50
For i=1To4
y=InputBox("请输入一个整数")
y=Val(y)
If y Mod5=0Then
a=a+y
x=y
Else
a=a+x
End If
Next i
Print a
End up
程序运行后,单击窗体,在输入对话框中依次输入15、24、46,输出结果为

选项 A、100
B、50
C、120
D、70

答案A

解析 本题考查的考点是有关循环的。本题需要写出每一次循环的变最变化情况。第一次循环时输入15,If判断为真,所以a=15,x=15:第二次循环时输入24,If判断为假,所以a=15+15=30,x仍然为15:第三次循环时输入35,If判断为真,所以a=30+35=65,x=35:第四次循环时输入46,If判断为假,所以a=65+35=100,x=35。
转载请注明原文地址:https://kaotiyun.com/show/pOLp777K
0

最新回复(0)