模塊與VBA選擇題詳解

1、 模塊與VBA選擇題詳解 第 21頁(yè) /共 21頁(yè)1. 模塊與VBA編程基礎(chǔ) 選擇題 詳解能被“對(duì)象所識(shí)別的動(dòng)作”和“對(duì)象可執(zhí)行的活動(dòng)”分別稱為對(duì)象的（）（A） 方法和事件 （B）事件和方法 （C）事件和屬性 （D）過(guò)程和方法答案（B）事件大部分是鼠標(biāo)或鍵盤(pán)的動(dòng)作，如單擊、雙擊等等。2. 在下列關(guān)于宏和模塊的敘述中，正確的是（）（A） 模塊是能夠被程序調(diào)用的函數(shù)（B） 通過(guò)定義宏可以選擇或更新數(shù)據(jù)（C） 宏或模塊都不能是窗體或報(bào)表上的事件代碼（D） 宏可以是獨(dú)立的數(shù)據(jù)庫(kù)對(duì)象，可以提供獨(dú)立的操作動(dòng)作答案（D）A不對(duì)，函數(shù)是模塊中代碼的一種形式，B不對(duì)，宏不能直接選擇更新數(shù)據(jù) C不對(duì)3. 在Acc

2、ess數(shù)據(jù)庫(kù)中，如果要處理具有復(fù)雜條件或循環(huán)結(jié)構(gòu)的操作，則應(yīng)該使用的對(duì)象（）（A） 窗體 （B）模塊 （C）宏 （D）報(bào)表答案（B）只有模塊能實(shí)現(xiàn)復(fù)雜的功能。4. 下列不屬于類模塊對(duì)象基本特征的是（）（A）事件 （B）屬性 （C）方法 （D）函數(shù)答案（D）查看對(duì)應(yīng)的定義5. 下列關(guān)于VBA事件的敘述中，正確的是（）（A）觸發(fā)相同的事件可以執(zhí)行不同的事件過(guò)程（B）每個(gè)對(duì)象的事件都是不相同的（C）事件都是由用戶操作觸發(fā)的（D）事件可以由程序員定義答案（A）顯然相同的事件中可以執(zhí)行不同的代碼，打開(kāi)模塊編輯代碼的一種方式就是在事件中添加代碼，這里的代碼是由編程者自己編寫(xiě)的，可以修改。6. 發(fā)生在控件接

3、收焦點(diǎn)之前的事件是（）（A）Enter （B）Exit （C）GotFocus （D）LostFocus答案（A）以文本框?yàn)槔?dāng)光標(biāo)“I”在一個(gè)文本框中（假設(shè)名字為text1）閃爍時(shí)，說(shuō)明焦點(diǎn)在此控件中，鼠標(biāo)點(diǎn)擊到另一個(gè)文本框（假設(shè)名字為text2）中時(shí)，首先觸發(fā)text1的Exit事件，然后觸發(fā)text2的Enter事件。7. 在VBA中，如果沒(méi)有顯示聲明或用符號(hào)來(lái)定義變量的數(shù)據(jù)類型，變量的默認(rèn)數(shù)據(jù)類型為（）（A）Boolean （B）Int （C）String （D）Variant答案（D）。查看課本208頁(yè)最上方。8. 下列數(shù)據(jù)類型中，不屬于VBA的是（）（A）長(zhǎng)整型 （B）布爾型 （

4、C）變體型 （D）指針型答案（D）。指針型是C語(yǔ)言中使用的，選項(xiàng)C中的變體型指的是Variant類型9. 如下程序段定義了學(xué)生成績(jī)的記錄類型，由學(xué)號(hào)、姓名和三門(mén)課程成績(jī)(百分制)組成。 Type Stud no As Integer name As String score(1 to 3)As Single End Type 若對(duì)某個(gè)學(xué)生的各個(gè)數(shù)據(jù)項(xiàng)進(jìn)行賦值，下列程序段中正確的是( )（A）Dim S As Stud Stud.no=1001 S="舒宜" Stud.score=78,88,6（B）Dim S As Stud S.no=1001 S.name

5、="舒宜" S.score=78,88,96（C）Dim S As Stud Stud.no=1001 S="舒宜" Stud.score(1)=78 Stud.score(2)=88 Stud.score(3)=96（D）Dim S As Stud S.no=1001 S.name="舒宜" S.score(1)=78 S.score(2)=88 S.score(3)=96答案（D）。解釋如下圖，需要用到數(shù)組如何賦值的知識(shí)10、下列變量名中，合法的是（）（A）4A （B）A-1 （C）ABC_1 （D）private

