在考生文件夹下有一个工程文件sjt5．vbp，其名称为Form1的窗体上已有三个文本框Text1、Text2、Text3，以及部分程序代码，请完成以下工作。 ①在属性窗扣中修改Text3的适当属性，使其在运行时不显示，作为模拟的剪贴板使用，窗体如

admin2019-05-14 47

问题在考生文件夹下有一个工程文件sjt5．vbp，其名称为Form1的窗体上已有三个文本框Text1、Text2、Text3，以及部分程序代码，请完成以下工作。
①在属性窗扣中修改Text3的适当属性，使其在运行时
不显示，作为模拟的剪贴板使用，窗体如图所示。

②建立下拉式菜单，如下表所示。

③窗体文件中给出了所有事什过程，但不完整，请去掉程序中的注释符，把程序中的?改为正确的内容，以便实现如下功能：当光标所在的文件框中无内容时，“剪切”、“复制”不可用，否则可以把该文本框中的内容剪切或复制到Text3中；若Text3中无内容，则“粘贴”不能用，否则可以把Text3中的内容粘贴在光标所在的文本框中的内容之后。
注意：不能修改程序中的其他部分，各菜单项的标题名称必须正确。最后将修改后的文件按原文件名存盘。

选项

答案【操作步骤】步骤1：打开本题工程文件，将Text3的Visible属性设置为False，然后按照题目要求建立菜单并设置其属性，如图3．20所示。 [*] 菜单属性如表3．12所示。 [*] 步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。参考答案 Dim which As Integer Private Sub copy_Click()’复制按钮 If which＝1 Then’当焦点在Text1中，将rext1中的内容复制给Text3 Text3．Text＝Text1．TeXt ElseIf which＝2 Then’同理，焦点在Text2中，将Text2中的内容复制给Text3 Text3．Text＝Text2．Text End If End Sub Private Sub cut C1ick()’剪切按钮 If which＝1 Then’当焦点在Text1中，则将内容复制给Text3，并清空Text1内容 Text3．Text＝Text1．Text Textl．Text＝"" ElseIf which＝2 Then’同上 Text3．Text＝Text2．Text Text2．Text＝"" End If End SUb Private Sub edit_C1ick()’编辑 If which＝1 Then 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．Text＝""Then Cut．Enabled＝False Copy．Enabled＝False E1se Cut．Enabled＝True Copy．Enabled＝True End If End If If Text3．Text＝""Then Paste．Enabled=False E1se Paste．Enabled＝True End If End Sub Private Sub paste_Cick()’粘贴按钮 If which＝1 Then’当焦点在Text1中则将 Text3的内容追加到Text1文件末尾 Text1．Text＝Text1．Text＋Text3．Text ElseIf which＝2 Then。’同上 Text2．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中时，which＝2 which＝2 End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。

解析

转载请注明原文地址:https://www.kaotiyun.com/show/BTUp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类

0

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)