运行下列程序，输入数据8、9、3、0后，窗体中显示结果是( )。Prirate Sub．Form_click()Dim sum As Integer,m As Integersum=0Dom=inputBox(“输入m”)sum=sum+mLoop Until m=0MsgBox sumEnd SubA．0B．17C．20D．21
运行下列程序，输入数据8、9、3、0后，窗体中显示结果是( )。
Prirate 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
相关考题：
运行下列程序，输入数据8、9、3、0后，窗体中显示结果是（ ）。 PrivateSub Form. click（ ） Dim sumAs Integer，mAs Integersum=0 Do m=InputBox(”输入m”) sum= sum+m LoopUntil m=0 MsgBoxsum End SubA.0B.17C.20D.21
运行下列程序： Private Sub Form. Click() Sum=0 For i=1 To 100 If Mid(CStr(i)，1， 1)="1" Then Sum=Sum+1 End If Next i Print Sum End Sub 单击窗体后，在窗体上显示的结果是A．12B．13C．14D．15
下列程序运行后的输出结果是______。Private Sub f(k,s) s = 1 for j = 1 To k s=s*j Next jEnd SubPrivate Sub Command1_ Click () Sum = 0 for i = 1 To 3 Call f(i, s) Sum = Sum + s Next i Print Sum End SubA．0B．3C．6D．9
阅读下列程序： Private Sub Form Click() Dim i As Integer， sum As Integer For i = 2 To 10 If i Mod 2 ＜＞ 0 Then Print i； Else sum = sum + i End If Next i Print sum End Sub 程序运行后，单击窗体，在窗体上的输出结果是A．3 5 7 9 30B．1 3 5 7 9C．2 4 6 8 20D．11 15 17 19 20
运行下列程序，输入如下两行：Hi，I amhere．弹出的窗体中的显示结果是（ ）。Private Sub Commandll_ClickDim abeAs String,sum As Stringsum Ⅰ””Doabc=InputBox(”输入abc”)If Right(abc，1)=”．”Then Exit Dosum=sum+abcLoopMsgBoxsumEnd SubA.HiB.IC.amD.here
下面程序运行时，单击窗体后，窗体上显示的结果是( )。 Private Sub Form_Click Dim I As Integer Dim sum As Long Dim t1 As Long t1=1:sum=0 For 1=1 To 3 t1=t1*I sum=sum+t1 Next I Print sum End SubA．3B．9C．5D．6
运行下列程序：Private Sub Command1_Click( )a = Val(InputBox(a = ))Print fun1(a)End SubPrivate Function fun1(b)If b 0 Thenfun1 = 10ElseIf b = 0 Thenfun1 = 9Elsefun1 = 8End IfEnd Function单击按钮后从键盘为变量a输入数据3，输出的结果是( )。A.3B.8C.9D.10
（10）运行下列程序，输入如下两行：Hi,I am here．弹出的窗体中的显示结果是 【10】 。Private Sub Command11_Click()Dim abc As String, sum As stringsum=""Doabc=InputBox("输入abc")If Right(abc,1)="." Then Exit Dosum=sum+abcLoopMsgBox sumEnd Sub
运行下列程序，输入数据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 SubA．0B．17C．20D．21