有如下程序：

Private Sub Form_Click（）

D．im Check, Counter

C．heck = True

C．ounter = 0

D．o

D．o While Counter < 20

C．ounter = Counter + 1

If Counter = 10 Then

C．heck = False

E．xit Do

E．nd If

Loop

Loop Until Check = False

Print Counter, Check

E．nd Sub

程序运行后，单击窗体，输出结果为（ ）。

A．15 0

B．20 -1

C．10 True

D．10 False

[单选题]有如下程序：Private Sub Form_Click（）D．im i As Integer, sum As Integersum = 0F．or i = 2 To 10If i Mod 2 <> 0 And i Mod 3 = 0 Thensum = sum + iE．nd IfNext iPrint sumE．nd Sub程序运行后，单击窗体，输出结果为（ ）。A．12B．30C．24D．18

[试题]阅读下面的程序：Private Sub Form_Click（）D．im Check As Boolean, Counter As IntegerC．heck = TrueC．ounter = 5D．oD．o While Counter < 20C．ounter = Counter + 1If Counter = 10 ThenC．heck = FalseE．xit DoE．nd IfLoopLoop Until Check = FalsePrint CounterE．nd Sub程序运行后

[单选题]阅读下面的程序： Private Sub Form_Click() Dim Check， Counter Check=True Counter=0 Do Do While Counter ＜ 20 Counter=Counter + 1 If Counter=10 Then Check = False Exit Do End If Loop Loop Until Check = False Print Counter， Check End Sub 程序运行后，单击窗体，输出的结果为A．15 0B

[主观题]设有如下程序：Private Sub Form_Click（）D．im n As Integer, s As Integern = 8s = 0D．os = s + nn = n - 1Loop While n > 0Print sE．nd Sub以上程序的功能是______。程序运行后，单击窗体，输出结果为______。

[单选题]在窗体的单击事件中有如下程序:privatesubform_click()forj=1to15a=a+jnextjPrintaendsub程序运行后单击鼠标左键，输出的结果是( )A．1B．15C．90D．120

[单选题]假定有如下事件过程：Private Sub Form_Click（）D．im x As Integer, n As Integerx = 1n = 0D．o While x < 28x = x * 3n = n + 1LoopPrint x, nE．nd Sub程序运行后，单击窗体，输出结果是（ ）。A．81 4B．56 3C．28 1D．243 5

[单选题]假定有如下的窗体事件过程：Private Sub Form_Click（）a$ = "Microsoft Visual Basic"b$ = Right（a$, 5）c$ = Mid（a$, 1, 9）MsgBox a$, 34, b$, c$, 5E．nd Sub程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是（ ）。A．Microsoft VisualB．MicrosoftC．BasicD．5

[单选题]如下程序，运行的结果是( )PrivateSubForm_Click()D．immAsInteger,IAsInteger,x(10)AsIntegerF．orI=0to4x(I)=I+1NextIF．orI=1to2C．allproc(x)NextIF．orI=0to4Printx(I);NextIE．ndSubPublicSubproc(a()AsInteger)StaticIAsIntegerD．oa(I)=a(I)+a(I+1)I=I+1LoopWhileI<2E．ndSubA．3

[单选题]有如下程序：Option Base 1Private Sub Form_Click（）D．im arr, SumSum = 0arr = Array（1, 3, 5, 7, 9, 11, 13, 15, 17, 19）F．or i = 1 To 10If arr（i） / 3 = arr（i） / 3 ThenSum = Sum + arr（i）E．nd IfNext iPrint SumE．nd Sub程序运行后，单击窗体，输出结果为（ ）。A．25B．26C．27D．28

[试题]完成下面的程序，使显示结果如下图所示。Private Sub Form_Click（）F．ontSize=18Sample＄=" (8) "x=（ScaleWidth-TextWidth（Sample＄） ） /2y=（ScaleHeight-TextHeight（Sample＄） ） /2C．urrentX=xC．urrentY=y(9) Sample＄E．nd Sub