运行下列程序，输入数据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
运行下列程序，输入数据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 Sub
A.0
B.17
C.20
D.21
相关考题：
设有如下程序:Option Base 0Private Sub Form_Click()Dim aDim I As Integera=Array(1,2,3,4,5,6,7,8,9)For I=0 To 3Print a(5 – I);Next IEnd Sub程序运行后,单击窗体,则在窗体上显示的是( )。 A.4321B.5432C.6543D.7654
阅读程序：Private Sub Commandl一Click()Dim arrDim i AS Integerarr=Array(0，1, 2，3，4，5，6，7,8，9，10)For i=0 To 2Print arr(7-i)；NextEnd Sub程序运行后，窗体上显示的是：A．8 7 6B．7 6 5C．6 5 4D．5 4 3
设有如下程序： Option Base 0 Private Sub Form_Click（ ） Dim a Dim i As Integer a=Array(1，2，3，4，5，6，7，8，9) For i=0 To 3 Print a(5-i)； Next End Sub 程序运行后，单击窗体，则在窗体上显示的是（ ）。A.4 3 2 1B.5 4 3 2C.6 5 4 3D.7 6 5 4
运行下列程序，输入数据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
运行下列程序：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
设有如下程序： Private Sub Form_ Click() Dim a Dim i As Integer, j As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i = 0 To 3 Print a(5 - i) Next End Sub程序运行后，单击窗体，则在窗体上显示的是______。。A．4 3 2 1B．5 4 3 2C．6 5 4 3D．7 6 5 4
设有如下程序： Option Base 0 Private Sub Form_Click() Dim a Dimi As Integer a=Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i=0 To 3 Print a(5-i); Next End Sub 程序运行后，单击窗体，则在窗体上显示的是______。A．4 3 2 1B．5 4 3 2C．6 5 4 3D．7 6 5 4
设有如下程序： Option Base 0 Private Sub Form_Click( ) Dim a Dim i As Integer a=Array(1，2，3，4，5，6，7，8，9) For i=0 To 3 Print a(5-i) Next End Sub 程序运行后，单击窗体，则在窗体上显示的是A．4 3 2 1B．54 3 2C．6 5 4 3D．7 6 5 4
运行下列程序，输入数据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