考试首页 | 考试用书 | 培训课程 | 模拟考场 | 考试论坛  
全国  |             |          |          |          |          |         
  当前位置:计算机等级 > 二级考试 > Visual Basic > VB模拟试题 > 文章内容
  

全国计算机等级考试二级VB程序设计模拟试题四【完善程序题】

中华IT学院   【 】  [ 2017年1月19日 ]

用选择法按递增顺序排序

  Private Sub Command1_Click()

    Dim a(1 to 6) as integer,i%,j%,amin%,t%

    For i=1 to 6

      a(i)=InputBox(“给数组元素赋值”)

      [ 6 ] 

    n=6

    For i=1 to   [ 7 ] 

     amin=   [ 8 ] 

     For j=  [ 9 ]   to n

       If a(j)<a(amin) then   [ 10 ] 

     Next j

     t=a(i)

     a(i)=a(amin)

     a(amin)=t

    Next i

  End Sub

分享到:
本文纠错】【告诉好友】【打印此文】【返回顶部
将考试网添加到收藏夹 | 每次上网自动访问考试网 | 复制本页地址,传给QQ/MSN上的好友 | 申请链接 | 意见留言 TOP
关于本站  网站声明  广告服务  联系方式  站内导航  考试论坛
Copyright © 2006-2017 中华考试网(Examw.com) All Rights Reserved  营业执照