【正文】
? yyyy 年 q 季 m 月 ? y 一年的日數(shù) d 日 ? w 一周的日數(shù) ww 周 ? h 時(shí) n 分鐘 s 秒 模塊 ?下列程序段的功能是實(shí)現(xiàn) “ 學(xué)生 ”表中 “ 年齡 ” 字段值加 1 Dim Str As String Str= Str 空白處應(yīng)填入的程序代碼是 A)年齡 =年齡 +1 B) Update學(xué)生 Set 年齡 =年齡 +1 C) Set 年齡 =年齡 +1 D) Edit 學(xué)生 年齡 =年齡 +l ?參考答案: [B] 模塊 ?下列能夠交換變量 X和 Y值的程序段是 A) Y=X:X=Y B) Z=X:Y=Z:X=Y C) Z=X:X=Y:Y=Z D) Z=X:W=Y:Y=Z:X=Y ?參考答案: [C] 模塊 ?由 “ For i=1 To 9 Step 3”決定的循環(huán)結(jié)構(gòu),其循環(huán)體將被執(zhí)行 A) 0次 B) 1次 C) 4次 D) 5次 ?參考答案: [A] 模塊 ?若變量 i的初值為 8,則下列循環(huán)語(yǔ)句中循環(huán)體的執(zhí)行次數(shù)為 Do While i=17 i=i+2 Loop A) 3次 B) 4次 C) 5次 D) 6次 ?參考答案: [C] 模塊 ? 設(shè)有如下過(guò)程: x= 1 Do x= x+ 2 Loop Until 運(yùn)行程序,要求循環(huán)體執(zhí)行 3次后結(jié)束循環(huán),空白處應(yīng)填入的語(yǔ)句是 A)x= 7 B)x7 C)x= 7 D)x7 ? 參考答案: [C] ? 【 解析 】 Loop Until循環(huán)語(yǔ)句:當(dāng)條件表達(dá)式為真時(shí),跳出循環(huán)。第 1次循環(huán) x= x+ 1= 1+ 2= 3,第 2次循環(huán) x= x+ 2= 3+ 2= 5;第 3次循環(huán) x= x+ 2= 5+ 2= 7,查看所有選項(xiàng)得出答案為 C)。 模塊 ? 在窗體中有一個(gè)文本框 Textl,編寫事件代碼如下: Private Sub Form_Click() X= val(Inputbox(輸入 X的值 )) Y= 1 If X0 Then Y= 2 = Y End Sub 打開(kāi)窗體運(yùn)行后,在輸入框中輸入整數(shù) 12,文本框 Text1中輸出的結(jié)果是 ? A)1 B)2 C)3 D)4 ? 參考答案: [B] 【 解析 】 本題中窗體單擊事件是通過(guò)從輸入框輸入數(shù)值,根據(jù)所輸入數(shù)值內(nèi)容對(duì) y進(jìn)行賦值,運(yùn)行時(shí)輸入框輸入 12,此值不等于 0所以 y的值為 2,正確答案為 B)。 模塊 ?運(yùn)行下列程序,輸入數(shù)據(jù) 8, 9, 3, 0后,窗體中顯示結(jié)果是 Private Sub Form _click() Dim sum AsInteger,m As Integer sum=0 Do m=InputBox( “ 輸入 m”) sum=sum+m Loop Until m=0 MsgBox sum End Sub A) 0 B) 17 C) 20 D) 21 ?參考答案: [C] 模塊 ? 在窗體中有一個(gè)命令按鈕 Commandl和一個(gè)文本框 Textl,編寫事件代碼如下: Private Sub Commandl_Click() For I= 1 To 4 X= 3 For j= 1 To 3 For k= 1 To 2 x= x+ 3 Next k Next j Next I = Str(X) End Sub 打開(kāi)窗體運(yùn)行后,單擊命令按鈕,文本框 Textl輸出的結(jié)果是 A)6 B)12 C)18 D)21 ? 參考答案: [D] ? 【 解析 】 此題為 3層嵌套循環(huán),經(jīng)過(guò)分析可見(jiàn) I的最外層循環(huán)沒(méi)有實(shí)際意義, I值從 1到 4時(shí), x的結(jié)果是一樣的。當(dāng) j= 1, k= 1時(shí), x= x+ 3= 6, next k,這時(shí) k= 2, x= 6+ 3= 9;最內(nèi)層循環(huán)執(zhí)行完畢,執(zhí)行第二層循環(huán),即 j= 2,重復(fù)上面步驟,以此類推到 j= 3,最終 x值為 21。 模塊 ? 在窗體上有一個(gè)命令按鈕 Commandl和一個(gè)文本框 Textl,編寫事件代碼如下: Private Sub Command1_Click() Dim i,j,x For i = 1 To 20 step 2 x = 0 For j = To 20 step 3 x = x + 1 Next j Next i =Str(x) End Sub 打開(kāi)窗體運(yùn)行后,單擊命令按鈕,文本框中顯示的結(jié)果是 A) 1 B) 7 C) 17 D) 400 ? 參考答案: [A] 模塊 ? 在窗體上有一個(gè)命令按鈕 Commandl,編寫事件代碼如下: Private Sub Commandl_Click() Dim y As Integer y = 0 Do y = InputBox(y=) If (y Mod 10) + Int(y / 10) = 10 Then y。 Loop Until y = 0 End Sub 打開(kāi)窗體運(yùn)行后,單擊命令按鈕,依次輸入 350、 5 6 2 1 1 0,立即窗口上輸出的結(jié)果是 A) 37 55 64 28 19 19 B) 10 50 20 C) 10 50 20 0 D) 37 55 64 28 19 ? 參考答案: [D] 模塊 ? 窗體中有 3個(gè)命令按鈕,分別命名為 Commandl、 Command2和 Command3。當(dāng)單擊 Cmmandl按鈕時(shí), Command2按鈕變?yōu)榭捎茫?Command3按鈕變?yōu)椴豢梢?jiàn)。下列 Commandl的單擊事件過(guò)程中,正確的是 A) Private Sub Command1_Click() = True = False End Sub B) Private Sub Command1_Click() = True = False End Sub C) Private Sub Command1_Click() = True = False End Sub D) Private Sub Command1_Click() = True = False End Sub ? 參考答案: [C] ? 【 解析 】 在按鈕的屬性中, Enable控制按鈕的可用性,Visible控制按鈕的可見(jiàn)性。 模塊 ? 在窗體上有一個(gè)命令按鈕 Commandl,編寫事件代碼如下: Private Sub Command1_Click() Dim x As Integer, y As Integer x = 12: y = 32 Call Proc(x, y) x。 y End Sub Public Sub Proc(n As Integer, ByVal m As Integer) n = n Mod 10 m = m Mod 10 End Sub 打開(kāi)窗體運(yùn)行后,單擊命令按鈕,立即窗口上輸出的結(jié)果是 A) 2 32 B) 12 3 C) 2 2 D) 12 32 ? 參考答案: [A] 模塊 ? 窗體中有命令按鈕 Commandl,事件過(guò)程如下: Public Function f( x As Integer) As Integer Dim y As Integer x=20 y=2 f=x*y End Function Private Sub Commandl_Click() Dim y As Integer Static x As Integer x=10 y=5 y=f( x) Debug .Print x。y End Sub 運(yùn)行程序,單擊命令按鈕,則立即窗口中顯示的內(nèi)容是 A) 10 5 B) 10 40 C) 20 5 D) 20 40 ? 參考答案: [B