VBA程序開發(fā)與應(yīng)用知到智慧樹章節(jié)測(cè)試課后答案2024年秋吉林師范大學(xué)博達(dá)學(xué)院

VBA程序開發(fā)與應(yīng)用知到智慧樹章節(jié)測(cè)試課后答案2024年秋吉林師范大學(xué)博達(dá)學(xué)院第一章單元測(cè)試

利用Office“錄制宏”的功能可以實(shí)現(xiàn)部分程序設(shè)計(jì)___________，提高軟件開發(fā)的___________，還可以______________。()

A:效率，工作內(nèi)容，提高準(zhǔn)確度

B:自動(dòng)化，工作內(nèi)容，提高準(zhǔn)確度

C:效率，工作內(nèi)容，獲得語(yǔ)句和方法

D:自動(dòng)化，效率，獲得語(yǔ)句和方法

答案:自動(dòng)化，效率，獲得語(yǔ)句和方法

編輯宏的方法：在________選項(xiàng)卡的“代碼”組中單擊________按鈕，在“宏”對(duì)話框中選擇宏，單擊________按鈕。（）。

A:開發(fā)工具，宏，編輯

B:開始，宏，VBE

C:宏，開發(fā)工具，編輯

D:編輯，宏，開發(fā)工具

答案:開發(fā)工具，宏，編輯

第二章單元測(cè)試

進(jìn)入VB編輯器（VBE）的方法：可以在__________選項(xiàng)卡的“代碼”組中單擊__________按鈕，也可以用__________快捷鍵。（）。

A:開發(fā)工具，VisualBasic，Alt+F11

B:插入，宏，Shift+F11

C:開始，宏，F(xiàn)9

D:設(shè)計(jì)，宏，F(xiàn)12

答案:開發(fā)工具，VisualBasic，Alt+F11

調(diào)試VBA程序，可以用_________、__________、_________等方法。（）。

A:宏，開發(fā)工具，編輯

B:開始，宏，VBE

C:連續(xù)、單步、斷點(diǎn)

D:單步、設(shè)置斷點(diǎn)、stop語(yǔ)句

答案:單步、設(shè)置斷點(diǎn)、stop語(yǔ)句

在Excel的VBA代碼中，對(duì)象描述Worksheets("Sheet1").Range("A2")與（）等價(jià)。

A:Worksheets("Sheet1").Range("2A")

B:Worksheets("Sheet1").Cells(2,1)

C:Worksheets("Sheet1").Range("A",2)

D:Worksheets("Sheet1").Cells(1,2)

答案:Worksheets("Sheet1").Cells(2,1)

在Excel的VBA代碼中，Range("A1:D8").CutRange("F1")的作用為（）。

A:剪切單元格區(qū)域A1至D8，移動(dòng)到單元格F1開始的區(qū)域中

B:剪切單元格區(qū)域A1至D8，復(fù)制到單元格F1中

C:剪切單元格區(qū)域A1至D8，復(fù)制到單元格F1開始的區(qū)域中

D:剪切單元格區(qū)域A1至D8，移動(dòng)到單元格F1中

答案:剪切單元格區(qū)域A1至D8，移動(dòng)到單元格F1開始的區(qū)域中

x，y是整數(shù)型變量，在VBA中產(chǎn)生一個(gè)范圍在[x，y]之間的隨機(jī)整數(shù)z的語(yǔ)句為（）。

A:z=Int(Rnd*x)+y

B:z=Int(Rnd*(x-y+1)+y

C:z=Int(Rnd*y)+x

D:z=Int(Rnd*(y-x+1))+x

答案:z=Int(Rnd*(y-x+1))+x

第三章單元測(cè)試

Sheets("表1").Range("B3:E8").Font.Bold中的Range("B3:E8")是（）。

A:事件

B:方法

C:屬性

D:對(duì)象

答案:對(duì)象

為了讓VBA代碼能夠在當(dāng)前電腦的任何Word文檔中使用，需要將宏保存在（）。

A:個(gè)人宏工作簿

B:Normal文檔

C:當(dāng)前工作簿

D:當(dāng)前文檔

答案:Normal文檔

Selection.Find.Execute的作用是執(zhí)行查找。（）

A:對(duì)B:錯(cuò)

答案:對(duì)Trim()函數(shù)返回值的類型是（）。

A:數(shù)值型

B:對(duì)象型

C:日期型

D:字符串型[正確答案]

答案:字符串型[正確答案]

ClearFormatting方法是用來(lái)清除文本的。（）

A:對(duì)B:錯(cuò)

答案:錯(cuò)

第四章單元測(cè)試

要使表簽label1的標(biāo)題欄顯示“歡迎進(jìn)入VBA世界”,下面語(yǔ)句正確的是（）。

A:Label1.caption=＜?xì)g迎進(jìn)入VBA世界＞

