VBA程序開(kāi)發(fā)與應(yīng)用智慧樹(shù)知到期末考試答案2024年

VBA程序開(kāi)發(fā)與應(yīng)用智慧樹(shù)知到期末考試答案2024年VBA程序開(kāi)發(fā)與應(yīng)用在excel中向access打開(kāi)一個(gè)新紀(jì)錄的方法（）

A:AddNew方法B:Updat方法eC:OpenDatabase方法D:CopyFromRecordset方法答案:OpenDatabase方法一個(gè)對(duì)象可以執(zhí)行的動(dòng)作與可被對(duì)象識(shí)別的動(dòng)作分別稱(chēng)為（）。

A:方法、事件B:事件、方法C:過(guò)程、事件D:屬性、方法答案:事件、方法能夠?qū)SCII碼轉(zhuǎn)化為相應(yīng)的字符的函數(shù)是（）。

A:VAL()B:CHR()C:STR()D:ASC()答案:CHR()IfCells(hs,1)="合計(jì)"ThenMsgBox"已經(jīng)“排序求和”!",vbExclamation,"提醒"ExitSubEndIf上述代碼段的功能是：如果最末一行的A列有“合計(jì)”字樣，提示“已經(jīng)排序求和！”并退出。（）

A:錯(cuò)誤B:正確答案:正確ForEach＜元素＞In＜集合或數(shù)組＞[＜語(yǔ)句組＞][ExitFor][＜語(yǔ)句組＞]Next[＜元素＞]其中，＜元素＞是用來(lái)遍歷集合或數(shù)組中所有元素的變量。（）。

A:正確B:錯(cuò)誤答案:正確Application.StatusBar=FalseColumns(1).Clear上述語(yǔ)句的功能是：恢復(fù)系統(tǒng)狀態(tài)欄，清除模擬操作的數(shù)據(jù)。（）。

A:錯(cuò)誤B:正確答案:正確可以在word中將文本發(fā)送至PowerPoint中，無(wú)需使用VB編輯器。（）

A:正確B:錯(cuò)誤答案:正確在VBA中，返回WordApplication對(duì)象的引用方法只有CreateObject一種。（）

A:正確B:錯(cuò)誤答案:錯(cuò)誤用Rows或Columns屬性可以引用整行或整列。（）。

A:錯(cuò)誤B:正確答案:正確Application.ScreenUpdating=False關(guān)閉屏幕更新。Application.ScreenUpdating=True恢復(fù)屏幕更新，上述語(yǔ)句的說(shuō)法是（）。

A:正確B:錯(cuò)誤答案:正確Cells.Clear是用來(lái)清除工作表中所有單元格的內(nèi)容。（）。

A:正確B:錯(cuò)誤答案:正確Functionarea(R)area=3.14*R^2EndFunction上述語(yǔ)句的功能是：自定義函數(shù)可以求出半徑為R的圓的面積（）。

A:正確B:錯(cuò)誤答案:正確編寫(xiě)過(guò)程時(shí)，可以使用MsgBox函數(shù)來(lái)顯示相應(yīng)的彈出對(duì)話(huà)框信息。（）

A:正確B:錯(cuò)誤答案:正確Ifm＜nThent=m:m=n:n=t'讓大數(shù)在m、小數(shù)在n中EndIf上述語(yǔ)句的功能是：如果m＜n成立，即將m和n里面的數(shù)借助t變量互換（）。

A:正確B:錯(cuò)誤答案:正確Selection.ShapeRange.Height=92Selection.ShapeRange.Width=69上述代碼段的功能是：設(shè)置圖片的高度為92，設(shè)置圖片的寬度為69。（）

A:錯(cuò)誤B:正確答案:正確tbar.Visible=False上述代碼段的功能是：令tbar自定義工具欄可見(jiàn)。（）

A:正確B:錯(cuò)誤答案:錯(cuò)誤SubSeveralRows()DimmyUnAsRangeWorksheets("Sheet1").ActivateSetmyUn=Union(Rows(1),Rows(3),Rows(5))myUn.Font.Bold=TrueEndSub。上述語(yǔ)句的功能是：將活動(dòng)工作簿中第1張工作表上的第1行、第3行和第5行的字體設(shè)置為加粗。（）。

A:錯(cuò)B:對(duì)答案:對(duì)zxl=Array("教授","副教授","講師","助教")Application.AddCustomListzxl上述代碼段的功能是：定義一個(gè)自定義序列，添加自定義序列。（）

