网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
下列子过程的功能是：当前数据库文件中的 “ 学生表 ” 的学生 “ 年龄 ” 都加 1 ，请在程序空白处填写适当的语句，使程序实现所需的功能
Private Sub SetAgePlus1_Click()
Dim a 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 =____[14]____
rs.Update
___[15]___
Loop
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
End Sub
参考答案
更多 “ 下列子过程的功能是：当前数据库文件中的 “ 学生表 ” 的学生 “ 年龄 ” 都加 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 ” 相关考题
考题
（ 35 ）下列程序段的功能是实现 “ 学生 ” 表中 “ 年龄 ” 字段值加 1Dim Str As StringStr= " ——————"Docmd.RunSQL Str空白处应填入的程序代码是A ）年龄 = 年龄 +1B ） Update 学生 Set 年龄 = 年龄 +1C ） Set 年龄 = 年龄 +1D ） Edit 学生 年龄 = 年龄 +l
考题
下列子过程的功能是：将当前数据库文件中“学生表”的学生“年龄”都加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.Editfd =【 】rs.Update【 】Looprs.Closedb.CloseSet rs = NothingSet db = NothingEnd Sub
考题
下列程序段的功能是实现“学生”表中“年龄”字段值加1Dim Str As StringStr=”________________”Docmd.RunSql Str空白处应填入的程序代码是A．年龄＝年龄＋1B．Update学生Set年龄＝年龄＋1C．Set年龄＝年龄＋1D．Edit学生Set年龄＝年龄＋
考题
下列程序段的功能是实现“学生”表中“年龄”字段值加1，空白处应填入的程序代码是( )。Dim Str As String Str=" " Docmd.RunSQL StrA．年龄=年龄+1B．Update学生Set年龄=年龄+1C．Set年龄=年龄+1D．Edit学生年龄=年龄+1
考题
下列程序段的功能是实现“学生”表中“年龄”字段值加1：Dim Str As String Str=””Docmd．RunSQL Str空白处应填入的程序代码是（ ）。A.年龄=年龄+1B.Update学生Set年龄=年龄+1C.Set年龄=年龄+1D.Edit学生Set年龄=年龄+1
考题
下列过程的功能是：将当前数据库文件中“学生表”的所有学生“年龄”加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 0penB.fd+1 closeC.fd+1 MoveNextD.fd-1 Recordset
考题
下列程序段的功能是实现"学生"表中"年龄"字段值加1： Dim Str As String (共35题． Str="____________" Docmd.RunSQL Str 空白处应填入的程序代码是A.年龄=年龄+1B.Update 学生 Set 年龄=年龄+1C.Set 年龄=年龄+1D.Edit 学生 Set 年龄=年龄+1
考题
下列程序段的功能是实现“学生”表中“年龄”字段值加1。 DimStrAsStringStr="_________"Docmd．RunSQLStr空白处应填入的程序代码是（ ）。A.年龄=年龄+1B.Update学生set年龄=年龄+1C.Set年龄=年龄+1D.Edit学生Set年龄=年龄+1
考题
下列程序段的功能是实现学生表中年龄字段值加1：Dim Str As StringStr=____________Docmd.RunSQL Str空白处应填入的程序代码是A.年龄=年龄+1B.Update 学生 Set 年龄=年龄+1C.Set 年龄=年龄+1D.Edit 学生 Set 年龄=年龄+1 ?
热门标签
最新试卷