问题
单项选择题
运行下列程序,输入数据8、9、3、0后,窗体中显示的结果是( )。
Private Sub Form_click()
Dim sum As Integer,m As Integer
sum=0
Do
m=InDutBox("输入m")
sum=sum+m
Loop Until m=0
MsgBox sum
End Sub
A) 0
B) 17
C) 20
D) 21
答案
参考答案:C
解析: 本题程序实现了一个求和循环。首先,程序定义了两个整型变量sum和m,为sum赋初值为0,在Do…Loop…Until循环中,通过语句“m=InputBox("输入m")”收集键盘输入的数据,将该数据赋值给变量m,并执行语句“sum=sum+m”,将所有输入的数据累加,累加结果放入变量sum中,直到输入数据为“0”,满足循环结束条件“m=0”为止。在本题要求中,依次输入数据8、9、3、0,所以,程序运行后窗体显示结果为20。所以本题答案为C)。