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

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

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

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

    ③窗体文件中给出了所有事件过程，但不完整，请去掉程序中的注释符，把程序中的?改为正确的内容，以便实现如下功能：当光标所在的文件框中无内容时，“剪切”、“复制”不可用，否则可以把该文本框中的内容剪切或复制到Text3中；若Text3中无内容，则“粘贴”不能用，否则可以把Text3中的内容粘贴在光标所在的文本框中的内容之后。
    注意：不能修改程序中的其他部分，各菜单项的标题名称必须正确。最后将修改后的文件按原文件名存盘。
选项
答案【操作步骤】 步骤1：打开本题工程文件，将Text3的Visible属性设置为False，然后按照题目要求建立菜单并设置其属性。 菜单属性如表3.13所示。 [*] 步骤2：分析并编写程序代码。 程序提供代码 Dim which As Integer Private Sub copy_Click() If which = 1 Then 　　　　Text3.Text = Text1.Text ElseIf which = 2 Then 　　　　Text3.Text = Text2.Text End If End Sub Private Sub cut_Click() If which = 1 Then 　　　　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 = ? Then If Text1.Text = "" Then 　　　　cut.Enabled = False 　　　　Copy.Enabled = False Else 　　　　cut.Enabled = True 　　　　Copy.Enabled = True End If ’　ElseIf which = ? Then If Text2.Text ="" 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.Text = ? ElseIf which = 2 Then 　　　　’ Text2.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 程序结束 参考答案 第1个？处填入：1 第2个？处填入：2 第3个？处填入：Text1.Text＋ Text3.Text 第4个？处填入：Text2.Text＋ Text3.Text 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/h8Qp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)