以下程序的功能是求"x ^ 3 * 5"表达式的值，其中 x 的值由文本框 ...

单项选择题

已知代码下： 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为保证程序正确完成上述功能，空白处应填入的语句是