x = 1: y = 0 Do Until y <= 25 y = y + x * x x = x + 1 Loop
MsgBox \& y End Sub A.x=1, y=0 B.x=4, y=25 C.x=5, y=30 D.输出其他结果
84.下列程序的功能是计算sum=1+(1+3)+(1+3+5)+……+(1+3+5+……+39) Private
Command34_Click() t = 0 m = 1 sum = 0 Do
t = t + m sum = sum + t m = ______ Loop While m <= 39 MsgBox \End Sub
为保证程序正确完成上述功能，空白处应填入的语句是 A.m + 1 B.m + 2 C.t + 1 D.t + 2
85.下列程序的功能是返回当前窗体的记录集 Sub GetRecNum() Dim rs As Object Set rs = ______ MsgBox rs.RecordCount End Sub
为保证程序输出记录集（窗体记录源）的记录数，空白处应填入的语句是 A.Recordset B.Me.Recordset C.RecordSource D.Me.RecordSource
Sub
参考答案：
1.D2.C3.C4.A5.B6.D7.C8.C9.B10.B11.A12.A13.A14.B15.B16.C17.A18.A19.D20.D21.C22.D23.B24.D25.B26.A27.A28.C29.C30.C31.B32.D33.C34.B35.D36.A37.C38.A39.D40.C41.D42.C43.A44.B45.C46.A47.A48.D49.B50.B51.B52.C53.C54.C55.A56.D57.B58.B59.D60.D61.A62.D63.B64.D65.B66.A67.A68.D69.B70.C71.C72.D73.C74.D75.B76.D77.C78.C79.B80.B81.B82.D83.A84.B85.B
第 21 页 共 21 页