6、答案（C）。選項(xiàng)A以字母開(kāi)頭，選項(xiàng)B是一個(gè)運(yùn)算表達(dá)式，選項(xiàng)D中private是VBA的關(guān)鍵字，參考課本中207頁(yè)變量的命名規(guī)則12、下列給出的選項(xiàng)中，非法的變量名是（）（A）Sum （B）Integer_2 （C）Rem （D）Form1答案（C）。Rem是關(guān)鍵字，代表注釋13、VBA中定義符號(hào)常量可以用關(guān)鍵字_。（A）Const （B）Dim （C） Public （D）Static答案（A）。記憶，課本208頁(yè)。14、以下可以得到“2*5=10”結(jié)果的VBA表達(dá)式為_(kāi)。 （A）“2*5”&“=”&2*5 （B）“2*5”+“=”+2*5（C） 2*5 &“=”&am

7、p;2*5 （D）2*5+“=”+2*5答案（A）。15、下列邏輯表達(dá)式中，能正確表示條件“x和y都是奇數(shù)”的是( )。 （A） x Mod 2=1 Or y Mod 2=1（B） x Mod 2=0 Or y Mod 2=0（C） x Mod 2=1 And y Mod 2=1（D） x Mod 2=0 And y Mod 2=0答案（C）。為奇數(shù)等同于除以2余數(shù)是116、下列邏輯表達(dá)式中，能正確表示條件“x和y都是偶數(shù)”的是( )。（A） x Mod 2=1 Or y Mod 2=1（B） x Mod 2=0 Or y Mod 2=0（C） x Mod 2=1 And y Mod 2=1（

8、D） x Mod 2=0 And y Mod 2=0答案（D）。為奇數(shù)等同于除以2余數(shù)是017、在使用Dim語(yǔ)句定義數(shù)組時(shí)，在默認(rèn)情況下數(shù)組下標(biāo)的下限為（）（A）0 （B）1 （C）2 （D）3答案（A）。參見(jiàn)課本上209頁(yè)下方關(guān)于數(shù)組下標(biāo)的說(shuō)明。18、語(yǔ)句Dim NewArray(10) As Integer的含義是_。 （A）定義了一個(gè)整型變量且初值為10（B）定義了10個(gè)整數(shù)構(gòu)成的數(shù)組（C）定義了11個(gè)整數(shù)構(gòu)成的數(shù)組（D）將數(shù)組的第10元素設(shè)置為整型答案（C）。理解數(shù)組定義時(shí)小括號(hào)里的數(shù)值代表編號(hào)的上限，而不是數(shù)組中數(shù)據(jù)的個(gè)數(shù)，數(shù)組從0開(kāi)始編號(hào)，所以有編號(hào)分別為0,1,2,3,4,5,6

9、,7,8,9,10的11個(gè)整數(shù)19、定義了二維數(shù)組A(2 to 5,5)，該數(shù)組的元素個(gè)數(shù)為( )。 A20B24C25D36答案（B）。同上題，行編號(hào)為2,3,4,5有4個(gè)，列編號(hào)為0,1,2,3,4,5有6個(gè)，組合起來(lái)有4*6=2420、在模塊的申請(qǐng)部分使用“Option Base 1”語(yǔ)句，然后定義二維數(shù)組A（2 to 5,5），則該數(shù)組元素個(gè)數(shù)為（）A20B24C25D36答案（A）通過(guò)定義題中的語(yǔ)句，編號(hào)下線改為1，所以行編號(hào)2,3,4,5有4個(gè)，列編號(hào)1,2,3,4,5有5個(gè)，共4*5=20個(gè)。21、VBA程序的多條語(yǔ)句可以寫(xiě)在一行中，其分隔符必須使用符號(hào)（）（A）： （B） (C

10、)； （D），答案（A）記憶22、VBA程序中，可以實(shí)現(xiàn)代碼注釋功能的是（）（A）方括號(hào) （A）冒號(hào): （A）雙引號(hào)” （D）單引號(hào)答案（D） 記憶23、VBA程序流程控制的方式有（）A)順序控制和分支控制 B)順序控制和循環(huán)控制C)循環(huán)控制和分支控制 D)順序、分支和循環(huán)控制答案（D）查看課本上流程控制的方式24、假定窗體的名稱為fmTest，則把窗體的標(biāo)題設(shè)置為“Access Test”的語(yǔ)句是（）（A）Me = “Access Test” （B）Me.Caption = “Access Test”（C）Me.text = “Access Test” （D）Me.Name = “Acces

11、s Test”答案（B）記憶設(shè)置標(biāo)題的語(yǔ)句，應(yīng)該設(shè)置Caption屬性，Caption翻譯為中文就是標(biāo)題25、下列能夠交換變量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）交換之前需要先把只保存到另一個(gè)變量中26、Access的控件對(duì)象可以設(shè)置某個(gè)屬性來(lái)控制對(duì)象是否可用（不可用時(shí)顯示為灰色狀態(tài)）。需要設(shè)置的屬性是A）Default B）Cancel C）Enabled D）Visible答案（C）。記憶。Enable的英文意思就是 “使可用”27、窗體上添加有3個(gè)命令按鈕，分別命

