首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sj5.vbp,窗体上有一个文本框,名称为Textl,可以多行显示。还有三个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为“读取数据”、“显示并保存奇数”和“显示并保存偶数”。“读取数据”按
在考生文件夹下有一个工程文件sj5.vbp,窗体上有一个文本框,名称为Textl,可以多行显示。还有三个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为“读取数据”、“显示并保存奇数”和“显示并保存偶数”。“读取数据”按
admin
2009-03-26
73
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
Java源文件中最多只能有一个【】类,其他类的个数不限。
Runnable接口中包括的抽象方法是()。
线程的【】方法只会使具有与当前线程相同优先级的线程有运行的机会。
能够支持javadoc命令的注释语句是()。
执行下面的程序段后,x的值为()。publicclassSun{publicstaticvoidmain(Stringargs[]){intx=5;for(int
数据结构中,与所使用的计算机无关的是数据的()
在编写JavaApplication程序时,若需要使用到标准输入输出语句,则必须在程序的开头写上______语句。()
Applet的运行过程要经历4个步骤,其中______不是运行步骤。
下列常见的系统定义中的异常中,______是数组越界异常。
下面这个程序段的时间复杂度是()。for(i=1;i<n;i++){y=y+1;for(j=0;3<-(2*n);j++)x++;}
随机试题
心脏骤停初期最常见的心律失常是
患者,男性,白血病需要进行化疗,为预防其不良反应,下列哪项护理措施不妥
下列工程管理文件中,属于施工成本计划编制依据的有()。
某汽车集团是一个有20年历史的国有大型企业,主要生产轿车和轻型汽车。该集团由总经理直接领导,下设多个职能部门,如总经理办公室、人力资源部、财务部、生产管理部、企划信息部。另外,还有自己的投资室、审计室和战略研究所。集团下属工厂除了总装厂外,还有配套
根据《刑事诉讼法》的规定,人民检察院依法对公安机关侦查终结移送起诉的案件进行审查,审查的主要内容包括()等。
加利福尼亚的消费者在寻求个人贷款时可借助的银行比美国其他州少,银行间竞争的缺乏解释了为什么加利福尼亚的个人贷款利率高于美国其他地区。以下哪项如果为真,最能削弱上述结论?
为了整治超速,交警采用了一套系统。在某一路段,系统会自动记录车辆进入和离开的时间,从而判断该车辆是否超速。这种方法是计算车辆的()。
Languageisthemostastonishingbehaviorintheanimalkingdom.Itisthespecies-typicalbehaviorthatsetshumanscompletely【
Gracetakestheblame,coverstheshame,removesthestigma...shemakesbeautyoutofuglythings.
Childpsychologists—andkindergartenteachers—havelongknownthatwhenchildrenfirstshowupforschool,someofthemspeaka
最新回复
(
0
)