已知如下程序段： Dim MyNumber MyNumber=Int(-...

填空题

VBA的全称是______。

答案： Visual Basic for Application

填空题

模块包含了一个声明区域和一个或多个子过程或函数过程(以______开头)。

答案： Function

填空题

说明变量最常用的方法，是使用______结构。

答案： Dim…As…

填空题

窗体模块和报表模块都属于______。

答案：类模块

填空题

VBA中变量作用域分为3个层次，这3个层次是局部变量、模块变量和______。

答案：全局变量

填空题

VBA的三种流程控制结构是顺序结构、选择结构和______。

答案：循环结构

填空题

VBA的有参过程定义，形参用ByRef说明，表明该形参为______。

答案：传址调用

填空题

VBA提供了多个用于数据验证的函数。其中IsDate函数用于合法日期验证；______函数用于判定输入数据是否为数值。

答案： IsNumefic

填空题

VBA中使用的三种选择函数是______，Switch和Choose。

答案： If

填空题

VBA的错误处理主要使用______语句结构。

答案： On Error

填空题

VBE编辑环境调试工具中，立即窗口的功能是______。

答案：在中断模式下安排一些调试语句并显示其值的变化

填空题

On Error Goto 0语句的含义是______。

答案：取消错误处理

填空题

VBA的“定时”操作功能是通过窗体的______事件过程完成的。

答案：定时

填空题

断点的功能是______。

答案：中断程序的执行

填空题

VBA中打开窗体的命令语句是______。

答案： Docmd.OpenForm

填空题

VBA语言中，______函数的功能是显示消息信息。

答案： MsgBox

填空题

VBA编辑中，要得到[15，75]上的随机整数可以用表达式______。

答案： Int(15+61*RnD)

填空题

VBA的逻辑值在表达式当中进行算术运算时，True值被当作______、False值被当作0来处理。

答案： A

填空题

Access的窗体或报表事件可以有两种方法来响应；宏对象和______。

答案：事件过程

填空题

VBA中主要提供了3种数据库访问接口：ODBC API，DAO和______。

答案： ADO

填空题

VBA语言中，函数InputBox的功能是______。

答案：输入数据对话框

填空题

用VBA编程操作本地数据库时，提供一种DAO数据库打开的快捷方式是CurrentDB( )，而相应也提供一种ADO的默认连接对象是______。

答案： CurrentProject.Connection

填空题

Nz函数主要用于处理______值时的情况。

答案： Null

填空题

DAO模型中，主要的控制对象有：DBEngine，Workspace，Database，RecordSet，______，QueryDef和Error。

答案： Field

填空题

标准模块中的公共变量和公共过程具有______性。

答案：全局

填空题

ADO对象模型主要有：Connection，Command，______，Field和Error 5个对象。

答案： RecordSet

填空题

VBE的全称是______。

答案： Visual Basic Editor

填空题

VBA语法与______编程语言互相兼容。

答案： Visual Basic

填空题

模块是装着______的容器。

答案： VBA代码

填空题

VBE的代码窗口顶部包含两个组合框，左侧为对象列表，右侧为______。

答案：过程列表

填空题

已知如下程序段：
Dira MvNumber，Var1，Var2
Var1="34":Var2=6
MyNumber=Var1+Var2
执行以上程序段后，MyNumber为______。

答案： 40

填空题

VBA中，在模块的声明中，可以使用______语句将数组的默认下标定为1。

答案： Option Base 1

填空题

以下程序段的功能是：创建一个字符串，其内容为由0到9的十个数字所组成的字符串，每个字符串之间用空格隔开。外层循环使用一个变量当做循环计数器，每循环一次，变量值减一。请将下列程序补充完整。
Dim Words，Chars，MyString
Flor Words=10 T0 1 Step -1
ForChars=0 To 9
MyString=
Next Chars
MyString=
Next Words

答案： Chars，"\

填空题

已知如下程序段：
Dim MyNumber
MyNumber=2+2
执行以上程序段后，MyNumber为______。

答案： D

填空题

MyStr="Hello" & "Word"的返回值为______。

答案： Hello World

填空题

已知如下程序段：
Dim A，B，MyCheck
A=10:B=8
MyCheck=A And B
执行以上程序段后，MyCheck为______。

答案： H

填空题

已知如下程序段：
Dim A，B，C，MyCheck
A=10:B=8:C=6
MyCheck=B＞A And B＞C
执行以上程序段后，MyCheck为______。

答案： False

填空题

已知如下程序段：
Dim MyNumber，Var1，Vat2
Var1="34":Vat2="6"
MyNumber=Var1+Vat2
执行以上程序段后，MyNumber为______。

答案： 346

填空题

已知如下程序段：
Dim SearchString，SearchChar，MyPos
SearchString="XXpXXpXXPXXP"
SearchChar="P"
MyPos=Instr(4，SearchString，SearchChar，1)
执行以上程序段后，MyPos为______。

答案： F

填空题

已知如下程序段：
Dim MyNumber
MyNumber=Fix(-99.8)
执行以上程序段后，MyNumber为______。

答案： -99

填空题

已知如下程序段：
Dim MyNumber
MyNumber=Fix(99.2)
执行以上程序段后，MyNumber为______。

答案： 99

填空题

已知如下程序段：
Dim MyNumber
MyNumber=Abs(-50.3)
执行以上程序段后，MyNumber为______。

答案： 50.3

填空题

已知如下程序段：
Dim MyNumber
MyNumber=Int(-99.8)
执行以上程序段后，MyNumber为______。

答案： -100

填空题

已知如下程序段：
Dim MyNumber
MyNumber=Int(99.8)
执行以上程序段后，MyNumber为______。

答案： 99

填空题

已知如下程序段：
Type CustomerRecord
ID As Integer
Name As String * 10
Address As String * 30
End Type
Dim Customer As CustomerRecord
Dim MyLen
MyLen=Len(Customer)
执行以上程序段后，MyLen为______。

答案： 42

填空题

已知如下程序段：
Dim AnyString，MyStr
AnyString="Hello World"
MyStr=Left(AnyString，7)
执行以上程序段后，MyStr为______。

答案： Hello W

填空题

已知如下程序段：
Dim SearchString，SearchChar，MyPos
SearchString="XXpXXpXXPXXP"
SearchChar="P"
MyPos=Instr(SearchString，SearchChar)
执行以上程序段后，MyPos为______。

答案： I

填空题

已知如下程序段：
Dim AnyString，MyStr
AnyString="Hello World"
MyStr=Right(AnyStfing，1)
执行以上程序段后，MyStr为______。

答案： d

填空题

已知如下程序段：
Dim MyInt As Integer
Dim MyLen
MyLen=Len(MyInt)
执行以上程序段后，MyLen为______。

答案： B

填空题

已知如下程序段：
Dim AnyString，MyStr
AnyString="Hello World"
MyStr=Right(AnyString，20)
执行以上程序段后，MyStr为______。

答案： Hello World

填空题

已知如下程序段：
Dim MyString，TrimString
MyString="＜-Trim-＞"
TrimString=LTrim(MyString)
执行以上程序段后，TrimString=______。

答案：＜-Trim-＞

填空题

已知如下程序段：
Dim LowerCase，UpperCase
LowerCase="Hello World 1234"
UpperCase=UCase(LowerCase)
执行以上程序段后，Uppercase为______。

答案： HELLO WORLD 1234

填空题

已知如下程序段：
Dim MyString，LastWord
MyString="Mid Function Demo"
LastWord=Mid(MyString，14，4)
执行以上程序段后，LastWord为______。

答案： Demo

填空题

如下程序的功能为：使用While…Wend语句来增加计数变量的值。如果条件判断值为True，则循环内的语句将一直执行下去。当Counter______时循环中止。
Dim Counter
Counter=0
While Counter＜20
Counter=Counter+1
Wend

答案：＞19

填空题

已知如下程序段：
Dim MyValue
MyValue=Val("24 and 57")
执行以上程序段后，MyValue=______。

答案： X

填空题

已知如下程序段：
Dim MyChar
MyChar=Chr(37)
执行以上程序段后，MyChar=______。

答案： %

填空题

如下程序的功能为：使用GoTo语句在一个过程内的不同程序段间作流程控制，在此程序中不执行的语句是______。
Sub GotoStatementDemo( )
Dim Number，MyString
Number=1
If Number=1 Then GoTo Linel Else GoTo Line2
Linel：
MyString="Number equals 1"
GoTo LastLine
Line2：
MyString="Number equals 2"
LastLine：
Debug.Print MyString’将""Number equals 1""显示在”立即”窗口。
End Sub

答案： MyString="Number equals 2\

填空题

有如下程序段：
Dim Number，Digits，MyString
Number=53
IfNumber＜10 Then
Digits=2
Else
Digits=3
End If
将该程序段中的If语句用单行格式应该写成______。

答案： If Number＜10 Then Digits=2 Else Digits=3

填空题

已知如下程序段：
Dim MyChar
MyChar=Chr(97)
执行以上程序段后，MyChar=______。

答案： a

填空题

已知如下程序段：
Dim MyString，TrimString
MyString="＜-Trim-＞"
TrimString=LTrim(RTrim(MyString))
执行以上程序段后，TrimString=______。

答案：＜-Trim-＞

填空题

有如下程序：
Function GetChoice(Ind As Integer)
GetChoice=Choose(Ind，"Speedy"，"United"，"Federal")
End Function
如果Ind赋值为1，程序执行后GetChoice=______。

答案： Speedy

填空题

有如下程序：
Function MatchUp(CityName As String)
Matchup=Switch(CityName="London"，"English"，CityName_
="Rome"，"Italian"，CityName="Paris"，"French")
End Function
如果CityName赋值为"Paris"则MatchUp=______。

答案： French

已知如下程序段： Dim MyNumber MyNumber=Int(-99.8) 执行以上程序段后，MyNumber为______。

你可能感兴趣的试题

VBA的全称是______。

模块包含了一个声明区域和一个或多个子过程或函数过程(以______开头)。

说明变量最常用的方法，是使用______结构。

窗体模块和报表模块都属于______。

VBA中变量作用域分为3个层次，这3个层次是局部变量、模块变量和______。

VBA的三种流程控制结构是顺序结构、选择结构和______。

VBA的有参过程定义，形参用ByRef说明，表明该形参为______。

VBA提供了多个用于数据验证的函数。其中IsDate函数用于合法日期验证；______函数用于判定输入数据是否为数值。

VBA中使用的三种选择函数是______，Switch和Choose。

VBA的错误处理主要使用______语句结构。

VBE编辑环境调试工具中，立即窗口的功能是______。

On Error Goto 0语句的含义是______。

VBA的“定时”操作功能是通过窗体的______事件过程完成的。

断点的功能是______。

VBA中打开窗体的命令语句是______。

VBA语言中，______函数的功能是显示消息信息。

VBA编辑中，要得到[15，75]上的随机整数可以用表达式______。

VBA的逻辑值在表达式当中进行算术运算时，True值被当作______、False值被当作0来处理。

Access的窗体或报表事件可以有两种方法来响应；宏对象和______。

VBA中主要提供了3种数据库访问接口：ODBC API，DAO和______。

VBA语言中，函数InputBox的功能是______。

用VBA编程操作本地数据库时，提供一种DAO数据库打开的快捷方式是CurrentDB( )，而相应也提供一种ADO的默认连接对象是______。

Nz函数主要用于处理______值时的情况。

DAO模型中，主要的控制对象有：DBEngine，Workspace，Database，RecordSet，______，QueryDef和Error。

标准模块中的公共变量和公共过程具有______性。

ADO对象模型主要有：Connection，Command，______，Field和Error 5个对象。

VBE的全称是______。

VBA语法与______编程语言互相兼容。

模块是装着______的容器。

VBE的代码窗口顶部包含两个组合框，左侧为对象列表，右侧为______。

已知如下程序段： Dira MvNumber，Var1，Var2 Var1="34":Var2=6 MyNumber=Var1+Var2 执行以上程序段后，MyNumber为______。

VBA中，在模块的声明中，可以使用______语句将数组的默认下标定为1。

已知如下程序段： Dim MyNumber MyNumber=2+2 执行以上程序段后，MyNumber为______。

MyStr="Hello" & "Word"的返回值为______。

已知如下程序段： Dim A，B，MyCheck A=10:B=8 MyCheck=A And B 执行以上程序段后，MyCheck为______。

已知如下程序段： Dim A，B，C，MyCheck A=10:B=8:C=6 MyCheck=B＞A And B＞C 执行以上程序段后，MyCheck为______。

已知如下程序段： Dim MyNumber，Var1，Vat2 Var1="34":Vat2="6" MyNumber=Var1+Vat2 执行以上程序段后，MyNumber为______。

已知如下程序段： Dim SearchString，SearchChar，MyPos SearchString="XXpXXpXXPXXP" SearchChar="P" MyPos=Instr(4，SearchString，SearchChar，1) 执行以上程序段后，MyPos为______。

已知如下程序段： Dim MyNumber MyNumber=Fix(-99.8) 执行以上程序段后，MyNumber为______。

已知如下程序段： Dim MyNumber MyNumber=Fix(99.2) 执行以上程序段后，MyNumber为______。

已知如下程序段： Dim MyNumber MyNumber=Abs(-50.3) 执行以上程序段后，MyNumber为______。

已知如下程序段： Dim MyNumber MyNumber=Int(-99.8) 执行以上程序段后，MyNumber为______。

已知如下程序段： Dim MyNumber MyNumber=Int(99.8) 执行以上程序段后，MyNumber为______。

已知如下程序段： Type CustomerRecord ID As Integer Name As String * 10 Address As String * 30 End Type Dim Customer As CustomerRecord Dim MyLen MyLen=Len(Customer) 执行以上程序段后，MyLen为______。

已知如下程序段： Dim AnyString，MyStr AnyString="Hello World" MyStr=Left(AnyString，7) 执行以上程序段后，MyStr为______。

已知如下程序段： Dim SearchString，SearchChar，MyPos SearchString="XXpXXpXXPXXP" SearchChar="P" MyPos=Instr(SearchString，SearchChar) 执行以上程序段后，MyPos为______。

已知如下程序段： Dim AnyString，MyStr AnyString="Hello World" MyStr=Right(AnyStfing，1) 执行以上程序段后，MyStr为______。

已知如下程序段： Dim MyInt As Integer Dim MyLen MyLen=Len(MyInt) 执行以上程序段后，MyLen为______。

已知如下程序段： Dim AnyString，MyStr AnyString="Hello World" MyStr=Right(AnyString，20) 执行以上程序段后，MyStr为______。

已知如下程序段： Dim MyString，TrimString MyString="＜-Trim-＞" TrimString=LTrim(MyString) 执行以上程序段后，TrimString=______。

已知如下程序段： Dim LowerCase，UpperCase LowerCase="Hello World 1234" UpperCase=UCase(LowerCase) 执行以上程序段后，Uppercase为______。

已知如下程序段： Dim MyString，LastWord MyString="Mid Function Demo" LastWord=Mid(MyString，14，4) 执行以上程序段后，LastWord为______。

如下程序的功能为：使用While…Wend语句来增加计数变量的值。如果条件判断值为True，则循环内的语句将一直执行下去。当Counter______时循环中止。 Dim Counter Counter=0 While Counter＜20 Counter=Counter+1 Wend

已知如下程序段： Dim MyValue MyValue=Val("24 and 57") 执行以上程序段后，MyValue=______。

已知如下程序段： Dim MyChar MyChar=Chr(37) 执行以上程序段后，MyChar=______。

有如下程序段： Dim Number，Digits，MyString Number=53 IfNumber＜10 Then Digits=2 Else Digits=3 End If 将该程序段中的If语句用单行格式应该写成______。

已知如下程序段： Dim MyChar MyChar=Chr(97) 执行以上程序段后，MyChar=______。

已知如下程序段： Dim MyString，TrimString MyString="＜-Trim-＞" TrimString=LTrim(RTrim(MyString)) 执行以上程序段后，TrimString=______。

有如下程序： Function GetChoice(Ind As Integer) GetChoice=Choose(Ind，"Speedy"，"United"，"Federal") End Function 如果Ind赋值为1，程序执行后GetChoice=______。

有如下程序： Function MatchUp(CityName As String) Matchup=Switch(CityName="London"，"English"，CityName_ ="Rome"，"Italian"，CityName="Paris"，"French") End Function 如果CityName赋值为"Paris"则MatchUp=______。

已知如下程序段：
Dim MyNumber
MyNumber=Int(-99.8)
执行以上程序段后，MyNumber为______。

已知如下程序段：
Dira MvNumber，Var1，Var2
Var1="34":Var2=6
MyNumber=Var1+Var2
执行以上程序段后，MyNumber为______。

已知如下程序段：
Dim MyNumber
MyNumber=2+2
执行以上程序段后，MyNumber为______。

已知如下程序段：
Dim A，B，MyCheck
A=10:B=8
MyCheck=A And B
执行以上程序段后，MyCheck为______。

已知如下程序段：
Dim A，B，C，MyCheck
A=10:B=8:C=6
MyCheck=B＞A And B＞C
执行以上程序段后，MyCheck为______。

已知如下程序段：
Dim MyNumber，Var1，Vat2
Var1="34":Vat2="6"
MyNumber=Var1+Vat2
执行以上程序段后，MyNumber为______。

已知如下程序段：
Dim SearchString，SearchChar，MyPos
SearchString="XXpXXpXXPXXP"
SearchChar="P"
MyPos=Instr(4，SearchString，SearchChar，1)
执行以上程序段后，MyPos为______。

已知如下程序段：
Dim MyNumber
MyNumber=Fix(-99.8)
执行以上程序段后，MyNumber为______。

已知如下程序段：
Dim MyNumber
MyNumber=Fix(99.2)
执行以上程序段后，MyNumber为______。

已知如下程序段：
Dim MyNumber
MyNumber=Abs(-50.3)
执行以上程序段后，MyNumber为______。

已知如下程序段：
Dim MyNumber
MyNumber=Int(-99.8)
执行以上程序段后，MyNumber为______。

已知如下程序段：
Dim MyNumber
MyNumber=Int(99.8)
执行以上程序段后，MyNumber为______。

已知如下程序段：
Type CustomerRecord
ID As Integer
Name As String * 10
Address As String * 30
End Type
Dim Customer As CustomerRecord
Dim MyLen
MyLen=Len(Customer)
执行以上程序段后，MyLen为______。

已知如下程序段：
Dim AnyString，MyStr
AnyString="Hello World"
MyStr=Left(AnyString，7)
执行以上程序段后，MyStr为______。

已知如下程序段：
Dim SearchString，SearchChar，MyPos
SearchString="XXpXXpXXPXXP"
SearchChar="P"
MyPos=Instr(SearchString，SearchChar)
执行以上程序段后，MyPos为______。

已知如下程序段：
Dim AnyString，MyStr
AnyString="Hello World"
MyStr=Right(AnyStfing，1)
执行以上程序段后，MyStr为______。

已知如下程序段：
Dim MyInt As Integer
Dim MyLen
MyLen=Len(MyInt)
执行以上程序段后，MyLen为______。

已知如下程序段：
Dim AnyString，MyStr
AnyString="Hello World"
MyStr=Right(AnyString，20)
执行以上程序段后，MyStr为______。

已知如下程序段：
Dim MyString，TrimString
MyString="＜-Trim-＞"
TrimString=LTrim(MyString)
执行以上程序段后，TrimString=______。

已知如下程序段：
Dim LowerCase，UpperCase
LowerCase="Hello World 1234"
UpperCase=UCase(LowerCase)
执行以上程序段后，Uppercase为______。

已知如下程序段：
Dim MyString，LastWord
MyString="Mid Function Demo"
LastWord=Mid(MyString，14，4)
执行以上程序段后，LastWord为______。

如下程序的功能为：使用While…Wend语句来增加计数变量的值。如果条件判断值为True，则循环内的语句将一直执行下去。当Counter______时循环中止。
Dim Counter
Counter=0
While Counter＜20
Counter=Counter+1
Wend

已知如下程序段：
Dim MyValue
MyValue=Val("24 and 57")
执行以上程序段后，MyValue=______。

已知如下程序段：
Dim MyChar
MyChar=Chr(37)
执行以上程序段后，MyChar=______。

有如下程序段：
Dim Number，Digits，MyString
Number=53
IfNumber＜10 Then
Digits=2
Else
Digits=3
End If
将该程序段中的If语句用单行格式应该写成______。

已知如下程序段：
Dim MyChar
MyChar=Chr(97)
执行以上程序段后，MyChar=______。

已知如下程序段：
Dim MyString，TrimString
MyString="＜-Trim-＞"
TrimString=LTrim(RTrim(MyString))
执行以上程序段后，TrimString=______。

有如下程序：
Function GetChoice(Ind As Integer)
GetChoice=Choose(Ind，"Speedy"，"United"，"Federal")
End Function
如果Ind赋值为1，程序执行后GetChoice=______。

有如下程序：
Function MatchUp(CityName As String)
Matchup=Switch(CityName="London"，"English"，CityName_
="Rome"，"Italian"，CityName="Paris"，"French")
End Function
如果CityName赋值为"Paris"则MatchUp=______。