A:正確B:錯(cuò)誤答案:正確SubUF()SetmyR=Worksheets("Sheet1").Range("A1:C10")answer=WorksheetFunction.Min(myR)MsgBoxanswerEndSub上述語(yǔ)句的功能是：在這段程序中，用對(duì)象變量myR表示Sheet1工作表上A1:C10單元格區(qū)域。設(shè)置另一個(gè)變量answer為對(duì)區(qū)域myR應(yīng)用Min工作表函數(shù)的結(jié)果。最后將answer的值顯示在消息框中。（）。

A:錯(cuò)誤B:正確答案:正確SubApplyColor()ForEachcInRange("AA")Ifc.Value＞25Thenc.Interior.ColorIndex=27EndIfNextcEndSub上述語(yǔ)句的功能是：如果該區(qū)域中的任一單元格的值超過(guò)26，就將該單元格的顏色更改為黃色。（）。

A:錯(cuò)誤B:正確答案:錯(cuò)誤在word中無(wú)法實(shí)現(xiàn)對(duì)access的操作及引用。（）

A:正確B:錯(cuò)誤答案:錯(cuò)誤SubFindM()IfSelection.Areas.Count＞1ThenMsgBox"請(qǐng)不要選擇多個(gè)區(qū)域！"EndIfEndSub上述語(yǔ)句的功能是：該過(guò)程用來(lái)計(jì)算選定區(qū)域中的數(shù)目，如果有多個(gè)區(qū)域，就顯示提示信息。（）。

A:正確B:錯(cuò)誤答案:正確Microsoft不可以使用其他方法來(lái)激活的選項(xiàng)卡。（）

A:正確B:錯(cuò)誤答案:錯(cuò)誤CurPath=ThisWorkbook.Path上述代碼段的功能是：求出當(dāng)前工作簿的路徑，賦值給CurPath變量。（）

A:正確B:錯(cuò)誤答案:正確SubClearRanges()Range("C5:D9,G9:H16,B14:D18").ClearContentsEndSub上述語(yǔ)句的功能是：該過(guò)程清除當(dāng)前工作表上3個(gè)區(qū)域的內(nèi)容。（）。

A:正確B:錯(cuò)誤答案:正確Range（“A1”）.CopyRange（“B1”）是用來(lái)復(fù)制單元格B1，粘貼到單元格A1中。（）。

A:正確B:錯(cuò)誤答案:錯(cuò)誤在word中無(wú)法進(jìn)行excel操作及相關(guān)引用。（）

A:正確B:錯(cuò)誤答案:錯(cuò)誤Subtest()ForEachcInWorksheets("Sheet1").Range("A1:D10")IfAbs(c.Value)＜10Thenc.Font.ColorIndex=3NextEndSub上述語(yǔ)句的功能是：該過(guò)程在單元格區(qū)域A1:D10中循環(huán)，將所有絕對(duì)值小于10的數(shù)字都設(shè)置為紅色。（）。

A:錯(cuò)誤B:正確答案:正確Sub偏移()

ForI=2To10

Sheet1.Range("A"&CStr(I))=I

Sheet1.Range("A"&CStr(I)).Offset(I,3)=Sheet1.Range("A"&CStr(I))+3

NextI

EndSub7、在Excel工作簿中，執(zhí)行上面代碼后，sheet1工作表A5單元格的值是（）。

A:5B:6C:7D:8答案:AI參考:答案：C\n解析：代碼中的第一行就是設(shè)置A5單元格的值是2（因?yàn)镮=2）。之后的操作就是在原來(lái)的基礎(chǔ)上加3，所以執(zhí)行完后A5單元格的值就是5+3=7。因此答案為C。'下列說(shuō)法正確的是（）。

