在窗体的单击事件中有如下程序:

privatesubform_click()

forj=1to15

a=a+j

nextj

Printa

endsub

程序运行后单击鼠标左键，输出的结果是( )

A．1

B．15

C．90

D．120

[单选题]假定有如下的窗体事件过程：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

[单选题]有如下程序：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 n As Integer, s As Integern = 8s = 0D．os = s + nn = n - 1Loop While n > 0Print sE．nd Sub以上程序的功能是______。程序运行后，单击窗体，输出结果为______。

[单选题]有如下程序：Private Sub Form_Click（）D．im Check, CounterC．heck = TrueC．ounter = 0D．oD．o While Counter < 20C．ounter = Counter + 1If Counter = 10 ThenC．heck = FalseE．xit DoE．nd IfLoopLoop Until Check = FalsePrint Counter, CheckE．nd Sub程序运行后，单击窗体，输出结果为（ ）。A

[单选题]假定有如下事件过程：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

[单选题]如下程序，运行的结果是( )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（）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

[单选题]在窗体中有一个文本框Text1，编写事件代码如下：PrivatesubForm_Click(　　)X=val(Inputbox("输入x的值"))Y=