B:Label1.caption=’歡迎進(jìn)入VBA世界’

C:Label1.caption=歡迎進(jìn)入VBA世界

D:Label1.caption=”歡迎進(jìn)入VBA世界”

答案:Label1.caption=”歡迎進(jìn)入VBA世界”

Sheets("Sheet1").Range("A1:D5").Font.Bold中的Bold是（）。

A:對(duì)象

B:屬性

C:方法

D:事件

答案:屬性

若要用編程的方式向工作表添加ActiveX控件，可用OLEObjects集合的Add方法。（）

A:錯(cuò)B:對(duì)

答案:對(duì)IfTarget.Count＞1ThenExitSub的功能是若選中了多個(gè)單元格，則退出。（）

A:錯(cuò)B:對(duì)

答案:對(duì)下面哪一個(gè)函數(shù)返回系統(tǒng)日期和時(shí)間（）;

A:TIME()

B:NOW()

C:DAY()

D:DATE()

答案:DATE()

第五章單元測(cè)試

將“剪切板”上的內(nèi)容粘貼到指定按鈕的圖符上的命令欄屬性方法為（）。

A:PasteFace

B:CopyFace

C:Visible

D:Style

答案:PasteFace

編寫stq過(guò)程，通過(guò)模塊級(jí)變量newCombo引用工具欄上的組合框，由組合框的ListIndex屬性得到選項(xiàng)的序號(hào)，用MsgBox顯示相應(yīng)的信息。（）

A:錯(cuò)B:對(duì)

答案:對(duì)Microsoft沒有提供直接用VBA激活功能區(qū)選項(xiàng)卡的方法。但是，可以使用SendKeys方法模擬按鍵，來(lái)激活需要的選項(xiàng)卡。（）

A:錯(cuò)B:對(duì)

答案:對(duì)下列語(yǔ)句中屬于建立菜單的語(yǔ)句是（）

A:Setmt=mb.Menus.Add(“維護(hù)”)

B:MsgBox(“執(zhí)行輸入功能”)

C:mb.Activate

D:Setmb=MenyBars.Add(“MyMenu”)

答案:Setmb=MenyBars.Add(“MyMenu”)

Withcombox.Width=120語(yǔ)句的含義（）

A:工具欄可見

B:設(shè)置組合框下拉列表數(shù)量

C:設(shè)置組合框?qū)挾?/p>

D:指定要執(zhí)行的過(guò)程

答案:設(shè)置組合框?qū)挾?/p>

第六章單元測(cè)試

在VBA中，可使用CreateObject或GetObject功能返回一個(gè)到WordApplication對(duì)象的引用。（）

A:錯(cuò)B:對(duì)

答案:對(duì)實(shí)現(xiàn)從word中進(jìn)行excel操作必須要引用MicroSoftExcel14.0ObjectLibarary項(xiàng)（）

A:對(duì)B:錯(cuò)

答案:錯(cuò)實(shí)現(xiàn)在word中對(duì)access的操作，需要進(jìn)入“VisualBasic編輯器”環(huán)境，在“工具”菜單上單擊“引用”，在“可使用的引用”框中單擊“MicrosoftDAO3.6ObjectLibrary”。（）

A:對(duì)B:錯(cuò)

答案:對(duì)在excel中向access添加一個(gè)新紀(jì)錄的方法（）

A:CopyFromRecordset方法

B:OpenDatabase方法

C:AddNew方法

D:Updat方法e

答案:AddNew方法

實(shí)現(xiàn)將word中文本發(fā)送至PowerPoint中需進(jìn)入VB編輯器，在“工具”菜單中選“引用”項(xiàng)。在“引用”對(duì)話框中選擇“MicroSoftPowerPoint14.0ObjectLibarary”項(xiàng)。（）

A:對(duì)B:錯(cuò)

答案:對(duì)

第七章單元測(cè)試

Dir函數(shù)取出當(dāng)前路徑下第一個(gè)文件名（含擴(kuò)展名）。（）

A:錯(cuò)B:對(duì)

答案:對(duì)ThisDocument.Path取出當(dāng)前路徑名。（）

A:對(duì)B:錯(cuò)

答案:對(duì)Sort方法對(duì)表格內(nèi)容按擴(kuò)展名、文件名進(jìn)行排序并取消選中狀態(tài)。（）

A:錯(cuò)B:對(duì)

答案:對(duì)遞歸子程序的功能是，自己調(diào)用自己。（）

A:錯(cuò)B:對(duì)

答案:對(duì)用GetFolder方法不可實(shí)現(xiàn)創(chuàng)建指定的文件夾對(duì)象。（）

A:對(duì)B:錯(cuò)

答案:錯(cuò)

