計(jì)算機(jī)二級(jí)模塊與VBA編程基礎(chǔ)(有KEY)

1、精選優(yōu)質(zhì)文檔-傾情為你奉上精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)專心-專注-專業(yè)精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)If 條件 then 語句Else 語句End if行IF語句：（不需要end if）If x0 then y=1If x=0 then y=0If x0 then Y=1End ifIf x=0 thenY=0End ifIf x0 then Y=1Elseif x=0 thenY=0Elseif x0 Y=1Case 0 Y=0Case is0 Y=-1End selectCase 1 to 20Case 2,4,6,10Case is=10,1to 20,40,6

2、0 不能有AND邏輯運(yùn)算符循環(huán)：Do. loop 的五種結(jié)構(gòu)（不需要編寫程序，寫出執(zhí)行過程）I=1Do while i=5 then exit doFor next( step0 = step=) 退出exit forWhilewend 無退出結(jié)構(gòu)數(shù)組（下標(biāo)）Dim a(下標(biāo)下限 to 下標(biāo)上限)默認(rèn)下限為0C(40,5) 40行50列Option base 1 下限為1函數(shù) (主程序 函數(shù)) 結(jié)果賦值給函數(shù)名FunctionEnd function過程：（主程序 call SubEnd subByval 傳值（不返回值）Byref 傳地址（返回值）經(jīng)典考題以下關(guān)于VBA運(yùn)算符優(yōu)先級(jí)比較，正確

3、的是 CA）算術(shù)運(yùn)算符邏輯運(yùn)算符比較運(yùn)算符 B）邏輯運(yùn)算符比較運(yùn)算符算術(shù)運(yùn)算符C）算術(shù)運(yùn)算符比較運(yùn)算符邏輯運(yùn)算符 D）以上均是錯(cuò)誤的在VBA中，如果沒有顯式聲明或用符號(hào)來定義變量的數(shù)據(jù)類型，變量的默認(rèn)數(shù)據(jù)類型為 DA）Boolean B)Int C)String D)Variant 以下可以得到“2*5=10”結(jié)果的VBA表達(dá)式為 AA)“2*5”&”=“&2*5 B）“2*5”+“=”2*5 C）2*5&“=”&2*5 D）2*5+“=”+2*5以下程序段運(yùn)行后，消息框輸出結(jié)果是 Ba=sqr(3)b=sqr(2)c=abMsgbox c+2A)-1 B)1 C)2 D)出錯(cuò)用于獲得字符串S

4、tr從第2個(gè)字符開始的3個(gè)字符的函數(shù)是 AA）Mid(Str,2,3) B)Middle(Str,2,3) C)Right(Str,2,3) D)Left(Str,2,3)下列邏輯表達(dá)式中，能正確表示條件“x和y都是奇數(shù)”的是 CA)xMod2=1 Or y Mod2=1 B)x Mod 2=0 Or y Mod2=0 C)x Mod2=1 And y Mod 2=1 D)x Mod 2=0 And y Mod 2=0假定有以下循環(huán)結(jié)構(gòu) BDo Until 條件循環(huán)體Loop則正確的是A)如果“條件”值為0，則一次循環(huán)體也不執(zhí)行 B）如果“條件”值為0，則至少執(zhí)行一次循環(huán)體C）如果“條件”值不

5、為0，則至少執(zhí)行一次循環(huán)體 D）不論“條件”是否為“真”，至少要執(zhí)行一次循環(huán)體VBA程序的多條語句可以寫在一行中，其分隔符號(hào) AA）： B）C）; D),VBA表達(dá)式子3*33/3的輸出結(jié)果是 DA)0 B)1 C)3 D）9 執(zhí)行下面的程序段后，b的值為 5a=5b=7a=a+bb=a-ba=a-b在窗體中添加一個(gè)命令按鈕（名稱為為Command1）,然后編寫如下代碼：Private Sub Command1_Click() a=0:b=0:c=6 MsgBox a=b+c End Sub 窗體打開運(yùn)行后，如果單擊命令按鈕，則消息框的輸出結(jié)果為 D。11 B)a=11 C)0 D)False

