精品理论电影在线_日韩视频一区二区_一本色道精品久久一区二区三区_香蕉综合视频

(22)設有命令按鈕Command1的單擊事件過程，代碼如下：
　　Private Sub Command1_Click()
　　Dim a(3，3)As Integer
　　For i=1 To 3
　　For j=1 To 3
　　a(i，j)=i*j+i
　　Next j
　　Next i
　　Sum=0
　　For i=1 To 3
　　Sum=Sum+a(i，4-i)
　　Next i
　　Print Sum
　　End Sub
　　運行程序，單擊命令按鈕，輸出結果是。
　　A．20
　　B．7
　　C．16
　　D．17
(23)在窗體上畫1個名稱為Command1的命令按鈕，然后編寫如下事件過程：
　　Private Sub Command1_Click()
　　a=0
　　For i=1 To 2
　　For j=1 To 4
　　If j Mod 2<>0 Then
　　a=a-1
　　End If
　　a=a+1
　　Next j
　　Next i
　　Print a
　　End Sub
　　程序運行后，單擊命令按鈕，輸出結果是。
　　A．0
　　b．2
　　C．3
　　D．4
(24)窗體上有名稱分別為Text1、Text2的2個文本框，有一個由3個單選按鈕構成的控件數組Option1，如圖1所示。程序運行后，如果單擊某個單選按鈕，則執行Text1中的數值與該單選按鈕所對應的運算(乘以1、10或100)，并將結果顯示在Text2中，如圖2所示。為了實現上述功能，在程序中的問號(?)處應填入的內容是。
　　圖1圖2 Private Sub Option1_Click(Index As Integer)
　　If Text1.Text<>""Then
　　Select Case ?
　　Case 0
　　Text2.Text=Val(Text1.Text)
　　Case 1
　　Text2.Text=Val(Text1.Text)*10
　　Case 2
　　Text2.Text=Val(Text1.Text)*100
　　End Select
　　End If
　　End Sub
　　A．Index
　　b．Option1.Index
　　C．Option1(Index)
　　D．Option1(Index).Value
(25)在窗體上畫1個命令按鈕，其名稱為Command1，然后編寫如下程序：
　　Private Sub Command1_Click()
　　Dim a(10)As Integer
　　Dim x As Integer
　　For i=1 To 10
　　a(i)=8+i
　　Next
　　x=2
　　Print a(f(x)+x)
　　End Sub
　　Function f(x As Integer)
　　x=x+3
　　f=x
　　End Function
　　程序運行后，單擊命令按鈕，輸出結果為。
　　A．12
　　b．15
　　C．17
　　D．18
　　2006年4月筆試試卷第5頁(共12頁)2006年4月筆試試卷第6頁(共12頁)(26)以下關于過程的敘述中，錯誤的是。
　　A．事件過程是由某個事件觸發而執行的過程
　　B．函數過程的返回值可以有多個
　　C．可以在事件過程中調用通用過程
　　D．不能在事件過程中定義函數過程
(27)在窗體上畫3個標簽、3個文本框(名稱分別為Text1、Text2和Text3)和1個命令按鈕(名稱為Command1)，外觀如圖所示。
　　編寫如下程序：
　　Private Sub Form_Load()
　　Text1.Text=""
　　Text2.Text=""
　　Text3.Text=""
　　End Sub
　　Private Sub Command1_Click()
　　x=Val(Text1.Text)
　　y=Val(Text2.Text)
　　Text3.Text=f(x，y)
　　End Sub
　　Function f(ByVal x As Integer,ByVal y As Integer)
　　Do While y<>0
　　tmp=x Mod y
　　x=y
　　y=tmp
　　Loop
　　f=x
　　End Function
　　運行程序，在Text1文本框中輸入36，在Text2文本框中輸入24，然后單擊命令按鈕，則在Text3文本框中顯示的內容是。
　　A．4
　　b．6
　　C．8
　　D．12
(28)窗體上有名稱分別為Text1、Text2的2個文本框，要求文本框Text1中輸入的數據小于500，文本框Text2中輸入的數據小于1000，否則重新輸入。為了實現上述功能，在以下程序中問號(?)處應填入的內容是。
　　Private Sub Text1_LostFocus()
　　Call CheckInput(Text1，500)
　　End Sub
　　Private Sub Text2_LostFocus()
　　Call CheckInput(Text2，1000)
　　End Sub
　　Sub CheckInput(t As ?，x As Integer)
　　If Val(t.Text)>x Then
　　MsgBox"請重新輸入!"
　　End If
　　End Sub
　　A．Text
　　b．SelText
　　C．Control
　　D．Form