2. 计算机
  3. 1. 在考生文件夹下有一个工程文件sjt3.vbp，请在窗体上画两个框架，其名称分别为F1和 F2，标题分别为“交通工具”和“到达目标”。在F1中画两个单选按钮，名称分别为Op1和 Op2，标题分别为“飞机”和“火车”。在F2中画两个单选按钮，名称分别为O

1. 在考生文件夹下有一个工程文件sjt3.vbp，请在窗体上画两个框架，其名称分别为F1和 F2，标题分别为“交通工具”和“到达目标”。在F1中画两个单选按钮，名称分别为Op1和 Op2，标题分别为“飞机”和“火车”。在F2中画两个单选按钮，名称分别为O

admin2009-03-17  76
问题 1. 在考生文件夹下有一个工程文件sjt3.vbp，请在窗体上画两个框架，其名称分别为F1和 F2，标题分别为“交通工具”和“到达目标”。在F1中画两个单选按钮，名称分别为Op1和 Op2，标题分别为“飞机”和“火车”。在F2中画两个单选按钮，名称分别为Op3和Op4，标题分别为“广州”和“昆明”。然后画一个命令按钮，其名称为C1，标题为“确定”。再画一个文本框，其名称为Text1。编写适当事件过程。程序运行后，选择不同单选按钮时产生的显示结果见下表1。

存盘时，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。
2．在窗体上画2个单选按钮(名称分别为Op1和Op2，标题分别为“加法”和“乘法”)、3个文本框(名称分别为Text1、Text2、Text3，高度和宽度均为400和1500)和1个命令按钮(名称为C1，标题为“汁算”，高度为400，宽度为1000)，如图2—1所示，编写适当的事件过程。程序运行后，在text1和Text2中分别输入12和22两个整数，并选择一个单选按钮，单击“计算”按钮后，可根据所选择的单选按钮进行加法或乘法运算，并把结果在Text3中显示出来，同时把加法结果存入文件out4—3—1.txt中，乘法结果存入文件out4—3—2.txt中。程序的运行情况如图2—2所示。

存盘时，工程文件名为sit4.vbp，窗体文件名为sit4.frm。
在考生文件夹中有一个标准模块m1.bas，该模块中提供了保存文件的过程putdata1和 putdata2，可用来把加法结果和乘法结果分别存入文件out4—3—1.txt和out4—3—2.txt中，考生可以直接装入该标准模块，然后调用putdata1和putdata2过程保存文件。两个过程的代码如下：
    Sub putdata1(x As Integer)
       Open".\out4—3—1.txt"For Output As #1
       Print #1,x
       Close #1
   End Sub
   Sub putdata2(x As Integer)
       Open".\out4—3—2.txt"For Output As #1
       Print #1,x
       Close #1
   End Sub
选项
答案① 打开题目提供的工程文件，建立控件和设置控件属性。 程序中用到的控件如下表3所示 [*] 　　② 编写程序代码 题目提供的程序代码： 　　Private Sub Form Unload(Cancel As Integer) 　　　　Open"out.txt"For Output As #1 　　　　Print #1,Op1.Value,Op2.Value, 　　　　Op3. Value, Op4. Value, Text1. 　　　　Text 　　　　Close #1 　　End Sub 　　参考代码： 　　Private Sub C1_Click() 　　　 Dim str1 As String 　　　 Dim str2 As String 　　　 If Op1 Then 　　　　　 str1=Op1.Caption 　　　 Else 　　　　　 str1＝Op2.Caption 　　　 End If 　　　 If Op3 Then 　　　　　 str2=Op3.Caption 　　　 Else 　　　　　 str2=Op4.Caption 　　　 End If 　　　 Text1.Text＝"坐" & str1 & "去" & 　　　 str2 　　End Sub 　　③ 按题目要求存盘并进行相应的操作。 2．按以下步骤操作： 　　① 启动Visual Basic，在窗体上面3个文本框、2个单选按扭和1个命令按钮。 　　② 按F4键激活属性窗口，在属性窗口中设置各控件的属性，见表4。 [*] ③ 执行“工程”菜单中的“添加文件”命令(或按Ctrl+D)，打开“添加文件”对话框，在当前目录下找到m1.bas，把它添加到当前工程中。该模块中 putdata过程的代码如下： Sub putdata1(x As Integer) Open"0\out4—3—1.txt"For Output As #1 Print #1,x Close #1 End Sub Sub putdata2(x As Integer) Open".\out4—3—2.txt"For Output As #1 Print #1,x Close #1 End Sub 两个过程的操作基本相同，只是输出的文件名不一样。 ④ 编写命令按钮的Click事件过程： Private Sub C1_Click() Dim a As Integer,b As Integer a＝Text1.Text b＝Text2.Text If Op1.Value=True Then Text3.Text＝a+b putdata1 Text3.Text Else Text3.Text=a*b putdata2 Text3.Text End If End Sub
解析
转载请注明原文地址:https://www.kaotiyun.com/show/qk1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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