6、 在窗體上添加一個(gè)命令按鈕（名為Command1）和一個(gè)文本框（名為Text1）,并在命令按鈕中編寫如一事件代碼：Private Sub Command1_() m=2.17 n=Len(Str$(m)+Space(5) Me!Text=n End Sub 打開窗體運(yùn)行后，單擊命令按鈕，在文本框中顯示（D）A) 5 B) 8 C）9 D)1013.下列Case語句中錯(cuò)誤的是 CA）Case 0 to 10 B）Case IS10 C)Case Is10 and Is10 14在窗體中添加一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件代碼： Private Sub Command1_Cl

7、ick ( ) a=75If a60 Then i=1If a70 Then i=2 if a80 Then i=3if a90 Then i=4MsgBox iEnd Sub窗體打開運(yùn)行后，單擊命令按鈕，則消息框的輸出結(jié)果是 B。A）1 B） 2 C） 3 D) 415.在窗體中添加一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件代碼：Private Sub Command1_Click ( ) a=75If a60 Then k=1 Elself a70 Then k=2 Elself a80 Then k=3 Elself a90 Then k=4Endlf MsgBox kEnd

8、 Sub窗體打開運(yùn)行后，單擊命令按鈕，則消息框的輸出結(jié)果是 A。A) 1 B) 2 C) 3 D) 416. 下面程序的功能是計(jì)算折舊年限。假設(shè)一臺(tái)機(jī)器的原價(jià)值為100萬元，如果每年的折舊率為4%，多少年后它的價(jià)值不足50萬元。請(qǐng)?zhí)羁铡?y=0 p=100 x=0.04 Do p=p*（1-x） y=y+1 Loop Until p( 50 ) MsgBox y17.執(zhí)行下面的程序，消息框里顯示的結(jié)果是 abdbPrivate Sub Form_Click ( ) Dim Str as String , k as Integer Str=”ab” For k =Len(Str) To 1 St

9、ep -1 Str = Str& Chr( asc(Mid(Str, k ,1)+k）Next kMsgBox Str End Sub18.某個(gè)窗體已編寫一下事件過程。打算窗體運(yùn)行后，單擊窗體， 消息框的輸出結(jié)果為（ 1024 ）Private Sub Form _Click ( ) Dim k as Integer , n as Integer , m as Integer n=10; m=1; k=1 Do While k=n m=m*2 k=k+1 loopMsgBox mEnd Sub19.以下是一個(gè)競(jìng)賽評(píng)分程序。 8位評(píng)委，去掉一個(gè)最高分和一個(gè)最低分，計(jì)算平均分 （設(shè)滿分位10分）。

10、請(qǐng)?zhí)羁昭a(bǔ)充完整。Private Sub Form _Click ( ) Dim Max as Integer , Min Integer Dim i as Integer , x as Integer , s as Integer Dim p as Single Max=0 Min=10 For i=1 to 8 X=Val(InputBox(“請(qǐng)輸入分?jǐn)?shù)： ”) If ( maxx ) Then Min=x S=s+x Next i s= (s-max-min ) p=s/6 MsgBox “最后得分：”&p End Sub20 在窗體中添加一個(gè)名稱為 Command1 的命令按鈕，然后編寫

11、如下事件代碼：Private Sub Command1_Click ( ) S=”ABBACDDCAB” For i=6 to 2 step -2 x=Mid (s, i, i ) y=Left ( s, i) z=Right ( s, i) z=x&y&z Next i MsgBox z End Sub 窗體打開運(yùn)行后，單擊命令按鈕， 則消息框的輸出結(jié)果是（ D ） A)AABAAB B)ABBABA C)BABBA D)BBABAB21在窗體中添加一個(gè)命令按鈕 (名為 Command1),，然后編寫如下事件 Private Sub Command1_Click ( ) Dim b , k

