下列程序的功能是返回当前窗体的记录集Sub GetRecNum()Dim rs As ObjectSet rs=______MsgBox rs.RecordCountEnd Sub为保证程序输出记录集（窗体记录源）的记录数，空白处应填入的语句是

试卷相关题目

• 1下列程序的功能是计算sum=1+(1+3)+(1+3+5)+……+(1+3+5+……+39)Private Sub Command34_Click()t=0m=1sum=0Dot=t+msum=sum+tm=______Loop While m<=39MsgBox "Sum="&amp;sumEnd Sub为保证程序正确完成上述功能，空白处应填入的语句是

  A.m+1

  B.m+2

  C.t+1

  D.t+2

  开始考试点击查看答案
• 2有如下事件程序，运行该程序后输出结果是Private Sub Command33_Click()Dim x As Integer,y As Integerx=1:y=0Do Until y<=25y=y+x*xx=x+1LoopMsgBox "x="&amp;x&amp;",y="&amp;yEnd Sub

  A.x=1,y=0

  B.x=4,y=25

  C.x=5,y=30

  D.输出其他结果

  开始考试点击查看答案
• 3运行下列程序，结果是Private Sub Command32_Click()f0=1:f1=1:k=1Do While k<=5f=f0+f1f0=f1f1=fk=k+1LoopMsgBox "f="&amp;fEnd Sub

  A.f=5

  B.f=7

  C.f=8

  D.f=13

  开始考试点击查看答案
• 4运行下列程序段，结果是For m=10 to 1 step 0k=k+3Next m

  A.形成死循环

  B.循环体不执行即结束循环

  C.出现语法错误

  D.循环体执行一次后结束循环

  开始考试点击查看答案
• 5VBA语句“Dim NewArray(10) as Integer”的含义是

  A.定义10个整型数构成的数组NewArray

  B.定义11个整型数构成的数组NewArray

  C.定义1个值为整型数的变量NewArray(10)

  D.定义1个值为10的变量NewArray

  开始考试点击查看答案