VBA填空选择(答案)
1.假设窗体的名称为fmTest，则把窗体的标题设置为“Access Test”的语句是A) Me = “Access Test” B) Me.Caption = “Access Test”C) Me.text = “Access Test” D) = “Access Test”讲解：窗体的标题属性用me.caption，D选项Name代表名称，但窗体没有名称属性, Form.caption2.执行语句：MsgBox “AAAA”，vbOKCa ncel + vbQuestion ,“BBBB”之后，弹出的信息框外观样式是C讲解：消息框第一个参数：提示信息（必不可少的），第二个参数：按钮+图标类型，第三个参数：标题消自动运行，打开数据库时按住shift键即可4.Access的窗体对象或报表事件可以有两种方法响应：宏对象和答案：事件过程5.下图所示的窗体上有一个命令按钮（名称为Command1）和一个选项组（名称为Framel），选项组上显示“Framel”文本的标签控件名称为Labell，若将选项组上显示文本“Frame1”改为汉字“性别”，应使用的语句是label1.caption=”性别”。
讲解：标签上的文本使用caption属性6.在当前窗体上，若要实现将焦点移动到指定控件，应使用的宏操作命令是GotoControl。
7.若在“销售总数”窗体中有“订货总数”文本框控件，能够正确引用控件值的是A）Forms.[销售总数].[订货总数]B）Forms![销售总数].[订货总数]C）Forms.[销售总数]![订货总数]命令按钮，名称分别为Label1和bChange。
9.在“窗体视图”显示该窗体时，要求在单击命令按钮后标签上显示的文字颜色变为红色，以下能实现该操作的语句是A）label1.ForeColor = 255 B）bChange.ForeColor = 255C）label1.ForeColor = "255" D）bChange.ForeColor = "255"标签文本颜色：ForeColor,值为数字型10.若将窗体的标题设置为“改变文字显示颜色”，应使用的语句是A）Me ="改变文字显示颜色"B）Me.Caption="改变文字显示颜色"C）Me.text="改变文字显示颜色"D）="改变文字显示颜色"11.在“窗体视图”中显示窗体时，窗体中没有记录选定器，应将窗体的“记录选定器”属性值设置为A）是B）否C）有D）无12.为窗体或报表上的控件设置属性值的正确宏操作命令是A）Set B）SetData C）SetWarnings D）SetV alue13.因修改文本框中的数据而触发的事件是A) Change B）Edit C）Getfocus D）LostFocus14.2007.4(10)退出Access应用程序的VBA代码是【10】。
Docmd.Quit15.直接在属性窗口设置对象的属性，属于“静态”设置方法，在代码窗口中由VBA 代码设置对象的属性叫做“__动态_____”设置方法。
16.A ccess 中用于执行指定的SQL 语言的宏操作名___RunSQL__。
RunMacro17.发生在控件接收焦点之前的事件是A）Enter B）Exit C）GotFocus D）LostFocus18.如果加载一个窗体，先被触发的事件是A．Load 事件B．Open事件C．Click 事件D．DbClick事件19.现有一个已经建好的窗体，窗体中有一命令按钮，单击此按钮，将打开“tEmployee”表，如果采用VBA代码完成，下面语句正确的是A．docmd.openform ″tEmployee″打开窗体B ．docmd.openview ″tEmployee″C ．docmd.opentable ″tEmployee″ 打开表D ．docmd.openreport ″tEmployee″ 打开报表20. 在VBA 中要打开名为“学生信息录入”的窗体，应使用的语句是A ）DoCmd . Op enForm ”数据信息录入”B ）OpenForm ”数据信息录入”C ）DoCmd . OpenWindow ”数据信息录入”D ）OpenWindow ”数据信息录入”21. A ccess 的控件对象可以设置某个属性来控制对象是否可用（不可用时显示为灰色状态）。
需要设置的属性是A ．Default 默认值B ．Cancel 针对按钮设置，如果值为真，按ESC 自动执行该按钮功能C ．Enabled 可用不可用D ．Visible 可见不可见22. 在窗体中添加了一个文本框和一个命令按钮（名称分别为tText 和bCommand ），并编写了相应的事件过程。
运行此窗体后，在文本框中输入一个字符，则命令按钮上的标题变为“计算机等级考试”。
以下能实现上述操作的事件过程是D讲解：事件应该是在文本框的内容发生变化时执行，所以为文本框的change 事件23. 2006.4(填14) 窗体中有两个命令按钮：“显示”（控件名为cmdDisplay ）和“测试”（控件名为cmdTest ）。
以下事件过程的功能是：单击“测试”按钮时，窗体上弹出一个消息框。
如果单击APrivate Sub bCommand_Click( )Caption=”计算机等级考试”End Sub B ）Private Sub tText_Click( ) bCommand.Caption=”计算机等级考试” End SubC ）Private Sub bCommand_Change( )Caption=”计算机等级考试”End Sub D ）Private Sub tText_Change( ) bCommand.Caption=”计算机等级考试” End Sub消息框的“确定”按钮，隐藏窗体上的“显示”命令按钮；单击“取消”按钮关闭窗体。
按照功能要求，将程序补充完整。
Private Sub cmdTest_Click()Answer= msgbox （“隐藏按钮”，vbOKCancel）If Answer=vbOK ThencmdDisplay.Visible= falseElseDocmd.CloseEnd IfEnd Sub24.下列过程的功能是：通过对象变量返回当前窗体的Recordset属性记录集引用，消息框中输出记录集的记录（即窗体记录源）个数Sub GetRecNum( )Dim rs As ObjectSet rs = Me.RecordsetMsgBoxEnd Sub程序空白处应填写的是：A）Count B）rs.Count C）RecordCount D）rs. RecordCount 25.下列程序段的功能是实现“学生”表中“年龄”字段值加1Dim Str As StringStr=" "Docmd.RunSQL Str空白处应填入的程序代码是A）年龄=年龄+1B）Update学生Set 年龄=年龄+1C）Set 年龄=年龄+1D）Edit 学生年龄=年龄+l26.006.9(填9) 某窗体中有一命令按钮，名称为C1。
要求在窗体视图中单击此命令按钮后，命令按钮上显示的文字颜色为棕色（棕色代码为128），实现该操作的VBA语句是_c1.forecolor=128___。
27.在窗体上有一个文本框控件，名称为Text1。
同时，窗体加载时设置其计时器间隔为1秒、计时器触发事件过程则实现在Text1 文本框中动态显示当前日期和时间。
请补充完整。
Private Sub Form_Load()Me.TimerInterval=1000End SubPrivate Sub __Form_Timer()_____ 窗体的计时器触发事件Me.Text1=Now()End Sub28.假设某数据库已建有宏对象“宏1”，“宏1”中只有一个宏操作SetV alue,其中第一个参数项目为“[Label0].[Caption]”,第二个参数表达式为“[Text0]”,窗体“fmTest”中有一个标签Label0和一个文本框Text0,现设置控件Text0的“更新后”事件为运行“宏1”，则结果是A）将文本框清空B）将标签清空C）将文本框中的内容复制给标签的标题，使二者显示相同内容D）将标签的标题复制到文本框，使二者显示相同内容讲解：setvalue宏，第一个参数：要设置的项目，第二个参数：给第一个参数设置的具体值29.2007.9（32）在窗体中有一个标签Label0，标题为“测试进行中”；有一个命令按钮Command1；事件代码如下：Private Sub Command1_Click( )Label0.Caption = "标签"End SubPrivate Sub Form_Load( )Form.Caption = "举例"Command1.Caption = "移动"End Sub打开窗体后单击命令按钮，屏幕显示______。
A）B）C）D）30.在下图所示的窗体上，有一个标有“显示”字样的命令按钮（名称为Command1）和一个文本框（名称为text1）。
当单击命令按钮时，将变量sum 的值显示在文本框内，正确的代码是（）。
A）Me!Text1.Caption=sumB）Me!Text1.V alue=sum value属性：可以为文本型或数字型数据C）Me!Text1.Text=sum text属性：只能为文本型数据D）Me!Text1.Visible=sum31.在VBA 中，实现窗体打开操作的命令是（）。
A）DoCmd.OpenForm B）OpenFormC）Do.OpenForm D）DoOpcn.Form32.执行语句：MsgBox ”AAAA”, vbOKCancel+vbQuetion, “BBBB”之后，弹出的信息框A）标题为“BBBB”、框内提示符为“惊叹号”、提示内容为“AAAA”B）标题为“AAAA”、框内提示符为“惊叹号”、提示内容为“BBBB”C）标题为“BBBB”、框内提示符为“问号”、提示内容为“AAAA”D）标题为“AAAA”、框内提示符为“问号”、提示内容为“BBBB”33.）窗体中有3个命令按钮，分别命名为Command1、Command2和Command3。
当单击Command1按钮时，Command2按钮变为可用，Command3按钮变为不可见。
vb试题解析及答案
vb试题解析及答案一、单项选择题（每题2分，共20分）1. VB中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. Const答案：A解析：在VB中，Dim关键字用于声明变量。
2. 下列哪个选项是VB中的合法变量名？A. 2numberB. number2C. $numberD. number$答案：B解析：在VB中，变量名必须以字母开头，并且不能包含空格或特殊字符。
3. 在VB中，以下哪个数据类型用于存储字符串？A. IntegerB. StringC. DoubleD. Boolean答案：B解析：String数据类型用于存储字符串。
4. VB中，以下哪个函数用于将字符串转换为整数？A. CIntB. CStrC. CDblD. CLng答案：A解析：CInt函数用于将字符串转换为整数。
5. 在VB中，以下哪个语句用于结束一个循环？A. ContinueB. ExitC. BreakD. Loop答案：B解析：Exit语句用于立即结束循环。
6. VB中，以下哪个控件用于显示文本？A. LabelB. TextBoxC. ComboBoxD. CheckBox答案：A解析：Label控件用于显示文本。
7. 在VB中，以下哪个事件用于响应鼠标单击？A. ClickB. DoubleClickC. MouseDownD. MouseUp答案：A解析：Click事件用于响应鼠标单击。
8. VB中，以下哪个关键字用于定义过程？A. FunctionB. SubC. PropertyD. Const答案：B解析：Sub关键字用于定义过程。
9. 在VB中，以下哪个数据类型用于存储日期？A. DateB. TimeC. DateTimeD. Currency答案：C解析：DateTime数据类型用于存储日期和时间。
10. VB中，以下哪个函数用于计算两个数的和？A. SumB. AddC. PlusD. Val答案：A解析：Sum函数用于计算两个数的和。
计算机vba试题及答案
计算机vba试题及答案一、选择题（每题2分，共20分）1. 在VBA中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. End答案：A2. VBA中，用于结束一个循环结构的关键字是？A. NextB. LoopC. ExitD. Continue答案：A3. 在VBA中，以下哪个函数用于将字符串转换为大写？A. UCaseB. LCaseC. StrConvD. Trim答案：A4. VBA中，以下哪个对象代表当前工作表？A. ThisWorkbookB. ActiveSheetC. WorksheetsD. ActiveDocument答案：B5. 在VBA中，以下哪个属性用于获取或设置单元格的值？A. ValueB. NameC. FormulaD. Address答案：A6. VBA中，以下哪个函数用于计算数组中元素的数量？A. CountB. SumC. UBoundD. LBound答案：C7. 在VBA中，以下哪个事件用于在工作表被激活时触发？A. Worksheet_SelectionChangeB. Worksheet_ActivateC. Worksheet_BeforeDoubleClickD. Workbook_Open答案：B8. VBA中，以下哪个关键字用于定义一个过程？A. FunctionB. SubC. PropertyD. Const答案：B9. 在VBA中，以下哪个方法用于将一个工作簿保存为Excel 97-2003工作簿格式？A. SaveAsB. SaveC. ExportD. Close答案：A10. VBA中，以下哪个属性用于获取或设置单元格的宽度？A. WidthB. HeightC. ColumnWidthD. RowHeight答案：C二、填空题（每题2分，共20分）1. 在VBA中，使用________关键字可以定义一个变量。
VBA练习4（函数、表达式）含答案
VBA练习4（函数、表达式）含答案VBA练习四答案⼀、选择题1、下列逻辑表达式中，能正确表⽰条件“X和Y⾄少有⼀个是偶数”的是（ A ）。
A.X Mod 2=0 OR Y Mod 2=0B.X Mod 2=1 OR Y Mod 2=1C.X Mod 2=0 And Y Mod 2=0D.X Mod 2=1 And Y Mod 2=12、定义了⼆维数组A(3 to 5,6)，则该数组的元素个数为（ C ）。
A.18B.27C.21D.303、有如下程序段：Dim str As String*10Dim iStr1="abcdefg"i=12len1=Len(i )str2=Right(str1,4)执⾏后，len1和str2的返回值分别是（ C ）。
A.12，abcdB.10，bcdeC.2，defgD.0，cdef4、以下可以得到“2+6=8”的结果的VBA表达式是（ A ）。
A.“2+6”&”=”& 2+6B.”2+6”+”=”+2+6C.2+6& “=”& 2+6D.2+6 +”=”+ 2+65、窗体上添加3个命令按钮，分别命名为command1、command2和command3，编写command1的单击事件过程，完成的功能为：当单击按钮command1时，按钮comand2可⽤，按钮command3不可见，以下正确的是（ C ）。
6、⽤于获得字符串str从第⼆个字符开始的3个字符的函数是（ A ）。
A .mid(str,2,3)B .middle(str,2,2)7、VBA代码调试过程中，能够显⽰出所有在当前过程中变量声明及变量值信息的是（ C ）。
A.本地窗⼝B.⽴即窗⼝C.监视窗⼝D.快速监视窗⼝8、在VBA中有返回值的处理过程是（ C ）A．声明过程B．Sub过程C．Function 过程D．控制过程9、InputBox函数返回值的类型为（ B ）。
笔试练习8.2 VBA - 答案
条件语句1、2006.9（33）在窗体中添加一个命令按钮（名称为Command1），然后编写如下代码：Private Sub Command1_Click( )A=75If A>60 Then I=1If A>70 Then I=2If A>80 Then I=3If A>90 Then I=4MsgBox IEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果是A）1 B）2 C）3 D）42、2007.4(31）在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：Private Sub Cimmandl_Click（）a =75If a >60 Thenk =1Elself a>70 Thenk =2Elself a>80 Thenk =3Elself a>90 Thenk =4EndlfMsgBox kEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果是A）1 B）2 C）3 D）43、2009.9 (32)在窗体中有一个文本框Text1，编写事件代码如下：Private Sub Form_Click ( )X=val (Inputbox(“输入x的值”))Y=1If X〈〉0 Then Y=2Text1.value=YEnd Sub打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是A） 1 B） 2 C）3 D）44、2007.9（13）在窗体中使用一个文本框（名为num1）接受输入值，有一个命令按钮run13，事件代码如下：Private Sub run13_Click()If Me!num1 >= 60 Thenresult = "及格"ElseIf Me!num1 >= 70 Then····elseif是当上一个条件表达式不满足时，才会执行 Result = "良好"ElseIf Me!num1 >= 85 ThenResult = "优秀"End IfMsgBox resultEnd Sub打开窗体后，若通过文本框输入的值为85，单击命令按钮，输出结果是及格。
VBA理论练习题
第一部分（模块与VBA编程基础）一、选择题(1～17)：1．VBA中定义符号常量可以用关键字A)Const B)Dim C)Public D)Static2．Sub过程和Function过程最根本的区别是A)Sub过程的过程名不能返回值，而Function过程能通过过程名返回值B)Sub过程可以使用Call语句或直接使用过程名，而Function过程不能C)两种过程参数的传递方式不同D)Function过程可以有参数，Sub过程不能有参数3．定义了二维数组A(2 to 5，5)，则该数组的元素个数为A)25 B)36 C)20 D)244．已知程序段：s=0For i=1 To 10 step 2s=s+1i=i*2Next i当循环结束后，变量i的值为a，变量s的值为b。
a． A)10 B)11 C)22 D)16b．A)3 B)4 C)5 D)65．以下内容中不属VBA提供的数据验证函数是A)IsText B)IsDate C)IsNumeric D)IsNull6．已定义好有参函数f(m)，其中形参m是整型量。
下面调用该函数，传递实参为5将返回的函数值赋给变量t．以下正确的是A)t=f(m) B)t=Call(m) C)t=f(5) D)t=Callf(5)7．在有参函数设计时，要想实现某个参数的“双向”传递，就应当说明该形参为“传址”调用形式。
其设置选项是A)ByVal B)ByRef C)Optional D)ParamArray8．在VBA代码调试过程中，能够显示出所有在当前过程中变量声明及变量值信息的是A)快速监视窗口 B)监视窗口C)立即窗口 D)本地窗口9．VBA的逻辑值进行算术运算时，True值被当作A)0 B)-1 C)1 D)任意值10．VBA中不能进行错误处理的语句结构是A)On Error Then标号 B)On Error Goto 标号C)On Error Resume Next D)On Error Go 10011．VBA中用实际参数a和b调用有参过程Area(m，n)的正确形式是A)Aream，n B)Area a，b C)Call Area(m，n) D)Call Area a，b 12．给定日期DD，可以计算该日期当月最大天数的正确表达式是A)Day(DD)B)Day(DateSerial(Year(DD)，Month(DD)，Day(DD)))C)Day(DateSerial(Year(DD)，Month(DD)，0))D)Day(DateSerial(Year(DD)，Month(DD)+1，0)13．下列关于宏和模块的叙述中，正确的是A)模块是能够被程序调用的函数B)通过定义宏可以选择或更新数据C)宏或模块都不能是窗体或报表上的事件代码D)宏可以是独立的数据库对象，可以提供独立的操作动作14．有如下VBA代码，运行结束后，变量n的值是n=0For i=1 TO 3Forj=-4 To -1n=n+1NextjNext iA)0 B)3 C)4 D)1215．假设有如下Sub过程：Sub sfun(x As Single，Y As Single)t=xx=t/yy=t mod y ‘mod求余计算例7 mod 4 =3 End Sub在窗体中添加一个命令按钮(名为Comnndl)，编写如下事件过程Private Sub Commandl_Click()Dim a As SinSleDim b As SinSlea=5:b=4sfun(a,b) ‘原书有错，改为：sfun a,b或call sfun(a,b) MsgBox a & chr(10) + chr(13) & b ‘chr(数值)的功能返回数值对应的字母End Sub ‘chr(10)=’返回1个换行符？？？？？‘chr(13)=’返回一个空格符号注意：a → x ； b → y 是按地址传递的，因此不能写成sfun 5,4chr与Asc互逆例asc(a)=97 ; chr(97)=a asc(chr(97))=97打开窗体运行后，单击命令按钮，消息框中有两行输出，内容分别为A)1和1 B)1.25和l C)1.25和4 D)5和416．有如下VBA程序段：sum=0n=0For i=1 TO 5x=n/in=n+1slim=sumNext i以上For循环计算sum，完成的表达式是A)1+1/1+2/3+3/4+4/5 B)1+1/2+1/3+1/4+1/5C)1/2+2/3+3/4+4/5 D)1/2+1/3+1/4+1/517．在窗体中有一个命令按钮runl6，对应的事件代码如下：Private Sub runl6_Enter()Dim num As IntegerDim a As IntegerDim b As Integer ．Dim i As IntegerFor i=1 To 10num=InputBox("请输入数据:"，"输入",1)if Int(num/2)=num/2 Then ‘Int取整函数例int(3.5)=3a=a+1Elseb=b+1End lfNext IMsgBox("运行结果：a="& Str(a) & "，b=" & Str(b))End Sub ‘str(123)=”123”将123转换成字符串与val互逆。
vba考试题及答案
vba考试题及答案1. 以下哪个是VBA中的保留字？A. DimB. MyVarC. EndD. Hello答案：A, C2. 在VBA中，如何声明一个变量？A. Set myVar = 10B. myVar = 10C. Declare myVar As IntegerD. Option Explicit myVar As Integer答案：C, D3. VBA中哪个函数用于计算两个日期之间的天数差？A. DateDiffB. DateAddC. DateSubtractD. DateInterval答案：A4. 在VBA中，如何循环遍历一个数组的所有元素？A. For Each element In arrayB. For i = LBound(array) To UBound(array)C. While i <= UBound(array)D. Do While i <= UBound(array)答案：B5. VBA中如何使用If语句进行条件判断？A. If condition Then action Else actionB. If condition action Else actionC. If condition Then action End IfD. If condition action End If答案：C6. 在VBA中，哪个关键字用于定义子程序？A. FunctionB. SubC. ClassD. Module答案：B7. 如何在VBA中创建一个包含10个元素的整数数组并初始化为0？A. Dim myArray(10) As IntegerB. Dim myArray(0 To 9) As IntegerC. ReDim myArray(0 To 9)D. ReDim myArray(1 To 10)答案：B, D8. 在VBA中，哪个函数用于获取当前日期？A. NowB. DateC. TimeD. Today答案：D9. 如何在VBA中打开一个Excel工作簿？A. Workbooks.Open "filename.xlsx"B. Workbooks.Create "filename.xlsx"C. Workbooks.AddD. Workbooks.Save "filename.xlsx"答案：A10. 在VBA中，如何关闭当前活动工作簿而不保存更改？A. ActiveWorkbook.Close SaveChanges:=FalseB. ActiveWorkbook.Close SaveChanges:=TrueC. ActiveWorkbook.SaveD. ActiveWorkbook.Quit答案：A。
VBA编程基础考试
VBA编程基础考试（答案见尾页）一、选择题1. VBA中，用于执行宏的操作是哪个命令？A. RunMacroB. ExecuteMacroC. RunCodeD. RunScript2. 在VBA中，若要引用一个窗体上的控件，应该使用哪种方式？A. 通过控件的名称B. 通过控件的索引号C. 通过控件的标题D. 通过控件的父级控件3. VBA中，能够用来声明变量的关键字是哪个？A. DimB. PrivateC. PublicD. Static4. 在VBA中，如何跳出当前循环？A. 使用break语句B. 使用continue语句C. 使用return语句D. 使用exit语句5. VBA中，数组的维数是由什么决定的？A. 定义时指定的长度B. 定义时指定的下标范围C. 定义时指定的上下界D. 定义时指定的大小6. VBA中，函数参数的传递方式是按值传递还是按引用传递？A. 按值传递B. 按引用传递C. 可以在函数定义时指定D. 以上都不对7. VBA中，用来表示字符串的长度的函数是什么？A. LenB. StrC. FixD. Round8. 在VBA中，如何实现文件的读写操作？A. 使用Write函数B. 使用Read函数C. 使用Open函数D. 使用Close函数9. VBA中，判断一个对象是否为数字的方法是什么？A. IsNumericB. IsIntegerC. IsDateD. IsObject10. 在VBA中，如何获取窗体的当前位置？A. 使用GetPosition方法B. 使用GetTop方法和GetLeft方法C. 使用GetWindow函数D. 使用GetParent方法11. VBA中，用于声明变量的关键字是？B. SetC. PrivateD. Public12. 在VBA中，能够引用窗体或报表对象的属性是？A. NameB. CaptionC. EnabledD. Style13. VBA中，用于打开窗体的方法是什么？A. ShowB. OpenC. CloseD. Refresh14. 在VBA中，如何使用Mid函数从字符串中提取子字符串？A. Mid(string, start[, length])B. Left(string, length)C. Right(string, length)D. Replace(string, find, replaceWith)15. VBA中，判断一个对象是否为空对象的方法是什么？A. IsNullB. IsEmptyC. IsObjectD. IsTrue16. 在VBA中，如何将一个数组的所有元素初始化为？A. ReDim arrayName(1 To 10) = 0B. Erase arrayNameC. Dim arrayName(1 To 10) = 0D. Store 0 in arrayName17. VBA中，用于计算字符串长度的方法是什么？B. ConcatenateC. RightD. Replace18. 在VBA中，如何声明一个局部变量？A. Dim 变量名 As 类型B. Private 变量名 As 类型C. Public 变量名 As 类型D. Static 变量名 As 类型19. VBA中，如何使用Choose函数根据条件返回不同的值？A. Choose(index, [value1], [value2], ..., [valueN])B. If(index = 1, value1, If(index = 2, value2, ...))C. Select caseD. While20. 在VBA中，如何将一个数组的元素按照一定的顺序排序？A. SortB. SortArrayC. OrderByD. GroupBy21. VBA中，用于声明变量的关键字是：A. DimB. PrivateC. PublicD. Static22. 在VBA中，以下哪个函数可以用来计算字符串的长度？A. LenB. StrC. LeftD. Right23. VBA中，用于打开一个文件并执行读操作的语句是：A. Open "文件名" For Input As #1B. Open "文件名" For Output As #1C. Create "文件名"D. Assign24. VBA中，用于插入新的记录的SQL语句是：A. INSERT INTOB. DELETE FROMC. UpdateD. Create25. 在VBA中，如果一个窗体的Caption属性被设置为"这是窗体"，那么在代码中通过这个属性获取到的值是：A. "这是窗体"B. ThisFormC.窗体D. Forms(0)26. VBA中，用于将一个数组的所有元素初始化为的语句是：A. ReDimB. EraseC. ClearD. Fill27. 在VBA中，如果一个控件的名称改为"MyButton"，那么在代码中通过这个控件获取到的对象引用是：A. ThisForm.MyButtonB. Me.MyButtonC. Forms(0).MyButtonD.控件集合28. VBA中，用于将字符串中的所有字符转换为大写字母的语句是：A. UCaseB. LCaseC. MidD. Left29. 如果一个VBA程序无法成功运行，为了进行调试，你应使用哪种方法来查看程序代码？A. 使用菜单命令“视图”中的“代码窗口”B. 使用调试器C. 查看源代码D. 阅读错误信息30. 在VBA中，以下哪个函数用于返回字符串的长度？A. LenB. StrC. LeftD. Right31. VBA是什么编程语言？A. C++B. JavaC. Visual Basic for ApplicationsD. Python32. 在VBA中，可以使用哪些数据类型？A. IntegerB. DoubleC. StringD. Boolean33. VBA中的变量声明方式是：A. varB. dimC. publicD. private34. 在VBA中，如何定义数组？A. Dim arr() As IntegerB. Dim arr(10) As IntegerC. ReDim arr(10)D. Dim arr() As Object35. VBA中循环结构包括哪种？A. For...NextB. While...WendC. Do...LoopD. For Each...Next36. VBA中条件判断语句有哪几种？A. If...ThenB. If...Then...ElseC. If...Then...ElseIfD. Select...Case37. VBA中函数有哪些基本功能？A. 计算B. 逻辑运算C. 字符串处理D. 数据转换38. 在VBA中，如何进行错误处理？A. On Error Resume NextB. On Error GoTo 0C. Catch...FinallyD. None of the above39. VBA中数据库访问常用对象有哪些？A. ConnectionB. CommandC. RecordsetD. Parameter40. 在VBA中，如何实现模块间的参数传递？A. 通过全局变量B. 通过形参和实参C. 通过事件D. 通过库函数二、问答题1. 什么是VBA？它在编程中的作用是什么？2. VBA有哪些基本数据类型？3. 请解释VBA的变量声明和赋值。
vba考试题及答案
vba考试题及答案**VBA考试题及答案**一、单选题1. VBA中，以下哪个函数用于计算两个日期之间的天数差？A. DateDiffB. DateAddC. DatePartD. DateValue答案：A2. 在VBA中，以下哪个关键字用于声明变量？A. DimB. SetC. CallD. Function答案：A3. VBA中，以下哪个属性用于获取或设置一个对象的名称？A. NameB. CaptionC. TextD. Value答案：A4. 在VBA中，以下哪个函数用于将文本转换为大写？A. UCaseB. LCaseC. StrCompD. StrConv答案：A5. VBA中，以下哪个事件用于响应用户点击按钮？A. ClickB. DblClickC. MouseDownD. MouseUp答案：A二、多选题6. 在VBA中，以下哪些数据类型是数值型？A. IntegerB. StringC. DoubleD. Currency答案：ACD7. VBA中，以下哪些控件可以用于输入数据？A. LabelB. TextBoxC. ComboBoxD. CommandButton答案：BC8. 在VBA中，以下哪些关键字用于循环控制？A. ForB. DoC. WhileD. If答案：ABC9. VBA中，以下哪些函数用于字符串操作？A. LeftB. RightC. MidD. Trim答案：ABCD10. 在VBA中，以下哪些事件可以用于表单控件？A. ClickB. ChangeC. DblClickD. KeyDown答案：ABCD三、判断题11. VBA中的变量必须在使用前声明。
（对/错）答案：对12. VBA中，所有的错误处理都可以通过On Error语句实现。
（对/错）答案：对13. VBA中，数组的索引默认从1开始。
（对/错）答案：错14. VBA中，使用With语句可以提高代码的执行效率。
Vb填空题
1）在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click 事件过程。
程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1 中。
例如，若在Text1 中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。
请填空。
Private Sub Command1_Click( )Dim str As String,s As String,c As Stringstr=UCase (Text1)s=“ “c="Z"While c>="A"If Instr(str,c)=0 Thes= 【7】End Ifc=Chr$(Asc(c) 【8】)WendIf s<>“ “ ThenText1=sEnd IfEnd Sub2)下列是一个比赛评分程序。
在窗体上建立一个名为Text1 的文本框数组，然后画一个名为Text2 的文本框和名为Command1 的命令按钮。
运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2 文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分），如图所示。
请填空。
Private Sub Command1_Click( )Dim k As IntegerDim sum As Single, max As Single, min As Singlesum=Text1(0)max=Text1(0)min= 【11】For k= 【12】To 6If max<Text1(k)Thenmax=Text1(k)End IfIf min>Text(k)ThenMin=Text1(k)End Ifsum=sum+Text1(k)Next kText2=( 【13】)/5End Sub3）下列语句的输出结果是【6】。
vb填空题题库
34、Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是______。
A：属性、控件和方法
B：属性、事件和方法
C：窗体、控件和过程
D：控件、过程和模块
答案：B
等级：1 难度：1
知识点：VB知识点/简单控件设计
11、命令按钮的标题文字由____属性来设置。
A：Text
B：Caption
C：Name
D：(名称)
答案：B
等级：1 难度：1
知识点：VB知识点/简单控件设计
12、标签框的边框，由______属性的设置值决定。
知识点：VB知识点/VB的工程管理和环境设置
20、以下不属于Visual Basic系统的文件类型是_______。
A：.frm
B：.bat
C：.vbg
D：.vbp
答案：B
等级：1 难度：1
知识点：VB知识点/VB的工程管理和环境设置
26、Visual Basic一共有设计、运行和中断三种模式，不可进行界面设计和代码编辑的模式是_______。
A：设计模式
B：运行模式
C：中断模式
D：任何模式
答案：B
等级：2 难度：2
知识点：VB知识点/VB的工程管理和环境设置
27、唯一能区别一个控件的属性是_______。
6、在运行程序时，若要使文本框获得输入焦点，可调用文本框对象的______方法来实现。
A：Refresh
B：GetFocus
C：SetFocus
D：Tab
答案：C