12、名為Command1、Command2和Command3。編寫(xiě)Command1的單擊事件過(guò)程，完成的功能為：當(dāng)單擊按鈕Commandl時(shí)，按鈕Command2可用，按鈕Command3不可見(jiàn)。以下正確的是A）Private Sub Command1_Click() C）Private Sub Command1_Click()Command2.Visible=True Command2.Enabled=TrueCommand3.Visible=False Command3.Visible=FalseEnd Sub End SubB）Private Sub Command1_Click() D）P

13、rivate Sub Command1_Click()Command2.Enabled=True Command2.Visible=TrueCommand3.Enabled=False Command3.Enabled=FalseEnd Sub End Sub答案（C）。需要理解Enable屬性和Visible屬性，和上體相同28、22.以下程序段運(yùn)行后，消息框的輸出結(jié)果是Sqr(n)求n的平方根a=sqr(3)True:-1False:0b=sqr(2)c=a>bMsgBox c+2A）-1 B）1 C）2 D）出錯(cuò)答案：（B）參見(jiàn)黃色文本框中的說(shuō)明29、13.在窗體中添加一個(gè)命令按鈕

14、（名稱為Command1），然后編寫(xiě)如下代碼：Private Sub Command1_Click( )a=0 : b=5 : c=6MsgBox a=b+cEnd Sub窗體打開(kāi)運(yùn)行后，如果單擊命令按鈕，則消息框的輸出結(jié)果為A）l1 B）a=11 C）0 D）False答案：（D）需要記憶，此時(shí)a=b+c中的=被當(dāng)做了判斷是否相等DBCA30、在窗體中有一個(gè)標(biāo)簽Label0，標(biāo)題為"測(cè)試進(jìn)行中"；有一個(gè)命令按鈕Command1，事件代碼如下：Private Sub Command1_Click() Label0.Caption="標(biāo)簽"End SubP

15、rivate Sub Form_Load() Form.Caption="舉例" Command1.Caption="移動(dòng)"End Sub打開(kāi)窗體后單擊命令按鈕，屏幕顯示答案（D）如圖所示，每條語(yǔ)句所做設(shè)置在圖中做了標(biāo)注31、在窗體中有一個(gè)標(biāo)簽Lb1和一個(gè)命令按鈕Command1，事件代碼如下：Option Compare DatabaseDim a As String*10 定義字符變量a，其長(zhǎng)度為10。Private Sub Command1_Click() a="1234" b=Len(a) 注意a的值是 “1234”Me.Lb

16、1.Caption=bEnd Sub打開(kāi)窗體后單擊命令按鈕，窗體中顯示的內(nèi)容是A)4 B)5 C)10 D)40答案（C）32、在窗體上添加一個(gè)命令按鈕（名為Command1）和一個(gè)文本框（名為T(mén)ext1），并在命令按鈕中編寫(xiě)如下事件代碼：Private Sub Command1_Click( ) m=2.17 n=Len(Str(m)+Space(5) Me!Text1 =nEnd Sub打開(kāi)窗體運(yùn)行后，單擊命令按鈕，在文本框中顯示A）5 B）8 C）9 D）10答案（D）需要注意Str(m)的長(zhǎng)度是5不是433、在窗口中有1個(gè)標(biāo)簽Label10和1個(gè)命令按鈕Command1，Command

17、1的事件代碼如下：Private Sub Command1_Click()Label0.Left = Label0.Left+100End Sub打開(kāi)窗口，單擊命令按鈕，結(jié)果是（）（A）標(biāo)簽向左加寬 （B）標(biāo)簽向右加寬（C）標(biāo)簽向左移動(dòng) （D）標(biāo)簽向右移動(dòng)答案（D），需要理解該語(yǔ)句改變了標(biāo)簽控件的左邊距，因此標(biāo)簽控件向右移動(dòng)34、在窗體上有1個(gè)命令按鈕Command1，編寫(xiě)事件代碼如下：Private Sub Command_Click（）Dim d1 As DateDim d2 As Dated1 = #12/25/2009#d2 = #1/5/2010#MsgBox DateDiff(“w

18、w”, d1, d2)End Sub打開(kāi)窗體運(yùn)行后，單擊命令按鈕，消息框中輸出的結(jié)果是（）（A） 1 （B） 2 （C） 10 （D） 11 答案（B）。需要理解DateDiff函數(shù)的使用，ww參數(shù)代表比較兩日期之間的周數(shù)，且以星期日的個(gè)數(shù)計(jì)數(shù)，因此是2，如果參數(shù)是w，也是統(tǒng)計(jì)周的個(gè)數(shù)，但是以實(shí)際發(fā)生的周數(shù)統(tǒng)計(jì)，本題中兩日期間隔12天，所以如果參數(shù)是w，結(jié)果是1。35、下列不是分支結(jié)構(gòu)的語(yǔ)句是A)IfThenEndIf B)WhileWendC)IfThenElseEndIf D)SelectCaseEndSelect答案（B）。不是分支是循環(huán)結(jié)構(gòu)36、下列不屬于VBA函數(shù)的是（）（A）Cho

