2. 计算机
  3. 数据库的“职工基本情况表”有“姓名”和“职称”等字段，要分别统计教授、副教授和其他人员的数量。请在空白处填入适当语句，使程序可以完成指定的功能。 Private Sub command5_Click( ) Dim db As DAO．Dat

数据库的“职工基本情况表”有“姓名”和“职称”等字段，要分别统计教授、副教授和其他人员的数量。请在空白处填入适当语句，使程序可以完成指定的功能。 Private Sub command5_Click( ) Dim db As DAO．Dat

admin2010-11-01  32
问题 数据库的“职工基本情况表”有“姓名”和“职称”等字段，要分别统计教授、副教授和其他人员的数量。请在空白处填入适当语句，使程序可以完成指定的功能。
    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
选项
答案rs．EOF rs．MoveNext i
解析 本题考查通过DAO数据集的方式访问数据的方法，本题中逐条读取数据集rs(即职工基本情况表)中的记录，依次去依据职称判断归类并统计。所以，逐条读取记录的。Do While语句终止的条件是已处理到数据集的结尾。第二个空处为读取完一条记录后，读取数据集的下一条记录，应使用MoveNext方法。
转载请注明原文地址:https://kaotiyun.com/show/k6up777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)