首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称分别为Text1、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件灾下的in5.dat文件中
考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称分别为Text1、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件灾下的in5.dat文件中
admin
2015-10-23
44
问题
考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称分别为Text1、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件灾下的in5.dat文件中的50个整数读到数组中,并在Text1中显示出来;“排序”按钮的功能是对这50个数按升序排序,并显示在Text2中;“存盘”按钮的功能是把排好序的50个数存到考生目录下的out5.dat文件中,如图所示。在窗体中已经给出了全部控件和部分程序代码,要求阅读程序并去掉程序中的注释符,把程序中的?改为正确的内容,并编写“排序”按钮的Click事件过程,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的属性。最后将修改后的文件按原文件名存盘。
选项
答案
步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口.去掉程序中的注释符“’”,将问号改为正确的内容,并编写代码。 参考答案(阴影部分是需考生填入的内容) Dim a(50)As Integer PriVate sub c1_Slick() Dim k As Integer,ch As String Open”in5.dat”For Input As#1 ch="" For k=1 To 50 Input#,麓圈譬将取出的数据存入教组a中 ch=ch+str(a(k))+""’将数据存入ch Next k Close#l Textl.Text=ch’在Text1.文本框中显示文件内容 End Sub PriVate Sub C2_Click() End Sub PriVate Sub C3—Click() Open"out5.dat"For Output As#1 Print #1,Text2.Text Close#1 End Sub 需编写的“排序”按钮的代码 PriVate Sub c2_click() Dim t As Integer Dim i As Integer Dim j As Integer Dim ch As String ch="" For i=50 So 2 Step-1 使用冒泡算法从小到走排序 For j=1 To 49 If a(j)>a(j+1)Then’两两比较 t=a(j +1) a(j+1) =a(j) a(j) =t End If Next j Next i For j=1 To 50。’将排序后的数组重新赋给ch ch=ch+str(a(j)) +"" Next j Text2.Text:ch End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
SIr甬数用于数值转化为字符串,语法为:Str(number)。
“冒泡法”是一种重要的数据排序算法,它的核心思路是按顺序让一个数列中的每一个数都与它之后的所有的数逐一进行比较,如果该数大于其后面的数,则把这两个位置的数进行交换。通过这样的循环,最终按照从小到大的顺序排列出该数列。从程序提供的代码中可以看出,整型数组a的使用范围是本窗体中的所有事件过程,用来存放从文件中读取的数据。在排序中,使用双重循环,外循环每循环一次,确定内循环循环的次数,内循环就是把本次循环中最大的数,放在数组的最后面,这样就可以实现对这50个数的升序排序。
转载请注明原文地址:https://kaotiyun.com/show/UDLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个通用对话框,其名称为CommonDialogl,然后画一个命令按钮,并编写如下事件过程:PrivateSubCommandl_click()CommonDialogl.Friter="AllFiles(*.*)|*.*
在窗体上绘制一个文本框,然后编写如下事件过程:PrivateSubForm_Click()x=InputBox("请输入一个整数")Printx+Text1.TextEndSub程序运行时,在文本框中输入45
当一个对象(如窗体或图片框)被移动或改变大小之后,或当一个覆盖该对象的窗体被移开之后,如果要保持该对象上所画图形的完整性,可以选择触发()事件来完成图形的重画工作。
下面程序是用来打印九九乘法表的,请填空。DimiAsInteger,jAsInteger,Str1$Str1=""Fori=1To9Forj=1To9If【】ThenStr1=Str1+Str$(
如果不指明函数过程参数的类型,则该参数的数据类型为【】。
如果准备读文件,打开顺序文件"text.dat"的正确语句是
在窗体上画一个命令按钮,名称为Commandl。然后编写如下程序:PrivateSubCommandl_Click()ForI=1T02ForJ=1ToIPrintString(I,″Hello″);NextJPr
要清除已经在图片框Picturel中打印的字符串而不清除图片框中的图像,应使用语句()。
与键盘操作有关的事件有KeyPress、KeyUp和KeyDown事件,当用户按下并且释放一个键后,这三个事件发生的顺序是
随机试题
A.房间隔缺损B.室间隔缺损C.法洛四联症D.动脉导管未闭肺动脉与主动脉相通()
下列犯罪,属于实质的一罪的是()
以行政合法性和制度化作为改革与发展的当务之急,这种行政发展模式被称为【】
绛舌薄白苔的主病是()(1994年第27题)
A.两性霉素B及其含脂复合制剂B.氟胞嘧啶C.三唑类D.丙烯胺类E.灰黄霉素通过抑制细胞色素P450依赖酶
患者,男,50岁,患消渴病5年,症见腰膝酸软,头晕耳鸣,骨蒸潮热,盗汗遗精、消渴,中医辨为肾阴虚症,处以六味地黄汤,药用:熟地黄24g,酒萸肉12g,山药12g,泽泻9g,牡丹皮g,茯苓9g,7剂,每日一剂,水煎服。药师调配复核时,其中呈圆形或椭圆形厚
加权法算均值,可以在次数分布表的基础上采用加权法计算平均数,计算公式为:,对其中代数符号认识正确的有( )。
某教材设置了“名家三部曲”专题,下列作品不适合选人该专题的是()。
Baltimorewasfoundedin1729.Foragenerationitseemednodifferentfromadozenothersmallsettlements【C1】______upattheh
Overthepastdecade,Americancompanieshavetriedhardtofindwaystodiscourageseniormanagersfromfeatheringtheirownne
最新回复
(
0
)