19、ose （B）If （C）IIf （D）Switch答案（B）If是關(guān)鍵字，用在分支結(jié)構(gòu)中，但不是函數(shù)37、在窗體中添加一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下事件代碼：Private Sub Command1_Click( ) A=75 If A>60 Then I=1 If A>70 Then I=2 If A>80 Then I=3 If A>90 Then I=4 MsgBox IEnd Sub窗體打開(kāi)運(yùn)行后，單擊命令按鈕，則消息框的輸出結(jié)果是A）1 B）2 C）3 D）4答案（B）因?yàn)槊織l判斷語(yǔ)句都要執(zhí)行，執(zhí)行完第一條判斷句是 I=1，第二句后I=2

20、，第三句、第四局由于條件不滿足，所以I值不變。38、在窗體中添加一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下事件代碼：Private Sub Command1_Click( ) a=75 If a>60 Then k=1 Else If a>70 Then k=2 Else If a>80 Then k=3 Else If a>90 Thenk=4 End IfMsgBox IEnd Sub窗體打開(kāi)運(yùn)行后，單擊命令按鈕，則消息框的輸出結(jié)果是A）1 B）2 C）3 D）4答案（A）因?yàn)樵谠摲种ЫY(jié)構(gòu)中從上至下，只要一個(gè)條件滿足，就執(zhí)行該條件下語(yǔ)句，其它分支不執(zhí)行，所以

21、只判斷一次a>60成立，執(zhí)行完k=1后直接到結(jié)尾。39、窗體中有一個(gè)命令按鈕run35，對(duì)應(yīng)的事件代碼如下：Private Sub run35_Enter()Dim num As IntegerDim a As IntegerDim b As IntegerDim i As IntegerFor i=1 To 10 num=InputBox("請(qǐng)輸入數(shù)據(jù)："，"輸入"，1) If Int(num/2)=num/2 Then a=a+1 偶數(shù)個(gè)數(shù)累加；Else b=b+1 奇數(shù)個(gè)數(shù)累加；End IfNext iMsgBox("運(yùn)行結(jié)果：a=

22、" & Str(a) & ",b=" &Str(b)End SubA)對(duì)輸入的10個(gè)數(shù)據(jù)求累加和B)對(duì)輸入的10個(gè)數(shù)據(jù)求各自的余數(shù)，然后再進(jìn)行累加C)對(duì)輸入的10個(gè)數(shù)據(jù)分別統(tǒng)計(jì)有幾個(gè)整數(shù)，有幾個(gè)非整數(shù)D)對(duì)輸入的10個(gè)數(shù)據(jù)分別統(tǒng)計(jì)有幾個(gè)奇數(shù)，有幾個(gè)偶數(shù)答案（D）參見(jiàn)圖中，對(duì)代碼的解釋。40、窗體中有命令按鈕Command32，其Click事件代碼如下。該事件的完整功能是：接收從鍵盤(pán)輸入的10個(gè)大于0的整數(shù)，找出其中的最大值和對(duì)應(yīng)的輸入位置Private Sub Command32_Click()max =0max_n=0For i=1 To

23、 10Num = Val(InputBox(“請(qǐng)輸入第” & i & “個(gè)大于0的整數(shù):”)If_ Thenmax = nummax_n=iEnd If Next i MsgBox(“最大值為第” & max_n & “個(gè)輸入的 ” & max)End Sub程序空白處應(yīng)該填入的表達(dá)式是（）（A）num>i （B）i<max （C）num>max （D）num<max答案（C）需要理解max里儲(chǔ)存的是當(dāng)前的最大值，當(dāng)它閉某個(gè)輸入數(shù)字num小的時(shí)候需要把num里的值賦給max，所以比較條件是C。41、有“For I=1 To 16

24、Step 3”決定的循環(huán)結(jié)構(gòu)被執(zhí)行（）（A） 4次（B）5次 （C）6次 （D）7次答案（C）當(dāng)I分別等于1,4,7,10,13,16時(shí)被執(zhí)行，共6次42、運(yùn)行下列程序段，結(jié)果是（）For m=10 To 1 Step 0k=k+3Next m（A）形成死循環(huán) （B）循環(huán)體不執(zhí)行（C）出現(xiàn)語(yǔ)法錯(cuò)誤 （D）循環(huán)體執(zhí)行一次后結(jié)束循環(huán)答案（B）參見(jiàn)課本216頁(yè)中部對(duì)決定循環(huán)是否執(zhí)行和步長(zhǎng)Step之間關(guān)系的說(shuō)明43、由“For i=1 To 9 Step -3”決定的循環(huán)結(jié)構(gòu)，其循環(huán)體江北執(zhí)行（）（A） 0次（B）1次 （C）4次 （D）5次答案（A）同上題，參見(jiàn)課本44、在窗體中有一個(gè)命令按鈕（名稱

25、為run34），對(duì)應(yīng)的事件代碼如下：Private Sub run34_Click()sum =0For i=10 to 1 Step -2sum = sum+iNext iMsgbox sumEnd Sub運(yùn)行以上事件，程序的輸出結(jié)果是A)10 B)30 C)55 D)其他結(jié)果答案（B）i的取值分別為10,8,6,4,2，所以sum的值10+8+6+4+2=3045、若有以下窗體單擊事件過(guò)程：Private Sub Form_Click()result = iFor i=1 To 6 Step 3result = result*iNext iMsgbox resultEnd Sub打開(kāi)窗體運(yùn)

