单选题要显示当前过程中的所有变量及对象的取值,可以利用的调试窗口是( )。
单选题有如下程序段: Dim str As String*10 Dim i Str1="abcdefg" i=12 len1=Len(i) str2=Right(str1,4) 执行后,len1和str2的返回值分别是______。 (A) 12, abcd (B) 10, bcde (C) 2, defg (D) 0, cdef
单选题查询30天之内参加工作的记录,准则是( )。A.<Date()-30B.Between Date()And Date()-30C.>Date()-30D.Between # Date() And # Date()-30
单选题在数据表视图中,不能
单选题“A And B”准则表达式表示的意思是 A) 表示查询表中的记录必须同时满足And两端的准则A和B,才能进入查询结果集 B) 表示查询表中的记录只需满足And两端的准则A和B中的一个,即可进入查询结果集 C) 表示查询表中记录的数据为介于A、B之间的记录才能进入查询结果集 D) 表示查询表中的记录当满足与And两端的准则A和B不相等时即进入查询结果集
单选题在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序:
Public x As Integer
Private Sub Command1_Click()
x=10
Call s1
Call s2
MsgBox x
End Sub
Private Sub s1()
x=x+20
End Sub
Private Sub s2()
Dim x As Integer
x=x+20
End Sub
窗体打开运行后,单击命令按钮,则消息框的输出结果为
单选题Beep命令用于
单选题数据库中有“Emp”,包括“Eno”、“Ename”、“Eage”、“Esex”、“Edate”“Eparty”等字段。下面程序段的功能是:在窗体文本框“tValue”内输入年龄条件,单击“删除”按钮完成对该年龄职工记录信息的删除操作。 Private Sub btnDelete_Click() '单击"删除"按钮 Dim strSQL As String '定义变量 strSQL="delete from Emp" '赋值SQL基本操作字符串 '判断窗体年龄条件值无效(空值或非数值)处理 If IsNull(Me!tValue)=True Or IsNumefic(Me!tValue)=False Then MsgBox"年龄值为空或非有效数值!",vbCritical,"Error" '窗体输入焦点移回年龄输入的文本框"tValue"控件内 Me!tValue.SetFocus Else '构造条件删除查询表达式 strSQL=strSQL&"where Eage="&Me!tValue '消息框提示"确认删除?(Yes/No)",选择"Yes"实施删除操作 If MsgBox("确认删除?(Yes/No)",vbQuestion+vbYesNo,"确认")=vbYes Then '执行删除查询 DoCmd.______strSQL MsgBox"completed!",vblnformation,"Msg" End If End If End Sub 按照功能要求,下划线处应填写的是______。 A.Execute B.RunSQL C.Run D.SQL
单选题在Access数据库中,表是由
单选题用二维表来表示实体及实体之间联系的数据模型是( )。 A) 实体-联系模型 B) 层次模型 C) 网状模型 D) 关系模型
单选题下列算式正确的是 A) Fix(2.8)=3 B) Fix(-2.8)=-3 C) Fix(-2.8)=-2 D) 以上都正确
单选题若变量i的初值为8,则下列循环语句中循环体的执行次数为 Do While i<=17 i=i+2 Loop
单选题下图是使用查询设计器完成的查询,与该查询等价的SQL语句是()。
单选题下列关于索引的说法中,错误的是( )。
单选题设有关系R及关系3,它们分别有p、q个元组,则关系R与S经笛卡儿积后所得新关系的元组个数是( )。
单选题一幅1024X768的彩色图像,其数据量达2.25MB左右,若图像数据没有经过压缩处理,则图像中的彩色是使用______二进制位表示的。
单选题教师管理数据库有数据表“teacher”,包括“编号”、“姓名”、“性别”和“职称”四个字段。下面程序的功能是:通过窗体向“teacher”表中添加教师记录。对应“编号”、“姓名”、“性别”和“职称”的4个文本框的名称分别为:tNo、tName、tSex和tTifles。当单击窗体上的“增加”命令按钮(名称为Command1)时,首先判断编号是否重复,如果不重复,则向“teacher”表中添加教师记录;如果编号重复,则给出提示信息。
Private ADOcn As New ADODB. Connection Private Sub
Form_Load() '打开窗口时,连接Access本地数据库 Set
ADOcn=CurrentProject. Connection End Sub
Private Sub Command0_Click() '追加教师记录 Dim
strSQL As String Dim ADOcmd As New ADODB. Command
Dim ADOrs As New ADODB. Recordset Set ADOrs.
ActiveConnection=ADOcn ADOrs. Open "Select编号From teacher
Where编号='''+tNo+"''' If Not ADOrs. EOF Then
MsgBox "你输入的编号已存在,不能新增加!" Else ADOcmd.
ActiveConnection=ADOcn strSQL="Insert Into
teacher(编号,姓名,性别,职称)" strSQL=strSQL+"Values('''+tNo+"',
'''+tname+"'. '''+tsex+"', '''+ttitles+"')" ADOcmd.
CommandText=strSQL ADOcmd. ______ MsgBox
"添加成功,请继续!" End If ADOrs. Close
Set ADOrs=Nothing End Sub
按照功能要求,在横线上应填写的是______。
A.Execute
B.RunSQL
C.Run
D.SQL
单选题下列表达式计算结果为数值类型的是______。
A.#5/5/2010#-#5/1/2010#
B."102">"11"
C.102=98+4
D.#5/1/2010#+5
单选题若要确保输入的出生日期值格式必须为短日期,应将该字段的输入掩码设置为( )。 A) 0000/99/99 B) 9999/00/00 C) 9999/99/99 D) 0000/00/00
单选题在已建立的数据表中,若显示表中内容时使某些字段不能移动显示位置,可以使用的方法是( )。
