请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Forml的窗体上创建两个名称分别为Optionl和Option2,标签分别为“教授”和“研究员”的单选按钮,再建立一个名称为Labell的标签,实现如下功能

admin2010-07-13  18

问题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
  (1)在名称为Forml的窗体上创建两个名称分别为Optionl和Option2,标签分别为“教授”和“研究员”的单选按钮,再建立一个名称为Labell的标签,实现如下功能:当选中“教授”时,标签上显示“博士学位以上”,如果选中“研究员”,则标签上显示“硕士学位以上”,结果如图7—1所示。
    注意:存盘时必须存放在考生文件夹下,工程文件名为sj1.vbp,窗体文件名为sj1.frm。
    (2)在名称为Form1的窗体上画两个名称分别为Text1和Text2、内容都为空的文本框,再画一个命令按钮,其名称为Command1、标题为“判断”。编写适当的事件过程,要求程序运行后,如果在Text1中输入一个数,单击命令按钮Command1,判断输入的是否为偶数,如图7—2所示。要求:不得使用任何变量。

    注意:存盘时必须存放在考生文件夹下,工程文件名为sj2.vbp,窗体文件名为sj2.frm。

选项

答案(1)根据题意,新建“标准EXE”工程,在窗体上添加一个Label控件和两个Option控件,设置Labell的名称为Labell、Caption属性为空,Option的名称分别为Optionl和Option2、Caption属性分别为“教授”和“研究员”。设计完成后,进入代码窗口编写如下代码: Private Sub Form_Load() Optionl.Value=True ’初始化,使运行时Optionl为选择状态 Labell.Caption="博士学位以上" ’在Labell中显示"博士学位以上" End Sub Private Sub Optionl_Click() Labell.Caption="博士学位以上" End Sub Private SubOption2_Click() Label1.Caption="硕士学位以上" End Sub 单击[*]按钮运行程序,并按要求保存。 (2)根据题意.新建“标准EXE”工程,在窗体上添加两个Text控件和一个Command控件.Text的名称分别为Text1和Text2、Text属性均为空,Command的名称为Command1、Caption属性为“判断”。双击Commandl命令按钮,编写如下代码: Private Sub Commandl_Click() If Val(Text1.Text)Mod 2=0 Then Text2.Text="是偶数" Else Text2.Text="不是偶数" End If End Sub 单击[*]按钮运行程序,并按要求保存。

解析
转载请注明原文地址:https://jikaoti.com/ti/1Jg0FFFM
0

最新回复(0)