单选题在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() y = 8 Print fun1(1 + fun1(fun1(fun1(y)))*10) End Sub Private FLinctiOn fUnl(
单选题在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是（ ）
单选题用Print方法在Form1窗体中显示出4个#号的正确代码为( )。
单选题在窗体上画一个组合框，一个命令按钮和一个文本框，其名称分别为Combo1，Command1和Text1，然后编写如下事件过程： Private Sub Form_Load() Combo1. AddItem "AAAAA" Combo1. AddItem "BBBBB" Combo1. AddItem "CCCCC" Combo1. AddItem "DDDDD" Combo1. AddItem "EEEEE" End Sub 程序运行后，如果单击命令按钮，则在文本框中显示组合框的项目“CCCCC”。为了实现该操作，在命令按钮的Click事件过程中应使用的语句为( )。 A) Text1. Text = Combo1. List (2) B) Text1. Text = Combo1. Text C) Text1. Text = Combo1. List (3) D) Text1. Text = Combo1. ListIndex
单选题下面程序运行后，输出的结果是
Dim arr(3，3)
For j=1 To 3
For k=1 To 3
Art(j,k)=(j-1)*3+k
Next k
Next j
For j=2 To 3
For k=2 To 3
Print arr(k,j)；
Next k
Print
Next j
Ａ) 2 5 Ｂ) 5 8 Ｃ) 4 7 Ｄ) 5 9
3 6 6 9 5 8 6 8
单选题阅读下面程序段： For a=1 To2 For b =1 To a For c = b To 2 i=i+1 Next Next Next Print i 执行上面的3重循环后，i的值为
单选题用来设置文字字体是否为粗体的属性是
单选题设变量x的值是845，则下面语句的输出是 Print x / 100 + (x Mod 100) / 10 + x Mod 10
单选题设有以下过程：Private Sub proc(x As Integer, Optional y As Integer) Print x, yEnd Sub针对此过程，下面正确的过程调用语句是
单选题以下关于图片框控件的说法中，错误的是______。
A.可以通过Print方法在图片框中输出文本
B.图片框控件中的图形可以在程序运行过程中被清除
C.图片框控件中可以放置其他控件
D.用Stretch属性可以自动调整图片框中图形的大小
单选题下列属于软件调试技术的是( )。
单选题语句Dim a(-3 To 4，3 To 6)As Integer定义的数组的元素个数是
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Dim x As Integer, y As Integer x = 41: y = 54 Call sub1(x, y) x = x + 1 Print x; y End Sub Private Sub sub1(n As Integer, ByVal m As Integer) n = n Mod 10 m = m / 10 End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是________。
单选题以下关于控件数组的叙述中，错误的是( )。 A) 各数组元素共用相同的事件过程 B) 各数组元素通过下标进行区别 C) 数组可以由不同类型的控件构成 D) 各数组元素具有相同的名称
单选题下列程序的执行结果为 Private Sub Command1_Click( ) Dim FirStr As String FirSt = "abcdef" Print Pat(FirStr) End Sub Private Function Pat( xStr As String) As String Dim tempStr As String, strLen As Integer tempStr ="" strLen = Len(xStr) i=1 Do While i＜=Len(xStr)-3 tempStr = tempStr + Mid(xStr, i, 1 ) + Mid(xStr, strLen - i + 1, 1 ) i=i+1 Loop Pat = tempStr End Function
单选题在窗体上有一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(5)As String FOR i=1 To 5 a(i):Chr(Asc(“A“)+(i-1)) Next For Each b In a Printb： Next End Sub 程序运行后，单击命令按钮，输出结果是( )。 A) ABCDE B) 12345 C) abcde D)出错信息
单选题要得到字体对话框中用户所选择的字体颜色的属性是 ______。
单选题在窗体上画一个命令按钮，名称为Commandl，然后编写如下代码： Option Base 0 Private Sub Commandl_Click() Dim A1(4)As Integer,A2(4)As Integer For k=0 To 2 Al(k+1)=InputBox(”请输入一个整数”) A2(3一k)=Al(k+1) Next k Print A2(k) End Sub 程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为
单选题设有下面程序代码：Option Base 1Private Sub Commandl_Click() Dim x(6) a=Array(4，2，5，1，6，3) b=Array(64，24，98，27，58，41) For k=1 To 6 x(a(k))=b(k) Next k For k=1 To 6 Print x(k)： Next kEnd Sub程序运行时的输出是
单选题有如下函数过程： Function fl(x As Integer)As Long Dim SAs Long，i As Integer s＝0 For i＝1 To x s＝s＋i Next i f1＝s End Function 在窗体上添加一个命令按钮，名为 Command1，并编写事件过程调用该函数，则输出结果为( )。 Private Sub Command1_Click() Dim iAs Integer,sumAs Long For i＝1 to 5 sum＝sum＋f1(i) Next i Print sum End Sub