有一个工程文件ylc6.vbp,窗体上已经有两个文本框,名称分别为Text1、Text2。在窗体上创建一个命令按钮,名称为Command1,标题为“确定”。画两个单选按钮,分别为“王老师”、“林老师”;再画两个复选框,名称分别为Check1、Check2,

admin2009-03-17  34

问题 有一个工程文件ylc6.vbp,窗体上已经有两个文本框,名称分别为Text1、Text2。在窗体上创建一个命令按钮,名称为Command1,标题为“确定”。画两个单选按钮,分别为“王老师”、“林老师”;再画两个复选框,名称分别为Check1、Check2,标题分别为“语文”、“数学”。编写适当的事件过程,使得在运行时,单击“确定”按钮后实现下面的要求。
   根据选中的单选按钮,在Text1中显示“我是王老师”或“我是林老师”。
   根据选中的复选框,在Text2中显示“我教语文”、“我教数学”、“我教语文数学”,如图 24所示。
   注意:存盘时必须存放在考生文件夹下,工程文件名为ylc6.vbp,窗体文件名为ylc6.frm。

选项

答案1.操作步骤 (1)在Visual Basic集成环境选择“文件”→“打开工程”命令:在对话框中选择ylc6.vbp工程文件,单击“确定”按钮打开。 (2)在工具箱中选择OptionButton,在窗体上创建两个单选按钮命名为Option1和 Option2。在属性窗口中分别设置按钮的标题为“王老师”和“林老师”。在同一个窗体上创建,因此只能二选一。 (3)在工具箱中选择CheckBox控件,在窗体上创建两个复选按钮,命名为Check1和Check2。在属性窗口中,设置标题为“语文”、“数学”。 (4)根据题目要求,创建命令按钮命名为Command1,在属性窗口设置其标题为“确定”。 2.行为编码 在代码窗口设置选择Command1和Click事件代码,其行为代码如下: Private Sub Command1_C1ick() If option1. Value Then Text1.Text="我是"& Optionl.Caption Else Text1.Text="我是" & Option2.Caption End If If(Check1.Value And Check2.Value)Then Text2.Text="我教" & Check1.Caption & Check2. Caption ElseIf Check1.Value Then Text2.Text="我教" &Check1.Caption ElseIf Check2.Value Then Text2.Text="我教"& Check2.Caption Else Text2.Text=" " End If End Sub 3.存盘保存 执行“文件”→“保存工程”命令,工程文件名为ylc6.vbp,窗体文件名为ylc6.frm。

解析 (1)本题考查考生对单选按钮和复选按钮功能的使用,比较单选按钮和复选按钮的不同之处。(2)注意OptionButton控件、CheckBox控件的使用,命令按钮的行为编码以及字符串的连接操作。(3)该代码根据题目的要求,通过If语句判断当前单选按钮的Value属性的值和复选按钮属性的值。通过“&”连接字符串,并通过TextBox控件的Text属性显示。
转载请注明原文地址:https://kaotiyun.com/show/Bj1p777K
0

最新回复(0)