1、国家二级 VB机试（上机操作）模拟试卷 332及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上添加一个名称为 C1、标题为 “改变颜色 ”的命令按钮，窗体标题为 “改变窗体背景色 ”。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色 (“:“; 取框架 Frame1的标题名称 ”性别 ” For k=0 To 1 If Forml Op1(k) Value Then 通过下一条语句确定 K Form2 Print Form1 Op1(k) Caption End If Next k End Sub Private Sub Form Load() 将 Password
2、Char属性设为 *则密码输入后显示 * Text2 PasawordChar=”+” End Sub 需考生编写的 Form2中的代码 Private Sub C1_Click() End End Sub Private Sub C2_Click() Unload Form2 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开本题工程文件，将 Text3的 Visible属性设置为 False，然后按照题目要求建立菜单并设置其属性，如图 3 20所示。菜单属性如表 3 12所示。 步骤 2：打开代码编辑窗口，去
3、掉程序中的注释符 “”，将问号改为正确的内容。 Dim which As Integer Private Sub copy Click()复制按钮 If which=1 Then当焦点在 Text1中，将 Textl中的内容复制给 Text3 Text3 Text=Text1 Text Else If which=2 Then同理，焦点在Text2中，将 Text2中的内容复制给 Text3 Text3 Text=Text2 Text End If End Sub Private Sub cut_Click()剪切按钮 If which=1 Then当焦点在 Text1中，则将内容复制给 Te
4、xt3，并清空 Text1内容 Text3 Text=Text1 Text Text1 Text=” ElseIf which=2 Then。同上 Text3 Text=Text2 Text Text2 Text=“ End If End Sub Private Sub edit_Click()编辑 If which=1Then If Text1 Text=”Then Cut Enabled=False Copy Enabled=False ElSe Cut Enabled=True Copy Enabled=True End If ElseIf which=2 Then If Text2 T
5、ext=”Then Cut Enabled=False Copy Enabled=False Else Cut Enabled=True Copy Enabled=True End If End If If Text3 Text=”Then Paste Enabled=False ElSe Paste Enabled=True End If End Sub Private Sub paste Click()粘贴按钮 If which=1 Then当焦点在 Text1中则将 Text3的内容追加到 Text1文件末尾 Text1 Text =Text1.Test+Text1.Text ElseIf which=2 Then同上 Text=2 Text =Text2.Text+Text3.Text End If End Sub Private Sub Text1 GotFocus()本过程的作用是当焦点在 Text1中时， which=1 which=1 End Sub Private Sub Text2 GotFocus()本过程的作用是当焦点在 Text2中时， whch=2 which=2 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
