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

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

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

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

    ③窗体文件中给出了所有事件过程，但不完整，请去掉程序中的注释符，把程序中的?改为正确的内容，以便实现如下功能：当光标所在的文件框中无内容时，“剪切”、“复制”不可用，否则可以把该文本框中的内容剪切或复制到Text3中；若Text3中无内容，则“粘贴”不能用，否则可以把Text3中的内容粘贴在光标所在的文本框中的内容之后。
    注意：不能修改程序中的其他部分，各菜单项的标题名称必须正确。最后将修改后的文件按原文件名存盘。
选项
答案【操作步骤】 步骤1：打开本题工程文件，将Text3的Visible属性设置为False，然后按照题目要求建立菜单并设置其属性，如图4．20所示。菜单属性如表4．12所示。 [*] 步骤2：打开代码编辑窗口，去掉程序中的注释符“-”，将问号改为正确的内容。 [*] 参考答案(阴影部分是需考生填入的内容) Dim which As Integer Private Sub copy click()′复制按钮 If which=1 Then’当焦点在。rextl中， 将Textl中的内容复制给。rext3 Text3．Text=Textl．Text ElseIf which=2 Then′同理，焦点在Text2中，将Text2中的内容复制给Text3 Text3．Text=Text2．Text End If End Sub Private Sub cut Click()′剪切按钮 If which=1 Then′当焦点在Textl中，则将内容复制给Text3，并清空Textl内容 Text3．Text=Textl．Text Textl．Text=＂＂ E1seIf which=2 Then’同上 Text3．Text=Text2．Text Text2．Text=＂＂ End If End Sub Private Sub edit C1ick()′编辑 If which= 1 Then If Textl．Text=””Then Cut．Enabled=False Copy．Enabled=False E1se 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 Click()＂粘贴按钮 If which=1 Then＂当焦点在Textl中则将Text3的内容追加到Textl文件末尾 Textl．Text = Text1，Text+Text3.Text E1seIf which=2 Then′同上 Text2．Text = Text2，Text+Text3.Text End If End Sub Private Sub Textl_GotFocus()′本过程的作用是当焦点在Textl中时，which=1 which=1 End Sub Private Sub Text2_GotFocus()′本过程的作用是当焦点在Text2中时，which=2 which=2 End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 【易错提示】对于which值的判断，贯穿整个程序，因此要明白为什么要设置which值来进行判断。
解析 本题中隐藏的文本框Text3的功能相当于剪贴板。在文本框(Textl或Text2)获得焦点触发的GotFocus事件过程中，用窗体变量which记录下该文本框序号(1或2)。在“编辑”菜单的Click事件过程中，首先根据which的不同值来判断相应文本框(Textl或Text2)的内容是否为空，如果内容为空则设置“剪切”和“复制”菜单项不可用，否则设置“剪切”和“复制”菜单项可用；其次判断Text3文本框的内容是否为空，如果内容为空则设置“粘贴”菜单项不可用，否则设置“粘贴”菜单项可用。
转载请注明原文地址:https://www.kaotiyun.com/show/AATp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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