下面对程序段运行结果叙述正确的是( )PrivateSubForm_Click()Caption="鼠标单击&quo

下面对程序段运行结果叙述正确的是( )

PrivateSubForm_Click()

C．aption="鼠标单击"

Picture=LoadPicture(App.Path+"/window.jpg")

Print"欢迎使用VB"

E．ndSub

PrivateSubForm_DblClick()

C．aption="鼠标双击"

Picture=LoadPicture("")

Print"结束使用VB"

E．ndSub

A．单击窗体时窗体的标题为"鼠标单击"，窗体上显示"结束使用VB"

B．双击窗体时窗体的标题为"鼠标双击"，窗体上显示"结束使用VB"

C．双击窗体时窗体的图片还在

D．单击窗体时窗体的图片删除

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

[单选题]下面程序运行后，S的值是( )Privatesubform_click()forj=1to10x=j*2-1ifx/3=int(x/3)orx/5=int(x/5)thens=s+xnextjPrint"s=";sendsubA．27B．30C．32D．37

[试题]阅读下面的程序：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（）F．ontSize=18Sample＄=" (8) "x=（ScaleWidth-TextWidth（Sample＄） ） /2y=（ScaleHeight-TextHeight（Sample＄） ） /2C．urrentX=xC．urrentY=y(9) Sample＄E．nd Sub

[单选题]有如下程序：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

[单选题]编写以下程序段：PrivateSubForm_Click()F．orI=1To3PrintString(I,"▼")NextIE．ndSub其中〈CR〉表示换行和回车当单击窗体时，显示的图形为( )A．▼▼▼▼〈CR〉B．▼▼▼〈CR〉〉▲▲〈CR〉▼〈CR〉C．▼▼〈CR〉▲▲▲〈CR〉▼▼▼▼〈CR〉D．▼〈CR〉▲▲〈CR〉▲▲▲〈CR〉

[主观题]设有如下程序：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

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