26、行后，單擊窗體，則消息框的輸出內(nèi)容是（）（A）1 （B）4 (C)15 (D) 120答案：（B）。i的取值為1,4，因此result的取值為1*4=4。i=1x=n/i=0/1n=n+1=1sum=sum+x=0i=3x=n/i=2/3n=n+1=3sum=sum+x =1/2+2/3i=2x=n/i=1/2n=n+1=2sum=sum+x =0+1/2i=4x=n/i=3/4n=n+1=4sum=sum+x=1/2+2/3+3/4i=5x=n/i=4/5n=n+1=5sum=sum+x=1/2+2/3+3/4+4/546、設(shè)有如下程序：Private Sub Command1_Click(

27、)Dim sum As Double, x As Doublesum=0n=0For i=1 To 5 x=n/in=n+1sum=sum+xNext iEnd Sub該程序通過(guò)For循環(huán)來(lái)計(jì)算一個(gè)表達(dá)式的值，這個(gè)表達(dá)式是A）1+1/2+2/3+3/4+4/5 B）1+1/2+1/3+1/4+1/5C）1/2+2/3+3/4+4/5 D）1/2+1/3+1/4+1/5：答案（C）如圖所示，為程序執(zhí)行過(guò)程的說(shuō)明。47、在窗體中添加一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下事件代碼：Private Sub Command1_Click( ) s="ABBACDDCBA"

28、I=6，4，2Mid(s,I,I)從第I個(gè)位置向后取I字符。 For I=6 To 2 Step 2 x=Mid(s,I,I) BB y=Left(s,I) AB z=Right(s,I) BA注意：只有I=2時(shí)起作用 z=x & y & z BBABBA Next I MsgBox zEnd Sub窗體打開(kāi)運(yùn)行后，單擊命令按鈕，則消息框的輸出結(jié)果是A）AABAAB B）ABBABA C）BABBA D）BBABBA答案（D）如圖所示48、42.設(shè)有如下窗體單擊事件過(guò)程Private Sub Form_Click()a = 1For i=1 To 3 i=1,2,3Select

29、 Case iCase 1,3 i=1 i=3a=a+1 a=2 a=5Case 2,4 i=2 a=a+2 a=4End SelectNext iMsgBox aEnd Sub打開(kāi)窗體運(yùn)行后，單擊窗體，則消息框的輸出的結(jié)果是A）3 B）4 C）5 D）6答案（C）49、在窗體中有1個(gè)Command1的命令按鈕，編寫(xiě)事件代碼如下：Private Sub Command1_Click()Dim m(10)10987654321 循環(huán)結(jié)束后m取值如下For k=1 To 10m(k) = 11-kNext kx =6 Msgbox m(2+m(x) m(x)=5, m(2+5)=4End Sub打

30、開(kāi)窗體，單擊命令按鈕，消息框的輸出結(jié)果是（）（A）2 （B）3 （C）4 （D）5答案（C）50、在窗體中有1個(gè)run34的命令按鈕，編寫(xiě)事件代碼如下：Private Sub run34_Click（）f1=1f2=1n=3 4 5 6 7f=2 3 5 8 13f1=1 2 3 5 8f2=2 3 5 8 13For n=3 To 7f = f1+f2f1=f2f2=fNext nMsgbox fEnd Sub打開(kāi)窗體，單擊命令按鈕，消息框的輸出結(jié)果是（）（A）8 （B）13 （C）21 （D）其它結(jié)果答案（B）具體過(guò)程如圖所示該程序生成的數(shù)列 1,1,2,3,5,8,13實(shí)際上是斐波那契數(shù)

31、列51、假設(shè)有以下程序段n=0For i=1 To 3 i=1,2,3For j=-4 To -1 j=-4,-3,-2,-1 n=n+1Next jNext i運(yùn)行完畢后，n的值是（）（A）0 （B）3 （C）4 （D）12答案（D）i和j分別取3個(gè)和4個(gè)值，n=n+1共運(yùn)行3*4=12次所以結(jié)果為1252、在窗體中有一個(gè)命令按鈕Command1和一個(gè)文本框Text1，編寫(xiě)事件代碼如下：Private Sub Command1_Click() For i = 1 To 4 x = 3 注意：i=1,2,3,4 都執(zhí)行x=3 因此只有x=4有意義。 For j = 1 To 3 j=1,2,3

32、 3次 For k = 1 To 2 k=1,2 2次 x = x + 3 x=x+3 執(zhí)行次數(shù)為3*2=6 x=21 Next k Next j Next i Text1.Value = Str(x)End Sub打開(kāi)窗體運(yùn)行后，單擊命令按鈕，文本框Text1輸出的結(jié)果是A)6 B)12 C)18 D)21答案（D）53、在窗體中有一個(gè)命令按鈕Command1和一個(gè)文本框Text1，編寫(xiě)事件代碼如下：Private Sub Command1_Click() x =4 For i = 1 To 4 i=1,2,3,4 4次 For j = 1 To 3 j=1,2,3 3次 For k = 1