A:私有變量能用于任意模塊中的過(guò)程B:Static語(yǔ)句所聲明的是靜態(tài)變量C:在模塊中使用Dim與Private語(yǔ)句作用是相同的。D:Private語(yǔ)句用來(lái)聲明私有變量答案:AI參考:正確答案是B:Static語(yǔ)句所聲明的是靜態(tài)變量。\n\n選項(xiàng)A錯(cuò)誤，私有變量不能用于任意模塊中的過(guò)程，只能用于模塊內(nèi)部的過(guò)程；選項(xiàng)C錯(cuò)誤，Dim語(yǔ)句用于聲明變量，Private語(yǔ)句用于聲明模塊級(jí)別的私有變量；選項(xiàng)D錯(cuò)誤，Private語(yǔ)句是用來(lái)聲明私有變量的。Static語(yǔ)句是用來(lái)聲明靜態(tài)變量的，其作用是在程序執(zhí)行過(guò)程中，不隨過(guò)程結(jié)束而釋放，保留程序結(jié)束時(shí)的值。因此，選項(xiàng)B正確。'下面對(duì)于“/除法”和“\整除”兩種算術(shù)運(yùn)算符的功能說(shuō)法不正確的是（）。

A:“/除法”：10/4=2.5B:“/除法”和“整除”功能是一樣的。C:“/除法”和“整除”功能是不一樣的。D:“整除”：196=3答案:AI參考:答案是B：“/除法”和“整除”功能是一樣的。\n\n理由：根據(jù)數(shù)學(xué)常識(shí)，整除是指被除數(shù)、除數(shù)同時(shí)乘或除以一個(gè)相同的數(shù)，商不變；而/是普通除法，故A、C、D項(xiàng)表述正確。本題考察的知識(shí)點(diǎn)是根據(jù)問(wèn)題類(lèi)型而定。具體來(lái)說(shuō)，需要考慮到除法與整除兩種算術(shù)運(yùn)算符的區(qū)別和性質(zhì)。整除一般應(yīng)用于整數(shù)的運(yùn)算，它是一種特殊的除法運(yùn)算，適用于除數(shù)和被除數(shù)可以同時(shí)被另一個(gè)整數(shù)整除的情況；而/是普通除法，適用于任何數(shù)字之間的運(yùn)算。所以，選項(xiàng)B的表述是不正確的。綜上所述，答案為B。'對(duì)下面子程序進(jìn)行注釋。

Subarea(R)

Ifr=0Then

ExitSub‘_____________________

EndIf

S=3.14*R*R

MsgBoxS

EndSub

該子程序的功能是____________。參數(shù)R，表示圓形的__________。（）。

A:若參數(shù)的值為0，則退出子程序；求矩形面積；半徑；B:若參數(shù)的值為0，則退出子程序；求圓形面積；半徑；C:若參數(shù)的值不為0，則退出子程序；求圓形面積；長(zhǎng)；D:若參數(shù)的值不為0，則退出子程序；求矩形面積；長(zhǎng)；答案:AI參考:該子程序的功能是：如果R的值為0，則退出子程序；否則，計(jì)算并顯示R為半徑的圓形面積。注釋如下：\n\n‘若參數(shù)的值為0，則退出子程序；\n求矩形面積；半徑’：這段注釋不符合程序邏輯，因?yàn)槿绻鸕為0，那么無(wú)論半徑是多少，都不能求出矩形面積。\n\n‘求圓形面積；半徑’：這段注釋也是不符合程序邏輯的，因?yàn)樵撟映绦驊?yīng)該計(jì)算并顯示R為半徑的圓形面積。\n\n所以，正確選項(xiàng)是：\n\n‘若參數(shù)的值不為0，則退出子程序；求圓形面積；半徑’。\n\n因此，答案為B:若參數(shù)的值為0，則退出子程序；求圓形面積；半徑。'在VBA環(huán)境中建立和運(yùn)行一個(gè)顯示消息框的過(guò)程，可按以下步驟進(jìn)行：①在“開(kāi)發(fā)工具”選項(xiàng)卡的“代碼”組中，單擊______________________按鈕，打開(kāi)VB編輯器窗口。②在工具欄上單擊______________________按鈕，打開(kāi)“工程資源管理器”窗口。③插入模塊、添加過(guò)程、在過(guò)程中下面代碼段：

PublicSub顯示消息框（）

Msgbox"這是測(cè)試用的過(guò)程。"

EndSub

④使用“運(yùn)行”菜單的_________________項(xiàng)(或F5)運(yùn)行程序。（）。

