下面程序的输出结果是。 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=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=1OF．or k=l To 5 Step一1a=a--kNext kPrint a；kE．nd SubA．一5 6B．一5—5C．10 0D．10 1

[单选题]下列程序的运行结果是( )。 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$ = "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$="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_click() Dim c As Integer,d As Integer c=4 d=InputBox("请输入一个整数") Do While d＞0 If d＞c Then c=c+1 End If d=InputBox("请输入一个整数") Loop Print c+d End Sub 程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、 0，则输出结果是A．12B．11C．10D．9

[单选题]（28）阅读下列程序： Private Sub Commandl_Click() Dim i As Integer,k As Integer k=2 For i=1 To 3 PrintH(K)； Next i End Sub Function H(j As Integer) Static b a=0 a=a+1 b=b+1 H=a*b+jEnd Function 单击命令按钮，执行程序，输出结果是A.2 3 4 B.3 4 5 C.5 6 7 D.3 5 6

[单选题]有如下程序： Private Sub Commandl_Click() Dim a As Integer a=2 For i=1 To 3 Print Gad (A)Next i End Sub Function Gad (a As Integer) b=0 Static c b=b + 1 c= c + 1 Gad= a + b + C End Function 运行上面的程序后，单击命令按钮，输出结果为A．1 2 3B．2 3 4C．4 5 6D．1 4 6

[单选题]有如下程序。 Private Sub Commandl_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1 ( a,B)End Sub Sub Subl(x As Single, y As Single) t=x x=t/y y = t Mod y End Sub 在调用运行上述程序后，a和b的值分别为A．0 0B．1 1C．2D．1 2

[单选题]某人编写了下面的程序Private Sub Commandl_click()D．im a As Integer，b As Integera=InputBox(“请输入整数”)b=InputBox(“请输入整数”)pro apro bC．allpro(a+B)E．nd SubPrivate Sub pro(n As Integer)While(n>0)Print n Mod 10；n=n＼10WendPrintE．nd Sub此程序功能是：输入2个正整数，反序输出这2个数的每一位数字，再反序