(1)在名为Form1的窗体上绘制一个名为Lab1的标签,其标题为空白,BorderStyle 属性为1,Visible属性为False;一个名为Txt1的文本框,其Text属性为空白;一个名为Cmd1 的命令按钮,其标题为“显示”。编写命令按钮Click事件过程,使得程序运行后,在文本 框中输入“计算机VB等级考试”,然后单击命令按钮,则文本框消失,并在标签内显示文 本框中的内容。运行后的窗体如图57-1所示。
图 57-1
注意:程序中不得使用任何变量;文件必须存放在考生文件夹中,工程文件名为vbsj1.vbp,窗体文件名为vbsj1.frm。
(2)在名为Form1的窗体上建立一个名为Opt1的单选按钮数组,含3个单选按钮,它们的标题依次为“A选项”、“B选项”和“C选项”,其下标分别为0、1、2。初始状态下,“C选项”为选中状态;再绘制一个文本框,名称为Txt1,内容为空白。编写适当的事件过程,使程序运行后,选中相应的单选按钮。则在文本框Txt1中显示该单选按钮的标题。
运行后的窗体如图57-2所示。
图 57-2
试题答案及详解
一、基本操作题
第 1 小题
【审题分析】要在程序运行时实现题目所要求的功能,只需在命令按钮 Click 事件过程中用代码设置文本框的 Visible 属性值为 False,将文本中的内容赋值给标签的Caption属性,设置标签的 Visible 属性值为 True。
【操作步骤】
步骤 1:新建一个"标准 EXE"工程,按表 57-1 在窗体中画出控件并设置其相关属性。
步骤 2:打开代码编辑窗口,编写命令按钮的 Click 事件过程。
参考代码:
Private Sub Cmd1_Click()
Txt1.Visible = False
Lab1.Caption = Txt1.Text
Lab1.Visible = True
End Sub
步骤 3:按要求将文件保存至考生文件夹中。
第 2 小题
【审题分析】要在程序运行时实现题目所要求的功能,需在单选按钮数组的 Click 事件过程中,将当前选中单选按钮(索引号为参数 Index)的标题显示在文本框中。
【操作步骤】
步骤 1:新建一个"标准 EXE"工程,在窗体中画出一个文本框,并用"复制"和"粘贴"方法画出一个包含 3 个元素的单选按钮数组,按表 57-2 设置其相关属性。
步骤 2:打开代码编辑窗口,编写命令按钮的 Click 事件过程。
参考代码:
Private Sub Opt1_Click(Index As Integer)
Txt1.Text = Opt1(Index).Caption
End Sub
步骤 3:按要求将文件保存至考生文件夹中。