首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称分别为Text1、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5.dat文件中
考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称分别为Text1、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5.dat文件中
admin
2020-02-27
34
问题
考生文件夹下有一个工程文件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_Click() Dim k As Integer,ch As String Open”in5.dat”For Input As #1 ch=”” For k=1 To 50 Input#1,s(k)’将取出的数据存入数组a中 ch=ch+Str(a(k))+”“将数据存入ch Next k C10se #1 Text1.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 To 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:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/fWTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设窗体上有一个名称为Command1的命令按钮和一个名称为Timer1的计时器,并有下面程序代码:PrivateSubForm_Load()Timer1.Enabled=FalseTimer1.Interval=500E
在考生文件夹中有一个工程文件sjt5.vbp,如图6所示。运行程序时,从文件中读入矩阵数据并放入二维数组a中。单击“计算”按钮时,将统计矩阵两个对角线的元素中能被3整除的个数,统计结果显示在标签lblFirst中;同时计算矩阵主对角线的元素之和,计算结果显
命令按钮、单选按钮、复选框都可以通过Picture属性在控件上显示图片,但需事先设置某一属性,该属性为
在窗体上画一个名为Check1的复选框,如果在窗体启动事件中编写语句“Cheek1.Enabled=False”,则运行后复选框的状态为()。
将数据项"Student"添加到名称为List1的列表框中,并使其成为列表框第一项的语句为( )。
设工程中有2个窗体:Form1、Form2,Form1为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后,隐藏Form1,显示Form2。若口令为"Teacher
考生文件夹下有工程文件sjt5.vbp和数据文件in5.txt。in5.txt中有多条记录,每条记录占一行,含4个数据项,数据项的含义依次是:姓名、数学成绩、语文成绩、英语成绩。窗体上按钮“读取数据”的功能是把in5.txt中的所有记录读到数组a中(每个数
随机试题
人们关于行政组织系统的价值观念,以及该观念所相应要求的行政组织的行为模式是指()
最常伴发急性左心功能衰竭的疾病是
患者,男性,24岁。一周前出现右下后牙区肿痛不适,昨日起疼痛加剧,并出现张口受限。检查见:右面颊部稍肿胀,张口度二指,近中阻生,牙龈红肿,远中盲袋有少量脓液溢出,叩痛(一),其颊侧前庭沟黏膜充血,咽部检视不清。该患者的诊断是
患儿,男,1岁。咳嗽持续1个月,近3日突然高热,咳嗽频繁,痰多,患儿按时预防接种,3年前有结核接触史,查体:体温39℃,呼吸40次/分,面色苍白,心脏正常,右肺底闻及细小水泡音,肝肋下2cm质软,白细胞4.0×109/L,淋巴细胞65%,OT试验阴性。最可
计算机系统中,存储器系统包括()。
黎黎在网上看到自己喜欢的图片,想将其下载到自己的电脑里,以下哪种操作能正确的帮助其实现图片的下载?()
下列属于古代教育发展特点的是()。
A、 B、 C、 D、 E、 B
Nooneknowsexactlyhowmany【C1】______peoplethereareintheworld,butestimates【C2】______thefigureisover【C3】______.Then
Thewolfwasoncethe(widely)______distributedkindofmammalintheworld.
最新回复
(
0
)