单选题
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim x As Integer
Static s As Integer
x=Val(InputBox("请输入一个正整数="))
If x<5 Then
x=s*x
Else
s=s*x
End If
Print s
End Sub
运行程序,三次单击命令按钮,依次输入5、4、3,最后一次输出的结果是______。
A、
60
B、
120
C、
20
D、
5
【正确答案】
A
【答案解析】
[解析] 本题中,首先使用Static关键字,定义了一个静态局部变量s,初始值为0。然后通过InputBox接收键盘输入一个值,使用Val转换函数将接收的字符型数据转换成数值型数据,赋值给x,接下来使用If~Else语句,判断条件“x<5”是否成立,若成立则执行语句“s=s*x”,否则执行语句“s=s+x”;使用Static定义的局部变量可以保留上次程序执行的结果。运行程序,三次单击命令按钮,依次输入5、4、3,各变量的值如下表所示。
变量x的值
条件语句x<5是否成立
变量s的值
5
不成立,执行语句s=s+x
5
4
成立,执行语句s=s*x
20
3
成立,执行语句s=s*x
60
所以A选项正确。
提交答案
关闭