33、 To 2 k=1,2 2次 x = x + 3 x=x+3 執(zhí)行次數(shù)為4*3*2=24次，結(jié)果為24*3+4=76 Next k Next j Next i Text1.Value = Str(x)End Sub打開(kāi)窗體運(yùn)行后，單擊命令按鈕，文本框Text1輸出的結(jié)果是A)6 B)12 C)21 D)76答案（D）54、在窗體上添加一個(gè)命令按鈕（名為Command1），然后編寫(xiě)如下事件過(guò)程Private Sub Command1_Click（） For i=1 To 4 x = 4注意實(shí)際有效值：i=4j=3k=1 to 2x=x+6 For j=1 To 3 x = 3 For k=1 T

34、o 2 x = x+6 Next k Next j Next i MsgBox xEnd Sub打開(kāi)窗體后，單擊命令按鈕，消息框的輸出結(jié)果是A）7 B）15 C）157 D）538答案（B）最后只在i=4，j=3時(shí)執(zhí)行兩次 x=x+6，由于x=4和x=3兩條語(yǔ)句放在了循環(huán)體匯總，前面執(zhí)行的對(duì)x值的修改都是無(wú)意義的。55、在窗體上有一個(gè)命令按鈕Command1和1個(gè)文本框Text1，編寫(xiě)事件代碼如下：Private Sub Command1_Click()Dim i,j,xFor i=1 To 20 step 2x=0For j=i To 20 step 3x=x+1Next jNext iTe

35、xt1.Value = Str(x)End Sub打開(kāi)窗體后，單擊命令按鈕，文本框的顯示結(jié)果是（A）1 （B）7 （C）17 （D）400答案（A）同上題，有效的是i=19時(shí)的循環(huán)，此時(shí)j=19，因此x=x+1只執(zhí)行一次56、在窗體中添加一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下事件代碼：Private Sub Command1_Click( ) Dim a(10,10)a(m,n)=a(2,5)=2*5=10a(m,n)=a(3,4)=3*4=12a(m,n)=a(4,5)=4*5=20a(2,5)+a(3,4)+a(4,5)=10+12+20=42 For m=2 To 4 For

36、 n=4 To 5 a(m,n)=m*n Next n Next m MsgBox a(2,5)+a(3,4)+a(4,5)End Sub窗體打開(kāi)運(yùn)行后，單擊命令按鈕，則消息框的輸出結(jié)果是A）22 B）32 C）42 D）52答案（C）57、在窗體中，有1個(gè)文本框（名為n）接受輸入的值，有一個(gè)命令按鈕run，事件代碼如下：Private Sub run_Click()result=""For i=1 To Me!n i=1, 2, 3, 4 4次For j=1 To Me!n j=1, 2, 3, 4 4次result=result+"*" 內(nèi)層：* *

37、 * * Next j空 格回 車result=result+Chr(13)+Chr(10) 外層：* * * * Next i chr將ASCII轉(zhuǎn)換成字符MsgBox resultEnd Sub打開(kāi)窗體后，如果通過(guò)文本框輸入的值為4，單擊命令按鈕后輸出的圖型是A)* B) * * * *C) * D) * * * *答案（A）58、在VBA中，錯(cuò)誤的循環(huán)結(jié)構(gòu)是A) Do While 條件式 B) Do Until 條件式循環(huán)體 循環(huán)體Loop LoopC) Do Until D) Do循環(huán)體 循環(huán)體Loop 條件式 Loop While 條件式答案（C）。Until關(guān)鍵字后面必須跟條件59

