注意:此页面搜索的是所有试题
Private Sub Command1_Click()
Dim x As Integer
Static s As Integer
x = Val(InputBox("请输入一个正整数="))
If x < 5 Then
s = s * x
Else
s = s + x
End If
Text1.Text = "s=" & Str(s)
End Sub
程序运行后,连续3次单击Command按纽,且设输入的数据为5、4、3时,文本框Text1中显示的值为( )。
A、12 B、20
C、60 D、s=60
Dim x As Integer
Static s As Integer
x = Val(InputBox("请输入一个正整数="))
If x < 5 Then
s = s * x
Else
s = s + x
End If
Text1.Text = "s=" & Str(s)
End Sub
程序运行后,连续3次单击Command按纽,且设输入的数据为5、4、3时,文本框Text1中显示的值为( )。
A、12 B、20
C、60 D、s=60
参考答案