首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp,其功能如下: ①单击“读数据”命令按钮,把考生文件夹下in4.dat文件中已按升序排列的60个数读入数组A,并在Text1中显示: ②单击“输入”按钮,弹出一个输入对话框,接收用户输入的任意一个
在考生文件夹下有一个工程文件sjt4.vbp,其功能如下: ①单击“读数据”命令按钮,把考生文件夹下in4.dat文件中已按升序排列的60个数读入数组A,并在Text1中显示: ②单击“输入”按钮,弹出一个输入对话框,接收用户输入的任意一个
admin
2019-03-14
24
问题
在考生文件夹下有一个工程文件sjt4.vbp,其功能如下:
①单击“读数据”命令按钮,把考生文件夹下in4.dat文件中已按升序排列的60个数读入数组A,并在Text1中显示:
②单击“输入”按钮,弹出一个输入对话框,接收用户输入的任意一个整数;
③单击“插入”按钮,将输入的数插入到A数组中,使其仍能保持A数组从小到大排列,最后将A数组的内容重新在Text1中显示。
在窗体文件中已经给出了全部控件(如图所示)和程序。但程序不完整,要求去掉程序中的注释符,把程序中的“?”改为正确的内容,本程序只考虑插入一个整数的情况。
注意:不得修改已经存在的内容和控件属性,最后将修政后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码如下: Dim a(100)As Integer,num As Integer Prirate Sub Command1_Click() Dim k As Integer Open App.Path&"\in4.dat"For Input As #1 For k=1 To 60 Input #1,a(k) Text1=Text1+Str(a(k))+Space(2) NPxt k Close End Sub Private Sub Command2_Click() Bum=InputBox("请输入一个数") End Sub Private Sub Command3_Click() For i=1 To 60 ’If aura<a(i)Then? Next i ’For j=60 To i? ’a(j+1)= Next j ’?=mum Text1="" ’以下程序段将插入后的数组A重新显示在Text1中 ’For k=1 To? Text1=Text1+Str(a(k))+Space(2) Next k End Sub 参考答案: 第1个?处填入:Exit For 第2个?处填入:Step-1 第3个?处填入:a(j) 第4个?处填入:a(i) 第5个?处填入:61 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
根据题意通过文件操作和For循环语句,把考生文件夹下in4.dat文件中已按升序方式排列的60个数读人数组A,并运用“+”连接符将其显示在Text1中;在Command2_Click事件过程中InputBox函数弹出一个输入对话框,接收用户输入的任意一个整数,赋值给变量n。
在Command3_Click事件过程中,将输入的数与数组中的数值进行比较,把n插入到A数组中合适的位置,并通过For循环语句将插入后的数组A重新显示在Text1中,使其仍保持A数组的升序排列。
转载请注明原文地址:https://kaotiyun.com/show/3pFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列叙述中错误的是
对于语句DimVar1,Var2AsString*10,下列说法中正确的是
有三个关系R、S和T如下:由关系R和S通过运算得到关系T,则所使用的运算为( )。
对于某些控件,只要将其Style属性设置为1,则可以在该控件上使用Picture属性显示图片。以下不具备这一使用规则的控件是
在数据库系统中,用于对客观世界中复杂事物的结构及它们之间的联系进行描述的是
(1)在名称为。Form1的窗体上添加一个名称为Frame1、标题为“框架”的框架,在框架内添加两个名称分别为Option1、Option2的单选按钮,其标题分别为“第一项”、“第二项”。要求通过设置控件的属性将“第二项”初始值设置为被选中,框架为不可用。
在考生文件央下有一个工程文件sjt5.vbp,功能是用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a2+b2=c2。例如,3、4、5就是一个满足条件的整数组合(注意:a.b,c分别为4,3,5与分别为3,4,5被视为同一个组合,不应该重复计算)
(1)在名称为Form1、标题为“欢迎”的窗体上画1个名称为Label1的标签,其标题内容为“欢迎使用本系统”,标题文字字体和字号分别为“宋体”、“三号”,标签大小能根据标题内容自动调整,效果如图所示。程序执行时,窗体的最大化按钮不可用(如图所示),请设置
如果在列表框Listl中没有选中项目,则List1.Listlndex的值为
若要清除列表框控件中的所有列表项,应该使用的方法是
随机试题
案例分析题爱德华创造性的组织思想ABC公司是一家拥有30万名员工、116家分公司、年销售额高达480亿美元、业务遍布世界各地的跨国集团公司。这家公司经常性地将业务从一个国家转换到另一个国家,而它又试图使其
患者,男,28岁。行大腿深部弹片摘除术,为预防破伤风最常用的方法是注射
28岁,女性,月经量多1年,近10日经常鼻出血,脾肋下未及。血红蛋白90g/L,白细胞10×109/L,血小板30×109/L。骨髓检查:粒、红细胞系增生旺盛,巨核细胞增多,伴成熟障碍。应诊断为
社会因素作用的门户是
砂仁的药用部位是
血脂调节药的选用A、烟酸B、贝丁酸类C、鹅去氧胆酸D、胆酸螯合剂+贝丁酸类E、HMG-COA还原酶抑制剂治疗高胆固醇血症宜选用的药物是
下列()情况下,不得销毁会计档案。
上市公司的董事、监事、高级管理人员违背对公司的忠实义务,利用职务便利,操纵上市公司从事( ),致使上市公司利益遭受重大损失的,处3年以下有期徒刑或者拘役,并处或者单处罚金;致使上市公司利益遭受特别重大损失的,处3年以上7年以下有期徒刑,并处罚金
下列关于烟叶税的说法,正确的有()。
根据所给资料,回答下列问题。2015年4月,受理量高于2015年一季度平均水平的专利类型有几种?
最新回复
(
0
)