VBA填空選擇答案x

.假設(shè)固體的名稱為fmTest,則把固體的標(biāo)題設(shè)置為“AccessTest”的語句是A)Me="AccessTest" B)Me.Caption="AccessTest"C)Me.text="AccessTest" D)Me.Name="AccessTest"講解：窗體的標(biāo)題屬性用me.caption,D選項(xiàng)Name代表名稱，但窗體沒有名稱屬性， Form.caption執(zhí)行語句：MsgBox“AAAA"，vbOKCancel+vbQuestion,“BBBB”之后，彈出的信息框外觀樣式是C講解：消息框第一個(gè)參數(shù)：提示信息（必不可少的），第二個(gè)參數(shù)：按鈕+圖標(biāo)類型，第三個(gè)參數(shù)：標(biāo)題VBA的自動(dòng)運(yùn)行宏，必須命名為 o講解：命名為AutoExec的宏在打開數(shù)據(jù)庫時(shí)會(huì)自動(dòng)運(yùn)行。要取消自動(dòng)運(yùn)行，打開數(shù)據(jù)庫時(shí)按住shift鍵即可Access的窗體對(duì)象或報(bào)表事件可以有兩種方法響應(yīng)：宏對(duì)象和一答案：事件過程下圖所示的窗體上有一個(gè)命令按鈕（名稱為Command1）和一個(gè)選項(xiàng)組（名稱為Framel），選項(xiàng)組上顯示“Framel”文本的標(biāo)簽控件名稱為Labell,若將選項(xiàng)組上顯示文本“Framel”改為漢字“性別”，應(yīng)使用的語句是 O講解：標(biāo)簽上的文本使用caption屬性在當(dāng)前窗體上，若要實(shí)現(xiàn)將焦點(diǎn)移動(dòng)到指定控件，應(yīng)使用的宏操作命令是O若在“銷售總數(shù)”窗體中有“訂貨總數(shù)”文本框控件，能夠正確引用控件值的是Forms.［銷售總數(shù)］.［訂貨總數(shù)］Forms!［銷售總數(shù)］.［訂貨總數(shù)］Forms.［銷售總數(shù)］!［訂貨總數(shù)］Forms!［銷售總數(shù)］!［訂貨總數(shù)］講解：引用窗體控件值格式：Forms!［窗體名川控件名］8.在VBA中要判斷一個(gè)字段的值是否為Null,應(yīng)該使用的函數(shù)是［9］IsNULL。題中使用下圖，窗體的名稱為fmTest,窗體中有一個(gè)標(biāo)簽和一個(gè)命令按鈕，名稱分別為Labell和bChange-9.在“窗體視圖”顯示該窗體時(shí)，要求在單擊命令按鈕后標(biāo)簽上顯示的文字顏色變?yōu)榧t色，以下能實(shí)現(xiàn)該操作的語句是labelLForeColor=255B)bChange.ForeColor=255C)labell.ForeColor="255"D)bChange.ForeColor="255"標(biāo)簽文本顏色：ForeColor,值為數(shù)字型10,若將窗體的標(biāo)題設(shè)置為“改變文字顯示顏色”，應(yīng)使用的語句是A)Me="改變文字顯示顏色”Me.Caption="改變文字顯示顏色”Me.text="改變文字顯示顏色”Me.Name="改變文字顯示顏色〃在“窗體視圖”中顯示窗體時(shí)，窗體中沒有記錄選定器，應(yīng)將窗體的“記錄選定器”屬性值設(shè)置為A) 是 B)否 C)有D)無為窗體或報(bào)表上的控件設(shè)置屬性值的正確宏操作命令是A)Set B)SetData C)SetWamingsD)SetValue因修改文本框中的數(shù)據(jù)而觸發(fā)的事件是A)ChangeB)EditC)Getfocus D)LostFocus14.2007.4(10)退出Access應(yīng)用程序的VBA代碼是【10】。Docmd.Quit直接在屬性窗口設(shè)置對(duì)象的屬性，屬于“靜態(tài)”設(shè)置方法，在代碼窗口中由VBA代碼設(shè)置對(duì)象的屬性叫做“一動(dòng)態(tài)”設(shè)置方法。Access中用于執(zhí)行指定的SQL語言的宏操作名RunSQL_。RunMacro發(fā)生在控件接收焦點(diǎn)之前的事件是A)EnterB)ExitC)GotFocusD)LostFocus18.如果加載一個(gè)窗體，先被觸發(fā)的事件是Load事件 B.Open事件C.Click事件 D.DbClick事件現(xiàn)有一個(gè)已經(jīng)建好的窗體，窗體中有一命令按鈕，單擊此按鈕，將打開“tEmployee”表，如果采用VBA代碼完成，下面語句正確的是A.docmd.openform"tEmployee"打開窗體docmd.openview"tEmployee"docmd.opentable"tEmployee"打開表docmd.openreport"tEmployee"打開報(bào)表20.在VBA中要打開名為“學(xué)生信息錄入”的窗體，應(yīng)使用的語句是DoCmd.OpenForm"數(shù)據(jù)信息錄入"OpenForm”數(shù)據(jù)信息錄入”DoCmd.OpenWindow"數(shù)據(jù)信息錄入"OpenWindow"數(shù)據(jù)信息錄入"Access的控件對(duì)象可以設(shè)置某個(gè)屬性來控制對(duì)象是否可用（不可用時(shí)顯示為灰色狀態(tài)）。需要設(shè)置的屬性是Default默認(rèn)值Cancel針對(duì)按鈕設(shè)置，如果值為真，按ESC自動(dòng)執(zhí)行該按鈕功能Enabled可用不可用Visible可見不可見在窗體中添加了一個(gè)文本框和一個(gè)命令按鈕（名稱分別為tText和bCommand），并編寫了相應(yīng)的事件過程。運(yùn)行此窗體后，在文本框中輸入一個(gè)字符，則命令按鈕上的標(biāo)題變?yōu)椤坝?jì)算機(jī)等級(jí)考試”。以下能實(shí)現(xiàn)上述操作的事件過程是DB)PrivateSubtText_Click()bCommand.Caption"B)PrivateSubtText_Click()bCommand.Caption"計(jì)算機(jī)等級(jí)考試EndSubCaption=〃計(jì)算機(jī)等級(jí)考試〃EndSubPrivateSubbCommand_Change()CaptionPrivateSubbCommand_Change()Caption=〃計(jì)算機(jī)等級(jí)考試〃EndSubPrivateSubtText_Change()bCommand.Caption=〃計(jì)算機(jī)等級(jí)考試”EndSub講解：事件應(yīng)該是在文本框的內(nèi)容發(fā)生變化時(shí)執(zhí)行，所以為文本框的change事件23.2006.4（填14）窗體中有兩個(gè)命令按鈕：“顯示”（控件名為cmdDisplay）種，測(cè)試"（控件名為cmdTest）。以下事件過程的功能是：單擊“測(cè)試”按鈕時(shí)，窗體上彈出一個(gè)消息框。如果單擊消息框的“確定”按鈕，隱藏窗體上的“顯示”命令按鈕；單擊“取消”按鈕關(guān)閉窗體。按照功能要求，將程序補(bǔ)充完整。PrivateSubcmdTest_Click()Answer八msgbox("隱藏按鈕"，vbOKCancel)IfAnswer=vbOKThencmdDisplay.Visible=falseElseDocmd.CloseEndIfEndSub.下列過程的功能是：通過對(duì)象變量返回當(dāng)前窗體的Recordset屬性記錄集引用，消息框中輸出記錄集的記錄(即窗體記錄源)個(gè)數(shù)SubGetRecNum()DimrsAsObjectSetrs=Me.RecordsetMsgBox EndSub程序空白處應(yīng)填寫的是：A)CountB)rs.CountC)RecordCountD)rs.RecordCount.下列程序段的功能是實(shí)現(xiàn)“學(xué)生”表中“年齡”字段值加1DimStrAsStringStr=""Docmd.RunSQLStr空白處應(yīng)填入的程序代碼是年齡=年齡+1Update學(xué)生Set年齡=年齡+1Set年齡=年齡+1Edit學(xué)生年齡=年齡+126.006.9(填9)某窗體中有一命令按鈕，名稱為C1。要求在窗體視圖中單擊此命令按鈕后，命令按鈕上顯示的文字顏色為棕色(棕色代碼為128),實(shí)現(xiàn)該操作的VBA語句是_cl.forecolor=128—。.在窗體上有一個(gè)文本框控件，名稱為Textlo同時(shí)，窗體加載時(shí)設(shè)置其計(jì)時(shí)器間隔為1秒、計(jì)時(shí)器觸發(fā)事件過程則實(shí)現(xiàn)在Textl文本框中動(dòng)態(tài)顯示當(dāng)前日期和時(shí)間。請(qǐng)補(bǔ)充完整。PrivateSubForm_Load()Me.TimerInterval=1000EndSubPrivateSub_Form_Timer()窗體的計(jì)時(shí)器觸發(fā)事件Me.Textl=Now()EndSub.假設(shè)某數(shù)據(jù)庫已建有宏對(duì)象“宏1”，“宏1”中只有一個(gè)宏操作SetValue其中第一個(gè)參數(shù)項(xiàng)目為“1@6&。].[Caption]”,第二個(gè)參數(shù)表達(dá)式為“[Text。]"，窗體"fmTest”中有一個(gè)標(biāo)簽LabelO和一個(gè)文本框Text。，現(xiàn)設(shè)置控件TextO的“更新后”事件為運(yùn)行“宏1”，則結(jié)果是A)將文本框清空 B)將標(biāo)簽清空將文本框中的內(nèi)容復(fù)制給標(biāo)簽的標(biāo)題，使二者顯示相同內(nèi)容將標(biāo)簽的標(biāo)題復(fù)制到文本框，使二者顯示相同內(nèi)容講解：setvalue宏，第一個(gè)參數(shù)：要設(shè)置的項(xiàng)目，第二個(gè)參數(shù)：給第一個(gè)參數(shù)設(shè)置的具體值29.2007.9(32)在窗體中有一個(gè)標(biāo)簽Label。，標(biāo)題為“測(cè)試進(jìn)行中”；有一個(gè)命令按鈕Command1;事件代碼如下：PrivateSubCommandl_Click()LabelO.Caption="標(biāo)簽”EndSubPrivateSubForm_Load()Form.Caption="舉例”Command1.Caption="移動(dòng)"EndSub打開窗體后單擊命令按鈕，屏幕顯示。

