首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称分别为Text1、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、 “排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5.dat文件
考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称分别为Text1、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、 “排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5.dat文件
admin
2015-06-30
47
问题
考生文件夹下有一个工程文件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, ? ch = ch + Str(a(k)) + " " Next k Close #1 ’ Text1.Text = ? 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 程序结束 参考答案 第1个?处填入:a(k) 第2个?处填入:ch "排序"按钮的代码 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 + Str(a(j)) + "" Next j Text2.Text = ch End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘
解析
转载请注明原文地址:https://kaotiyun.com/show/ntQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序段的执行结果为m=1n=1SelectCasemCase1SelectCasenCase0
下列数据结构中,按先进后出原则组织数据的是
要获得文件列表框中当前被选中的文件的文件名,则应使用哪个属性______。
在关系模型中,把数据看成一个二维表,每一个二维表称为一个______。
可以通过()的方法来输出一个二维数组中的各个元素。
栈和队列的共同点是()。
数据库系统阶段的数据具有较高独立性,数据独立性包括物理独立性和【】两个含义。
以下正确的叙述是______。SelectCasexCase1to10……EndSelect
设a=2,b=3,c=4,d=5,则表达式Nota<=cOr4*c=b^2Andba+c的值是
表达式(3/2+1)*(5/2+2)的值是
随机试题
SIEMENS系统数控机床操作面板有哪些基本形式?
有关长期制动对肌肉系统代谢的影响,错误的是
A、沙眼B、泡性结膜炎C、腺病毒性结膜炎D、春季卡他性结膜炎E、淋球菌性结膜炎患儿男性6天,经产道分娩,大量脓性分泌物3天,眼睑水肿,畏光,流泪,耳前淋巴结肿大和压痛,最可能的诊断为()
(2006)抗震设防烈度相同时,同一高度的下列各类多高层钢筋混凝土结构房屋中,如需设防震缝,缝宽最大的是()。
企业核心能力的选择方式有()。
对于工程建设业来说,以下标准不属于强制性标准的是( )。
综合实践活动课程在开发过程中,教师要引导学生立足地方自然环境特点,开发富有()的主题。
[*]
Themanisamysteryforhisneighbors.
Weallhopethatthevaluesthatareimportanttoeachofusarepassedalongtoourchildren.Often,however,thathopeis【B1】_
最新回复
(
0
)