首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
打开考生文件夹下的sj5.vbp,在名称为Forml的窗体上有一个名称为Text1的文本框.两个命令按钮,名称分别为Commandl和Command2,命令按钮上分别显示“读入”和“排序”(如图70—5所示)。程序运行时单击“读入”按钮,将文件in5.da
打开考生文件夹下的sj5.vbp,在名称为Forml的窗体上有一个名称为Text1的文本框.两个命令按钮,名称分别为Commandl和Command2,命令按钮上分别显示“读入”和“排序”(如图70—5所示)。程序运行时单击“读入”按钮,将文件in5.da
admin
2010-07-13
39
问题
打开考生文件夹下的sj5.vbp,在名称为Forml的窗体上有一个名称为Text1的文本框.两个命令按钮,名称分别为Commandl和Command2,命令按钮上分别显示“读入”和“排序”(如图70—5所示)。程序运行时单击“读入”按钮,将文件in5.dat中的数据读人数组a中,单击“排序”则把数组a中的数值按照升序排列,并显示在文本框中。
注意:请在有“?”号的地方填入正确的内容,然后删除“?”及代码前的所有注释符(即“’”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
选项
答案
(1)本题主要考查了从文件中读取数据和数据的排序。要从文件中读取数据,首先要打开文件,在读文件的时候要用到EOF函数判断文件是否已读完。本题补充后的代码如下: Dim a()As Integer Dim num As Integer Private Sub Commandl_Click() Dim str As String num=0 str="" Open"App.Path&\in5.dat"For
Input
As#1 ’打开文件准备读取 While
EOF(1)
=False ’查看是否读到文件尾 Input#1,str’读取文件 num=num+1 ’计数 Wend Close#1 ’关闭文件 ReDim a(num) ’动态分配数组空间 Dim i As Integer str="" Open"App.Path&\in5.dat"For Input As#1 For i=1 To numl’利用For循环 Input#1,a(i) ’逐个读取数据 str=str+CStr(a(i))+"" ’将数组写入字符串中 Next i Close#1 Textl.Text str’将字符串显示在Textl中 End Sub Private Sub Command2_Click() Dim tex As String For i=1 To num ’升序排列 temp=a(i) For j=1 To i If a(j)>temp Then ’读取的数据比原位置的数据大 For k=i To j+l Step-l a(k)=a(k-1) ’数据向后偏移一个 Next k a(j)=
temp
Exit For End If Next j Next i tex="" For i=1 To 40 tex=rex+CStr(a(i))+"" Next i Textl.Text=
tex
’在Textl中显示排序后的结果 Open"App.Path&\out5.txt"For 0utput As#2 Print#2,Textl.Text Close#1 End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/0Lmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面程序段的输出结果是()。classBase{inti;Base(){add(1);}voidadd(intV){i+=v;}Voidphnt()
定义一个表示10个值为null的字符串数组,下面选项正确的是()。
下列代码的执行结果是()。PublicclassTest{Publicstaticvoidmain(Stringargs[]){System.out.println(5/2);System.out.p
数据结构中,与所使用的计算机无关的是数据的()。
MouseEvent事件可以实现监听器接口的是MouseListener和【】。
下列不属于JComponent类的功能的是( )。
下列选项中不属于结构化程序设计方法的是( )。
两个或两个以上的模块之间关联的紧密程度称为( )。
创建一个10行40列的文本区域tal的正确语句是______。
下列关系运算中,能使经运算后得到的新关系中属性个数多于原来关系中属性个数的是
随机试题
介入治疗中应用DSA的优点不包括
激素不敏感型前列腺癌的标准化疗方案是
痰黄稠有块者为痰白滑,量多,易于咯出者
男,35岁,吸烟15年,出现右下肢麻木、发凉、间歇性跛行8年。患者初次就诊时,下列哪项措施最重要?
粉状乳化炸药的生产工艺包括油相制备、水相制备、乳化、喷雾制粉、装药包装等步骤,其生产工艺过程中存在着火灾爆炸的风险。下列关于粉状乳化炸药生产、存储和运输过程危险因素的说法中,正确的是()。
适宜布置在城市边缘或郊区的仓库类型有()。
其教学法被称作“产婆术”的教育家是()。
初三学生王某平时特剐贪玩,经常瞒着父母逃学,学习成绩很差。班主任薛老师采用罚站、罚抄作业等措施均无效果,最后建议学校开除王某,理由是王某的成绩可能会影响学校中考的升学率。学校采纳了班主任的建议,将王某开除学籍。问题:本案例中法律主体有哪些?
所谓关键期,是指个体发展过程中环境影响能起最大作用的时期。()
请编写一个函数voidfun(char*tt,intpp[]),统计在tt所指字符串中’’’a’’’到’’’z’’’26个小写字母各自出现的次数,并依次放在pp所指数组中。例如,当输入字符串:abcdefgabcdeabc后,程序的输出结果
最新回复
(
0
)