首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm。要求在窗体上画一个名为Commandl、标题为“写入文件”的命令按钮,要求当执行事件过程Commandl的click事件时,弹出一个输人对话框,输入完成后单击“确定”,则将输入的内容写入
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm。要求在窗体上画一个名为Commandl、标题为“写入文件”的命令按钮,要求当执行事件过程Commandl的click事件时,弹出一个输人对话框,输入完成后单击“确定”,则将输入的内容写入
admin
2009-03-26
33
问题
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm。要求在窗体上画一个名为Commandl、标题为“写入文件”的命令按钮,要求当执行事件过程Commandl的click事件时,弹出一个输人对话框,输入完成后单击“确定”,则将输入的内容写入考生文件夹下的out3.txt文件中。程序代码是不完整的,请在有“?”的地方填人正确内容,然后删除“?”及代码前的所有注释符(即“’”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。程序运行时的窗体界面如图14—3所示。
注意:程序编写完毕,考生应执行一个操作,写入一组数据到out3.txt中。
(2)在考生文件夹下有工程文件sj4.vbp及窗体文件sj4.frm。打开该工程文件,在窗体上画两个文本框,名称分别为Textl和Text2:然后画三个标签,名称分别为Labell、Label2和Label3,其标题分别为两个空白和“=”;建立一个含有四个单选按钮的控件数组,名称为Optionl,标题分别为“+”“-”“*”和“/”,两个名称分别为Commandl、Command2、标题分别为“计算”、“清空”的命令按钮。程序运行后,在Textl、Text2中输入两个数值,选中一个单选按钮后,Labell上显示相应的运算符,单击“计算”命令按钮,相应的计算结果显示在Label3中;单击“清空”按钮,数据被清空。程序运行界面如图14—4所示。
注意:该程序代码窗口中的代码是不完整的,请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“’”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
选项
答案
(1)打开顺序文件的基本格式为:Open FileName For Mode As#FileNumber。FileName表示要打开的文件的路径;Mode为打开模式,OutPut用于输出、Append用于追加写入、Input用于读取;FileNumber为打开文件时指定的句柄。Input#语句用于读取打开的顺序文件中一项(或多项)内容给一个变量(或多个变量).Line Input#语句常用于按行读取。Close#语句用于戈闭打开的文件。使用Write语句写入数据,只是将数据写人内存中,并没有写到打开的文件中。只有使用Close语句结束这一语句后,数据才被写入文本文件中。 根据题意,将一个命令按钮添加到窗体中,其名称为Command1、Caption属性为“写人文件’’。双击Commandl进入代码窗口,编写如下代码: Private Sub Command1_Click() Dim str As String str=InputBox("请输入要保存的字符串:") ’输入对话框 Open”App.Path&\out3.txt"For
Append As#1
’打开文件准备顺序写入
Print
#1,str’写入输入对话框中的内容 Close#1’关闭文件 End Sub 单击[*]按钮运行程序,并按要求保存。 (2)本题主要考查控件及控件数组的画法、单选按钮的使用及Select Case多分支语句的用法。控件数组是一组具有共同名称和类型的控件,它们具有共同的事件,数组中的每个控件都有唯一的索引号(Index).即下标。添加控件数组的方法是:先通过工具箱建立第一个控件,然后对该控件进行“复制”“粘贴”操作,粘贴时在弹出的对话框中选择建立控件数组,这时控件数组的Index值会自动从0开始编号。单选按钮组常用于提供唯一选择,Value属性值决定每个单选按钮的选中状态:False为未选、True为选中。 根据题意,将一组4个单选按钮控件,2个命令按钮,2个文本框控件和3个标签添加到窗体中,单选按钮的名称都为Optionl,Caption分别为“+”“-”“*”和“\”,命令按钮的名称分别为Commandl和Command2,Caption属性分别为“计算”和“清空”,文本框的名称分别为Textl和Text2、Text属性都为空,标签的名称分别为Labell、Label2和t.abe 13.Caption属性分别为空、“=”和空。双击Commandl进入代码窗口,补充后的代码如下: Dim tmp As Integer Private Sub Commandl_Click() If tmp=0 Then Label3.
Caption
=
Val(Textl.Text)+Val(Text2.Text)
’加法运算 ElseIf tmp=1 Then Label3.
Caption
=
Val(Textl.Text)-Val(Text2.Text)
’减法运算 Elself tmp一2 Then Label3.
Caption
=
Val(Textl.Text)*Val(Text2.Text)
’乘法运算 Else Label3.Caption=
Val(Textl.Text)\Val(Text2.Text)
’除法运算 End If End Sub Private Sub Command2_Click() Textl.
Text=
"" Text2.
Text=
"" End Sub Private Sub Form_Load() Labell.
Caption
=Optionl.hem(0).
Caption
’显示“+”号 End Sub Private Sub Optionl_Click(Index As Integer) tmp=Index Labell.
Caption
=Opfionl.Item(tmp).
Caption
’显示当前符号 End Sub 单击[*]按钮运行程序。并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/BV1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列安全控制命令中,用于管理密钥库和证书的是()。
在JavaApplet程序用户自定义的Applet子类中,一般需要重载父类的()方法来完成主类实例的初始化工作。
下面的哪些程序段可能导致错误?()Ⅰ:Strings="Gonewiththewind";Stringt="good";Stringk=s+t;Ⅱ:Strings
下面几种调试方法中不适合调试大规模程序的是()。
在Applet中,创建一个具有16行40列的多行文本区域对象ta的语句为【】。
创建图形用户界面的步骤是先创建代表图形化用户界面容器,再添加需要的组件,创建需要的接口,然后创建【】,并建立它和所对应的接口组件之间的联系,使得接口可以接纳用户事件。
在面向对象方法中,类之间共享属性和操作的机制称为【】。
下列选项中,不属于JDK文件子文件夹的是()。
随机试题
通过签发提单可以创设原本不存在的权利,这说明提单是()
简述高层管理者在系统实施中的作用。
参苓白术散适宜治疗
某溺水游客,被救出水后,神志不清,呼吸停止,口唇发绀。需立即采取的处理措施是
公路工程招投标过程中,招标人和中标人应当自中标通知书发出之日起()日内订立书面公路工程施工合同。
下列各项中,需要对单位的财产进行全面清查的有()。
某煤矿企业为增值税一般纳税人,2018年12月发生下列业务:(1)开采原煤40000吨。(2)采用托收承付方式销售原煤480吨,每吨不含税售价为150元,货物已发出,托收手续已办妥,货款尚未收到。(3)销售洗煤60吨,每吨不含税售价为303元,款项已
关于仲裁协议的效力,下列说法中,正确的有()。
洛克主张通过家庭教育培养绅士。
Readthearticlebelowaboutcustomerrelationshipmanagement.ChoosethecorrectwordorphrasetofilleachgapfromA,B,Co
最新回复
(
0
)