用VBA编程操作本地数据库时，提供一种DAO数据库打开的快捷方式是Curre...

填空题

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

答案： Option Base 1

填空题

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

答案： Visual Basic

填空题

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

答案： Int(15+61*RnD)

填空题

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

答案：过程列表

填空题

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

答案： 99

填空题

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

答案： Speedy

填空题

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

答案：＞19

填空题

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

答案： False

填空题

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

答案： D

填空题

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

答案： Function

填空题

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

答案： A

填空题

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

答案： Demo

填空题

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

答案： -100

填空题

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

答案： 99

填空题

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

答案：定时

填空题

断点的功能是______。

答案：中断程序的执行

填空题

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

答案： Docmd.OpenForm

填空题

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

答案： Hello W

填空题

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

答案： Dim…As…

填空题

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

答案： d

填空题

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

答案： H

填空题

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

答案： 50.3

填空题

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

答案： X

填空题

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

答案： MsgBox

填空题

有如下程序段：
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

填空题

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

答案： CurrentProject.Connection

填空题

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

答案： F

填空题

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

答案： 346

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

你可能感兴趣的试题

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

断点的功能是______。

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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