首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
1. 在考生文件夹下有一个工程文件sjt3.vbp,请在窗体上画两个框架,其名称分别为F1和 F2,标题分别为“交通工具”和“到达目标”。在F1中画两个单选按钮,名称分别为Op1和 Op2,标题分别为“飞机”和“火车”。在F2中画两个单选按钮,名称分别为O
1. 在考生文件夹下有一个工程文件sjt3.vbp,请在窗体上画两个框架,其名称分别为F1和 F2,标题分别为“交通工具”和“到达目标”。在F1中画两个单选按钮,名称分别为Op1和 Op2,标题分别为“飞机”和“火车”。在F2中画两个单选按钮,名称分别为O
admin
2009-03-17
28
问题
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://kaotiyun.com/show/qk1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序的执行结果是()。publicclassTest{publicstaticvoidmain(Stringargs[]){bytey=4;long
下面程序的输出结果是()。publicclassSun{publicstaticvoidmain(Stringargs[]){intn=4,sum=0;
设有关系R及关系S,它们分别有p、q个元组,则关系R与S经笛卡儿积后所得新关系的元组个数是()。
下列叙述中正确的是()。
下列各项中不是JDBCAPI向JDBCDriverManager发出请求的内容的是()。
关系数据库管理系统能实现的专门关系运算包括()。
算法的空间复杂度是指算法执行过程中所需要的【】。
在深度为5的完全二叉树中,度为2的结点数最多为【】。
某二叉树有5个度为2的结点,则该二叉树中的叶子结点数是()。
在深度为7的满二叉树中,非叶子结点的个数为()。
随机试题
导游员在接送旅游者时的沿途讲解宜采用()形式。
哪些肾实质疾病或因素可导致急性肾衰竭?
下列各项中,含有当归、生地黄的方剂有
患者,女性,15岁,学生。受凉后出现鼻塞、流涕、头晕、头痛伴发热。体温38℃。其他同学无相似症状。血常规检查示:WBC3.0×109/L,N70%,L30%。可能的诊断是
为防止矿井火灾势态扩大而需要封闭火区时,对火区封闭的要求,不正确的是()
甲公司按照年度实现净利润的10%提取法定盈余公积,2×17年1月1日,甲公司股东权益总额为20000万元,其中普通股股本10000万元(10000万股),资本公积5000万元,盈余公积3000万元,未分配利润2000万元。2×17年5月6日甲公司实施完毕股
根据企业所得税法律制度的规定,下列选项中,属于长期待摊费用的有()。
我们中华民族有悠久的历史和优秀的文化传统,有丰富的文化遗产。中国文化是世界上最古老的文化之一。___________,我们的文化不同于其他古代文化的一个特点是,几千年来它一直没有中断,我们丰硕的文化遗产___________可以丰富我国人民________
一个民族的法律意识属于以下哪一类法律意识()
Thediscountdo-it-yourselfstore,Aldi,hasseensomebig【T1】______recently.Whileotherbusinessesarecuttingback,Aldiis【T
最新回复
(
0
)