A:“運(yùn)行子程序/用戶(hù)窗體”，VisualBasic,“工程資源管理器”B:VisualBasic,“工程資源管理器”,“運(yùn)行子程序/用戶(hù)窗體”C:“工程資源管理器”,“運(yùn)行子程序/用戶(hù)窗體”，VisualBasic答案:AI參考:選項(xiàng)C：“工程資源管理器”,“運(yùn)行子程序/用戶(hù)窗體”，VisualBasic是正確答案。\n\n步驟如下：\n\n1.在“開(kāi)發(fā)工具”選項(xiàng)卡的“代碼”組中，單擊“VisualBasic”按鈕，打開(kāi)VB編輯器窗口。\n2.在工具欄上單擊“工程資源管理器”按鈕，打開(kāi)“工程資源管理器”窗口。\n3.插入模塊，添加過(guò)程，在過(guò)程中輸入以下代碼：PublicSub顯示消息框()Msgbox"這是測(cè)試用的過(guò)程。"EndSub\n4.打開(kāi)“運(yùn)行”菜單，選擇“運(yùn)行子程序/用戶(hù)窗體”選項(xiàng)（或直接按F5鍵），運(yùn)行程序。\n\n注意：運(yùn)行過(guò)程可能會(huì)彈出消息框顯示“這是測(cè)試用的過(guò)程?！?。'[Public|Private]Sub子程序名([＜參數(shù)＞]）

[＜語(yǔ)句組＞]

[ExitSub]

[＜語(yǔ)句組＞]

EndSub（）。

A:Public關(guān)鍵字可以使子程序在所有模塊中有效。B:其余選項(xiàng)都對(duì)。C:如果沒(méi)有指定，默認(rèn)情況是Public。D:Private關(guān)鍵字使子程序只在本模塊中有效。答案:AI參考:正確選項(xiàng)是【D:Private關(guān)鍵字使子程序只在本模塊中有效】。\n\n在VisualBasic中，Sub子程序有兩種訪(fǎng)問(wèn)級(jí)別：Public和Private。Public子程序可以在所有模塊中調(diào)用，而Private子程序只在其所在的模塊中有效。題目中給出的代碼片段是一個(gè)Sub子程序的框架，其中Private關(guān)鍵字表示該子程序只在其所在的模塊中有效。因此，選項(xiàng)D是正確的。其他選項(xiàng)都存在錯(cuò)誤或不完全準(zhǔn)確的地方。'VBA和VB的主要區(qū)別：

VB用于創(chuàng)建標(biāo)準(zhǔn)的應(yīng)用程序，VBA是使已有的應(yīng)用程序(Office)__________。

VB具有自己的開(kāi)發(fā)環(huán)境，VBA________已有的應(yīng)用程序(Office)。

VB開(kāi)發(fā)出的應(yīng)用程序可以是可執(zhí)行文件(*.EXE)，VBA開(kāi)發(fā)的程序必須_________它的“父”應(yīng)用程序(Office)（）

A:寄生于,依賴(lài)于,自動(dòng)化B:自動(dòng)化,依賴(lài)于,寄生于C:自動(dòng)化,寄生于,依賴(lài)于D:寄生于,自動(dòng)化,依賴(lài)于答案:AI參考:正確選項(xiàng)：C:自動(dòng)化,寄生于,依賴(lài)于\n\nVBA和VB的主要區(qū)別在于：VB用于創(chuàng)建標(biāo)準(zhǔn)的應(yīng)用程序，而VBA是使已有的應(yīng)用程序（如Office）自動(dòng)化。VB具有自己的開(kāi)發(fā)環(huán)境，而VBA依賴(lài)于已有的應(yīng)用程序（如Office）運(yùn)行。VBA開(kāi)發(fā)的程序可以自動(dòng)化它的“父”應(yīng)用程序（如Excel），即不需要人工干預(yù)就可以運(yùn)行。因此，選項(xiàng)C“自動(dòng)化，寄生于，依賴(lài)于”是正確的答案。'以下是一個(gè)Integer型二維數(shù)組的定義，二維數(shù)組的維度是。

DimMyArray(10,10)AsInteger（）。

A:10行乘以10列B:10行乘以11列C:11行乘以11列D:11行乘以10列答案:AI參考:正確選項(xiàng)是【C:11行乘以11列】。\n\n解釋?zhuān)焊鶕?jù)題目描述，二維數(shù)組的維度是“10行乘以10列”，因此數(shù)組的大小應(yīng)該是10*10=100個(gè)整數(shù)，而題目中給出的定義是“DimMyArray(10,10)AsInteger”，這表示數(shù)組的大小是11行乘以11列，因?yàn)槎嗔艘粋€(gè)額外的維度（即最后一行的前十個(gè)元素）。所以正確答案是C。'ForEachcInSelection語(yǔ)句的功能（）。