38、、假定有以下循環(huán)結(jié)構(gòu)Do Until 條件 條件為假時(shí)執(zhí)行循環(huán)體。循環(huán)體Loop則正確的敘述是A）如果"條件"值為0，則一次循環(huán)體也不執(zhí)行B）如果"條件"值為0，則至少執(zhí)行一次循環(huán)體C）如果"條件"值不為0，則至少執(zhí)行一次循環(huán)體D）不論"條件"是否為"真"，至少要執(zhí)行一次循環(huán)體答案（B），參照課本217頁(yè)內(nèi)容理解until循環(huán)結(jié)構(gòu)的使用。60、若變量i的初值為8，則下列循環(huán)語(yǔ)句中循環(huán)體的執(zhí)行次數(shù)為（）Do While i<=17i=i+2Loop（A）3次 （B）4次 （C）5次 （D）6

39、次答案（C）。i=8,10,12,14,16時(shí)執(zhí)行共5次61、設(shè)有如下過(guò)程：x=1Dox=x+2Loop until_運(yùn)行程序，要求循環(huán)執(zhí)行3次后結(jié)束循環(huán)，空白處應(yīng)該填入的語(yǔ)句是（）（A）x<=7 （B）x<7 （C）x>=7 （D）x>7答案（C）。對(duì)于until語(yǔ)句，條件滿足時(shí)結(jié)束循環(huán)，執(zhí)行3次后x=7，所以條件為C，如果設(shè)置為A，第一次就會(huì)結(jié)束循環(huán)62、以下程序段運(yùn)行結(jié)束后，變量x的值為（）x=2y=4Dox=x*yy=y+1Loop While y<4（A）2 （B）4 （C）8 （D）20答案（C），循環(huán)體中語(yǔ)句僅執(zhí)行一次，x=2*4=863、下列四種形

40、式的循環(huán)設(shè)計(jì)中，循環(huán)次數(shù)最少的是a=5a=65<6 真退出1次a=5a=6a=7a=8 退出3次A) a=5:b=8 B) a=5:b=8 DO DO a=a+1 a=a+1 Loop While a<b Loop Until a<ba=5a=85<8 真一次不執(zhí)行C) a=5: b=8 D) a=5:b=8 DO Until a<b DO Until a>b a=a+1 a=a+1 Loop Loopa=5a=6a=7a=8 a=9 9>8真退出4次答案（C）64、在窗體中有一個(gè)名稱為run35的命令按鈕，單擊該按鈕從鍵盤(pán)接收學(xué)生成績(jī)，如果輸入的成績(jī)

41、不在0到100分之間，則要求重新輸入；如果輸入的成績(jī)正確，則進(jìn)入后續(xù)程序處理。run35命令按鈕的Click的事件代碼如下：Private Sub run35_Click() Dim flag As Boolean result = 0 flag=True Do while flagresult = Val(InputBox("請(qǐng)輸入學(xué)生成績(jī)：","輸入") If result >=0 And result <=100 Then _Else MsgBox "成績(jī)輸入錯(cuò)誤，請(qǐng)重新輸入"End IfLoopRem 成績(jī)輸入正確

42、后的程序代碼略End Sub程序中有一空白處，需要填入一條語(yǔ)句使程序完成其功能，下列選項(xiàng)中錯(cuò)誤的語(yǔ)句是A)flag= False B)flag=Not flag C)flag = True D)Exit Do答案（C）用flag=True標(biāo)記輸入的數(shù)值是否正確，如果正確就可以跳過(guò)輸入步驟，繼續(xù)執(zhí)行后續(xù)程序。65、在窗體上有1個(gè)命令按鈕Command1，編寫(xiě)事件代碼如下：Private Sub Command1_Click()Dim y As Integery=0Doy=InputBox(“y=”)If (y Mod 10)+Int(y/10) = 10 Then Debug.Print y;

43、Loop Until y=0End Sub打開(kāi)窗體運(yùn)行后，單擊命令按鈕，依次輸入10、37、50、55、64、20、28、19、-19、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）。在這些語(yǔ)句中 y Mod 10獲得了y個(gè)位數(shù)，Int(y/10)獲得了y十位上的數(shù)，所以If條件實(shí)際上就是判斷輸入的數(shù)個(gè)位+十位是不是等于10，選項(xiàng)D中的數(shù)都滿足，需要驗(yàn)證的-19，它的余數(shù)是1，因?yàn)?19-（-2）*10=1，而它除以10取整是-1，所以不滿足條件。66、運(yùn)行下列程序，輸入數(shù)

