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

Private Sub Command l-Click ()

I =0

D．o

S= I +S

I = I + l

Loop Until I ＞=4

E．nd Sub

[单选题]（25）下面程序的执行结果是Private Sub Command 1 Click()a=10F．or k=1 To 5 Step-1a=a-kNext kPrint a; kE．nd SubA．）-5 6B．）-5 -5C．）10 0D．）10 1

[单选题]执行下面的程序段，x的值为 。private Sub Command1_Click()For i=1 To 5 a=a+iNext iX=Val(i)msgBox xEnd SubA．5 B．6 C．7 D．8

[单选题]（32）运行下列程序，结果是Private Sub Command32_Click()f0=1:f1=1:k=1D．o While k<=5f=f0+f1f0=f1f1=fk=k+1LoopMsgBox "f="&fE．nd SubA．）f=5B．）f=7C．）f=8D．）f=13

[单选题]（35）某人编写了下面的程序Private Sub Command1_Click( )D．im a As Integer, b As Integera=InputBox("请输入整数")b=InputBox("请输入整数")pro apro bC．all pro(a+b)E．nd SubPrivate Sub pro(n As Integer)While (n>0)Print n Mod 10;n=n/10WendPrintE．nd Sub此程序功能是：输入 2 个正整数，反序输出

[试题]9.程序执行结果s的值是 [9] 。Private Sub Commandl_Click()i = 0D．oi = i + ls = i + sLoop Until i > = 4Print sE．nd Sub

[单选题]下列程序的执行结果为______。Private sub Command1_ Click ( ) a = 100 b = 50 if a ＜＞ b then a = a + b Else b = b -a Print a, bEnd SubA．50 50B．150 50C．200 200D．10 10

[单选题]下列程序的执行结果为( )。 Private Sub Command1_Click() Dim s1 As String,s2 As String s1="abcdef" Call Invert(s1,s2) Print s2 End Sub Private Sub Invert(ByVal xstr As String,ystr As String) Dim tempstr As String i=Len(xstr) Do While i＞=1 tempstr=tempstr+Mid(xs

[单选题]下列程序执行的结果是______。 Private Sub Command1_Click() x=25 If x＞0 Then y=1 If x＞10 Then y=2 If x＞20 Then y=3 If x＞30 Then y=4 Print y End SubA．1B．2C．3D．4

[单选题]下列事件过程运行后输出结果是Private Sub Command1_Click()Print Format$(123,456, "###,##%")E．nd SubA．123.46%B．123.45%C．123.456%D．12345.6%

[主观题]有如下程序，该程序的执行结果是[ ]。Private Sub Command1_lick()F．or i= 1 To 4x= 4F．or j =1 To 3x =3F．or k=1 To 2X= K+5Next kNext jNext iPrint xE．nd Sub