网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
（35）下列程序的功能是返回当前窗体的记录集
Sub GetRecNum()
Dim rs As Object
Set rs=
MsgBox rs.RecordCount
End Sub
为保证程序输出记录集（窗体记录源）的记录数，空白处应填入的语句是
A）Recordset
B）Me.Recordset
C）RecordSource
D）Me.RecordSource
参考答案
更多 “ （35）下列程序的功能是返回当前窗体的记录集Sub GetRecNum()Dim rs As ObjectSet rs=MsgBox rs.RecordCountEnd Sub为保证程序输出记录集（窗体记录源）的记录数，空白处应填入的语句是A）RecordsetB）Me.RecordsetC）RecordSourceD）Me.RecordSource ” 相关考题
考题
” 学生成绩 ” 表含有字段 （ 学号 ， 姓名 ， 数学 ， 外语 ， 专业 ， 总分 ） 。 下列程序的功能是 ： 计算每名学生的总分（总分 = 数学 + 外语 + 专业）。请在程序空白处添入适当语句，使程序实现所需要的功能。Private sub command1_click()Dim cn as new adodb.connectionDim rs as new adodb.recordsetDim zongfen as adodb.fieldDim shuxue as adodb.fieldDim waiyu as adodb.fieldDim zhuanye as adodb.fieldDim strsql as stringSet cn=currentproject.connectionStrsql= ” select * from 成绩表 ”Rs.open strsql,cn,adopondynamic,adlockoptimistic,adcmdtextSet zongfen=rs.fields( “ 总分 ” )Set shuxue=rs.fields( “ 数学 ” )Set waiyu=rs.fields( “ 外语 ” )Set zhuanye=rs.fields( “ 专业 ” )Do while ___ 14 ____Zongfen=shuxue+waiyu+zhuanye_____ 15 _____Rs.movenextLoopRs.closeCn.closeSet rs=nothingSet cn=nothingEnd sub
考题
（ 35 ） 下列过程的功能是 ： 通过对象变量返回当前窗体的 recordset 属性记录集引用 ， 消息框中输出记录集的记录（即窗体记录源）个数Sub getrecnum()Dim rs=me.recordsetMsgbox____________End sub程序空白处应填写的是A ） countB ） rs.countC ）recordcountD ） rs.recordcount
考题
下列子过程的功能是：当前数据库文件中的 “ 学生表 ” 的学生 “ 年龄 ” 都加 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
考题
下列程序的功能是返回当前窗体的记录集Sub GetRecNum()Dim rs As ObjectSet rs=________MsgBox rs．RecordCountEnd Sub为保证程序输出记录集(窗体记录源)的记录数，空白处应填入的语句是A．RecordsetB．Me．RecordsetC．RecordSourceD．Me．RecordSource
考题
（11）下列程序功能是：弹出一个对话框询问用户是否输出，如果是，则输出：是否结束。请填空。 Sub PrintOut() Dim a As Integer a=MsgBox("输出结果？"vblnformation+vbYesNo,"提示：") If a=Then Print "Myresult" End If End Sub
考题
在窗体中添加命令按钮cmd，并编写如下程序：Funtion panduan(x As Integer,y As Integer) As Integerpanduan=IIF(x＞y,x,y)End FunctionPrivate Sub cmd_click()Dim a As Integer,b As Integera=4b=7MsgBox panduan( a, b)End Sub打开窗体单击命令按钮，消息框中输出的结果为【 】。
考题
下列程序功能为：弹出一个对话框询问用户是否输出，如果是，则输出；否则结束。请在程序空白处填入适当内容使程序完整。Sub PrintOut()Dim a As Integera = MsgBox("输出结果?", vblnformation + vbYesNo, "提示：")If a = ______ ThenPrint "Myresult"End IfEnd Sub
考题
假设连接的数据记录集当前指向的记录如下：写出以下ASP代码经过IIS服务器解释后的结果。＜a href="＜%=rs("url")%＞" target="_blank"＞＜%=rs("name")%＞＜/a＞
考题
下列程序的功能是返回当前窗体的记录集：SubGeegecNum（ ）。 Dim rsAs Object Set rs=__________ MsgBoxrs．RecordCount End Sub 为保证程序输出记录集(窗体记录源)的记录数，空白处应填入的语句是（ ）。A.RecordSetB.Me．RecordsetC.RecordSourceD.Me．RecordSource
考题
下列过程的功能是：将当前数据库文件中“学生表”的所有学生“年龄”加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
考题
下列过程的功能是：通过对象变量返回当前窗体的Recordset属性记录集引用，消息框中输出记录集的记录(即窗体记录源)个数。Sub GetRecNum()Dim rs As Obj ectSet rs=Me．RecordSetMsgBoxEnd Sub程序空白处应填写的是A．CountB．rs．CountC．RecordCountD．rs．RecordCount
考题
下列程序的功能是返回当前窗体的记录集：SubGeegecNum（ ）。Dim rsAs ObjectSet rs=__________MsgBoxrs．RecordCountEnd Sub为保证程序输出记录集(窗体记录源)的记录数，空白处应填入的语句是（ ）。A.RecordSetB.Me．RecordsetC.RecordSourceD.Me．RecordSource
考题
下列过程的功能是：将当前数据库文件中“学生表”的所有学生“年龄”加1。Private Sub SetAgeplus2_Click（ ）Dim cn As New ADODB．ConnectionDim rs As New ADODB．RecordsetDim fd As ADODB．FieldDim strConnect As StringDim strSQL As StringSet cn=CurrentProject．ConnectionstrSQL=“Select年龄from学生表”rs．Open strSQl，cn，adOpenDynamic，adlockOptimistic，adCmdTextset fd=rs．Fields(“年龄”)Do While Not rs．EOFfd=__________rs．Updaters．__________Looprs．Closecn．CloseSet rs= NothingSet cn=NothingEnd Sub横线处应填写的内容是（ ）。A.fd-1 0penB.fd+1 closeC.fd+1 MoveNextD.fd-1 Recordset
考题
下列程序的功能是返回当前窗体的记录集：Dim rsAs ObjectSet rs=__________MsgBoxrs．RecordCountEnd Sub为保证程序输出记录集(窗体记录源)的记录数，空白处应填入的语句是（ ）。A.RecordSetB.Me．RecordsetC.RecordSourceD.Me．RecordSource
考题
在记录集对象rs中，用于返回记录分页数的语句是（）Acc = rs.CountBcc = rs.RecordCountCcc = rs.Fields.CountDcc = rs.PageCount
考题
要获得记录集RS中，当前记录的“产品型号”字段的值，该字段的顺序号为1，以下用法中，不正确的是（）Afdvalue=RS（1）Bfdvalue=RS.Fields（“产品型号”）Cfdvalue=RS.（“产品型号”）Dfdvalue=RS.Fields（产品型号）.Value
考题
在记录集RS中，可用于返回记录总数的语句是（）ANum = Rs.CountBNum = RS.RecordCountCNum = Rs.Fields.CountDNum = Rs.PageCount
考题
在记录集RS中，可用于返回记录总数的语句是（）A、Num = Rs.CountB、Num = RS.RecordCountC、Num = Rs.Fields.CountD、Num = Rs.PageCount
考题
单选题要获得记录集RS中，当前记录的“产品型号”字段的值，该字段的顺序号为1，以下用法中，不正确的是（）A
fdvalue=RS（1）B
fdvalue=RS.Fields（“产品型号”）C
fdvalue=RS.（“产品型号”）D
fdvalue=RS.Fields（产品型号）.Value
考题
单选题在记录集RS中，可用于返回记录总数的语句是（）A
Num = Rs.CountB
Num = RS.RecordCountC
Num = Rs.Fields.CountD
Num = Rs.PageCount
考题
单选题在记录集对象rs中，用于返回记录分页数的语句是（）A
cc = rs.CountB
cc = rs.RecordCountC
cc = rs.Fields.CountD
cc = rs.PageCount
考题
判断题在记录集RS中，可用于返回记录总数的语句是rs.Fields.Count。（）A
对B
错
热门标签
最新试卷