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

admin2017-10-24  34

问题 下列子过程实现对“教师表”中的基本工资涨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://jikaoti.com/ti/9J10FFFM
0

随机试题
最新回复(0)