【文章內容簡介】 （）。x=IIf((ab) Or (cd), A,B)A）a B）b C）B D）A（3） 現(xiàn)有語句：y=IIf(x0, x Mod 3, 0) ，設x=10，則y的值是（）。A）０　B）１　C）３　D）語句有錯（4） 設a=5，b=6，c=7，d=8，執(zhí)行語句x=Ilf((ab) And (cd), 10, 20)后，x的值是（）?！　）10 B）20 C）30 D）200二、填空題（2）在窗體上畫一個命令按鈕，名稱為Command1，然后編寫如下事件過程：Private Sub Command1_Click()Dim n As Integern=Val(InputBox(請輸入一個整數(shù)：))If n Mod 3=0 And n Mod 2=0 And n Mod 5=0 Then Print n+10End IfEnd Sub程序運行后，單擊命令按鈕，在輸入框中輸入60，則輸出結果是【70】。知識點3：多分支語句一、選擇題（1） 以下Case語句中錯誤的是（）。　　A）Case 0 To 10 　　B）Case Is10　　C）Case Is10 And Is50　　D）Case 3,5,Is10（2） 在窗體上畫一個名稱為Command1的命令按鈕和兩個名稱分別為TextText2的文本框，然后編寫如下事件過程：Private Sub Command1_Click()　 n = 　Select Case n　　 Case 1 To 20　　 x = 10　　 Case 2, 4, 6　　 x = 20　　Case Is 10　　 x = 30　　Case 10　　 x = 40　End Select　 = xEnd Sub程序運行后，如果在文本框Text1中輸入10，然后單擊命令按鈕，則在Text2中顯示的內容是（）?！　）10 B）20 C）30 D）40（3） 在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：　　 Private Sub Command1_Click()　　 x=InputBox(Input)　　 Select Case x 　　 Case 1,3　　 Print 分支 1 　　 Case Is 4 　　 Print 分支 2 　　 Case Else 　　 Print Else 分支 　　 End Select 　　 End Sub 程序運行后，如果在輸入對話框中輸入2，則窗體上顯示的是（）?！　）分支1 B）分支2 C）Else分支 D）程序出錯（22）在窗體上畫1個命令按鈕(名稱為Command1)和1個文本框(名稱為Text1)，然后編寫如下事件過程：Private Sub Command1_Click()x=Val()Select Case xCase 1,3y=x*xCase Is=10,Is=10y=xCase 10 To 10y=xEnd SelectEnd Sub程序運行后，在文本框中輸入3，然后單擊命令按鈕，則以下敘述中正確的是（）。A）執(zhí)行y=x*x B）執(zhí)行y=xC）先執(zhí)行y=x*x，再執(zhí)行y=x D）程序出錯（23）在窗體上有一個名為Text1的文本框和一個名為Command1的命令按鈕，并有以下事件過程：Private Sub Command1_Click()x!=Val() Select Case x Case Is10, Is=20 Print 輸入錯誤 Case Is0 Print 20xCase Is10 Print 20Case Is=20 Print x+10End SelectEnd Sub程序運行時，如果在文本框中輸入5，則單擊命令按鈕后的輸出結果是（）。A）5 B）20 C）25 D）輸入錯誤（4） 以下表示下述分段函數(shù)的語句序列中錯誤的是（）。A）Select Case xB）If x0 ThenCase Is0y=5 y=5ElseIf x=5 Then Case Is=5, Is0y=2*x y=2*xElseCase Elsey=x*x+1y=x*x+1End IfEnd SelectC）y=IIf(x0, 5, IIf(x=5, 2*x, x*x+1))D）If x0 Then y=5 If x=5 And x=0 Then y=2*x If x5 Then y=x*x+1二、填空題（1） 設有整形變量s，取值范圍為0~100，表示學生的成績。有如下程序段：　　If s=90 Then　　Level=A　　ElseIf s=75 Then　　Level=B　　ElseIf s=60 Then　　Level=B　　Else　　Level=D　　End If下面用Select Case結構改寫上述程序，使兩段程序所實現(xiàn)的功能完全相同。請?zhí)羁??！　elect Case s　　Case 【Is】=90　　Level=A　　Case 75 To 89　　Level=B　　Case 60 To 74　　Level=B　　Case 【Else】　　Level=D　　【4】　知識點4：選擇性控件一、選擇題（1） 當一個復選框被選中時，它的Value屬性的值是（）?！　）3 　　B）2 　　C）1　　D）0 （2） 在窗體上有如圖所示的控件，各控件的名稱與其標題相同，并有如下程序：Private Sub Form_Load()=False：=1End Sub剛運行程序時，看到的窗體外觀是（）。A） B）C） D）（3） 在窗體上畫兩個單選按鈕（名稱分別為Optionoption2,標題分別為“宋體”和“黑體”）、1個復選框（名稱為Check1,標題為“粗體”）和1個文本框（名稱為Text1,Text屬性為“改變文字字體”），窗體外觀如圖所示。程序運行后，要求“宋體”單選按鈕和“粗體”復選框被選中，則以下能夠實現(xiàn)上述操作的語句序列是（）。A） = False B） = True = True = 0C） = True D） = True = 2 = 1（4） 設窗體上有名稱為Option1的單選按鈕，且程序中有語句：　　If =True Then下面語句中與該語句不等價的是（）。　　A）If Then B）If Option1=True Then　　C）If Value=True Then　D）If Option1 Then二、填空題（1） 為了使復選框禁用(即呈現(xiàn)灰色)，應把它的Value屬性設置為【2】。知識點5：計數(shù)器控件一、選擇題（1） 在窗體上畫一個名稱為Timer1的計時器控件，則以下正確的屬性設置語句是（）?！　）= 　B）=5 C）=50 　　D）=500（2） 在窗體上畫一個文本框和一個計時器控件，名稱分別為Text1和Timer1，在屬性窗口中把計時器的Interval屬性設置為1000，Enabled屬性設置為False,程序運行后，如果單擊命令按鈕，則每隔一秒鐘在文本框中顯示一次當前的時間。以下是實現(xiàn)上述操作的程序：Private Sub Command1_Click() [__]End SubPrivate Sub Timer1_Timer() = TimeEnd Sub在______處應填入的內容是（Enable=True）。A）Enabled=True B）Enabled=FalseC）Visible=True D）Visible=False（3） 某人在窗體上畫了一個名稱為Timer1的計時器和一個名稱為Label1的標簽，計時器的屬性設置為Enabled=True, Interval=0，并編程如下。希望在每2秒在標簽上顯示一次系統(tǒng)當前時間。Private Sub Timer1_Timer()=Time$End Sub在程序執(zhí)行時發(fā)現(xiàn)未能實現(xiàn)上述目的，那么，他應做的修改是（）。A）通過屬性窗口把計時器的Interval屬性設置為2000B）通過屬性窗口把計時器的Enabled屬生設置為FalseC）=Time$語句改為=Tims$D）=Time$語句改為=（4） 窗體上有一個名為Command1的命令按鈕和一個名為Timer1的計時器，并有下面的事件過程：Private Sub Command1_Click() =TrueEnd SubPrivate Sub Form1_Load() =10 =FalseEnd SubPrivate Sub Timer1_Timer() =+10End Sub程序運行時，單擊命令按鈕，則產生的結果是（）。A）命令按鈕每10秒向左移動一次B）命令按鈕每10秒向右移動一次C）命令按鈕每10毫秒向左移動一次D）命令按鈕每10毫秒向右移動一次（5） 設窗體上有一個標簽Labell和一個計時器Timer1，Timer1的Interval屬性被設置為1000，Enabled屬性被設置為True。要求程序運行時每秒在標簽中顯示一次系統(tǒng)當前時間。以下可以實現(xiàn)上述要求的事件過程是（）。A）Private Sub Timer1_Timer() B）Private Sub Timer1_Timer() =True =Time$ End Sub End SubC）Private Sub Timer1_Timer() D）Private Sub Timer1_Timer() =1 For k = l To End Sub =Timer Next k End Sub二、填空題（1） 在窗體上畫一個標簽（名稱為Label1）和一個計時器（名稱為Timer1），然后編寫如下幾個事件過程：　　Private Sub Form_Load()　　 = False　　 =【1000】　　End Sub　　Private Sub Form_Click()　　 =【True】　　End Sub　　Private Sub Timer1_Timer()　　 =【Timer】　　End Sub程序運行后，單擊窗體，將在標簽中顯示當前時間，每隔1秒鐘變換一次。請?zhí)羁铡＃?） ，應將Timer1控件的【Interval】屬性設置為【500】。（7）在窗體上畫一個標簽、一個計時器和一個命令按鈕，其名稱分別為LablTimer1和Command1，如圖1所示。程序運行后，如果單擊命令按鈕，則標簽開始閃爍，每秒鐘“歡迎”二字顯示、消失各一次，如圖2所示。以下是實現(xiàn)上述功能的程序，請?zhí)羁??！　rivate Sub Form_Load()　　=歡迎　　=False= 【1000】=開始閃爍　　End Sub　　Private Sub Timer1_Timer()　　= 【Not 】　　End Sub　　Private Sub Command1_Click()　　【=True】　　End Sub第5章循環(huán)結構設計知識點1：循環(huán)語句一、選擇題（1） 設有如下程序段：　　 x=2 　　 For i=1 To 10 Step 2 　　 x=x+i 　　 Next 運行以上程序后，x的值是（）。A）26 　　B）27　　C）38 　D）57（2） 閱讀程序：Private Sub Form_Click()a=0For j=1 to 15 a=a+j Mod 3Next jPrint a End Sub程序運行后，單擊窗體，輸出結果是（）。A）105 B）1 C）120 D）15（3） 為計算10+21+22+23+24+…+210的值，并把結果顯示在文本框Text1中，若編寫如下事件過程：　　Private Sub Command1_Click()　　Dim a%, s%, k%　　s=1　　a=2　　For k=2 To 10　　a=a*2　　s=s+a　　Next k　　=sEnd Sub執(zhí)行此事件過程后發(fā)現(xiàn)結果是錯誤的，為能夠得到正確結果，應做的修改是（）。　　A）把s=1改為s=0B）把For k=2 To 10改為For k=1 To 10　　C）交換語句s=s+a和a=a*2的順序D）同時進行B）、C）兩種修改（4） 執(zhí)行以下程序段　　a$=