设有下列程序　　Private Sub Form Click() 　　X=50

问题单项选择题

设有下列程序　　Private Sub Form Click() 　　X=50 　　For i=1 T0 4 　　 y=InputBox("请输入一个整数") 　　 y=Val(v) 　　 If y Mod 5=0 Then 　　a=a+y 　　x=y 　　 Else 　　a=a+x 　　 End If 　　Next i 　　Print a 　　End Sub 　　程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为()。

A．100

B．50

C．120

D．70

答案

参考答案：A

解析：【解析】本题源程序通过For循环输入4个整数，并判断其是否能被5整除，若能被5整除，则将其累加入变量a中，并将其赋值给变量x；否则将变量x的值累加入变量a中。第1次执行循环体时，输入值为15，a=0+15，x=15。第2次执行循环体时，输入值为24，a=15+15=30；第3次执行循环体时，输入值为35，a=30+35=65，x=35；第4次执行循环体时，输入值为46，a=65+35=100。