44、據(jù)8、9、3、0后，窗體中顯示結(jié)果是（）Private Sub Form_Click()Dim sum As Integer, m As Integersum =0Dom=InputBox(“輸入m”)sum=sum+mLoop Until m=0MsgBox sumEnd Sub（A）0（B） 17（C） 20（D）21答案（C）該程序段實(shí)現(xiàn)的其實(shí)就是將輸入的數(shù)求和，如果輸入的數(shù)為0則停止計(jì)算，所以結(jié)果是8+9+3=2067、運(yùn)行下列程序，結(jié)果是（）Private Sub Command32_Click()f0=1:f1=1:k=1Do While k<=5f=f0+f1f0=f1f1

45、=fk=k+1LoopMsgbox “f=” & fEnd Sub（A）f=5（B） f=7（C） f=8（D）f=13答案（D）。與第50題有相似之處，都是求了斐波那契數(shù)列68、有如下事件程序，運(yùn)行該程序后輸出結(jié)果是（）Private Sub Command33_Click()Dim x As Integer, yAs Integerx=1: y=0Do Until y<=25y=y+x*xx=x+1LoopMsgbox “x=” & x & “,y=” & yEnd Sub（A）x=1,y=0（B） x=4,y=25（C） x=5,y=30（D）輸出其

46、它結(jié)果答案（A）由于一開(kāi)始y就滿足條件y<=25，所以循環(huán)不執(zhí)行。69、運(yùn)行下列程序，顯示的結(jié)果是（）Private Sub Command34_Click()i=0Doi=i+1Loop While i<10MsgBox iEnd Sub（A）0 （B） 1 （C）10 （D）11答案（C）。70. 下列程序的功能是計(jì)算N=2+(2+4)+(2+4+6)+(2+4+6+40)的值。Private Sub Command34_Click()t=0m=0sum = 0Dot =t+msum=sum+tm=_Loop While m<41Msgbox “Sum=” & s

47、umEnd Sub空白處應(yīng)該填寫(xiě)的語(yǔ)句是（）（A）t+2 （B） t+1 （C）m+2 （D）m+1答案（C）。71、下列Case語(yǔ)句中錯(cuò)誤的是A）Case 0 To 10 B）Case Is>10C）Case Is>10 And Is<50 D）Case 3,5,Is>10注意Case語(yǔ)句參數(shù)說(shuō)明：Case 1,3,5,9 單個(gè)值或多個(gè)值，中間用逗號(hào)隔開(kāi)；Case 1 To 10 用To指定范圍；Case Is>=10 用Is指定條件;Private Sub cmd1_Click()X1,x2End Sub72、在Access中，如果變量定義在模塊的過(guò)程內(nèi)部，當(dāng)

48、程序代碼執(zhí)行時(shí)才可見(jiàn)，則這種變量的作用域?yàn)锳)程序范圍 B)全局范圍 C)模塊范圍 D)局部范圍答案（D），如圖所示X1，X2變量作用域?yàn)榫?3、Sub 過(guò)程與 Function 過(guò)程最根本的區(qū)別是A）Sub過(guò)程的過(guò)程名不能返回值，而Function過(guò)程能通過(guò)過(guò)程名返回值B）Sub 過(guò)程可以使用Call語(yǔ)句或直接使用過(guò)程名調(diào)用，而Function過(guò)程不可以C）兩種過(guò)程參數(shù)的傳遞方式不同D）Function過(guò)程可以有參數(shù)，Sub過(guò)程不可以答案（A）參見(jiàn)課本10.7.2與10.7.3對(duì)過(guò)程和函數(shù)的定義74、下列敘述中，正確的是（）（A）Sub過(guò)程無(wú)返回值，不能定義返回值類型（B）Sub過(guò)程有返回值

49、，返回值類型只能是符號(hào)常量（C）Sub過(guò)程有返回值，返回值類型可在調(diào)用過(guò)程時(shí)動(dòng)態(tài)決定（D）Sub過(guò)程有返回值，返回值類型可由定義時(shí)As字句聲明答案（A）Function才有返回值，Sub過(guò)程沒(méi)有，所以選A75、使用Function語(yǔ)句定義一個(gè)函數(shù)過(guò)程，其返回值的類型A)只能是符號(hào)常量 B)是除數(shù)組之外的簡(jiǎn)單數(shù)據(jù)類型C)可在調(diào)用時(shí)由運(yùn)行過(guò)程決定 D)由函數(shù)定義時(shí)As子句聲明例：Public Function f(m As Integer , n As Integer ) As IntegerPrivate Sub s1( ) x = x + 20 End SubPrivate Sub s2( ) Dim x As Integer Call s1x = x + 20 End Sub76、在VBA中，下列關(guān)于過(guò)程的描述中正確的是A)過(guò)程的定義可以嵌套，但過(guò)程的調(diào)用不能嵌套B)過(guò)程的定義不可以嵌套，但過(guò)程的調(diào)用能嵌