(21)在窗體上畫一個(gè)命令按鈕，其名稱為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
程序運(yùn)行后，單擊命令按鈕，其輸出結(jié)果為_________。
A)-5 B)25 C)-l D)1
答案：D
評析:Sgn(number)函數(shù)的功能是返回number的正負(fù)號。如果number>0，Sgn返回1：number=O，Sgn返回0；number (22)在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為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
程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是________。
A)15 B)14 C)13 D)12
答案：D
評析:本題是通過一個(gè)For循環(huán)來給數(shù)組賦值。由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)在窗體上畫四個(gè)文本框，并用這四個(gè)文本框建立一個(gè)控件數(shù)組，名稱為Text1(下標(biāo)從0開始，依次增大)，然后編寫如下事件過程：
Private Sub Command1_Click()
For Each TextBox In Text1
Text1(i)=Text1(i)．Index
i=i+l
Next
End Sub
程序運(yùn)行后，單擊命令按鈕，四個(gè)文本框中顯示的內(nèi)容分別為_________。
A)0 1 2 3 B)l 2 3 4 C)O l 3 2 D)出錯(cuò)信息
答案：A
評析：控件數(shù)組是由一組相同類型的控件組成。它們共用一個(gè)控件名。建立控件數(shù)組時(shí)，系統(tǒng)給每個(gè)元素賦一個(gè)的索引號(Index)，通過屬性窗口的Index屬性，可以知道該控件的下標(biāo)是多少。，第1個(gè)下標(biāo)是0，第2個(gè)下標(biāo)是1，第3個(gè)下標(biāo)是2，第4個(gè)下標(biāo)是3。故四個(gè)文本框中顯示的內(nèi)容分別為0、l、2、3。
(24)以下描述中正確的是_________。
A)標(biāo)準(zhǔn)模塊中的任何過程都可以在整個(gè)工程范圍內(nèi)被調(diào)用
B)在一個(gè)窗體模塊中可以調(diào)用在其它窗體中被定義為Public的通用過程
C)如果工程中包含Sub Main過程，則程序?qū)⑹紫葓?zhí)行該過程
D)如果工程中不包含Sub Main過程，則程序一定首先執(zhí)行第一個(gè)建立的窗體
答案：B
評析:標(biāo)準(zhǔn)模塊中可以包含私有和公共過程；工程的啟動(dòng)對象(Form或Sub Main)決定了工程中首先被執(zhí)行的部分。
Private Sub Command1_Click()
X=-5
If Sgn(x)Then
y=Sgn(x^2)
Else
y=Sgn(x)
End If
Print y
End Sub
程序運(yùn)行后，單擊命令按鈕，其輸出結(jié)果為_________。
A)-5 B)25 C)-l D)1
答案：D
評析:Sgn(number)函數(shù)的功能是返回number的正負(fù)號。如果number>0，Sgn返回1：number=O，Sgn返回0；number
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
程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是________。
A)15 B)14 C)13 D)12
答案：D
評析:本題是通過一個(gè)For循環(huán)來給數(shù)組賦值。由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)在窗體上畫四個(gè)文本框，并用這四個(gè)文本框建立一個(gè)控件數(shù)組，名稱為Text1(下標(biāo)從0開始，依次增大)，然后編寫如下事件過程：
Private Sub Command1_Click()
For Each TextBox In Text1
Text1(i)=Text1(i)．Index
i=i+l
Next
End Sub
程序運(yùn)行后，單擊命令按鈕，四個(gè)文本框中顯示的內(nèi)容分別為_________。
A)0 1 2 3 B)l 2 3 4 C)O l 3 2 D)出錯(cuò)信息
答案：A
評析：控件數(shù)組是由一組相同類型的控件組成。它們共用一個(gè)控件名。建立控件數(shù)組時(shí)，系統(tǒng)給每個(gè)元素賦一個(gè)的索引號(Index)，通過屬性窗口的Index屬性，可以知道該控件的下標(biāo)是多少。，第1個(gè)下標(biāo)是0，第2個(gè)下標(biāo)是1，第3個(gè)下標(biāo)是2，第4個(gè)下標(biāo)是3。故四個(gè)文本框中顯示的內(nèi)容分別為0、l、2、3。
(24)以下描述中正確的是_________。
A)標(biāo)準(zhǔn)模塊中的任何過程都可以在整個(gè)工程范圍內(nèi)被調(diào)用
B)在一個(gè)窗體模塊中可以調(diào)用在其它窗體中被定義為Public的通用過程
C)如果工程中包含Sub Main過程，則程序?qū)⑹紫葓?zhí)行該過程
D)如果工程中不包含Sub Main過程，則程序一定首先執(zhí)行第一個(gè)建立的窗體
答案：B
評析:標(biāo)準(zhǔn)模塊中可以包含私有和公共過程；工程的啟動(dòng)對象(Form或Sub Main)決定了工程中首先被執(zhí)行的部分。