单项选择题

运行下列程序，输入数据8、9、3、0后，窗体中显示结果是______。
Private Sub Form_click()
Dim sum As Integer,m As Integer
sum=0
Do
m=InputBox("输入m")
sum=sum+m
Loop Until m=0
MsgBox sum
End Sub

A．0
B．17
C．20
D．21

<上一题目录下一题>

热门试题

单项选择题

窗体中有命令按钮Command1和文本框Text1，事件过程如下： Function result(ByVal x As Integer)As Boolean If x Mod 2=0 Then result=True Else result=False End If End Function Private Sub Command1_Click() x=Val(InputBox( 请输入一个整数 )) If【】Then Text1=Str(x)＆是偶数. Else Text1=Str(x)＆是奇数. End If End Sub 运行程序，单击命令按钮，输入19，在Text1中会显示“19是奇数”。那么在程序的括号内应填写______。

A．NOT result(x)
B．result(x)
C．result(x)=“奇数”
D．result(x)=“偶数”

单项选择题

在窗体中有一个命令按钮Command1，编写事件代码如下： Private Sub Command1_Click() Dim s As Integer 8=P(1)+P(2)+P(3)+P(4) debug.Print s End Sub Public Function P(N As Integer) Dim Sum As Integer Sum=0 For i=1 To N Sum=Sum+i Next i P=Sum End Function 打开窗体运行后，单击命令按钮，输出结果是______。

A．15
B．20
C．25
D．35

相关试题