设有以下程序: Private Sub Form Click() x=50 For i=1 To 4 Y=InputBox(”请输入一个整数”) Y=Val(y) Ifv Mod 5=0 Then

admin2019-03-08  25

问题 设有以下程序:
    Private Sub Form Click()
    x=50
    For i=1 To 4
    Y=InputBox(”请输入一个整数”)
    Y=Val(y)
    Ifv 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

解析 本题考查的考点是有关循环的。本题需要写出每一一次循环的变量变化情况。第一次循环时输入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://jikaoti.com/ti/Hum0FFFM
0

最新回复(0)