12、For k=1 to 6 b =23+k Next k MsgBox b+k End Sub窗體開始運(yùn)行后，單擊命令按鈕， 消息框的輸出結(jié)果是( 36 ) 22以下程序段運(yùn)行結(jié)束后， 變量X的值為 C x=2 ：y=4 Do x=x*y y=y=1 Loop While yy,x,y) End Function Private Sub Command1_Click ()Dim a as Integer ,b as Integer a=1:b=2MsgBox m(a,b)End Sub 打開窗體運(yùn)行后，單擊命令按鈕，消息框的輸出結(jié)果為（ 2 ）Private function f(x as lo

13、ng ) As boolean If x mod 2=0 then F=true Else f=false end ifend function28 若窗體中已有一個(gè)名為Command1的命令按鈕、一個(gè)名為L(zhǎng)abel1的標(biāo)簽和一個(gè)名為 Text 的文本框的內(nèi)容為空，然后編寫如下事件的代碼：Privare Sub Command1_lick （） Dim n As long n=Val (Me!textl) p=iif (f(n),”Even umber”,”O(jiān)dd number”) Me!Labell.Caption=n&”is”&pEnd Sub窗體打開運(yùn)行后，在文本框中輸入21，單擊命令按

14、鈕，則標(biāo)簽顯示內(nèi)容為（ 21 is odd number ）29.在窗體中添加一個(gè)名為Command1的命令按鈕，然后編寫如下程序： Private Sub Command1-Click（）Private sub s (ByVal p as integer ) P=p*2End Sub Dim i As Integer i=3 Call s（i） If i4 Then I=I2 Msgbox iEnd Sub窗體打開運(yùn)行后，單擊命令按鈕，則消息框的輸出結(jié)果為（ 3 ）30.在窗體中添加一個(gè)名為Command1的命令按鈕，然后編寫如下程序：Public x As integerPrivate s

15、ub s2 ()Dim x as integerX=x+2End sub Private sub s1 () X=x+2End SubPrvite Sub Command1-Click () x = 10 Call s1 Call s2 MsgBox xEnd Sub窗體打開運(yùn)行后，單擊命令按鈕，則消息框的輸出結(jié)果為_30_31.有一個(gè)VAB計(jì)算機(jī)程序的功能如下，該程序用戶界面由4個(gè)文本框組成。4個(gè)文本框的名稱分別為：Text1,Text2,Text3,Text4。3個(gè)按鈕分別為：清除（名為Command1），計(jì)算（名為Commd2）和退出（名為Commd3）。窗體打開運(yùn)行后，單擊清除按鈕則清

16、除所有文本框中顯示的內(nèi)容：?jiǎn)螕粲?jì)算機(jī)按鈕，則計(jì)算機(jī)在Text1，Text2，和Text3三個(gè)文本框中輸入的3科成績(jī)的平均成績(jī)并將結(jié)果存放在Text4文本框中：?jiǎn)螕敉顺霭粹o則退出。Private Sub Command1_Click ( ) Me！Text1=“”Me！Text2=“”Me！Text3=“”Me！Text4=“”End sub Private Sub Command2_Click ( ) If Me!Text1 =” Or Me!Text2=” Or Me!Text3=” Then MsgBox”成績(jī)輸入不全” ElsePrivate Sub Command3_Click ( )

17、 Docmd._closeEnd sub Me!Text4=(val(me!text1+Val(Me!Text2)+Val(Me!Text3)/3 End if End SubPrivate Sub form_timer() Me .text1=Now()32,在窗體上有一個(gè)文本框控件，名稱為Text。同時(shí)，窗體加載時(shí)設(shè)置其計(jì)時(shí)觸發(fā)事件過程則實(shí)現(xiàn)在Text1 文本框中動(dòng)態(tài)顯示當(dāng)前日期和時(shí)間。請(qǐng)補(bǔ)充完整。Private Sub From_Load( ) Me.Timerinterval=1000End Sub33有如下語句： s=Int（100*Rnd） 執(zhí)行完畢后，s的值是A）0, 99的隨機(jī)

18、整數(shù) B）0, 100的隨機(jī)整數(shù) C）1,99的隨機(jī)整數(shù) D）1,100的隨機(jī)整數(shù)34.如下程序段定義了學(xué)生成績(jī)的記錄類型，由學(xué)號(hào)，姓名和三門課程成績(jī)（百分制）組成。Type Stud no As Integer name As String score （1 to3）As SingleEnd Type若對(duì)某個(gè)學(xué)生的各個(gè)數(shù)據(jù)項(xiàng)進(jìn)行賦值，下列程序段中正確的是 D A）Dim S As Stud B）Dim S As Stud Stud.no =1001 S.no =1001 S=”舒宜” S.name=”舒宜” Stud.score (1) =78,88,96 S.score=

19、78,88,96 C) Dim S As Stud D) Dim S As StudStud.no =1001 S.no =1001S =”舒宜” S.name =”舒宜” S (1) =78 S.Score(1)=78Stud.score (2) =88 S.Score(2)=88Stud.score (3) =96 S.Score(3)=9635.有如下用戶定義類型及操作語句：Dim Stu As StudentWith Stu .Sno=” .Sname=”陳果果” .Sage=19End Sub Type Student SNo As String Sn

