运行下列程序，输入数据8、9、3、0后，窗体中显示结果是（ ）。PrivateSub Form. click（ ）Dim sumAs Integer，mAs Integersum=0Dom=InputBox(”输入m”)sum= sum+mLoopUntil m=0MsgBoxsumEnd 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 Form. Click()Dim n As Integerx=0n=InputBox(”请输入一个整数”)For i=1 To iFor j=1 To ix=x+1Next jNext 1Print xEnd sub程序运行后，单击窗体，如果在输入对话框中输入5,则在窗体上显示的内容是( )。A．13B．14C．15D．16
阅读程序： Private Sub Command1_Click（ ） Dim arr Dim i As Integer arr=Array(0，1，2，3，4，5，6，7，8，9，10) For i=0 To 2 Print arr(7-i)； Next End Sub 程序运行后，窗体上显示的是（ ）。A.8 7 6B.7 6 5C.6 5 4D.5 4 3
设有如下程序： Private Sub Form. Click（ ） Dim s As Long，f As Long Dim n As Integer，i As Integer f=1 n=4 For i=1 To n f=f*i s=s+f Next i Print s End Sub 程序运行后，单击窗体，输出结果是（ ）。A.32B.33C.34D.35
阅读程序：Private Sub Form. Click（ ）a=0For j=1 To 15a=a+j Mod 3Next jPrint aEnd Sub程序运行后，单击窗体，输出结果是（ ）。A.105B.1C.120D.15
运行下列程序，显示的结果是（ ）。 PrivateSub Command34 Click（ ）i=0 Do i=i+1 LoopWhile i%10MsgBox i End SubA.0B.1C.10D.11
运行下列程序，输入数据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 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
设有如下程序： 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 21B．543 2C．6 54 3D．7 6 54
运行下列程序，在立即窗口显示的结果是（ ）。 PrivateSub Command0_Click（ ） Dim I AsInteger，J AsInteger For I=2To 10 For J=2 To1 If I modJ=0 Then Exit For Next J IfJsqr(I)Then Debug．Print I; Next I End SubA.1579B.468C.3579D.2357
运行下列程序，输入数据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 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 Form. Click() Dim i As Integer,sum As Integer sum=0 For i=2 To 10 If i Mod 2 ＜＞0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______。A． 12B．30C．24D．18
假定有如下事件过程： Private Sub Form. Click() Dim x As Integer, n As Integer x=1 n=0 Do While x＜28 x=x*3 n=n+1 Loop Print x, n End Sub 程序运行后，单击窗体，输出结果是______。A．81 4B．56 3C．28 1D．243 5
运行下列程序，窗体中的显示结果是：（ ）。 OptionCompare Database Dim X AsInteger PrivateSub Form_Load x=3 EndSubPrivate Sub Commandll_click Static aAs Integer Dim b AsInteger b=x^2 funl x，b funl x．b MsgBox”x=‘’x End Sub Subfunl(ByRef Y As Integer，ByVal z AS Integer) y=y+z z=y-z End SubA.x=3B.x=2C.x=21D.x=12
阅读程序： Private Sub Form. Click（ ） a=0 For j=1 To 15 a=a+j Mod 3 Next j Print a End Sub 程序运行后，单击窗体，输出结果是（ ）。A.105B.1C.120D.15
程序代码如下，当单击窗体上的Command1控件时，窗体上显示的结果是( )。 Private Sub Command1_Click() Dim i As Integer，a(9)As Integer For i=9 To 0 Step-1 a(i)=10-i Next i Print a(2); a(5)；a(8) End SubA．2 5 8B．7 4 1C．8 5 2D．3 6 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
下面程序运行时，单击窗体后，窗体上显示的结果是( )。 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 Form. Click（ ） Dim ary(1 To 5)As Integer Dim i As Integer Dim sum As Integer For i=1 To 5 ary(i)=i+l sum=sum+ary(i) Next i Print sum End Sub 程序运行后，单击窗体，则在窗体上显示的是（ ）。A.15B.16C.20D.25
设有如下程序： 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
有如下事件过程：Private Sub Form. Click（ ）Dim n As Integcrx=0n=InputBox(请输入一个整数)For i=1 To iFor i=1 To ix=x+1Next jNext iPrint xEnd sub程序运行后，单击窗体，如果在输入对话框中输入5，则在窗体上显示的内容是（ ）。A.13B.14C.15D.16
设有如下程序： 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
（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
设有如下程序： 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
设有如下程序： Private Sub Command1_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 I End Sub 程序运行后，单击窗体，则在窗体上显示的是（）A、4321B、5432C、6543D、7654