首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
打开考生文件夹下的sj5.vbp,在名称为Forml的窗体上建立两个命令按钮,名称分别为Commandl和Command2,命令按钮上分别显示“输入”和“结果”(如图15—7所示)。程序运行时单击“输入”按钮,输入6个数放人数组a中,单击“结果”则把数组a
打开考生文件夹下的sj5.vbp,在名称为Forml的窗体上建立两个命令按钮,名称分别为Commandl和Command2,命令按钮上分别显示“输入”和“结果”(如图15—7所示)。程序运行时单击“输入”按钮,输入6个数放人数组a中,单击“结果”则把数组a
admin
2010-07-13
36
问题
打开考生文件夹下的sj5.vbp,在名称为Forml的窗体上建立两个命令按钮,名称分别为Commandl和Command2,命令按钮上分别显示“输入”和“结果”(如图15—7所示)。程序运行时单击“输入”按钮,输入6个数放人数组a中,单击“结果”则把数组a中的数值按照降序排列。
注意:请在有“?”号的地方填正确内容,然后删除“?”及代码前的所有注释符(即“’”号)但不能修
改其他部分。存盘时不得改变文件名和文件夹。
选项
答案
本题重点考查“冒泡法”数据排序方法。“冒泡法”是一种重要的数据排序算法,其思想是按顺序让一个数列中的每一个数都与其之后的所有的数逐一进行比较,如果该数小于其后面的数,则把这两个位置的数进行交换。依此类推,即可实现所有数的降序排列。 根据题意,将两个命令按钮添加到窗体中,名称分别为Commandl和Command2、Caption属性分别为“输入”和“结果”。双击Commandl进入代码窗口,编写如下代码: Dim a(6)As Integer Dim str As String Dim tmp As String Dim i As Integer Private Sub Commandl Click() str="排序前:" For i=1 To 6 a(i)=Val(InputBox("请输入:")) ’输入6个数到数组中 tmp=a(i) str=str+tInp+…"" ’将数组中的数放到字符串中 Next i
Print str
’在窗口中显示数组 End Sub Private Sub Command2 Click() str="排序后:" For i=1 To 6 ’降序排列 temp=a(i) For j=1 To i If a(j)
<=
temp Then’读取的数据比原位置的数据小则偏移 For k=i To
j+1 Step-1
a(k)=a(k-1) ’数据向后偏移一个 Next k a(j)=temp
Exit For
End If Next j Next i For i=1 To 6 trap=a(i) ’将排序后的数组放入字符串中 str=str+tmp+"" Next i
Print str
’在窗口中显示排序后的结果 End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/aLmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面不属于软件设计原则的是( )。
在数据管理技术的发展过程中,经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是【】。
下列不属于JComponent类的功能的是( )。
下列选项中不属于结构化程序设计方法的是( )。
两个或两个以上的模块之间关联的紧密程度称为( )。
在Java语言中的实数,如数字后没有任何字母,计算机默认其为【】类型。
在结构化程序设计中,模块划分的原则是( )。
下列基本命令中,属于类文件分解器命令的是
在模块化程序设计中,按功能划分模块的原则是
随机试题
假定氧气的热力学温度提高一倍,氧分子全部离解为氧原子,则氧原子的平均速率是氧分子平均速率的:
依据《中华人民共和国海洋环境保护法》,向海域排放含热废水,必须采取有效措施,保证邻近渔业水域的水温符合()。
国家可以通过调节利率高低来影响经济活动。一般认为,利率增加后带来的经济影响是()。
上海的城市管理新体制是()。
下列关于民族自治地方自治机关的自治权的说法中,错误的是()。
二人以上共同违反治安管理的,根据行为人在违反治安管理行为中所起的作用,分别处罚。()
企业国际营销战略有哪些基本类型?
因对微博的无知,某局长和某主任在微博上泄露个人隐私,暴露其不道德行为,受到有关部门的查处,有网友对他们的行为冷嘲热讽,感慨道:知识改变命运,没有知识也改变命运。以下哪项陈述最接近该网友所表达的意思?()
Stocksfinishedmixedinpost-holidaytradingyesterdayasWallStreetmeanderedthroughashortenedsession.(46)Themajorinde
A、Hedidn’tthinkitasuccess.B、Hewaslisteningtooattentivelytothespeakers.C、Hewaspuzzledbywhatthespeakerssaid.
最新回复
(
0
)