20、ame As String Sage As Integer End Type 執(zhí)行MsgBox Stu，Sage后，消息框輸出的結(jié)果是（19 ） ）同步練習(xí)以下程序運(yùn)行后，輸出結(jié)果為（ 15 ）a=5for k=1 to 0 a=a+knext kmsgbox k& a以下程序運(yùn)行后，輸出的結(jié)果為（ 4 5 9 ）a=3b=1for i=1 to 3 f=a+b a=bb=fmsgbox f next i 3. 以下程序運(yùn)行后，輸出結(jié)果結(jié)果為（ 107 ） I=9 X=5 Do I=I+1 X=x+2 Loop Until I=7 Msgbox I & x4.以下程序運(yùn)行后，輸出結(jié)果為 （ 1

21、 8 ） S=1 DoNumber = number+1Loop until S=6 Msgbox number，s5.以下程序運(yùn)行后，輸出結(jié)果為（3）For I=0 to 50 I=I+3N=n+1If I10 then exit for Next iMe! Text1=str(n)6.窗體上面一名稱為text1 的文本框，和一個(gè)名稱為option1的選項(xiàng)按鈕組。程序運(yùn)行后單擊某個(gè)選項(xiàng)按鈕，文本框中的內(nèi)容就會(huì)變成其字體Private Sub option1_Click()Select case option1 Case I a=”宋體” Case 2 a=”黑體”Case 3 a=“楷體_G

22、B2312”end selecttext1 ._fontname=a7在第一個(gè)文本框中輸入10，則第二個(gè)文本框中的值是多少 10 n=me!text1Select Case nCase 1 to 20X=10Case 2,4,6,10X=20Case is =10X=30Case elsc X=40End select Me!text2=x8在窗體上面畫一個(gè)命令按鈕（其name 屬性為command1），然后編寫如下代碼：Private sub command1-click () Dim m（10） as integer For k=1 to 10 M(k)=12-k Next kX=6Fun

23、ction fun (ByVal num As Long ) As LongDim k As LongK=1Num=Abs(num)Do while num K=k*(num Mod 10) num=num10LoopFun=k End FunctionMsgbox m (2+m(x)End sub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是（4）9、在窗體上面畫一個(gè)命令按鈕 ，然后編寫如下程序：Paivate sub command1_click()Dim n as long dim r as long n=inputbox（“請(qǐng)輸入一個(gè)數(shù)”）n= clng (n)r=fun（n）msgbox re

24、nd sub程序運(yùn)行后，單擊命令按鈕，再輸入對(duì)話“234”，輸出結(jié)果為（24）10執(zhí)行下面的程序后，x的值為 AX=5For i=I to 20 step 2X=x+i5Next ia)21 b)22 c) 23 d）2411、在窗體上面畫一個(gè)命令按鈕，然后編寫如下事件過程： Paivate sub command1_click() X=0 Do untin x=-1 A=inputbox（“請(qǐng)輸入a的值“） A=val(a) / val 字符轉(zhuǎn)數(shù)值函數(shù)，見書268頁 B=inputbox （請(qǐng)輸入b的值“） B=val（b） X=inputbox (“請(qǐng)輸入x的值“) X=val(x) A=

