问答题
请根据以下各题的要求设计Visual Basic应用程序(包括界面和代码)。
1．在窗体(名称为Form1)上画两个命令按钮，其名称分别为C1和C2，标题分别为“命令按钮1”和“命令按钮2”，编写适当的事件过程。程序运行后，“命令按钮2”隐藏，此时如果单击“命令按钮1”，则“命令按钮2”出现，“命令按钮1”隐藏；而如果单击“命令按钮2”，则“命令按钮1”出现，“命令按钮2”隐藏。程序的运行情况如图1—1所示。注意；存盘时，工程文件名为sjt1.vbp．窗体文件名为sjt1.frm。
2．在Form1的窗体上画一个命令按钮，其名称为C1，标题为“显示”；再画一个文本框，其名称为Text1，编写适当的事件过程。程序运行后，在窗体加载时使文本框不可见，如果双击窗体，则文本框出现；此时如果单击命令按钮，则在文本框中显示“等级考试”。程序运行情况如图1—2所示。
1．在窗体(名称为Form1)上画两个命令按钮，其名称分别为C1和C2，标题分别为“命令按钮1”和“命令按钮2”，编写适当的事件过程。程序运行后，“命令按钮2”隐藏，此时如果单击“命令按钮1”，则“命令按钮2”出现，“命令按钮1”隐藏；而如果单击“命令按钮2”，则“命令按钮1”出现，“命令按钮2”隐藏。程序的运行情况如图1—1所示。注意；存盘时，工程文件名为sjt1.vbp．窗体文件名为sjt1.frm。
2．在Form1的窗体上画一个命令按钮，其名称为C1，标题为“显示”；再画一个文本框，其名称为Text1，编写适当的事件过程。程序运行后，在窗体加载时使文本框不可见，如果双击窗体，则文本框出现；此时如果单击命令按钮，则在文本框中显示“等级考试”。程序运行情况如图1—2所示。
【正确答案】① 启动Visual Basic，在窗体上画两个命令按钮。
② 按F4键，激活属性窗口，在属性窗口中设置两个命令按钮的属性，见表1。表 1
③ 编写两个命令按钮的Click事件过程：
Private Sub C1_Click()
C1.Visible=False
C2.Visible=True
End Sub
Private Sub C2_Click()
C1.Visible=True
C2.Visible=False
End Sub
2．① 对象主要属性设置如表2所示。
表 2
② 分析：按试题要求在窗体上画出一个文本框和一个命令按钮，并分别将它们的属性按表2的内容进行设置。当窗体加载时激活Form_Load，通过文本框Text的Visible属性设置为False，即将Text文本框隐藏掉。当双击窗体时，产生Form_DblClick事件，Text的Visible属性设置为True，即可见。将字符串“等级考试”赋值给文本框 Text1的Text属性时，则在文本框中显示“等级考试”。
③ 编程代码：
Private Sub C1_Click()
Text1.Text＝"等级考试"
End Sub
Private Sub Form_DblClick()
Text1.Visible＝True
End Sub
Private Sub Form_Load()
Text1.Visible＝False
End Sub
② 按F4键，激活属性窗口，在属性窗口中设置两个命令按钮的属性，见表1。
控件 | 属性 | 设置值 |
| 命令按钮1 | 名称 Caption | C1 命令按钮1 |
| 命令按钮2 | 名称 Caption | C2 命令按钮2 |
Private Sub C1_Click()
C1.Visible=False
C2.Visible=True
End Sub
Private Sub C2_Click()
C1.Visible=True
C2.Visible=False
End Sub
2．① 对象主要属性设置如表2所示。
对象 | 对象名 | 属性名 | 属性值 |
窗体 | Form1 | Caption | Form1 |
文本框 | Text1 | ||
命令按钮 | C1 | Caption | 显示 |
③ 编程代码：
Private Sub C1_Click()
Text1.Text＝"等级考试"
End Sub
Private Sub Form_DblClick()
Text1.Visible＝True
End Sub
Private Sub Form_Load()
Text1.Visible＝False
End Sub
【答案解析】