B)D)B)D)30.在下圖所示的窗體上，有一個(gè)標(biāo)有“顯示”字樣的命令按鈕（名稱為Command1）和一個(gè)文本框（名稱為textl）。當(dāng)單擊命令按鈕時(shí)，將變量sum的值顯示在文本框內(nèi)，正確的代碼是O。Me!Textl.Caption=sum可以為文本型或數(shù)字型數(shù)據(jù)Me!Textl.Text=sumtext屬性：只能為文本型數(shù)據(jù)Me!Textl.Visible=sum.在VBA中，實(shí)現(xiàn)窗體打開操作的命令是()。A)DoCmd.OpenFormB)OpenFormC)Do.OpenFormD)DoOpcn.Form.執(zhí)行語句：MsgBox"AAAA”,vbOKCancel+vbQuetion,“BBBB”之后，彈出的信息框A）標(biāo)題為“BBBB”、框內(nèi)提示符為“驚嘆號(hào)”、提示內(nèi)容為“AAAA”B）標(biāo)題為“AAAA”、框內(nèi)提示符為“驚嘆號(hào)”、提示內(nèi)容為“BBBB”C）標(biāo)題為“BBBB”、框內(nèi)提示符為“問號(hào)”、提示內(nèi)容為“AAAA”D）標(biāo)題為“AAAA”、框內(nèi)提示符為“問號(hào)”、提示內(nèi)容為“BBBB”.）窗體中有3個(gè)命令按鈕，分別命名為Commandl、Command2和Commands□當(dāng)單擊Commandl按鈕時(shí)，Command!按鈕變?yōu)榭捎茫珻ommand3按鈕變?yōu)椴豢梢?。下列Commandl的單擊事件過程中，正確的是：A)privatesubCommandl_Click()Command2.Visible=trueCommands.Visible=falseB)privatesubCommandl_Click()Command2.Enable=trueCommands.Enable=falseC)privatesubCommandl_Click()Command2.Enable=trueCommands.Visible=falseD)privatesubCommandl_Click()Command2.Visible=trueCommands.Enable=falseT列程序段的功能是實(shí)現(xiàn)“學(xué)生”表中“年齡”字段值加1DimStrAsStringStr=""Docmd.RunSQLStrstr應(yīng)該為SQL語句空白處應(yīng)填入的程序代碼是年齡=年齡+1Update學(xué)生Set年齡=年齡+1Set年齡=年齡+1Edit學(xué)生年齡=年齡+1現(xiàn)有一個(gè)登錄窗體如下圖所示。打開窗體后輸入用戶名和密碼，登錄操作要求在20秒內(nèi)完成,如果在20秒內(nèi)沒有完成登陸操作,則倒計(jì)時(shí)達(dá)到0秒時(shí)自動(dòng)關(guān)閉登錄窗體，窗體的右上角是顯示倒計(jì)時(shí)的標(biāo)簽Itimeo事件代碼如下，要求填空完成事件過程。OptionCompareDatabaseDimflagAsBooleanDimiAsIntegerPrivateSubForm_Load()flag=true[14]Me.Timerlnterval=1000i=0EndSubPrivateSubForm_Timer()Ifflag=TrueAndi<20ThenMe!ITime.Caption=20—ii=i+l[15]ElseDoCmd.CloseEndIfEndSubPrivateSubOK_Click()'登錄程序略'如果用戶名和密碼輸入正確，貝ij：falg=FalseEndSub36.在窗體文本框Text1中輸入“456人6小后，立即窗口上輸出的結(jié)果是456aBe。 chr(52)="4”PrivateSubTextl_KeyPress(KeyAsciiAsInteger)SelectCaseDeyAseii代表輸入字符的ASCII碼Case97To122Debug.PrintUease(Chr(KeyAseii));Case65To90Debug.PrintLease(Chr(KeyAseii));Case48To57Debug.PrintChr(KeyAseii);CaseElseKeyAseii=0EndSeleetEndSub37.13,下列子過程的功能是:將當(dāng)前數(shù)據(jù)庫文件中”學(xué)生表”的學(xué)生”年齡”都加1,請(qǐng)?jiān)诔绦蚩瞻椎牡胤教顚戇m當(dāng)?shù)恼Z句，使程序?qū)崿F(xiàn)所需要的功能PrvateSubSetAgePlusl_Click（）DimdbAsDAO.DatabaseDimrsAsDAO.RecordsetDimfdAsDAO.FieldSetdb=CurrentDb（）Setrs=db.OpenRecordset（“學(xué)生表”）setfd=rs.field（“年齡”）DoWhileNotrs.EOFrs.Editfd=fd+1rs.Updaters.movenextLooprs.Closedb.CloseSetrs=NothingSetdb=NothingEndSub數(shù)據(jù)庫中有工資表，包括“姓名”、“工資”和“職稱”等字段，現(xiàn)要對(duì)不同職稱的職工增加工資，規(guī)定教授職稱增加15%,副教授職稱增加10%,其他人員增加5%o下列程序的功能是按照上述規(guī)定調(diào)整每位職工的工資，并顯示所漲工資之總和。請(qǐng)?jiān)诳瞻滋幪钊脒m當(dāng)?shù)恼Z句，使程序可以完成指定的功能。PrivateSubCommand5_Click（）DimwsAsDAO.WorkspaceDimdbAsDAO.DatabaseDimrsAsDAO.RecordsetDimgzAsDAO.FieldDimzcAsDAO.FieldDimsumAsCurrencyDimrateAsSingleSetdb=CurrentDb（）Setrs=db.OpenRecordset（"I資表”）Setgz=rs.Fields（"工資”）Setzc=rs.Fields("職稱”)sum=0DoWhileNot[14]rs.eofrs.EditSelectCasezcCaseIs="教授"rate-0.15CaseIs="副教授”rate-0.1CaseElserate—0.05EndSelectsum—sum+gz*rategz=gz+gz*rate【15】rs.updaters.MoveNextLooprs.Closedb.CloseSetrs=NothingSetdb=NothingMsgBox"漲工資總計(jì):"&sumEndSub(13)現(xiàn)有用戶登錄界面如下:CH： ??RamLinK.-Am匹駕窗體中名為username的文本框用于輸入用戶名，名為pass的文本框用于輸入用戶的密碼。用戶輸入用戶名和密碼后，單擊“登錄”名為login的按鈕，系統(tǒng)查找名為“密碼表”的數(shù)據(jù)表，如果密碼表中有指定的用戶名且密碼正確，則系統(tǒng)根據(jù)用戶的“權(quán)限”分別進(jìn)入“管理員窗體”和“用戶窗體”：如果用戶名或密碼輸入錯(cuò)誤，則給出相應(yīng)的提示信息。密碼表中的字段均為文本類型，數(shù)據(jù)如下圖。__7#密 I I 4 福一碼_制限TOC\o"1-5"\h\zChen[1-34 怎Zhang、S6：8待嘩 ?.|-T”一■? ??—-r"Wang, |⑵'?./'!!11'：； I單擊“登錄”按鈕后相關(guān)的事件代碼如下，請(qǐng)補(bǔ)充完整。PrivateSublogin_Click()DimstrAsStringDimrsAsNewADODB.RecordsetDimfdAsADODB.FieldSetcn=CurrentProject.Connectionlogname=Trim(Me!username)pass=Trim(Mc!pass)IfLen(Nz(logname))=0ThenMsgBox"請(qǐng)輸入用戶名"ElselfLen(Nz(pass))=OThenMsgBox"請(qǐng)輸入密碼”Elsestr="select*from密碼表where用戶名-"&logname&"'and密碼='"&pass&"'"rs.Openstr,cn,adOpenDynamic,adLockOptimistic,adCmdTextIfrs.eofThen沒有找到相應(yīng)的記錄MsgBox”沒有這個(gè)用戶名或密碼輸入錯(cuò)誤，請(qǐng)重新輸入"Me.username=""Mc.pass=""ElseSet—fd=rs.Fields（"權(quán)限”）Iffd="管理員"ThenDoCmd.CloseDoCmd.OpenForm”管理員窗體”MsgBox"歡迎您，管理員”ElseDoCmd.CloseDoCmd.OpenForm”用戶窗體”MsgBox”歡迎使用會(huì)員管理系統(tǒng)”EndIfEndIfEndIfEndSub.對(duì)窗體test上文本框控件txtAge中輸入的學(xué)生年齡數(shù)據(jù)進(jìn)行驗(yàn)證。要求：該文本框中只接受大于等于15且小于等于30的數(shù)值數(shù)據(jù)，若輸入超出范圍則給出提示信息。該文本控件的BeforeUpdate事件過程代碼如下，請(qǐng)?jiān)诳瞻滋幪钊脒m當(dāng)?shù)恼Z句，使程序可以完成指定的功能。PrivateSubtxtAge_BeforeUpdate(CancelAsInteger)IfMeitxtAge=""OrIsNull(MeitxtAge)Then'數(shù)據(jù)為空時(shí)的驗(yàn)證MsgBox”年齡不能為空！",vbCritical,"警告”Cancel=True，取消BeforeUpdate事件ElselfIsNumeric(Me!txtAge)=FalseThen，非數(shù)值數(shù)據(jù)輸入的驗(yàn)證MsgBox"年齡必須輸入數(shù)值數(shù)據(jù)！",vbCritical,"警告”Cancel=True，取消BeforeUpdate事件ElselfMeitxtAge<15OrMe!txtAge_>30__[13]Then'非法范圍數(shù)據(jù)輸入的驗(yàn)證MsgBox”年齡為