下面程序的输出结果为( )

PrivateSubCommand1_Click()

D．ima%(1To5),b%(2To10),i%,t1#,t2#

F．ori=1To5

a(i)=i

Nexti

t1=tim(a())

Print"t1=";t1

E．ndSub

F．unctiontim(a()AsInteger)

D．imt#,i%

t=1

F．ori=LBound( )ToUBound( )

t=t*a(i)

Nexti

tim=t

E．ndFunction

A．t1=10

B．t1=12

C．t1=120

D．120

[单选题]下面程序执行的结果是( )Privatesubcommand1_click()a="135":b="246"c=a+bPrintcendsubA．135B．246C．"381"D．135246

[单选题]下列程序的执行结果为Private Sub Command1_Click（）D．im s1 As String, s2 As Strings1= "abcd"C．all Transfer（s1, s2）Print s2E．nd SubPrivate Sub Transfer （ByVal xstr As String, ystr As String）D．im tempstr As Stringi=Len（xstr）D．o While i >=1tempstr=tempstr + Mid

[单选题]阅读下列程序：Private Sub Command1_Click（）D．im i As Integer, k As Integerk=2F．or i=1 To 3Print H（k） ;Next iE．nd SubF．unction H（j As Integer）a=0Static ba=a + 1b=b + 1H．=a*b + jE．nd Function程序运行后，单击命令按钮输出结果是（ ）。A．2 3 4B．3 4 5C．5 6 7D．3 5 6

[单选题]有如下程序：Private Sub Command1_Click（）D．im k As Integer, m As IntegerD．im p As Integerk=4: m=1p=PC（k, m） : Print p;p=PC（k, m） : Print pE．nd SubPrivate Function PC（a As Integer, b As Integer）Static m As Integer, i As Integerm=0: i=2i=i + m + 1m=i + a + bP

[单选题]有如下程序：Private Sub Command1_Click（）D．im a As SingleD．im b As Singlea=2: b=4C．all CS （a, B．E．nd SubSub CS （x As Single, y As Single）t=xx=t ＼ yy=t Mod yE．nd Sub程序运行后，单击命令按钮，a和b的值分别为（ ）。A．0 0B．1 1C．0 2D．1 2

[单选题]有如下程序：Private Sub Command1_Click（）D．im a As Integera=2F．or i=1 To 3Print Gad （A．Next iE．nd SubF．unction Gad （a As Integer）b=0Static cb=b + 1c=c + 1G．ad=a + b + cE．nd Function运行上面的程序后，单击命令按钮，输出结果为（ ）。A．123B．234C．456D．146

[单选题]有如下的程序：PrivateSubCommand1_Click()D．imxAsInteger,yAsIntegera=8b=3C．alltest(6,a,b+1)Print"主程序";6;a;bE．ndSubSubtest(xAsInteger,ByValyAsInteger,ByValzAsInteger)Print"子程序";x;y;zx=2y=4z=3E．ndSub当单击Command1后，运行程序显示的结果是( )A．子程序643主程序684B．

[单选题]设有如下程序：Private Sub Command1_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 + dE．nd Sub程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、

[单选题]阅读下列程序：PrivateSubCommand1_Click()D．im i As Integer，k As Integerk=2F．or i=1 To 3Print Fun(k)；NextE．nd SubF．unction Fun(j As Integer)Static ba=0a=a+1b=b+1F．un=a*b+jE．nd Function 程序运行后，单击命令按钮输出结果是A．234B．345C．567D．356

[单选题]有如下程序段：Private Sub Command1_Click（）D．im a As Integera=2F．or i=1 To 3Print G（A．Next iE．nd SubF．unction G（a As Integer）b=0Static cb=b + 1c=c + 1G．=a + b + cE．nd Function运行上面的程序后，单击命令按钮，输出结果为（ ）。A．1 2 3B．2 3 4C．4 5 6D．1 4 6