第 1 页:选择题 |
第 5 页:基本操作 |
第 6 页:简单应用题 |
第 7 页:综合应用题 |
二、基本操作题
41
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上创建两个名称分别为Option1和Option2,标签分别为"教授"和"研究员"的单选按钮,再建立一个名称为Label1的标签,实现如下功能:
当选中"教授"时,标签上显示"博士学位以上",如果选中"研究员",则标签上显示"硕士学位以上",结果如图1-1所示。
图1-1
注意:存盘时必须存放在考生文件夹下,工程文件名为sj1.vbp,窗体文件名为sj1.frm。
(2)在名称为Form1的窗体上画两个名称分别为Text1和Text2、内容都为空的文本框,再画一个命令按钮,其名称为Command1,标题为"判断",编写适当的事件过程。要求程序运行后,如果在Text1中输入一个数,单击命令按钮Command1,判断输入的是否为偶数,如图1-2所示。要求:不得使用任何变量。
图1-2
注意:存盘时必须存放在考生文件夹下,工程文件名为sj2.vbp,窗体文件名为sj2.frm。
参考答案:请参考解析 系统解析:(1)根据题意,新建"标准EXE"工程,在窗体上添加一个Label控件和两个Option控件,设置Label1的名称为Label1、Caption属性为空,Option的名称分别为Option1和Option2、Caption属性分别为"教授"和"研究员"。设计完成后,进入代码窗口编写如下代码:
Private Sub Form_Load()
Option1.Value = True '初始化,使运行时Option1为选择状态
Label1.Caption = "博士学位以上" '在Label1中显示"博士学位以上"
End Sub
Private Sub Option1_Click()
Label1.Caption = "博士学位以上"
End Sub
Private Sub Option2_Click()
Label1.Caption = "硕士学位以上"
End Sub
单击
按钮运行程序,并按要求保存。
(2)根据题意,新建"标准EXE"工程,在窗体上添加两个Text控件和一个Command控件,Text的名称分别为Text1和Text2、Text属性均为空,Command的名称为Command1、Caption属性为"判断"。双击Command1命令按钮,编写如下代码:
Private Sub Command1_Click()
If Val(Text1.Text) Mod 2 = 0 Then
Text2.Text = "是偶数"
Else
Text2.Text = "不是偶数"
End If
End Sub
单击
按钮运行程序,并按要求保存。
相关推荐:
北京 | 天津 | 上海 | 江苏 | 山东 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
广东 | 河北 | 湖南 | 广西 | 河南 |
海南 | 湖北 | 四川 | 重庆 | 云南 |
贵州 | 西藏 | 新疆 | 陕西 | 山西 |
宁夏 | 甘肃 | 青海 | 辽宁 | 吉林 |
黑龙江 | 内蒙古 |