设当前表有30条记录,当EOF()为真时,命令?RECNO()的显示结果______。
A.30
B.31
C.1
D.以上答案都不对
A.30
B.31
C.1
D.以上答案都不对
设班级号字段为字符型,下面程序的运行结果是 USE 学生表 INDEX ON 班级号TO BJH SEEK "1002" DO WHILE NOT EOF() DISPLAY SKIP ENDDO
A.屏幕上显示学生表中所有班级号为1002的记录
B.屏幕上显示学生表中从班级号1002开始一直到表末尾的所有记录
C.屏幕上显示学生表中的所有记录
D.程序出错
A.在定位处中断
B.如果表达式值为假则在定位处中断
C.当表达式值为真时中断
D.当表达式值改变时中断
EOF()是测试函数,当前数据表文件的记录指针已到尾部,其函数值为()。
A.0
B.1
C..T.
D..F.
阅读以下应用说明及Visual Basic部分程序代码,将应填入(n)处的字句写在答题纸的对应栏内。
应用说明
设一个简单的“通讯录”存储在一个ACCESS类型的数据库表中,包括姓名、电话和email三个字段。下面的应用程序实现对“通讯录”数据库表中的记录进行增加、删除及修改处理,其运行界面如下:
(1)数据控件(datal)与“通讯录”数据库表相连接,用户可通过“”和“”按钮指定表中的当前记录。
(2)文本框Txt name、Txt phone和Txt email分别与数据库表中的“姓名”、“电话”和“email”字段绑定,用于显示当前记录的内容。
(3)应用程序启动时,“确定”按钮(Cmd ok)和“取消”按钮(Cmd cancel)不可操作,文本框中显示表中的第一条记录,这时文本框处于不可操作状态。
(4)单击“增加”按钮(Cmd_add)或“修改”按钮(Cmd_modify)后,方可以编辑记录内容,同时“增加”、“删除”、“修改”和“退出”按钮变为不可操作状态。“增加”和“修改”操作需通过“确定”和“取消”按钮确认。
(5)单击“删除”按钮(Cmd del)后,弹出对话框,再单击“确定”按钮,当前记录被删除。
程序代码
Private Sub enableop(isEnabled As Boolean)
Txt_name.Enabled=isEnabled: Txt_phone.Enabled=isEnabled
Txt_email.Enabled=isEnabled
Cmd_ok.Enabled=isEnabled: Cmd_eancel.Enabled=isEnabled
Cmd_add.Enabled=Not isEnabled: Cmd_del.Enabled=Not isEnabled
Cmd_end.Enabled=Not isEnabled: Cmd_modify.Enabled=Not isEnabled
EndSub
Private Sub Form_Load()
Call enableop(False)
Data1.Refresh
If Data1 .Recordset. RecordCount = 0 Then
Cmd_del. Enabled= False: Cmd_modify. Enabled=(1)
End If End Sub Private Sub Cmd_add_Cliek() '单击“增加”按钮的代码
Call enableop((2) )
Datal .Recordset. AddNew '在数据库表中添加一个新记录
Txt name. (3) End Sub Private Sub Crud_del_Click() '单击“删除”按钮的代码
On Error GoTo error3
arts = MsgBox("确定删除吗?", vbYesNo + vblnformafion, "操作提示!")
If (ans = vbYes) Then
Datal.Recordset. (4)
Datal .Recordset. MoveNext
If Datal .Recordset. EOF Then Data l.Refiesh
End If
Exit Sub error3:
MsgBox Err. Description, vbOKOnly, "错误提示!" End Sub Private Sub Cmd_ok_Click() '单击“确定”按钮的代码
On Error GoTo errorl
Datal.Recordset. (5)
Call enableop(False)
Exit Sub error 1:
MsgBox Err. Description, vbOKOnly, "错误提示!"
Datal.UpdateControls
Call enableop(False) End Sub '“修改”和“取消”按钮的程序代码(略)
设一表中有60条记录,当该表刚被打开时,函数RECNO()返回的值是______。
A.0
B.60
C.1
D.61
函数DELETED()的值为真,则表示______。
A.当前记录已被物理删除
B.当前记录已被逻辑删除
C.当前记录不存在被删除的记录
D.当前记录存在被删除的记录
设学生表当前记录的“计算机”字段值是89,执行以下程序段后,屏幕输出______。
DO CASE
CASE计算机<60
?”计算机成绩是:"+"不及格”
CASE计算机>=60
?"计算机成绩是"+"及格"
CASE计算机>=70
?"计算机成绩是:"+"中"
CASE计算机>=80
?”计算机成绩是:"+"良"
CASE计算机>=90
?"计算机成绩是"+"优"
ENDCASE
A.计算机成绩是:不及格
B.计算机成绩是:及格
C.计算机成绩是:良
D.计算机成绩是:优
A.COPY TO BM FIELDS姓名,部门职称
B.COPY TO BM姓名,部门,职称
C.COPY FILE GZ.DBF TO BM.DBF FIELDS姓名,部门,职称
D.COPY TO BM FIELDS姓名,部门,职称TYPE SDF
A.TOTAL数学英语计算机TO总分
B.REPLACE 总分 WITH 数学 英语 计算机
C.SUM 数学,英语,计算机TO总分
D.REPLACE ALL 数学 英语 计算机 WITH总分
为丫从当前文件夹中读入文件File1.txt,某人编写了下面的程序:
Private Sub Command1_Click()
Open"File1.txt"For Output As#20
Do While Not EOF(20)
Line Input#20,ch$
Print ch
Loop
Close#20
End Sub
程序调试时,发现有错误,下面的修改方案中正确的是()。
A.在Open语句中的文件名前添加路径
B.把程序中各处的“20”改为“1”
C.把Print ch语句改为Print#20,ch
D.把Open语句中的0utput改为Input