以下是一个竞赛评分程序。其功能是去掉8位评委中的一个最高分和一个最低分，计算...

单项选择题

在计算控件的表达式中必须使用运算符是（）

A．=
B．!
C．圆括号()
D．方括号[]

单项选择题

打开选择查询或交叉表查询的宏操作命令是

A．Docmd.OpenForm
B．Docmd.OpenQuery
C．OpenForm
D．OpenQuery

单项选择题

下列关于VBA数据库数据访问的内置域聚合函数的叙述中，错误的是

A．域聚合函数可以直接从一个表中取得符合条件的值赋给变量
B．域聚合函数可以直接从一个查询中取得符合条件的值赋给变量
C．使用域聚合函数之前要完成数据库连接和打开操作
D．使用域聚合函数之后无需进行关闭数据库操作

单项选择题

内置计算函数 Avg 的功能是

A．计算所有指定字段值的平均值
B．计算全部数值型字段的平均值
C．计算一条记录中数值型字段的平均值
D．计算一条记录中指定字段的平均值

单项选择题

打开指定窗体的宏操作命令是

A．Docmd.OpenForm
B．Docmd.OpenQuery
C．OpenForm
D．OpenQuery

单项选择题

内部计算函数 Min 的功能是

A．计算所有指定字段值的最小值
B．计算全部数值型字段的最小值
C．计算一条记录中数值型字段的最小值
D．计算一条记录中指定字段的最小值

单项选择题

已知代码下： Dim strSQL As String strSQL = "Create Table Student (" strSQL = strSQL + " Sno CHAR(10) PRIMARY KEY," strSQL = strSQL + " Sname VARCHAR(15) NOT NULL," strSQL = strSQL + " Sphoto IMAGE );" DoCmd.RunSQL strSQL 以上代码实现的功能是

A．创建表 Student
B．删除 Student 表中指定的字段
C．为 Student 表建立索引
D．为 Student 表设置关键字

单项选择题

内置计算函数 Max 的功能是

A．计算所有指定字段值的最大值
B．计算全部数值型字段的最大值
C．计算一条记录中数值型字段的最大值
D．计算一条记录中指定字段的最大值

单项选择题

若要使窗体上的控件 Command0 不可用，正确的设置是

A．Command0.Enable = False
B．Command0.Visible = False
C．Command0.Enable = True
D．Command0.Visible = True

单项选择题

当窗体的大小发生变化时，触发的事件是

A．Resize
B．Change
C．Unload
D．AfterUpdate

单项选择题

打开名为"学生信息"的窗体时，首先发生的事件是

A．打开（Open
B．加载（LoaD）
C．激活（Activate）
D．成为当前（Current）

单项选择题

若要使窗体上的标签控件 Lab1 可显示，正确的设置是

A．Lab1.Enable = False
B．Lab1.Visible = False
C．Lab1.Enable = True
D．Lab1.Enable = True

单项选择题

要在报表每一页的顶部都有输出的信息，需要设置的是

A．报表页眉
B．报表页脚
C．页面页眉
D．页面页脚

单项选择题

下列关于宏的叙述中，正确的是

A．宏是控件的集合
B．宏是事件的集合
C．宏是方法的集合
D．宏是操作的集合

单项选择题

保存当前记录的宏命令是

A．Docmd.SaveRecord
B．Docmd.SaveDatabase
C．SaveRecord
D．SaveDatabase

单项选择题

以下程序的功能是求"x ^ 3 * 5"表达式的值，其中 x 的值由文本框 Text0 输入，运算的结果由文本框 Text1 输出。Private Sub Command0_Click() Dim x As Integer Dim y As Long Me.Text0 = x y = x ^ 3 * 5Me.Text1 = yEnd Sub运行上述程序时，会有错误。错误的语句是

A．Dim x As Integer
B．Me.Text0 = x
C．Me.Text1 = y
D．Dim y As Long

单项选择题

以下是一个竞赛评分程序。其功能是去掉8位评委中的一个最高分和一个最低分，计算平均分。 Dim max As Integer, min As Integer Dim i As Integer, x As Integer, s As Integer max = 0: min = 10 For i = 1 To 8 x = Val(InputBox("请输入得分(0～10):")) 【】 If x < min Then min = x s = s + x Next i 【】 MsgBox "最后得分：" & s 有如下语句： ① max = x ② If x>max Then max = x ③ If max>x Then max = x ④ s = (s-max-min)/6 ⑤ s = (max-min)/6 ⑥ s = s/6 程序中有两个【】，将程序补充完整的正确语句是

A．①⑤
B．②④
C．③⑥
D．②⑥

单项选择题

已知事件对应的程序代码如下：Private Sub Command0_Click() Dim J As Integer J = 100 Call GetData(J) MsgBox JEnd SubPrivate Sub GetData(ByRef f As Integer) f = f + 120End Sub则程序的输出是

A．100
B．120
C．220
D．运行出错

单项选择题

在VBA中，要打开一个文本文件，应使用的语句是

A．Open
B．DoCmd.Open
C．OpenFile
D．DoCmd.OpenFile

单项选择题

运行下列子程序，结果是Private Sub Command2_Click() f0 = 1: f1 = 1: f2 = 1: k = 1 Do While k <= 4 f = f0 + f1 + f2 f0 = f1 f1 = f2 f2 = f k = k + 1 Loop MsgBox "f = " & fEnd Sub

A．f = 35
B．f = 7
C．f = 8
D．f = 17

单项选择题