25、a+b+xLoopMsgbox aEnd sub 程序運(yùn)行后，單擊命令按鈕，依次在輸入對(duì)話框中輸入5、4、3、2、1、-1，則輸出結(jié)果為 Aa) 2 B) 3 c)14 D)15 12在窗體上面畫兩個(gè)文本框（其name屬性分別為text1和text2）和一個(gè)命令按鈕（其name屬性為command1），然后編寫如下過程：Private sub command1_click() X=0Do while x50 X=（x+2）*（x+3） N=n+1Loop Me.text=str （n） /str為數(shù)值轉(zhuǎn)字符函數(shù)Me.text2 =str (x)End sub程序運(yùn)行后，單擊命令按鈕，在兩個(gè)文本

26、框中顯示的值分別為 BA) 1和0 B)2和72 C) 3和50 D)4和168 13.在窗體上面畫一個(gè)命令按鈕，然后編寫如下事件過程： 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 Next j Next iMsgbox aEnd sub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是（ 12 ）考前預(yù)測(cè)：1、VBA中不能進(jìn)行錯(cuò)誤處理的語句結(jié)構(gòu)是（ A ）A、On Error Then 標(biāo)號(hào) B、On Error Goto 標(biāo)號(hào) C、On Error Resume Next D、On

27、 Error Goto 03、在VBA代碼調(diào)試過程中，能夠顯示出所有在當(dāng)前過程中變量聲明及變量值信息的是（ D ）A、快速監(jiān)視 B、監(jiān)視窗口 C、立即窗口 D、本地窗口4、VBA的邏輯值進(jìn)行算術(shù)運(yùn)算時(shí)，True值被處理為（ B ）A、0 B、-1 C、1 D、任意值5、以下有關(guān)控件對(duì)象屬性的說法中正確的是（ D ）A、控件對(duì)象的屬性只能在屬性窗口中設(shè)置 B、不同控件對(duì)象不可能有同名屬性C、不同控件對(duì)象的同名屬性取值一定相同 D、控件對(duì)象的屬性既可在屬性窗口中設(shè)置也可通過VBA代碼設(shè)置6、為了把焦點(diǎn)移到某個(gè)指定的控件，所使用的是（ A ）A、SetFocus B、Visible C、Refres

28、h D、GotFocus7、以下Dlookup函數(shù)式用于某個(gè)窗體模塊設(shè)計(jì)時(shí)有條件獲取非數(shù)據(jù)源的數(shù)據(jù)表“tStud”中“tName”字段值。條件是：數(shù)據(jù)表“tStud”中“tNum”字段的值等于窗體上文本框控件（名為txtNum）輸入的值。這里，數(shù)據(jù)表“tStud”中“tNum”字段為文本類型。正確的是（ ）A、Dlookup(“tName”,”tStud”,”tNum=me!txtNum” ) B、Dlookup(“tName”,”tStud”,”tNum=me!txtNum” ) C、Dlookup(“tName”,”tStud”,”tNum=&me!txtNum” ) D、Dlookup(

29、“tName”,”tStud”,”tNum=”&me!txtNums )8、表達(dá)式#2004/2/28# - #2004/3/5#的值為（ A ）A、-6 B、-5 C、5 D、69、在VBA的DOWhile或DoUntil循環(huán)結(jié)構(gòu)中，可以實(shí)現(xiàn)循環(huán)提前結(jié)束的語句是（ D ）A、End for B、End do C、exit for D、Exit do10、VBA的控件輸入數(shù)據(jù)驗(yàn)證一般安排在控件的事件過程中進(jìn)行。主要是（C）A、Click B、Change C、BeforeUpdate D、AfterUpdate11、過程中的形參和實(shí)參之間應(yīng)（ D ）A、僅要求類型上必須一致 B、僅要求位置上必

30、須一致 C、類型必須一致，位置無關(guān)D、類型和位置都必須一致12、以下程序段執(zhí)行后 ，變量A和B的值分別是（13 21）A=1B=ADO Until A5 A=A+BB=B+ALOOP13、若在一個(gè)窗體上，依次創(chuàng)建了Label、CommandButton和TextBox等三個(gè)控件，則運(yùn)行顯示窗體時(shí)，首先獲得焦點(diǎn)的對(duì)象是( B )A、窗體 B、CommandButton C、Label D、TextBox14、可以同時(shí)刪除字符串前導(dǎo)和尾部空格的函數(shù)是（ C ）A、Ltrim B、Rtrim C、trim D、Mid15、如果在立即窗口中執(zhí)行以下操作M=1N=2Print m=n則輸出結(jié)果是（ C

