(35)下列程序的功能是返回当前窗体的记录集Sub GetRecNum()Dim rs As ObjectSet rs=MsgBox rs.Re

下列子过程的功能是：当前数据库文件中的 “ 学生表 ” 的学生 “ 年龄 ” 都加 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

” 学生成绩 ” 表含有字段 （ 学号 ， 姓名 ， 数学 ， 外语 ， 专业 ， 总分 ） 。 下列程序的功能是 ： 计算每名学生的总分（总分 = 数学 + 外语 + 专业）。请在程序空白处添入适当语句，使程序实现所需要的功能。

Private sub command1_click()

Dim cn as new adodb.connection

Dim rs as new adodb.recordset

Dim zongfen as adodb.field

Dim shuxue as adodb.field

Dim waiyu as adodb.field

Dim zhuanye as adodb.field

Dim strsql as string

Set cn=currentproject.connection

Strsql= ” select * from 成绩表 ”

Rs.open strsql,cn,adopondynamic,adlockoptimistic,adcmdtext

Set zongfen=rs.fields( “ 总分 ” )

Set shuxue=rs.fields( “ 数学 ” )

Set waiyu=rs.fields( “ 外语 ” )

Set zhuanye=rs.fields( “ 专业 ” )

Do while ___ 14 ____

Zongfen=shuxue+waiyu+zhuanye

_____ 15 _____

Rs.movenext

Loop

Rs.close

Cn.close

Set rs=nothing

Set cn=nothing

End sub

假设连接的数据记录集当前指向的记录如下：

写出以下ASP代码经过IIS服务器解释后的结果。

＜a href="＜%=rs("url")%＞" target="_blank"＞＜%=rs("name")%＞＜/a＞

在窗体中添加命令按钮cmd，并编写如下程序：

Funtion panduan(x As Integer,y As Integer) As Integer

panduan=IIF(x＞y,x,y)

End Function

Private Sub cmd_click()

Dim a As Integer,b As Integer

a=4

b=7

MsgBox panduan( a, b)

End Sub

打开窗体单击命令按钮，消息框中输出的结果为【 】。

下列程序的功能是返回当前窗体的记录集

Sub GetRecNum()

Dim rs As Object

Set rs=________

MsgBox rs．RecordCount

End Sub

为保证程序输出记录集(窗体记录源)的记录数，空白处应填入的语句是

A．Recordset

B．Me．Recordset

C．RecordSource

D．Me．RecordSource

A.rs.Count

B.rs.RecordCount

C.rs.Fields.Count

D.rs.PageCount

（ 35 ） 下列过程的功能是 ： 通过对象变量返回当前窗体的 recordset 属性记录集引用 ， 消息框中输出记录集的记录（即窗体记录源）个数

Sub getrecnum()

Dim rs=me.recordset

Msgbox____________

End sub

程序空白处应填写的是

A ） count

B ） rs.count

C ）recordcount

D ） rs.recordcount

下列程序功能为：弹出一个对话框询问用户是否输出，如果是，则输出；否则结束。请在程序空白处填入适当内容使程序完整。

Sub PrintOut()

Dim a As Integer

a = MsgBox("输出结果?", vblnformation + vbYesNo, "提示：")

If a = ______ Then

Print "Myresult"

End If

End Sub

语句rs.Fields.Count返回的值是()。

A.记录集的行数

B.记录集的列数

C.记录集的行数+1

D.记录集的列数-1