以下程序的功能是求"x ^ 2 + 15"表达式的值，其中 x 的值由文本框 Text0 输入，运算的结果由文本框 Text1 输出。Private Sub Command0_Click() Dim x As Integer Dim y As Long Me.Text0 = x y = x * x + 15 Me.Text1 = yEnd Sub运行上述程序时，无法实现所要求的功能。错误的语句是

A．Dim x As Integer
B．Me.Text0 = x
C．Me.Text1 = y
D．Dim y As Long

单项选择题

下列程序的功能是计算sum=1+(1+3)+(1+3+5)+ …… + (1+3+5+ …… +19)Private Sub Command_ Click() t=0 m=1 sum=0 Do t = t + m sum = sum + t m = 【　】 Loop While m <=19 MsgBox "Sum = " & sumEnd Sub为保证程序正确完成上述功能，空白处应填入的语句是

A．m + 1
B．m + 2
C．t + 1
D．t + 2

单项选择题

下列代码实现的功能是：窗体中一个名为 tNum 的文本框，运行时在其中输入课程编号，程序在"课程表"中查询，找到对应的"课程名称"显示在另一个名为 tName 文本框中。Private Sub tNum_AfterUpdate( ) Me!tName = 【】End Sub要使程序可以正确运行，【】处应该填写的是

A．DLookup("课程名称", "课程表", "课程编号=’" & Me!tNum & "’")
B．DLookup("课程表", "课程名称", "课程编号=’" & Me!tNum & "’")
C．DLookup("课程表", "课程编号=’" & Me!tNum & "’", "课程名称")
D．DLookup("课程名称", "课程编号=’" & Me!tNum & "’", "课程表")

你可能感兴趣的试题

下列叙述中正确的是

下列关于算法的描述中错误的是

下列叙述中正确的是

下面不属于软件需求分析阶段工作的是

在线性表的顺序存储结构中，其存储空间连续，各个元素所占的字节数

设二叉树如下：则后序序列为

下面不属于黑盒测试方法的是

在数据库系统中，数据模型包括概念模型、逻辑模型和

若实体A和B是一对一的联系，实体B和C是多对一的联系，则实体A和C的联系是

某二叉树中共有935个结点，其中叶子结点有435个，则该二叉树中度为2的结点个数为

用Access数据库管理技术处理的数据不仅能存储为数据库文件，还可以以多种文件格式导出数据，但不支持导出的文件格式是

在窗体中要显示一名医生基本信息和该医生当天预约的病人，窗体设计时要在主窗体中显示医生基本信息，在子窗体中显示预约的病人，则主窗体和子窗体数据源之间的关系是

在输入学生所属学院时，要求学院名称必须以汉字"学院"结束（例如：自动化学院，机械学院），要保证输入数据的正确性，应定义字段的属性是

如果字段"学号"的取值范围为 20130001~20139999，则下列选项中，错误的有效性规则是

要查找职务不是"经理"和"主管"的员工，错误的条件表达是

若在设计视图中创建一个查询，查找平均分在85分以上的女生，并显示姓名、性别和平均分，正确的设置查询条件的方法是

在"查找和替换"对话框的"查找内容"文本框中，设置"[!a-c]ffect"的含义是

在计算控件的表达式中必须使用运算符是（）

打开选择查询或交叉表查询的宏操作命令是

下列关于VBA数据库数据访问的内置域聚合函数的叙述中，错误的是

内置计算函数 Avg 的功能是

打开指定窗体的宏操作命令是

内部计算函数 Min 的功能是

已知代码下： Dim strSQL As String strSQL = "Create Table Student (" strSQL = strSQL + " Sno CHAR(10) PRIMARY KEY," strSQL = strSQL + " Sname VARCHAR(15) NOT NULL," strSQL = strSQL + " Sphoto IMAGE );" DoCmd.RunSQL strSQL 以上代码实现的功能是

内置计算函数 Max 的功能是

若要使窗体上的控件 Command0 不可用，正确的设置是

当窗体的大小发生变化时，触发的事件是

打开名为"学生信息"的窗体时，首先发生的事件是

若要使窗体上的标签控件 Lab1 可显示，正确的设置是

要在报表每一页的顶部都有输出的信息，需要设置的是

下列关于宏的叙述中，正确的是

保存当前记录的宏命令是

已知事件对应的程序代码如下：Private Sub Command0_Click() Dim J As Integer J = 100 Call GetData(J) MsgBox JEnd SubPrivate Sub GetData(ByRef f As Integer) f = f + 120End Sub则程序的输出是

在VBA中，要打开一个文本文件，应使用的语句是

运行下列子程序，结果是Private Sub Command2_Click() f0 = 1: f1 = 1: f2 = 1: k = 1 Do While k <= 4 f = f0 + f1 + f2 f0 = f1 f1 = f2 f2 = f k = k + 1 Loop MsgBox "f = " & fEnd Sub

下列程序的功能是计算sum=1+(1+3)+(1+3+5)+ …… + (1+3+5+ …… +19)Private Sub Command_ Click() t=0 m=1 sum=0 Do t = t + m sum = sum + t m = 【 】 Loop While m <=19 MsgBox "Sum = " & sumEnd Sub为保证程序正确完成上述功能，空白处应填入的语句是

设二叉树如下：
则后序序列为

下列程序的功能是计算sum=1+(1+3)+(1+3+5)+ …… + (1+3+5+ …… +19)Private Sub Command_ Click() t=0 m=1 sum=0 Do t = t + m sum = sum + t m = 【　】 Loop While m <=19 MsgBox "Sum = " & sumEnd Sub为保证程序正确完成上述功能，空白处应填入的语句是