单项选择题

下面程序段，运行后的结果是　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)

<上一题目录下一题>

热门试题

单项选择题

以下程序段的输出结果为 Dim 1，a(10)，p(3) k=5 Fori=0 To 10 a(i)=i Next i For i=0 To 2 p(i)=a(i*(i+1)) Next i For i=0 To 2 k=k+p(i)*2 Next i Frint k

A．20
B．21
C．56
D．32

单项选择题

下列程序的功能是调用字体对话框来设置文本框字体，单击按钮弹出对话框后，按Cancel键退出对话框，则 Private Sub Command1_Click( ) CommonDialogl．CancelError=True CommonDialogl．Flags=cdlCFEffects Or cdlDFBotb CommonDialogl．Action=4 CommonDialogl．ShowFont Text1.Font.Name=CommonDialogl．FontName Text1．Font．Size=CommonDialogl．FontSize Text1．Font．Bold=CommonDialog1．FontBold Text1．Font．Italic=CommonDialog1．FontItalic Text1．Font．Underline=CommonDialog1．FontUnderline Text1．FontStrikethru=CommonDialog1．FontStrikethru Text1．ForeColor=CommonDialog1．Color End Sub

A．Text1的字体不发生变化
B．Text1的字体发生变化
C．Text1的字体和颜色发生变化
D．程序出错!

相关试题