运行下列程序，结果是Private Sub Command32_Click()f0=1:f1=1:k=1Do While k<=5f=f0+f1f0=f1f1=fk=k+1LoopMsgBox "f="&amp;fEnd Sub

试卷相关题目

• 1运行下列程序段，结果是For m=10 to 1 step 0k=k+3Next m

  A.形成死循环

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

  C.出现语法错误

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

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

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

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

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

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

  开始考试点击查看答案
• 3表达式“B=INT(A+0.5)”的功能是

  A.将变量A保留小数点后1位

  B.将变量A四舍五入取整

  C.将变量A保留小数点后5位

  D.舍去变量A的小数部分

  开始考试点击查看答案
• 4如果在被调用的过程中改变了形参变量的值；但又不影响实参变量本身，这种参数传递方式称为

  A.按值传递

  B.按地址传递

  C.ByRef传递

  D.按形参传递

  开始考试点击查看答案
• 5下列给出的选项中，非法的变量名是

  A.Sum

  B.Integer_2

  C.Rem

  D.Form1

  开始考试点击查看答案
• 6有如下事件程序，运行该程序后输出结果是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.输出其他结果

  开始考试点击查看答案
• 7下列程序的功能是计算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

  开始考试点击查看答案
• 8下列程序的功能是返回当前窗体的记录集Sub GetRecNum()Dim rs As ObjectSet rs=______MsgBox rs.RecordCountEnd Sub为保证程序输出记录集（窗体记录源）的记录数，空白处应填入的语句是

  A.Recordset

  B.Me.Recordset

  C.RecordSource

  D.M

  E.RecordSource

  开始考试点击查看答案