下列子过程实现对“教师表”中的基本工资涨10%的操作。 Sub GongZi() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim fd As ADODB.Field Dim

admin2018-12-05  25

问题 下列子过程实现对“教师表”中的基本工资涨10%的操作。
Sub GongZi()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim fd As ADODB.Field
Dim strConnect As String
Dim strSQL As String
Set cn=CurrentProject.Connection
strSQL="Select基本工资from教师表"
rs.Open strSQL,cn,adOpenDynamic,adLockOptimistic,adCmdText’Set fd=rs.Fields("基本工资")
Do While Not rs.EOF
【    】
rs.Update
rs.MoveNext
Loop
rs.Close
cn.Close
Set rs=Nothing
Set cn=Nothing
End Sub
程序空白处【    】应该填写的语句是

选项 A、fd=fd*1.1
B、rs=rs*1.1
C、基本工资=基本工资*1.1
D、rs.fd=rs.fd*1.1

答案A

解析 程序中“Do While Not rs.EOF”中“rs.EOF”表示文件记录是否是该查询结果集的最后一条记录,如果是,则返回真,如果不是,则返回假。“Set fd=rs.Fields(”基本工资”)”语句为设置“基本工资”字段的引用,本题中需要对“教师表”中的基本工资涨10%,所以程序空白处应该填上“fd=fd*1.1”。
转载请注明原文地址:https://kaotiyun.com/show/oMMp777K
0

最新回复(0)