31、） A、-1 B、0 C、false D、true16、執(zhí)行下面程序段后，x的值為（ A ） A、21 B、22 C、23 D、24X=5For i=1 to 20 step 2 X=x+i5Next i17、在窗體上畫一個(gè)文本框（其Name屬性為Text1），然后編寫如下事件過程：Private Sub form_load( )Text1=”For i=1 to 10 Sum=sum+iNext I Text=sumEnd sub上述程序的運(yùn)行結(jié)果是（ A ）A、在文本框text1中輸出55 B、在文本框text1中輸出0C、出錯(cuò) D、在文本框text1中輸出不定值18、定義數(shù)組a(1to5

32、,5)后下面哪一個(gè)數(shù)組元素不存在（ C ）A、a(1,1) B、a(1,0) C、a(0,1) D、a(5,5)19、以下可以將變量A、B值互換的是（ B ）A、A=B:B=A B、A=A+B:B=A-B:A=A-B C、A=C:C=B:B=A D、A=(A+B)/2:B=(A-B)/220、能實(shí)現(xiàn)多項(xiàng)分支選擇結(jié)構(gòu)的語句是（ B ）A、ifelse B、select case C、do while D、do until21、VBA注釋語句說明可使用REM或符號(hào)（ B ）A、“ B、 C、 ， D、 ：22、ACCESS的窗體和大多數(shù)控件都可以接收焦點(diǎn)，但焦點(diǎn)在任何時(shí)候只能有（ B ）A、0個(gè)

33、B、1個(gè) C、2個(gè) D、3個(gè)23、VBA中，如果沒有顯示聲明或用符號(hào)來定義變量的數(shù)據(jù)類型，默認(rèn)為（ C ）A、string B、int C、variant D、Boolean1、VBA的全稱是（ Visual basic for application ）2、模塊包含了一個(gè)聲明區(qū)域和一個(gè)或多個(gè)子過程（以 sub 開頭）或函數(shù)過程（以 function 開頭）3、VBA中變量作用域分為3個(gè)層次，這3個(gè)層次是（ 局部范圍 ）、（ 模塊范圍）、（ 全局范圍 ）4、在模塊的說明區(qū)域中，用（ private ）關(guān)鍵字說明的變量是模塊范圍的變量；而用（ public）或（ global ）關(guān)鍵字說明的變量

34、是屬于全局范圍的變量5、VBA的定時(shí)操作功能是通過窗體的（ timer ）事件過程完成6、VBA的3種流程控制結(jié)構(gòu)是順序結(jié)構(gòu)、（ 選擇結(jié)構(gòu) ）和（ 循環(huán)結(jié)構(gòu) ）7、以程序是計(jì)算1-1/2+1/3-1/4+1/9-1/10的值并輸出，請(qǐng)補(bǔ)充完成。S=0K=1T=1Do while k( 11 )S=s+t/kK=k+1T=( -T )LoopMsgbox s8、以下是某個(gè)窗體的模塊代碼，請(qǐng)分析單擊窗體后程序運(yùn)行至“*“號(hào)位置時(shí)變量x、y和z的值分別為（2 2 2 ）Dim x as integerDim y as integerPrivate sub form_click( ) Dim x as

35、 integer X=1 Y=1 Call aa(y+1) Z=BB(x)*Msgbox “x=”&x&”/y=”&y&”/z=”&zEnd subPrivate sub aa(byval z as integer)Y=z+xZ=x+yEnd subPrivate function BB(byref y as integer)Y=y+1BB=x+yEnd function9、啟動(dòng)窗體時(shí)，為了初始化該窗體中的各控件，可選用窗體的（ load ）事件10、以下程序運(yùn)行時(shí)連續(xù)單擊4次窗體，則第4次單擊窗體后消息框里的輸出結(jié)果為（ 15，8 ）Private sub form_click( )Static a a