首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
打开考生文件夹下的sj5.vbp,在名称为Forml的窗体上建立两个命令按钮,名称分别为Commandl和Command2,命令按钮上分别显示“输入”和“结果”(如图15—7所示)。程序运行时单击“输入”按钮,输入6个数放人数组a中,单击“结果”则把数组a
打开考生文件夹下的sj5.vbp,在名称为Forml的窗体上建立两个命令按钮,名称分别为Commandl和Command2,命令按钮上分别显示“输入”和“结果”(如图15—7所示)。程序运行时单击“输入”按钮,输入6个数放人数组a中,单击“结果”则把数组a
admin
2010-07-13
33
问题
打开考生文件夹下的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全国计算机二级
相关试题推荐
下面程序段的输出结果是()。classBase{inti;Base(){add(1);}voidadd(intV){i+=v;}Voidphnt()
Applet运行时,被浏览器或AppletViewer调用的第一个方法是( )。
下列代码的执行结果是( )。publicclassTest{publicstaticvoidmain(Stringargs[]){inta=3,b=5,c=8;S
数据结构作为计算机的一门学科,主要研究数据的逻辑结构、对各种数据结构进行的运算,以及( )。
在数据管理技术的发展过程中,经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是【】。
在Java新的I/O功能中,通过文件锁定来实现多个线程的【】,避免了可能存在的安全隐患。
Java的简单性首先体现在自身系统的精炼上,它的基本解释程序和【】占内存40KB,附加的基本标准类库和支持线程程序占175KB。
数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段,其中数据独立性最高的阶段是【】。
通过类MyClass中的不含参数的构造函数,生成该类的一个对象obj,可通过以下语句实现:______。
随机试题
WhatdoRussia’sBelgorodprovinceandsomeschoolsinFloridaandConnecticuthaveincommon?Theyareunlikelyrecruitstothe
何谓电动机的效率?它与哪些因素有关?
在适宜的条件下,r对策生物的种群增长速度比K对策生物的种群增长速度()
Hetriedtoconvinceher______hislovebutfailed.
患者女,16岁。因颈部包块、发热2周来诊。骨髓穿刺确诊为急性淋巴细胞性白血病L2型,经2个疗程VDP方案后完全缓解。缓解后仍需巩固、强化治疗的理论根据是
索赔按照当事人分类不包括()。
会计科目编码必须唯一,科目编码必须按其级次的先后次序建立,科目编码用数字、英文字母等表示,可以使用—、@、空格等其他字符。()
以下事项会对利润造成影响的情形有()。Ⅰ.持有至到期投资重分类为可供出售金融资产,公允价值大于账面价值Ⅱ.资产负债表日,可供出售金融资产公允价值变动Ⅲ.可供出售权益工具投资发生减值损失,计提减值准备Ⅳ.可供出
导游赵某率一香港团队游览九寨沟、黄龙景区。为了诱导游客自费观看九寨沟藏羌歌舞,赵某谎称晚会门票很大一部分将捐给希望工程,结果购票者十分踊跃;次日,赵某又在赴黄龙景区途中,以黄龙景区海拔高需要自备氧气瓶为由,安排游客到计划外的氧气站购买氧气,并收受氧气站给予
Prewritingreferstostrategiesyoucanusetogenerateideasbeforestartingthefirstdraftofapaper.Prewritingtechniques
最新回复
(
0
)