单项选择题

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

A．

<上一题目录下一题>

热门试题

单项选择题

假定有下表所列的菜单结构：标题名称层次显示大图标小图标 appear bigicon smallicon 1(主菜单) 2(子菜单) 2(子菜单) 要求程序运行后，如果单击菜单项“大图标”，则在该菜单项前添加一个“√”。以下正确的事件过程是

A．Private Sub bigicon_Click( )
bigicon. Checked = False
End Sub
B．Private Sub bigicon_Click( )
Me. appear, bigicon. Checked = True
End Sub
C．Private Sub bigicon_Click()
bigicon.Checked=True
End Sub
D．Private Sub bigicon_Click()
appear.bigicon.Checked=True
End Sub

单项选择题

在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码： Option Base 1 Private Sub Command1_Click( ) Dim a s=0:j =1 a = Array(1,2,3,4) For i=4 To 1 Step -1 s =s +a(i) *j j=j * 10 Next Print s End Sub 运行上面的程序并单击命令按钮，其输出结果是

A．4221
B．1234
C．34
D．12

相关试题