A:對(duì)文件進(jìn)行篩選B:對(duì)文件實(shí)現(xiàn)選定C:對(duì)選定的每個(gè)文件進(jìn)行操作D:對(duì)選定的文件進(jìn)行刪除答案:AI參考:對(duì)于在VBA（VisualBasicforApplications）中的ForEachcInSelection語(yǔ)句，其功能是對(duì)選定的每個(gè)文件進(jìn)行操作。選項(xiàng)A和B描述了文件篩選或選定，但在VBA中并沒(méi)有直接對(duì)應(yīng)的功能。選項(xiàng)D描述了刪除文件，這與ForEachcInSelection的功能不符。因此，正確答案是C：對(duì)選定的每個(gè)文件進(jìn)行操作。'Worksheets(1).Activate用來(lái)（）。

A:選中工作簿B:激活工作表C:選中工作表D:激活工作簿答案:AI參考:正確答案是B:激活工作表。\nWorksheets(1).Activate是用來(lái)激活工作表的，即使當(dāng)前活動(dòng)窗口顯示該工作表的內(nèi)容。選項(xiàng)A、C、D都不符合題意。因此，答案為B。'SelectCase語(yǔ)法如下：

SelectCase＜檢驗(yàn)表達(dá)式＞

[Case＜比較列表1＞

[＜語(yǔ)句組1＞]]

……

[CaseElse

[＜語(yǔ)句組n＞]]

EndSelect（）。

A:其余選項(xiàng)都對(duì)B:＜比較元素＞可以是下列幾種形式之一：(1)表達(dá)式(2)表達(dá)式To表達(dá)式(3)Is＜比較操作符＞表達(dá)式C:＜比較列表＞由一個(gè)或多個(gè)＜比較元素＞組成，中間用逗號(hào)分隔。D:＜檢驗(yàn)表達(dá)式＞是任何數(shù)值或字符串表達(dá)式答案:AI參考:正確選項(xiàng)是【C:＜比較列表＞由一個(gè)或多個(gè)＜比較元素＞組成，中間用逗號(hào)分隔?！浚篭n\n在SelectCase語(yǔ)句中，＜比較列表＞由一個(gè)或多個(gè)＜比較元素＞組成，這些元素之間用逗號(hào)（或其他分隔符）分隔。每個(gè)＜檢驗(yàn)表達(dá)式＞與＜比較元素＞進(jìn)行比較，如果匹配，則執(zhí)行相應(yīng)的＜語(yǔ)句組＞。所以選項(xiàng)C是正確的，其他選項(xiàng)與SelectCase語(yǔ)法不符。'發(fā)布用VBA開(kāi)發(fā)的軟件，需要發(fā)布含有__________的文件，目標(biāo)機(jī)器要有_________環(huán)境，并且要__________。（）

A:Office、VBA代碼、啟用宏B:VBA代碼、Office、啟用宏C:VBA代碼、啟用宏、OfficeD:Office、啟用宏、VBA代碼答案:AI參考:正確選項(xiàng)：B\n\n解析：\n在發(fā)布VBA開(kāi)發(fā)的軟件時(shí)，需要發(fā)布含有VBA代碼的文件，目標(biāo)機(jī)器要有Office環(huán)境，并且要啟用宏。所以選項(xiàng)B是正確答案。選項(xiàng)A和D中的Office和VBA代碼的順序是反的，不符合題意。選項(xiàng)C缺少了VBA代碼這一項(xiàng)，也不符合題意。'A=10:B=8:C=6:D=Null，下列的語(yǔ)句正確的是（）。

答案:AI參考:下列的語(yǔ)句正確的是A=10和D=Null。\n\n因?yàn)樵赩isualBasic或VBScript中，Null是一個(gè)特殊的值，用于表示某些變量未被分配或其值無(wú)法被確定。因此，D=Null是正確的。同時(shí)，變量A=10的賦值也是正確的，因?yàn)樵谶@些編程語(yǔ)言中，數(shù)值可以被賦值給變量。'設(shè)置與清除斷點(diǎn)的方法有哪些？（）。

A:按F11鍵。B:在對(duì)應(yīng)代碼行的左邊界標(biāo)識(shí)條上單擊鼠標(biāo)。C:按F9鍵。D:在“調(diào)試”菜單中選擇“切換斷點(diǎn)”命令。答案:AI參考:正確選項(xiàng)為：B