搜题请搜索小程序“爱下问搜题”
问题 选择题

下列划线字书写完全正确的一项是【　　】（3分）

A．粗制滥造繁花似绵崎岖不平

B．郁郁寡欢鹤立鸡群引人注目

C．器宇轩昂正襟危坐无所是是

D．黯然失色麻木不人意趣盎然

答案

B     

本题考查辨析词语正误的能力。A繁花似锦，C气宇轩昂，无所事事，D麻木不仁

选择题

一条足够长的浅色水平传送带自左向右匀速运行．现将一个木炭包无初速地放在传送带的最左端，木炭包在传送带上将会留下一段黑色的径迹．下列说法中正确的是（　　）

A．黑色的径迹将出现在木炭包的左侧

B．木炭包将相对于传送带向右运动

C．木炭包的质量越大，径迹的长度越短

D．木炭包与传送带间动摩擦因数越大，径迹的长度越短
查看答案
填空题

数据库的“职工基本情况表”有“姓名”和“职称”等字段，要分别统计教授、副教授和其他人员的数量。请在空白处填入适当语句，使程序可以完成指定的功能。
Private Sub Command5_Click()
Dim db As Dao.Database
Dim rs As Dao.Recordset
Dim zc As Dao.Field
Dim Count1 As Integer，Count2 As Integer，Count3 As Integer
Set db=CurrentDb()
Set rs=db.ODenRecordset("职工基本情况表")
Set zc=rs.Fields("职称")
Count1=0：Count2=0：Count3=0
Do While Not (14)
Select Case zc
Case Is="教授"
Count1=Count1+1
Case Is="副教授"
Count2=Count2+1
Case Else
Count3=Count3+1
End Select
(15)
Loop
rs.Close
Set rs=Nothing
Set db=Nothing
MsgBox "教授:"＆Count1＆"副教授:"＆Count2＆"，其他:"＆Count3
End Sub
查看答案