itgle.com

下列子过程的功能是：将当前数据库文件中“学生表”的学生“年龄”都加1。请在程序空白的地方填写适当的语句，使程序实现所需的功能：Private Sub SetAgePlus1_Click()Dim db As DAO.DatabaseDim rs As DAO.RecordsetDim fd As DAO.FieldSet db = CurrentDb()set rs = db.OpenRecordset("学生表")Set fd= rs.Fields("年龄")Do While Not rs.EOFrs.

题目

下列子过程的功能是：将当前数据库文件中“学生表”的学生“年龄”都加1。请在程序空白的地方填写适当的语句，使程序实现所需的功能：

Private Sub SetAgePlus1_Click()

Dim db As DAO.Database

Dim rs As DAO.Recordset

Dim fd As DAO.Field

Set db = CurrentDb()

set rs = db.OpenRecordset("学生表")

Set fd= rs.Fields("年龄")

Do While Not rs.EOF

rs.Edit

fd =【 】

rs.Update

【 】

Loop

rs.Close

db.Close

Set rs = Nothing

Set db = Nothing

End Sub

相似考题

1.（ 35 ）下列程序段的功能是实现 “ 学生 ” 表中 “ 年龄 ” 字段值加 1Dim Str As StringStr= " ——————"Docmd.RunSQL Str空白处应填入的程序代码是A ）年龄 = 年龄 +1B ） Update 学生 Set 年龄 = 年龄 +1C ） Set 年龄 = 年龄 +1D ） Edit 学生 年龄 = 年龄 +l

2.下列程序段的功能是实现“学生”表中“年龄”字段值加1Dim Str As StringStr=”________________”Docmd.RunSql Str空白处应填入的程序代码是A．年龄＝年龄＋1B．Update学生Set年龄＝年龄＋1C．Set年龄＝年龄＋1D．Edit学生Set年龄＝年龄＋

3.下列程序段的功能是实现“学生”表中“年龄”字段值加1，空白处应填入的程序代码是( )。Dim Str As String Str=" " Docmd.RunSQL StrA．年龄=年龄+1B．Update学生Set年龄=年龄+1C．Set年龄=年龄+1D．Edit学生年龄=年龄+1

4.下列子过程的功能是：当前数据库文件中的 “ 学生表 ” 的学生 “ 年龄 ” 都加 1 ，请在程序空白处填写适当的语句，使程序实现所需的功能Private Sub SetAgePlus1_Click()Dim a As DAO.DatabaseDim rs As DAO.RecordsetDim fd As DAO.FieldSet db = CurrentDb()Set rs = db.OpenRecordset(" 学生表 ")Set fd = rs.Fields(" 年龄 ")Do While Not rs.EOFrs.Editfd =____[14]____rs.Update___[15]___Looprs.Closedb.CloseSet rs = NothingSet db = NothingEnd Sub

更多“下列子过程的功能是:将当前数据库文件中“学生表”的学生“年龄”都加1。请在程序空白的地方填写适当 ”相关问题

  • 第1题：

    下列程序段的功能是实现“学生”表中“年龄”字段值加1：Dim Str As String Str=””Docmd．RunSQL Str空白处应填入的程序代码是（ ）。

    A.年龄=年龄+1

    B.Update学生Set年龄=年龄+1

    C.Set年龄=年龄+1

    D.Edit学生Set年龄=年龄+1


    正确答案：B
    B。【解析】本题要求在空白处填入SQL语句，实现将“学生”表中的“年龄”字段值加l，故应用关键字“Update”与“Set”组合，因此本题正确答案为Update学生Set年龄一年龄+1。

  • 第2题：

    下列程序段的功能是实现"学生"表中"年龄"字段值加1： Dim Str As String (共35题． Str="____________" Docmd.RunSQL Str 空白处应填入的程序代码是

    A.年龄=年龄+1

    B.Update 学生 Set 年龄=年龄+1

    C.Set 年龄=年龄+1

    D.Edit 学生 Set 年龄=年龄+1


    正确答案：B
    本题中通过语句"Docmd.RunSQLStr"可知空白处应该填写一个SQL语句，由题面可知程序段的功能是实现"学生"表中"年龄"字段值加1，所以空白处应该填写一个Update语句。Update语句实现数据的更新功能，能够对指定表所有记录或满足条件的记录进行更新操作，该语句的格式为：Update<表名>Set<字段名1>=<表达式1>[,<字段名2>=<表达式2>]…[Where<条件>]其中，<表名>是指要更新数据的表的名称。<字段名>=<表达式>是用表达式的值替代对应字段的值，并且一次可以修改多个字段。一般使用Where子句来指定被更新记录字段值所满足的条件，如果不使用Where子句，则更新全部记录。所以本题答案为B。

  • 第3题：

    下列程序段的功能是实现"学生"表中"年龄"字段值加1：

    Dim Str As String

    Str="____________"

    Docmd.RunSQL Str

    空白处应填入的程序代码是

    A.年龄=年龄+1

    B.Update 学生 Set 年龄=年龄+1

    C.Set 年龄=年龄+1

    D.Edit 学生 Set 年龄=年龄+1 ?


    正确答案：B

    本题中通过语句"Docmd.RunSQL Str"可知空白处应该填写一个SQL语句，由题面可知程序段的功能是实现"学生"表中"年龄"字段值加1，所以空白处应该填写一个Update语句。Update语句实现数据的更新功能，能够对指定表所有记录或满足条件的记录进行更新操作，该语句的格式为：

    Update <表名>

    Set <字段名1>=<表达式1> [,<字段名2>=<表达式2>]…

    [Where <条件>]

    其中，<表名>是指要更新数据的表的名称。<字段名>=<表达式>是用表达式的值替代对应字段的值，并且一次可以修改多个字段。一般使用Where子句来指定被更新记录字段值所满足的条件，如果不使用Where子句，则更新全部记录。所以本题答案为B。


  • 第4题：

    下列过程的功能是：将当前数据库文件中“学生表”的所有学生“年龄”加1。 Private Sub SetAgeplus2_Click（ ） 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 fd=__________ rs．Update rs．__________ Loop rs．Close cn．Close Set rs= Nothing Set cn=Nothing End Sub 横线处应填写的内容是（ ）。

    A.fd-1 0pen

    B.fd+1 close

    C.fd+1 MoveNext

    D.fd-1 Recordset


    正确答案：C
    题目要求是将年龄加l，因此fd=fd+1，作为一个DoWhile循环，要将循环推下去，因此要填写关键词MoveNext。

  • 第5题：

    下列程序段的功能是实现“学生”表中“年龄”字段值加1。 DimStrAsStringStr="_________"Docmd．RunSQLStr空白处应填入的程序代码是（ ）。

    A.年龄=年龄+1

    B.Update学生set年龄=年龄+1

    C.Set年龄=年龄+1

    D.Edit学生Set年龄=年龄+1


    正确答案：B
    暂无解析，请参考用户分享笔记

相关内容