第八章單元測(cè)試

filCells(22,7),1

調(diào)用子程序fil，對(duì)當(dāng)前工作表的22行、7列單元格填寫數(shù)值“1”。（）

A:錯(cuò)B:對(duì)

答案:對(duì)Subcls(rgAsRange)

Withrg

.ClearContents

.Interior.ColorIndex=2

.Borders.LineStyle=xlNone

EndWith

EndSub上述代碼段的功能是：子程序用形參rg表示單元格區(qū)域。其功能是清除該單元格區(qū)域的內(nèi)容、背景顏色和邊框。（）

A:對(duì)B:錯(cuò)

答案:對(duì)Range(“A1”).Interior.ColorIndex功能獲取單元格A1背景色。（）

A:錯(cuò)B:對(duì)

答案:對(duì)Range("a1").value="hello"’給指定單元格a1賦值為“hello”。（）

A:對(duì)B:錯(cuò)

答案:對(duì)sheets("sheet1").Visible=False'隱藏sheet1這張工作表。（）

A:錯(cuò)B:對(duì)

答案:對(duì)

第九章單元測(cè)試

Settbar=Application.CommandBars.Add(Temporary:=True)上述代碼段的功能是：工作簿打開時(shí)，通過(guò)這段代碼建立一個(gè)臨時(shí)自定義工具欄。（）

A:對(duì)B:錯(cuò)

答案:對(duì)Withtbar.Controls.Add(Type:=msoControlButton)

.Caption="導(dǎo)入課表"

.Style=msoButtonCaption

.OnAction="dr"

EndWith上述代碼段的功能是：在工具欄放置按鈕“導(dǎo)入課表”，指定要執(zhí)行的子程序?yàn)閐r。（）

A:對(duì)B:錯(cuò)

答案:對(duì)tbar.Visible=True上述代碼段的功能是：令tbar自定義工具欄可見。（）

A:錯(cuò)B:對(duì)

答案:對(duì)Weekday(Date,vbMonday)-1上述代碼段的功能是：用Weekday函數(shù)求出當(dāng)前是星期幾。第二個(gè)參數(shù)用vbMonday，則函數(shù)的返回值：1表示星期一、2表示星期二、……、7表示星期日。（）

A:對(duì)B:錯(cuò)

答案:對(duì)Callsxl(w)上述代碼段的功能是：以w為實(shí)參，調(diào)用子程序sxl。（）

A:錯(cuò)B:對(duì)

答案:對(duì)

第十章單元測(cè)試

Withbutt1

.Caption="提取"

.Style=msoButtonCaption

.OnAction="tq"

EndWith上述代碼段的功能是：在工具欄上添加“提取”按鈕，為按鈕指定要執(zhí)行的過(guò)程為tq。（）

A:對(duì)B:錯(cuò)

答案:對(duì)在Excel“開發(fā)工具”選項(xiàng)卡“中，可以通過(guò)（）添加控件。

A:“開始”選項(xiàng)卡“控件”組的“插入”下拉列表中，單擊“其他控件”按鈕

B:“開發(fā)工具”選項(xiàng)卡“控件”組的“插入”下拉列表中，單擊“其他控件”按鈕

C:“開始”選項(xiàng)卡“控件”組的“插入”下拉列表中，單擊“對(duì)象”按鈕

D:“開發(fā)工具”選項(xiàng)卡“控件”組的“插入”下拉列表中，單擊“對(duì)象”按鈕

答案:“開始”選項(xiàng)卡“控件”組的“插入”下拉列表中，單擊“對(duì)象”按鈕

tbar.Visible=True

Sheets("說(shuō)明").Select

上述代碼段的功能是：讓tbar工具欄可見，并選中“說(shuō)明”工作表。（）

A:錯(cuò)B:對(duì)

答案:對(duì)Setshr=ActiveSheet

dqh=ActiveCell.Row

上述代碼段的功能是：設(shè)置shr為工作表變量，取出當(dāng)前行號(hào)賦值給dqh變量。（）

A:錯(cuò)B:對(duì)

答案:對(duì)Application.ScreenUpdating=False

上述代碼段的功能是：關(guān)閉當(dāng)前屏幕更新。（）

A:錯(cuò)B:對(duì)

答案:對(duì)

第十一章單元測(cè)試

對(duì)工作簿的Open事件編寫代碼時(shí)，可以建立臨時(shí)自定義工具欄并使其可見，在工具欄上添加按鈕，并指定要執(zhí)行的過(guò)程。（）。

A:對(duì)B:錯(cuò)

答案:對(duì)Settbar=Application.CommandBars.Add(Temporary:=True)

tbar.Visible=True上述代碼段的功能是：建立臨時(shí)自定義工具欄tbar，并設(shè)置其他屬性為可見。（）

