首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
1. 在考生文件夹下有一个工程文件sjt3.vbp,请在窗体上画两个框架,其名称分别为F1和 F2,标题分别为“交通工具”和“到达目标”。在F1中画两个单选按钮,名称分别为Op1和 Op2,标题分别为“飞机”和“火车”。在F2中画两个单选按钮,名称分别为O
1. 在考生文件夹下有一个工程文件sjt3.vbp,请在窗体上画两个框架,其名称分别为F1和 F2,标题分别为“交通工具”和“到达目标”。在F1中画两个单选按钮,名称分别为Op1和 Op2,标题分别为“飞机”和“火车”。在F2中画两个单选按钮,名称分别为O
admin
2009-03-17
36
问题
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://jikaoti.com/ti/4dq0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为了使模块尽可能独立,要求()。
类名与接口名都采用【】描述符,并且所有单词的第1个字母大写。
执行下面的程序段后,变量k的值为()。intk=3,s[2];s[0]=k;k=s[1]*10;
定义Strings=null,会出现异常的选项是()。Ⅰ:if((s!=mll)&(s.length()>0))Ⅱ:if((s!=mull)&&(s.length()>0))Ⅲ:if((s==null)|
下列关于线性表叙述不正确的是()。
面向对象程序设计有许多特性,下列选项中用来尽可能隐蔽对象的内部细节的是()。
下列各项中不是JDBCAPI向JDBCDriverManager发出请求的内容的是()。
关于J2SDK的基本命令,下列叙述正确的是______。
线性表若采用链式存储结构时,要求内存中可用存储单元的地址()
实体是信息世界中广泛使用的一个术语,它用于表示()
随机试题
激励有助于增强企业的凝聚力。()
毒物的物理性质对毒性有影响,下列哪一个不对?()
临床教师引进新的方法评价学生的个人能力,这时教师的角色是【】
凡出乎口而為聲者,()!
给予行政机关公务员处分,应当自批准立案之日起______作出决定;案情复杂或者遇有其他特殊情形的,办案期限可以延长,但是最长不得超过12个月。
设f(x)具有二阶导数,试确定f(x),使曲线积分∫C[e-x-2f(x)-f(x)]ydx+f’(x)dy与积分路径无关.
尿液外观呈白色浑浊,加热后浑浊消失见于
引起甲状旁腺功能亢进症最常见的病因是
“一个有效顾客要求陈述”应当()。[2007年真题]
北京的北中轴线又名()
最新回复
(
0
)