2. 计算机
  3. (1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm。要求在窗体上画一个名为Commandl、标题为“写入文件”的命令按钮，要求当执行事件过程Commandl的click事件时，弹出一个输人对话框，输入完成后单击“确定”，则将输入的内容写入

(1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm。要求在窗体上画一个名为Commandl、标题为“写入文件”的命令按钮，要求当执行事件过程Commandl的click事件时，弹出一个输人对话框，输入完成后单击“确定”，则将输入的内容写入

admin2009-03-26  24
问题 (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://jikaoti.com/ti/XLq0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)