在“student.mdb”数据库中有一张“学生”表。
(1) 将“学生”表中所有姓“王”的学生全部改为姓“黄”;
(2) 取消“学生”表中学生ID列的隐藏,按照出生日期升序排序,将数据表字体设置为12号,加粗。
(3) 在原有筛选的基础上添加参数筛选,筛选学生ID列,参数提示为“请输入学生 ID”,将筛选另存为查询“学号筛选”。“学生”表如图所示。
单击工具栏中的筛选按钮显示如图。
第2题
执行下面的程序段,s的值为 【 】 。
s=0:k=10
While k
s=s+10
k=k-2
Wend
第4题
空白处填入适当语句,使程序可以完成指定的功能。
Private Sub command5_Click( )
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim zc As DAO.Field
Dim Count 1 As Integer,Count2 As Integer,Count3 As Integer
Sett db=CurrentDb( )
Set rs=db.OpenRecordset(“职工基本情况表”)
Set zc=rs.Fields(“职称”)
Count1=0:Count2=0:Count3=0
Do While Not______
Select Case zc
Case Is=“教授”
Count1=Count1+1
Case Is=“副教授”
Count2=Count2+1
Case Else
Count3=Count3+1
End Select
______
Loop
rs.Close
se rs=Nothing
Set db=Nothing
MsgBox“教授:”&Count 1&“,副教授:”&Count2&“,其他:”&Count 3
End Sub
第5题
适当的语句,使程序完成指定的功能。
Private Sub Commandl_Click ( )
Dim i as integer,s as single,a as single
a=1:s=0
For i=1 To 10
a=_____
s=s+a
Next i
Debug.Print“1+1/2!+1/3!+……=”;S
End Sub
第7题
【 】是指子类对象可以像父类对象那样使用,同样的消息既可以发送给父类对象,也可以发送给子类对象。
第8题
运行以下程序段后,输出结果为【 】。
For I=1 To 3
Cls
Print "I=",I;
Next@答案@I=3@解析@本题考查Cls语句的功能。Cis语句的功能是清除窗体或其他对象上的所有输出,因此,本题在运行中虽然对I=1和I=2有输出,但都被清除,最后只剩下I=3时的输出值。
第10题
在“招聘.mdb”数据库中有单位信息、个人信息、求职和职位四张表。
(1)以单位信息、个人信息、求职和职位四张表为数据源,创建参数查询“查询1”,实现通过输入帐号来查询职位申请信息。参数提示为“请输入帐号”,结果显示帐号、姓名、单位名称和职位信息。查询结果如图所示。
(2)创建宏“宏1”,运行查询1。
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!