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

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

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

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

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

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

D:自動化，效率，獲得語句和方法

答案:自動化，效率，獲得語句和方法

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

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

B:開始，宏，VBE

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

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

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

第二章單元測試

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

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

B:插入，宏，Shift+F11

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

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

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

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

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

B:開始，宏，VBE

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

D:單步、設(shè)置斷點、stop語句

答案:單步、設(shè)置斷點、stop語句

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

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，移動到單元格F1開始的區(qū)域中

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

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

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

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

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

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

第三章單元測試

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

A:事件

B:方法

C:屬性

D:對象

答案:對象

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

A:個人宏工作簿

B:Normal文檔

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

D:當(dāng)前文檔

答案:Normal文檔

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

A:對B:錯

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

A:數(shù)值型

B:對象型

C:日期型

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

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

ClearFormatting方法是用來清除文本的。（）

A:對B:錯

答案:錯

第四章單元測試

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

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:對象

B:屬性

C:方法

D:事件

答案:屬性

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

A:錯B:對

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

A:錯B:對

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

A:TIME()

B:NOW()

C:DAY()

D:DATE()

答案:DATE()

第五章單元測試

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

A:PasteFace

B:CopyFace

C:Visible

D:Style

答案:PasteFace

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

A:錯B:對

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

A:錯B:對

答案:對下列語句中屬于建立菜單的語句是（）

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

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

C:mb.Activate

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

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

Withcombox.Width=120語句的含義（）

A:工具欄可見

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

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

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

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

第六章單元測試

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

A:錯B:對

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

A:對B:錯

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

A:對B:錯

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

A:CopyFromRecordset方法

B:OpenDatabase方法

C:AddNew方法

D:Updat方法e

答案:AddNew方法

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

A:對B:錯

答案:對

第七章單元測試

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

A:錯B:對

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

A:對B:錯

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

A:錯B:對

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

A:錯B:對

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

A:對B:錯

答案:錯

第八章單元測試

filCells(22,7),1

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

A:錯B:對

答案:對Subcls(rgAsRange)

Withrg

.ClearContents

.Interior.ColorIndex=2

.Borders.LineStyle=xlNone

EndWith

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

A:對B:錯

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

A:錯B:對

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

A:對B:錯

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

A:錯B:對

答案:對

第九章單元測試

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

A:對B:錯

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

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

.Style=msoButtonCaption

.OnAction="dr"

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

A:對B:錯

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

A:錯B:對

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

A:對B:錯

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

A:錯B:對

答案:對

第十章單元測試

Withbutt1

.Caption="提取"

.Style=msoButtonCaption

.OnAction="tq"

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

A:對B:錯

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

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

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

C:“開始”選項卡“控件”組的“插入”下拉列表中，單擊“對象”按鈕

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

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

tbar.Visible=True

Sheets("說明").Select

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

A:錯B:對

答案:對Setshr=ActiveSheet

dqh=ActiveCell.Row

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

A:錯B:對

答案:對Application.ScreenUpdating=False

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

A:錯B:對

答案:對

第十一章單元測試

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

A:對B:錯

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

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

A:對B:錯

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

Withbutt1

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

.Style=msoButtonCaption

.OnAction="calc"

EndWith

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

A:對B:錯

答案:對PrivateSubWorkbook_SheetActivate(ByValShAsObject)

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

Application.SendKeys"%x{F6}"

Else

Application.SendKeys"%h{F6}"

EndIf

EndSub

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

A:對B:錯

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

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

A:對B:錯

答案:對

第十二章單元測試

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

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

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

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

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

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

Do

……

LoopUntiljrs2=0

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

A:對B:錯

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

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

A:對B:錯

答案:對A=10:B=8:C=6

MyCheck=A＞BAndB＞C

上述語句的返回值是：（）。

A:無返回值

B:Null

C:True

D:False

答案:True

MyNumber="34"+"6"

上述語句的返回值是：（）。

A:"346"

B:40

C:Null

D:無返回值

答案:40

第十三章單元測試

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

A:錯B:對

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

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

.Style=msoButtonCaption

.OnAction="tj"

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

A:對B:錯

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

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

A:對B:錯

答案:對Year(Date)

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

A:錯B:對

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

Withtbar.Controls.Add(Type:=msoControlButton)

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

.Style=msoButtonCaption

.OnAction="age"

EndWith

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

A:對B:錯

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