[计算机类试卷]国家二级VB机试（上机操作）模拟试卷332及答案与解析.doc
-
资源ID：499745
资源大小：298.50KB
全文页数：9页
- 资源格式： DOC
下载积分：2000积分
快捷下载
账号登录下载
微信登录下载
下载资源需要2000积分（如需开发票，请勿充值！）
|
友情提示
2、PDF文件下载后，可能会被浏览器默认打开，此种情况可以点击浏览器菜单，保存网页到桌面，就可以正常下载了。
3、本站不支持迅雷下载，请使用电脑自带的IE浏览器，或者360浏览器、谷歌浏览器下载即可。
4、本站资源下载后的文档和图纸-无水印,预览文档经过压缩，下载后原文更清晰。
5、试题试卷类文档，如果标题没有明确说明有答案则都视为没有答案，请知晓。
|
[计算机类试卷]国家二级VB机试（上机操作）模拟试卷332及答案与解析.doc
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：调试并运行程序，关闭程序后按题目要求存盘。