A:對(duì)B:錯(cuò)

答案:對(duì)Setbutt1=tbar.Controls.Add(Type:=msoControlButton)

Withbutt1

.Caption="課程學(xué)時(shí)"

.Style=msoButtonCaption

.OnAction="calc"

EndWith

上述代碼段的功能是：在tbar工具欄上添加命令按鈕butt1，按鈕標(biāo)題為“課程學(xué)時(shí)”，指定要執(zhí)行的過(guò)程為“calc”。（）

A:對(duì)B:錯(cuò)

答案:對(duì)PrivateSubWorkbook_SheetActivate(ByValShAsObject)

IfSh.Name="統(tǒng)計(jì)表"Then

Application.SendKeys"%x{F6}"

Else

Application.SendKeys"%h{F6}"

EndIf

EndSub

上述代碼段的功能是：對(duì)工作簿的SheetActivate事件編寫代碼，激活需要的選項(xiàng)卡。如果當(dāng)前工作表為“統(tǒng)計(jì)表”時(shí)，激活功能區(qū)的“加載項(xiàng)”選項(xiàng)卡，否則激活“開始”選項(xiàng)卡。（）

A:對(duì)B:錯(cuò)

答案:對(duì)hs=Range("A4").End(xlDown).Row

上述代碼段的功能是：求數(shù)據(jù)區(qū)A4到數(shù)據(jù)最后的有效行行數(shù)。（）

A:對(duì)B:錯(cuò)

答案:對(duì)

第十二章單元測(cè)試

RANK(Number，Ref，Order)函數(shù)的功能。（）

A:返回某數(shù)字在一列數(shù)字中的相對(duì)位置關(guān)系

B:返回在一列數(shù)字中的排名最大的數(shù)值

C:返回某數(shù)字在一列數(shù)字中的相對(duì)于其他數(shù)值的大小排名

D:返回在一列數(shù)字中的排名最小的數(shù)值

答案:返回某數(shù)字在一列數(shù)字中的相對(duì)于其他數(shù)值的大小排名

Do

……

LoopUntiljrs2=0

上述語(yǔ)句功能是：當(dāng)＜條件＞為真時(shí)繼續(xù)循環(huán)。（）

A:對(duì)B:錯(cuò)

答案:錯(cuò)jrs1=Round(rs*0.05,0)

上述語(yǔ)句功能是：使rs乘0.05，對(duì)結(jié)果四舍五入，值賦值給jrs1變量。（）

A:對(duì)B:錯(cuò)

答案:對(duì)A=10:B=8:C=6

MyCheck=A＞BAndB＞C

上述語(yǔ)句的返回值是：（）。

A:無(wú)返回值

B:Null

C:True

D:False

答案:True

MyNumber="34"+"6"

上述語(yǔ)句的返回值是：（）。

A:"346"

B:40

C:Null

D:無(wú)返回值

答案:40

第十三章單元測(cè)試

tbar.Visible=True上述語(yǔ)句的功能是：使自定義工具欄tbar處于顯示可見狀態(tài)。（）。

A:錯(cuò)B:對(duì)

答案:對(duì)Withtbar.Controls.Add(Type:=msoControlButton)

.Caption="數(shù)據(jù)統(tǒng)計(jì)"

.Style=msoButtonCaption

.OnAction="tj"

EndWith上述語(yǔ)句的功能是：在自定義工具欄tbar上添加按鈕，設(shè)置按鈕的標(biāo)題當(dāng)前年齡、類型，指定要執(zhí)行的過(guò)程（tj）。（）。

A:對(duì)B:錯(cuò)

答案:對(duì)ny=Trim(Cells(k,3))

上述語(yǔ)句中Trim函數(shù)的功能是：Trim函數(shù)可刪除文本字符串中的所有空格，單詞之間的單個(gè)空格除外。（）。

A:對(duì)B:錯(cuò)

答案:對(duì)Year(Date)

上述語(yǔ)句中Year函數(shù)的功能是：Year函數(shù)可用于返回日期/時(shí)間值的年部分，從1900開始。（）。

A:錯(cuò)B:對(duì)

答案:對(duì)Settbar=Application.CommandBars.Add(Temporary:=True)

Withtbar.Controls.Add(Type:=msoControlButton)

.Caption="當(dāng)前年齡"

.Style=msoButtonCaption

.OnAction="age"

EndWith

上述語(yǔ)句的功能是：在自定義工具欄tbar上添加按鈕，設(shè)置按鈕的為不可用狀態(tài)。（）。

A:對(duì)B:錯(cuò)

答案:錯(cuò)在Excel“開發(fā)工具”選項(xiàng)卡“控件”組的“插入”下拉列表中，單擊“其他控件”按鈕，可以添加所需