一起答
单选

运行下列过程,当输入一组数据:10,20,50,80,40,30,90,100,60.70,输出的结果应该是

   sub pl( )

    Dim i, j, arr(11)As Integer

    k=1

    While k<=10

  • arr(k)=Val(InputBox("请输入第" & k & "个数:", "输入窗口" ))    k=k+1    Wend
  • For i=1 T0 9
  • j=i+1
  • If arr(i) >arr(j) Then    temp=arr (i)
  • arr(i)=arr (j)
  • arr(j)=temp
  • End If
  • Debug Print arr(i)    Next i
  • End Sub
  • A.升序数列
  • B.降序数列
  • C.无序数列
  • D.原输入数列
试题出自试卷《2012年3月全国计算机等级考试二级Access数据库程序设计笔试试卷【答案+解析版】》
参考答案
查看试卷详情
相关试题
  1. 下列程序的功能是:输入10个整数,逆序后输出。请在程序空白处填入适当语句使程序完成指定的功能。

    Private Sub Command2_Click()

       Dim i, j, k,temp, arr(11) As lnteger

       Dim result As String 

       For k=1 To 10

       arr(k) =Val (InputBox( "请输入第" & k & "个数:","数据输入窗口"))

       Next k   

       i=1

       j = 10

       Do   

          temp=arr(i)

          arr(i)=arr(j)

          arr(j)=temp

          i=i+1   

          j=【12】

       Loop While【13】

       result =""

       For k=1 To 10

           result=result & arr(k) & Chr(13)   

       NeXt k

       MsgBox result

    End Sub

  2. 已经设计出一个表格式窗体,可以输出教师表的相关字段信息。请按照以下功能要 求补充设计:改变当前记录,消息框弹出提示“是否删除该记录?”,单击“是”,则 直接删除该当前记录;单击“否”,则什么都不做:其效果图如下:

     单击“退出”按钮,关闭窗体。

     Private Sub btnCancel_Click( )

           【14】

     End Sub

       表格式窗体当前记录变化时触发

     Private Sub Form_Current ( )

         If MsgBox("是否删除该记录?",vbQuestion+vbYesNo,"确认")=

       vbYes Then

         【15】

         End If

     End Sub

  3. 在VBA中,没有显式声明或使用符号来定义的变量,其数据类型默认是【11】。

  4. 已知:Dim rs As new ADODB.RecordSet,在程序中为了得到记录集的下一条记录,应该使用的方法是rs.【10】。

  5. 在工资表中有姓名和工资等字段,若要求查询结果按照工资降序排列,可使用的SQL语句是:SELECT姓名,工资FROM工资表。RDER BY工资【8】。

  6. 在宏中引用窗体控件的命令格式是【9】。

  7. 常见的软件工程方法有结构化方法和面向对象方法,类、继承以及多态性等概念属于【5】

  8.  Access的查询分为5种类型,分别是选择查询、参数查询、操作查询、SQL查询和【6】查询。

  9. 如果要求用户输入的值是一个3位的整数,那么其有效性规则表达式可以设置为【7】

  10. 在将E-R图转换到关系模式时,实体和联系都可以表示成【4】。