单项选择题

在窗体上画一个命令按钮，然后编写下列程序
Private Sub Command3_Click()
Tcl 2
Tcl 3
Tcl 4
End Sub
Sub Tcl(a As Integer)
Static x As Integer
x=x+a
Print x；
End Sub
程序运行后，单击命令按钮，输出结果为

A．2 3 4
B．2 5 9
C．3 5 4
D．2 4 3
<上一题 目录 下一题>
热门 试题

单项选择题
下列程序的功能是调用字体对话框来设置文本框字体，单击按钮弹出对话框后，按Cancel键退出对话框，则 Private Sub Command1_Click() CommonDialog1.CancelError=True CommonDialog1.Flags=cdlCFEffects Or cdlDFBoth CommonDialog1.Action=4 CommonDialog1.ShowFont Text1.Font.Name=CommonDialog1.FontName Text1.Font.Size=CommonDialog1.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．程序出错!
单项选择题
下面程序段，运行后的结果是 Private Sub Command1_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．
相关试题