在線網(wǎng)課知道《VBA程序開發(fā)與應(yīng)用(吉林師大博達(dá)學(xué)院)》單元測試考核答案

第一章單元測試1【單選題】(2分)利用Office“錄制宏”的功能可以實(shí)現(xiàn)部分程序設(shè)計___________，提高軟件開發(fā)的___________，還可以______________。()A.自動化，工作內(nèi)容，提高準(zhǔn)確度B.自動化，效率，獲得語句和方法C.效率，工作內(nèi)容，獲得語句和方法D.效率，工作內(nèi)容，提高準(zhǔn)確度2【單選題】(2分)編輯宏的方法：在________選項(xiàng)卡的“代碼”組中單擊________按鈕，在“宏”對話框中選擇宏，單擊________按鈕。（）。A.開發(fā)工具，宏，編輯B.開始，宏，VBEC.宏，開發(fā)工具，編輯D.編輯，宏，開發(fā)工具第二章單元測試1【單選題】(2分)進(jìn)入VB編輯器（VBE）的方法：可以在__________選項(xiàng)卡的“代碼”組中單擊__________按鈕，也可以用__________快捷鍵。（）。A.開始，宏，F(xiàn)9B.設(shè)計，宏，F(xiàn)12C.開發(fā)工具，VisualBasic，Alt+F11D.插入，宏，Shift+F112【單選題】(2分)調(diào)試VBA程序，可以用_________、__________、_________等方法。（）。A.開始，宏，VBEB.宏，開發(fā)工具，編輯C.單步、設(shè)置斷點(diǎn)、stop語句D.連續(xù)、單步、斷點(diǎn)3【單選題】(2分)在Excel的VBA代碼中，對象描述Worksheets("Sheet1").Range("A2")與（）等價。A.Worksheets("Sheet1").Cells(1,2)B.Worksheets("Sheet1").Range("A",2)C.Worksheets("Sheet1").Range("2A")D.Worksheets("Sheet1").Cells(2,1)4【單選題】(2分)在Excel的VBA代碼中，Range("A1:D8").CutRange("F1")的作用為（）。A.剪切單元格區(qū)域A1至D8，復(fù)制到單元格F1開始的區(qū)域中B.剪切單元格區(qū)域A1至D8，移動到單元格F1開始的區(qū)域中C.剪切單元格區(qū)域A1至D8，復(fù)制到單元格F1中D.剪切單元格區(qū)域A1至D8，移動到單元格F1中5【單選題】(2分)x，y是整數(shù)型變量，在VBA中產(chǎn)生一個范圍在[x，y]之間的隨機(jī)整數(shù)z的語句為（）。A.z=Int(Rnd*x)+yB.z=Int(Rnd*(y-x+1))+xC.z=Int(Rnd*(x-y+1)+yD.z=Int(Rnd*y)+x第三章單元測試1【單選題】(2分)Sheets("表1").Range("B3:E8").Font.Bold中的Range("B3:E8")是（）。A.屬性B.對象C.方法D.事件2【單選題】(2分)為了讓VBA代碼能夠在當(dāng)前電腦的任何Word文檔中使用，需要將宏保存在（）。A.Normal文檔B.當(dāng)前文檔C.個人宏工作簿D.當(dāng)前工作簿3【判斷題】Selection.Find.Execute的作用是執(zhí)行查找。（）A.錯B.對4【單選題】(2分)Trim()函數(shù)返回值的類型是（）。A.日期型B.數(shù)值型C.字符串型[正確答案]D.對象型5【判斷題】ClearFormatting方法是用來清除文本的。（）A.錯B.對第四章單元測試1【單選題】(2分)要使表簽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世界”2【單選題】(2分)Sheets("Sheet1").Range("A1:D5").Font.Bold中的Bold是（）。A.方法B.對象C.事件D.屬性3【判斷題】若要用編程的方式向工作表添加ActiveX控件，可用OLEObjects集合的Add方法。（）A.錯B.對4【判斷題】IfTarget.Count1ThenExitSub的功能是若選中了多個單元格，則退出。（）A.錯B.對5【單選題】(2分)下面哪一個函數(shù)返回系統(tǒng)日期和時間（）;A.NOW()B.DAY()C.TIME()D.DATE()第五章單元測試1【單選題】(2分)將“剪切板”上的內(nèi)容粘貼到指定按鈕的圖符上的命令欄屬性方法為（）。A.VisibleB.StyleC.CopyFaceD.PasteFace2【判斷題】編寫stq過程，通過模塊級變量newCombo引用工具欄上的組合框，由組合框的ListIndex屬性得到選項(xiàng)的序號，用MsgBox顯示相應(yīng)的信息。（）A.錯B.對3【判斷題】Microsoft沒有提供直接用VBA激活功能區(qū)選項(xiàng)卡的方法。但是，可以使用SendKeys方法模擬按鍵，來激活需要的選項(xiàng)卡。（）A.對B.錯4【單選題】(2分)下列語句中屬于建立菜單的語句是（）A.mb.ActivateB.Setmb=MenyBars.Add(“MyMenu”)C.Setmt=mb.Menus.Add(“維護(hù)”)D.MsgBox(“執(zhí)行輸入功能”)5【單選題】(2分)Withcombox.Width=120語句的含義（）A.工具欄可見B.設(shè)置組合框下拉列表數(shù)量C.設(shè)置組合框?qū)挾菵.指定要執(zhí)行的過程第六章單元測試1【判斷題】在VBA中，可使用CreateObject或GetObject功能返回一個到WordApplication對象的引用。（）A.對B.錯2【判斷題】實(shí)現(xiàn)從word中進(jìn)行excel操作必須要引用MicroSoftExcel14.0ObjectLibarary項(xiàng)（）A.對B.錯3【判斷題】實(shí)現(xiàn)在word中對access的操作，需要進(jìn)入“VisualBasic編輯器”環(huán)境，在“工具”菜單上單擊“引用”，在“可使用的引用”框中單擊“MicrosoftDAO3.6ObjectLibrary”。（）A.對B.錯4【單選題】(2分)在excel中向access添加一個新紀(jì)錄的方法（）A.AddNew方法B.Updat方法eC.OpenDatabase方法D.CopyFromRecordset方法5【判斷題】實(shí)現(xiàn)將word中文本發(fā)送至PowerPoint中需進(jìn)入VB編輯器，在“工具”菜單中選“引用”項(xiàng)。在“引用”對話框中選擇“MicroSoftPowerPoint14.0ObjectLibarary”項(xiàng)。（）A.錯B.對第七章單元測試1【判斷題】Dir函數(shù)取出當(dāng)前路徑下第一個文件名（含擴(kuò)展名）。（）A.錯B.對2【判斷題】ThisDocument.Path取出當(dāng)前路徑名。（）A.錯B.對3【判斷題】Sort方法對表格內(nèi)容按擴(kuò)展名、文件名進(jìn)行排序并取消選中狀態(tài)。（）A.錯B.對4【判斷題】遞歸子程序的功能是，自己調(diào)用自己。（）A.錯B.對5【判斷題】用GetFolder方法不可實(shí)現(xiàn)創(chuàng)建指定的文件夾對象。（）A.對B.錯第八章單元測試1【判斷題】filCells(22,7),1調(diào)用子程序fil，對當(dāng)前工作表的22行、7列單元格填寫數(shù)值“1”。（）A.錯B.對2【判斷題】Subcls(rgAsRange)Withrg.ClearContents.Interior.ColorIndex=2.Borders.LineStyle=xlNoneEndWithEndSub上述代碼段的功能是：子程序用形參rg表示單元格區(qū)域。其功能是清除該單元格區(qū)域的內(nèi)容、背景顏色和邊框。（）A.對B.錯3【判斷題】Range(“A1”).Interior.ColorIndex功能獲取單元格A1背景色。（）A.錯B.對4【判斷題】Range("a1").A.對B.錯5【判斷題】sheets("sheet1").Visible=False'隱藏sheet1這張工作表。（）A.對B.錯第九章單元測試1【判斷題】Settbar=Application.CommandBars.Add(Temporary:=True)上述代碼段的功能是：工作簿打開時，通過這段代碼建立一個臨時自定義工具欄。（）A.錯B.對2【判斷題】Withtbar.Controls.Add(Type:=msoControlButton).Caption="導(dǎo)入課表".Style=msoButtonCaption.OnAction="dr"EndWith上述代碼段的功能是：在工具欄放置按鈕“導(dǎo)入課表”，指定要執(zhí)行的子程序?yàn)閐r。（）A.對B.錯3【判斷題】tbar.Visible=True上述代碼段的功能是：令tbar自定義工具欄可見。（）A.錯B.對4【判斷題】Weekday(Date,vbMonday)-1上述代碼段的功能是：用Weekday函數(shù)求出當(dāng)前是星期幾。第二個參數(shù)用vbMonday，則函數(shù)的返回值：1表示星期一、2表示星期二、……、7表示星期日。（）A.對B.錯5【判斷題】Callsxl(w)上述代碼段的功能是：以w為實(shí)參，調(diào)用子程序sxl。（）A.對B.錯第十章單元測試1【判斷題】Withbutt1.Caption="提取".Style=msoButtonCaption.OnAction="tq"EndWith上述代碼段的功能是：在工具欄上添加“提取”按鈕，為按鈕指定要執(zhí)行的過程為tq。（）A.錯B.對2【單選題】(2分)在Excel“開發(fā)工具”選項(xiàng)卡“中，可以通過（）添加控件。A.“開發(fā)工具”選項(xiàng)卡“控件”組的“插入”下拉列表中，單擊“其他控件”按鈕B.“開始”選項(xiàng)卡“控件”組的“插入”下拉列表中，單擊“對象”按鈕C.“開始”選項(xiàng)卡“控件”組的“插入”下拉列表中，單擊“其他控件”按鈕D.“開發(fā)工具”選項(xiàng)卡“控件”組的“插入”下拉列表中，單擊“對象”按鈕3【判斷題】tbar.Visible=TrueSheets("說明").Select上述代碼段的功能是：讓tbar工具欄可見，并選中“說明”工作表。（）A.對B.錯4【判斷題】Setshr=ActiveSheetdqh=ActiveCell.Row上述代碼段的功能是：設(shè)置shr為工作表變量，取出當(dāng)前行號賦值給dqh變量。（）A.對B.錯5【判斷題】Application.ScreenUpdating=False上述代碼段的功能是：關(guān)閉當(dāng)前屏幕更新。（）A.對B.錯第十一章單元測試1【判斷題】對工作簿的Open事件編寫代碼時，可以建立臨時自定義工具欄并使其可見，在工具欄上添加按鈕，并指定要執(zhí)行的過程。（）。A.錯B.對2【判斷題】Settbar=Application.CommandBars.Add(Temporary:=True)tbar.Visible=True上述代碼段的功能是：建立臨時自定義工具欄tbar，并設(shè)置其他屬性為可見。（）A.錯B.對3【判斷題】Setbutt1=tbar.Controls.Add(Type:=msoControlButton)Withbutt1.Caption="課程學(xué)時".Style=msoButtonCaption.OnAction="calc"EndWith上述代碼段的功能是：在tbar工具欄上添加命令按鈕butt1，按鈕標(biāo)題為“課程學(xué)時”，指定要執(zhí)行的過程為“calc”。（）A.對B.錯4【判斷題】PrivateSubWorkbook_SheetActivate(ByValShAsObject)IfSh.Name="統(tǒng)計表"ThenApplication.SendKeys"%x{F6}"ElseApplication.SendKeys"%h{F6}"EndIfEndSub上述代碼段的功能是：對工作簿的SheetActivate事件編寫代碼，激活需要的選項(xiàng)卡。如果當(dāng)前工作表為“統(tǒng)計表”時，激活功能區(qū)的“加載項(xiàng)”選項(xiàng)卡，否則激活“開始”選項(xiàng)卡。（）A.對B.錯5【判斷題】hs=Range("A4").End(xlDown).Row上述代碼段的功能是：求數(shù)據(jù)區(qū)A4到數(shù)據(jù)最后的有效行行數(shù)。（）A.對B.錯第十二章單元測試1【單選題】(2分)RANK(Number，Ref，Order)函數(shù)的功能。（）A.返回某數(shù)字在一列數(shù)字中的相對位置關(guān)系B.返回在一列數(shù)字中的排名最小的數(shù)值C.返回在一列數(shù)字中的排名最大的數(shù)值D.返回某數(shù)字在一列數(shù)字中的相對于其他數(shù)值的大小排名2【判斷題】Do……LoopUntiljrs2=0上述語句功能是：當(dāng)＜條件為真時繼續(xù)循環(huán)。（）A.對B.錯3【判斷題】jrs1=Round(rs*0.05,0)上述語句功能是：使rs乘0.05，對結(jié)果四舍五入，值賦值給jrs1變量。（）A.錯B.對4【單選題】(2分)A=10:B=8:C=6MyCheck=ABAndBC上述語句的返回值是：（）。A.TrueB.FalseC.NullD.無返回值5【單選題】(2分)MyNumber="34"+"6"上述語句的返回值是：（）。A.無返回值B."346"C.NullD.40第十三章單元測試1【判斷題】tbar.Visible=True上述語句的功能是：使自定義工具欄tbar處于顯示可見狀態(tài)。（）。A.對B.錯2【判斷題】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.對3【判斷題】ny=Trim(Cells(k,3))上述語句中Trim函數(shù)的功能是：Trim函數(shù)可刪除文本字符串中的所有空格，單詞之間的單個空格除外。（）。A.錯B.對4【判斷題】Year(Date)上述語句中Year函數(shù)的功能是：Year函數(shù)可用于返回日期/時間值的年部分，從1900開始。（）。A.對B.錯5【判斷題】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.錯6【判斷題】在Excel“開發(fā)工具”選項(xiàng)卡“控件”組的“插入”下拉列表中，單擊“其他控件”按鈕，可以添加所需要控件。（）。A.錯B.對第十四章單元測試1【判斷題】Dimbutt1AsCommandBarControl上述語句的功能是：語句聲明模塊級對象變量butt1。（）。A.對B.錯2【判斷題】Withbu