(21)在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
X=-5
If Sgn(x)Then
y=Sgn(x^2)
Else
y=Sgn(x)
End If
Print y
End Sub
程序运行后，单击命令按钮，其输出结果为_________。
A)-5　　B)25　　C)-l　　　D)1
答案：D
评析:Sgn(number)函数的功能是返回number的正负号。如果number>0，Sgn返回1：number=O，Sgn返回0；number<O，Sgn返回-l。在本题中Sgn(-5)的返回值为-l，执行y=Sgn(x^2)，结果y的值为l。

(22)在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim array1(10,10)As Integer
Dim i As Integer,j As Integer
Fori=l To 3
Forj=2 To 4
array1(i'j)=i+j
Next j
Next i
Text1．Text=array1(2，3)+array1(3，4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是________。
A)15　　B)14　　C)13　　D)12
答案：D
评析:本题是通过一个For循环来给数组赋值。由arrayl(i,j)=i+j可知，arrayl(2,3)：2+3=5，arrayl(3,4)=3+4=7，arrayl(2,3)+arrayl(3，4)=5+7=12，即文本框中的值为12。

(23)在窗体上画四个文本框，并用这四个文本框建立一个控件数组，名称为Text1(下标从0开始，依次增大)，然后编写如下事件过程：
Private Sub Command1_Click()
For Each TextBox In Text1
Text1(i)=Text1(i)．Index
i=i+l
Next
End Sub
程序运行后，单击命令按钮，四个文本框中显示的内容分别为_________。
A)0 1 2 3　　B)l 2 3 4　　C)O l 3 2　　D)出错信息
答案：A
评析：控件数组是由一组相同类型的控件组成。它们共用一个控件名。建立控件数组时，系统给每个元素赋一个唯一的索引号(Index)，通过属性窗口的Index属性，可以知道该控件的下标是多少。，第1个下标是0，第2个下标是1，第3个下标是2，第4个下标是3。故四个文本框中显示的内容分别为0、l、2、3。

(24)以下描述中正确的是_________。
A)标准模块中的任何过程都可以在整个工程范围内被调用
B)在一个窗体模块中可以调用在其它窗体中被定义为Public的通用过程
C)如果工程中包含Sub Main过程，则程序将首先执行该过程
D)如果工程中不包含Sub Main过程，则程序一定首先执行第一个建立的窗体
答案：B
评析:标准模块中可以包含私有和公共过程；工程的启动对象(Form或Sub Main)决定了工程中首先被执行的部分。