设有以下程序: Private Sub Form_Click()   x=50   For i=1 To 4     y=InputBox("请输入一个整数")     y=Val(y)     If y Mod 5=0 Then       a=a+y

admin2015-06-30  22

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

解析 程序的作用是输入的数如果是5的倍数就累加,如果不是就每次加50或与上次是5的倍数的那个数相累加。因此最终a的值是15+15+35+35=100。
转载请注明原文地址:https://kaotiyun.com/show/P8Qp777K
0

最新回复(0)