9.程序执行结果s的值是 [9] 。

Private Sub Commandl_Click()

i = 0

D．o

i = i + l

s = i + s

Loop Until i > = 4

Print s

E．nd Sub

[单选题]下面程序的执行结果是Private Sub Commandl_Click()a=1OF．or k=l To 5 Step一1a=a--kNext kPrint a；kE．nd SubA．一5 6B．一5—5C．10 0D．10 1

[试题]程序执行结果s的值是[ ].Private Sub Command l-Click ()I =0D．oS= I +SI = I + lLoop Until I ＞=4E．nd Sub

[单选题]执行下面的程序段，x的值为 Private Sub Commandl_Click() For i=1 To 5 a=a+i Next i x=Val(i) MsgBox x End SubA．5B．6C．7D．8

[单选题]单击命令按钮时，下列程序的执行结果是Private Sub Commandl_Click()D．im a As Integer，b As Integer，c As Integera=3:b=4:c=5Print SecProc(c，b，A)End SubF．unction FirProc(x As Integer，y As Integer，z As Integer)F．irProc=2*x+y+3*zE．nd FunctionF．unction SecProc(x As Integer，y As

[单选题]执行以下程序后输出的是。 Private Sub Commandl_Click ch$ = "ABCDEFGH": Print Mid(Right(ch$, 6), Len(Left(ch$, 4)), 2) End Sub A．CDEFGH B．ABCD C．FG D．AB

[单选题]下面程序的运行结果是( )。 Private Sub Commandl_Click() a=1.5 b=1.5 Callfun(a,B) Printa,b End Sub Private Subfun(x,y) x=y*y y=y+x End SubA．2．25 1.5B．1.5 2.25C．2.25 3.75D．0.75 1.5

[单选题]下列程序的运行结果是( )。 Private Sub Commandl_Click() a=1.5 b=1.5 Call fun(a,B)Print a，b End Sub Private Sub fun(x，y) x=y*y y=y+x End SubA．2.25 3.75B．1.5 2.25C．1.5 0.75D．0.75 1.5

[单选题]下面程序的输出结果是。 Private Sub Commandl_Click ch$=“ABCDEF” proc ch：Print ch End Sub Private Sub proc(ch As Stnng) s=“” For k=Len(ch) TO 1 Step -1 s=s&Mid(ch，k，1) Next k ch=s End Sub A．ABCDEF B．FEDCBA C．A D．F

[单选题]有如下程序： Private Sub Commandl_Click( ) a$="A WORKER IS HERE" x=Len(a$) For i=1，To x-1 b$=Mid$(a$，i，3) If b$="WOR" Then S=S+1 Next Print S End Sub 单击命令按钮，程序运行结果为A．1B．2C．3D．5

[单选题]下面程序执行时，在窗体上显示的是。Private Sub Commandl_ClickD．im a(10)F．or k=1 TO 10a(k)=11-kNext kPrinta(a(3)＼a(7)Mod a(5))E．nd SubA．3B．5C．7D．9