首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm。要求在窗体上画一个名为Commandl、标题为“写入文件”的命令按钮,要求当执行事件过程Commandl的click事件时,弹出一个输人对话框,输入完成后单击“确定”,则将输入的内容写入
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm。要求在窗体上画一个名为Commandl、标题为“写入文件”的命令按钮,要求当执行事件过程Commandl的click事件时,弹出一个输人对话框,输入完成后单击“确定”,则将输入的内容写入
admin
2009-03-26
32
问题
(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全国计算机二级
相关试题推荐
下面几种调试方法中不适合调试大规模程序的是()。
在Applet中,创建一个具有16行40列的多行文本区域对象ta的语句为【】。
阅读下面代码:importjava.awt.*;publicclassExam11_1{privateFramef;privateButtonbl,b2,b3,b4;publicsta
源程序文档化要求程序应加注释。注释一般分为序言性注释和【】。
在面向对象方法中,类之间共享属性和操作的机制称为【】。
给出下面的代码段,下面的哪些陈述为真?()publicvoidcreate(){VectormyVect;myVect=newVector();}Ⅰ:第2行的声明不
下面程序的输出结果是()。publicclassSun{publicstaticvoidmain(Stringargs[]){inti=9;switc
下列安全控制命令中,属于现实证书缓存区和密钥表项命令的是()。
能够支持javadoc命令的注释语句是()。
随机试题
药物从微球中的释放机制一般为
A.血清胆红素<34.2μmol/L,白蛋白>35g/L,无腹腔积液,无肝性脑病,营养情况优B.血清胆红素34.2~51.3μmol/L,白蛋白30~35g/L,腹腔积液易控制,无肝性脑病,营养情况良C.血清胆红素>51.3μmol/L,白蛋白<30g
从投资项目决策分析与评价和市场分析的角度出发,市场调查的主要内容包括()
()是通过各个相关领域的协作,对所研究对象的功能与费用进行系统分析,不断创新,旨在提高所研究对象价值的思想方法和管理技术。
各级预算由本级政府组织执行,具体工作由本级政府财政部门负责。()
资本资产定价模型主要应用于()。
注意的两个明显特点是()。
上层建筑反作用于经济基础的性质,归根剑底取决于:
下面代码的输出结果是x=10y=4print(x/y,x//y)
I’msuretheletterwon’tarriveintime______itissentbyair.
最新回复
(
0
)