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

admin2009-03-26  26

问题 (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
0

随机试题
最新回复(0)