首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称为Textl、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为”取数”、”排序”、”存盘”。”取数”按钮的功能是把考生目录下的in5.dat文件中的5
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称为Textl、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为”取数”、”排序”、”存盘”。”取数”按钮的功能是把考生目录下的in5.dat文件中的5
admin
2013-10-18
30
问题
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称为Textl、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为”取数”、”排序”、”存盘”。”取数”按钮的功能是把考生目录下的in5.dat文件中的50个整数读到数组中,并在Textl中显示出来;”排序”按钮的功能是对这50个数按升序排序,并显示在Text2中;”存盘”按钮的功能是把排好序的50个数保存到考生目录下的out5.dat文件中。如图2-146所示。
在窗体中已经给出了全部控件和部分程序,要求阅读程序并去掉程序中的注释符,把程序中的?改为正确的内容,并编写”排序”按钮的Click事件过程,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的属性。最后把修改后的文件按原文件名存盘。
选项
答案
步骤1:打开考生文件中的本题工程文件sjt5.vbp,在代码编辑窗口的指定位置编写以下代码: 参考代码: Private Sub C1_Click( ) Dim k As Integer Dim ch As String Open App.Path&”\in5.dat”For Input As #1 ch=““ For k=1 To 50 Input#1,a%(k%) ch=ch+Str(a(k))+” “ Next k Close#1 Textl.Text=ch$ End Sub Private Sub C2 Click( ) Dim k As Integer,i As Integer,j As Integer Dim ch As String For i=1 To 4 9 k=i For j=i+1 To 50 If a(k)>a(j)Then k=j End If Next j j=a(k) a(k)=a(i) a(i)=j Next i ch=““ For k=1 To 50 ch=ch+Str(a(k))+” “ Next k Text2.Text=ch End Sub 步骤2:按要求将文件保存至考生文件夹中。 步骤3:按<F5>键运行程序,先单击”取数”按钮,再单击”排序”按钮,最后单击”存盘”按钮。
解析
转载请注明原文地址:https://kaotiyun.com/show/AHQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为Picturel的图片框控件,一个名称为Label1的标签控件,如下图所示。现有如下程序:PublicSubdisplay(xAsControl)IfTypeOfxIsLabe
下列关于栈的叙述正确的是()。
设有如下通用过程:PubficFunctionFun(xStrAsString)AsStringDimtStrAsString,strLAsIntegertstr=“”strL=Len(xStr)i=1DoWhilei
在设计窗体时双击窗体的任何地方,可以打开的窗口是
(1)在考生文件夹下有一个工程文件sj3.vbp,窗体上有一个单选按钮数组,名称为Optionl,含4个单选按钮,它们的Index属性分别为O、1、2和3,标题依次为“Iteml”、“Itera2”、“Item3”和“Item4”,再画一个名称为Textl
(1)在Forml的窗体上绘制一个图片框,其名称为Picturel。编写适当的事件过程,使程序运行后,若单击窗体,则从图片框的(300,600)位置处开始显示“VisualBasic’’。程序运行情况如图36—1所示。注意:程序中不得使用任何变
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个文本框,其名称为Textl,然后通过“属性”窗口设置窗体和文本框的属性,实现如下功能:在文本框中可以显示多行文本,显示水平和
软件测试方法中,黑盒测试法和白盒测试法是常用的方法,其中黑盒测试法主要是用于测试【】。
设有以下循环结构:Do循环体LoopWhile<条件>则以下叙述中错误的是______。
随机试题
道德
入侵检测的目的是()
下列国家中属于英美法系的是()
1.近些年来,用传统的纸笔写信的人越来越少,取而代之的是电子邮件。2.有人认为这种新的交流方式使人与人之间更加疏远了,但也有人认为正好相反。3.你对此的看法是……
患者男,59岁。咳嗽2个月,以干咳为主有午后低热。今天突然咯血500ml入院。止血措施首选
《关于加强农村宅基地管理的意见》(国土资发[2004]234号)规定,农村建设用地整理,要按照()的原则,按规划、有计划、循序渐进、积极稳妥地推进。
下列属于历史文化名城类型的有()。
要约以信件形式做出的,未载明日期的承诺期限自该信件的()开始计算。
遗传学对研究地球上的生命起源、医学、农业动植物和微生物育种,以至人类学和社会学等方面都有重要的指导意义。它是在动植物育种的基础上发展起来的,必然又可以回过来指导动植物育种的实践。抗菌素工业的兴起促进了微生物遗传学的发展,微生物遗传学的发展又推动抗菌素工业及
什么是产业内贸易?如何测度产业内贸易?[东北财经大学2011国际商务硕士;中国人民大学2012国际商务硕士]
最新回复
(
0
)