首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sj5.vbp,窗体上有一个文本框,名称为Textl,可以多行显示。还有三个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为“读取数据”、“显示并保存奇数”和“显示并保存偶数”。“读取数据”按
在考生文件夹下有一个工程文件sj5.vbp,窗体上有一个文本框,名称为Textl,可以多行显示。还有三个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为“读取数据”、“显示并保存奇数”和“显示并保存偶数”。“读取数据”按
admin
2009-03-26
27
问题
在考生文件夹下有一个工程文件sj5.vbp,窗体上有一个文本框,名称为Textl,可以多行显示。还有三个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为“读取数据”、“显示并保存奇数”和“显示并保存偶数”。“读取数据”按钮的功能是把考生文件夹下的in5.dat文件中的50个整数读到数组中,并在Textl中显示出来;“显示并保存奇数”和“显示并保存偶数”按钮的功能是把50个数按要求保存到考生文件夹下的out51.dat和out52.dat文件中。单击“读取数据”
命令按钮后,程序运行时的窗体界面如图52—5所示。
注意:在窗体中已经给出了全部控件和部分程序,要求阅读程序并去掉程序中的注释符“’”,把程序中的“?”改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的属性。最后把修改后的文件按原文件名存盘。
选项
答案
根据题意,将一个Text控件和3个Command控件添加到窗体上,Text的名称为Textl,Text属性为空、MuhiLIne属性为True,ScrollBar属性为2,Command的名称分别为Commandl、Command2和Command3、Caption属性分别为“读取数据”“显示并保存奇数”和“显示并保存偶数”。双击Commandl命令按钮,编写如下代码: Dim a(50)As Integer Private Sub Commandl_Click() Dim i As Integer Dim str As String str="" Open"App.Path&\in5.dat"For Input As#l For i=1 To 50’利用For循环将数据读取到数组中 Input#1,a(i) str=str+CStr(a(i))+"" ’将数组放到字符串中 Next i Close#1 Textl.
Text
=str’将结果显示在Textl上 End Sub Private Sub Command2 Click() Dim i As Integer Dim str As String str="" For i=1 To 50 If a(i)Mod 2
=
1 Then str=str+CStr(a(i))+" End If Next i Textl.Text=str Open"App.Path&\out51.dat"For Output As#1 Print#1,str Close#1 End Sub Private Sub Command3_Click() Dim i As Integer Dim str As String str="" For i=1 To 50’利用For循环遍历数组 If a(i)Mod 2=
0
Then’如果是偶数 str=str+CStr(a(i))+"" ’则加入到字符串中 End If Next i Textl.Text=str’将得到的字符串显示在Textl上 Open"App.Path&\out52.dat"For Output As#1’打开文件准备写入 Print#1,str’将结果写入文件中 Close#1 End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/sN1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
Runnable接口中包括的抽象方法是()。
数据库设计的根本目标是要解决()。
通过参数定制Applet,请在下划线处编写适当语句工【】,使程序能正确运行。para_duke.html<HTML><HEAD><TITLE>ASimpleProgram</TITLE></HEAD>
有如下代码段,请填写完整所缺的部分。importjava.util.Vector;importjava.io.*;publicclassTestSer{publicstaticvoidmain(
JavaApplet不能直接运行,必须编写【】文件,将Applet嵌入其中。
设有n元关系R及m元关系S,则关系R与S经笛卡儿积后所得新关系是一个()元关系。
在关系运算中, 【】 运算是对两个具有公共属性的关系所进行的运算。
若有以下定义inta[]={1,2,3,4,5,6,7};charc1=’b’,c2=’2’;则数值不为2的表达式是()。
关于文件名的处理中,测试当前文件是否目录用【】函数。
随机试题
下列哪项不是产生水肿的因素
伪像产生的原因很多,错误的是
营养不良患儿皮下脂肪减少,首先累及的部位是()
驱虫剂的适宜服法是
《水利工程建设安全生产管理规定》规定,()等特种作业人员,必须按照国家有关规定经过专门的安全作业培训,并取得特种作业操作资格证书后,方可上岗作业。
主要用于收集处于某一时点状态上的社会经济现象的基本全貌,为国家制定有关政策提供依据的统计调查方式是()。
下列情形可能发生的是()。
“蜀南四绝”是指蜀南竹海、石海洞乡、焚人悬棺、真武山古庙群。()
【英荷战争】(Anglo—Dutchwars)
Tea-takingisavery【B1】______customandvery【B2】______thing.Locatedin【B3】______London,theRitzhotelisespeciallywellkno
最新回复
(
0
)