单项选择题

下面程序段，运行后的结果是（ ）。 　Private Sub Commandl_Click( ) 　　Dim b%(1 To 4)，i%，t# 　　For i=1 To 4 　　　b(i)=i 　　Next i 　　t=Tof(b( ) ) 　　Print"t="；t， 　End Sub 　Function Tof(a() As Integer) 　　Dim t#，i% 　　t=1 　　For i=2 To UBound(a) 　　　　　　t=t * a(i) 　　　　Next i 　　　　Tof=t 　　End Function

A．RunSQL
B．RunApp
C．Requery
D．Quit
<上一题 目录 下一题>
热门 试题

单项选择题
下列程序的执行结果为( )。Ptivate Sub Commandl_Click()Dim FirStr As StringFirStr= abcdef Print Pct (FirStr)End SubPrivate Function Pct(xStr As String)As StringDim tempStr As String,strLen As IntegertempStr= strLen=Len(xStr)i=1Do While i＜=Len(xStr)-3tempStr=tempStr + Mid(xStr，i，l) + Mid(xStr，strLen - i+i ，1)i=i + 1LoopPct=tempStrEnd FunCtion
A．void
B．int
C．new
D．long
单项选择题
在窗体上画一个名称为Label1的标签，然后编写如下事件过程：Private Sub Form_Click()Dim arr(10, 10) As Integer Dim i As Integer, j As Integer For i = 2 To 4For j = 2 To 4 arr(i, j) = i * jNext j Next i Label1.Caption = Str(arr(2, 2) + arr(3, 3)) End Sub程序运行后，单击窗体，在标签中显示的内容是______。
A．12
B．13
C．14
D．15
相关试题