首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面出现的“考生文件夹”均为c:\wexam\25160001。 在考生文件夹中有工程文件sjt5.vbp及其窗体文件sjt5.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号)但不能修改其他部分。存盘时不得改变
下面出现的“考生文件夹”均为c:\wexam\25160001。 在考生文件夹中有工程文件sjt5.vbp及其窗体文件sjt5.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号)但不能修改其他部分。存盘时不得改变
admin
2009-02-25
23
问题
下面出现的“考生文件夹”均为c:\wexam\25160001。
在考生文件夹中有工程文件sjt5.vbp及其窗体文件sjt5.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号)但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下:
在名称为Form1的窗体上有一个文本框,名称为Text1,MultiLine属性为True,ScrollBars属性为2;两个命令按钮,名称分别为Cmd1和Cmd2,标题分别为“读入数据”和“计算保存”,如图8-5所示。要求程序运行后,如果单击“读入数据”按钮,则读入“in.txt”文件中的100个整数,放入一个数组中(数组下界为1),同时在文本框中显示出来;如果单击“计算保存”按钮,则计算小于或等于700的所有数之和,并把求得的结果在文本框Text1中显示出来,同时把该结果存入考生文件夹中的文件“out.txt”中。 (在考生文件夹下的标准模块mode.bas中的putdata过程可以把结果存入指定的文件)
注意:文件必须存放在考生文件夹下,窗体文件名为 sjt5.frm,工程文件名为sjt5.vbp,计算结果存入out.txt文件,否则没有成绩。
选项
答案
在窗体上建立好控件后,先设置控件属性,再编写事件过程。 文本框显示的内容由Text属性设置,Multiline属性决定文本框是否可多行显示;按钮的标题由Caption属性设置,单击命令按钮触发Click事件。题中涉及到文件的操作,读入顺序文件以顺序的方式打开,用Input#语句读取数据,另外需要注意的是对文件操作完后,一定要关闭文件。 解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表8-4。 [*] 第二步:编写程序代码。 程序提供的代码。 mode.bas代码: Option Explicit Sub putdata(t_FileName As String, t_Str As Variant) Dim sFile As String sFile = "\" & t FileName Open App.Path & sFile For Output As #1 Print #1, t Str Close #1 End Sub 窗体代码: Option Explicit ’Dim ?(1 To 100) Dim i As Integer Dim n As Integer Dim f As Integer Dim s As Long Private Sub Cmd1 Click() Open App.Path & "\in.txt" For Input As #1 For i = 1 To 100 Input #1, n ’ a(i) = ? Text1.Text = Text1.Text & a(i) &"" Next i Close #1 End Sub Private Sub Cmd2 Click() For i = 1 To 100 If a(i) <= 700 Then s = s + a(i) Next i Call putdata("out.txt", s) ’Text1.? = s End Sub 参考代码: Option Explicit Dim a(1 To 100) Dim i As Integer Dim n As Integer Dim f As Integer Dim s As Long Private Sub Cmd1 Click() Open App.Path& "\in.txt" For Input As #1 For i = 1 To 100 Input #1, n a(i) = n Textl.Text = Textl.Text & a(i) &"" Next i Close #1 End Sub Private Sub Cmd2 Click() For i = 1 To 100 If a(i) <= 700 Then s = s + a(i) Next i Call putdata("out.txt", s) Textl.Text = s End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/sQ1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列语句byteb=011;System.out.println(b);输出结果为()
下面哪个选项正确示例了传递一个参数给applet?()
下列关于线性表叙述中不正确的是()。
数据库系统中实现各种数据管理功能的核心软件称为【】。
下列命令中用于激活系统守候进程以便能够在Java虚拟机上注册和激活对象的是()。
下列叙述中正确的是()。
6.【】是Java程序中基本的结构单位。
下列关于Java对import语句规定的叙述中,错误的是
一棵二叉树第六层(根结点为第一层)的结点数最多为【】个。
()是程序中一个能逻辑地分开的部分,也就是离散的程序单位。
随机试题
已知某地区2004年男性6~50周岁的人口为25万人,女性6~45周岁的人口为20万人;相应的特殊死亡率,男性为5‰,女性4‰;丧失劳动能力系数为2‰。据此预测2014年劳动力资源总体规模将会达到什么程度?
婚姻家庭法的调整对象,按其性质可以分为人身关系和()
阴阳偏衰的治疗原则是
A.相须B.相使C.相畏D.相杀E.相恶
A、克拉霉素B、青霉素C、庆大霉素D、两性霉素BE、氯霉素烧伤引起铜绿假单胞菌感染时最好选用
工程设计概算是确定标底和报价的依据,也是签订工程合同和实行工程项目投资大包干的依据,因此,设计概算的编制内容及步骤极为重要,下列各项不属于编制步骤的是()。
下列关于个人所得税专项附加扣除的表述,不正确的是()。
投资者购买()理财计划承担的风险最大。
根据所给资料,回答下列问题。 1979年全国普通高校毕业生人数为8.5万人,1980年为14.7万人,2001年为114万人,2002年为145万人,2010年较上一年同比增长3.4%,2018年首次突破了800万人,2019年预计达到834万人,毕业生
ChangesinthesizeoftheWorldBank’soperationsreferto
最新回复
(
0
)