首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件ylc.vbp。在标题为“数组转换窗口”的窗体上创建两个命令按钮,名字分别为Command1和Command2,标题分别为“数据导入”和“数据存盘”。单击“数据导入”按钮后,应用对话框连续输入12个整数,并放入数组Array中。
在考生文件夹下有一个工程文件ylc.vbp。在标题为“数组转换窗口”的窗体上创建两个命令按钮,名字分别为Command1和Command2,标题分别为“数据导入”和“数据存盘”。单击“数据导入”按钮后,应用对话框连续输入12个整数,并放入数组Array中。
admin
2009-03-17
26
问题
在考生文件夹下有一个工程文件ylc.vbp。在标题为“数组转换窗口”的窗体上创建两个命令按钮,名字分别为Command1和Command2,标题分别为“数据导入”和“数据存盘”。单击“数据导入”按钮后,应用对话框连续输入12个整数,并放入数组Array中。单击“数据存盘”,将该数组的前6个元素与后6个元素互换;即第1个与第12个,第2个与第11个元素互换,依此类推。最后互换前后的数组输出到考生文件夹下的data.txt文件中。程序运行界面如图31所示。要求实现题目给出的功能,并将文件保存在考生文件夹下,工程文件名为ylc.Vbp。
选项
答案
(1)Visual Basic集成环境中,执行“文件”→“打开工程”命令,选择ylc.vbp文件打开。 (2)在工具箱中选择单选按钮控件,在窗体上创建两个命令按钮,名字分别为Command1和Command2,标题分别为“数据导入”和“数据存盘”。 (3)双击“数据导入”按钮,弹出代码窗口,在其中添加如下代码: Dim Array1(1 To 12) As Integer Private Sub Command1_Click() For i=1 To 12 Array1(i)=InputBox("请输入数据") Next i End Sub (4)编写savedata过程,把文件中的数值读到指定的数组中保存事件。其代码如下; Sub SaveData(str As String) Open App.Path &"\"&"out.txt"For Output As #1 Print count Close #1 End Sub (5)双击“数据存盘”按钮,弹出代码窗口,在其中添加如下代码: Private Sub Command2_Click() Dim temp As String Dim m As Integer For i=1 To 6 temp=Array(i) Array1(i)=Array1(12-i+1) Array1(12-i+1)=temp Next i For i=1 To 12 m=m&" "& CStr(Array1(12-i+1)) Next i For i=1 To 12 m=m&" "&CStr(Array1(i)) Next i Call SaveData("data.txt",m) End Sub (6)按F5键运行程序。如图31所示。 (7)执行“文件”→“保存工程”命令,将工程文件命名为ylc.vbp,窗体文件命名为ylc.frm。
解析
本题主要考查了数组的操作和文件输出的实现。利用InputBox函数弹出对话框来输入数组元素,然后交换其中的数据。题中数组有12个元素,因此需要交换6次。
转载请注明原文地址:https://jikaoti.com/ti/Ydq0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列各项关于变量的描述中正确的是()。
以下内容属于存储在计算机内有结构的数据集合的是()。
下列语句段将输出字符’*’的个数为()。inti=100;while(1){i--;if(i==0)break;cout<<’*’;}
给定下面的代码:byte[]arrayl,array2[];bytearray3[][];byte[][]array4;如果上面的每一个数组都初始化了,以下各项语句中错误的是()。
在一个长度为n的线性表中插入一个元素,最坏情况下需要移动的数据元素数目为()。
能够支持javadoc命令的注释语句是()。
对于构造方法,下列叙述正确的是______。
【】是一个特殊的方法,是为对象初始化操作编写的方法,用它来定义对象的初始状态。
若某二叉树的前序遍历访问顺序是abdgcefh,中序遍历访问顺序是dgbaechf,则其后序遍历的结点访问顺序是()。
一棵二叉树第六层(根结点为第一层)的结点数最多为【】个。
随机试题
=_______.
中国政府于2013年11月23日发表声明,宣布划设()
A.包煎B.先煎C.另煎D.烊化E.后下
在软土地基处理技术中,砂是用得较多的材料,且对含泥量有一定要求,对砂中的含泥量要求最小的处理技术是()。
王先生以200万元在A市投资设立一家有限责任公司,由于公司业务扩大,需要大量流动资金,但公司无法从金融机构取得贷款。2016年7月1日起王先生通过住房抵押以个人名义按年利率6.5%向银行取得贷款500万元,贷款期限为半年,取得贷款后,王先生全部交予有限责任
(2001年考试真题)单位的工资、奖金等现金的支取可以通过一般存款账户办理。()
儒家经常告诫人,不要得意忘形,这是很难做到的。一个人发了财,有了地位,有了年龄,或者有了学问,自然气势就很高,得意就忘形了;所以人做到得意不忘形很难。但是以我的经验还发现另一面,有许多人是失意忘形;这种人可以在功名富贵的时候,修养蛮好,一到了没有功名富贵的
“十五”期间,电信业务增长速度为()。2005年,移动电话用户占全部电话用户的比重是()。
在(1)视图下,用户无法看到自己绘制的图形。Word2003新增的制表功能必须在(2)视图下才可使用。
Afirminperfectcompetitionshouldshutdownifit______.
最新回复
(
0
)