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

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

admin2010-09-02  23
问题 在考生文件夹下有一个工程文件sjt5．vbp，其名称为Forml的窗体上已有三个文本框‘Textl、Text2、Text3，以及程序。请完成以下工作：
①在属性窗口中修改Text3的适当属性，使其在运行时不显示，作为模拟的剪贴板使用，窗体如图l-170所示；
②建立下拉式菜单，见表1-4。

⑨窗体文件中给出了所有事件过程，但不完整，请去掉程序中的注释符，把程序中的?改为正确内容。以便实现以下功能：当光标所在的文本框中无内容时，“剪切”、“复制”不可用，否则可以把该文本框中的内容剪切或复制到Text3中；若Text3中无内容，则“粘贴”不能用，否则可以把Text3中的内容粘贴在光标所在的文本框中的内容之后。
注意：不能修改程序中的其他部分。各菜单项的标题名称必须正确。最后把修改后的文件按原文件名存盘。
选项
答案 【操作步骤】 步骤1：打开考生文件夹中的本题工程文件sjt5．vbp，选中窗体中的文本框Text3，将其Visible属性为False。 步骤2：选择【工具】→【菜单编辑器】命令，打开菜单设计器，如表2-97的内容建立窗体菜单。 [*] 步骤3：打开代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。 参考代码： If which=1 Then If which=2 Then Textl．Text=Textl．Text+Text3．Text Text2．Text=Text2．Text+Text3．Text 步骤4：按要求将文件保存至考生文件夹中。
解析    由本题程序源代码及要求可知，在程序运行时，当将光标置于某文本框中时，文本框获得焦点，将触发其GotFocus，在该事件过程中用窗体变量which记录下该文本框序号(1或2)。当打开“编辑”菜单时触发其Click事件，在该事件过程中首先根据which的值不同，来判断相应文本框的内容是否为空，若内容为空则通过代码设置“剪切”和“复制”菜单项不可用，否则设置“剪切”和“复制”菜单项可用，故第一个“?”处应改为1，第两个“?”处应改为2；其次判断Text3文本框的内容是否为空，若内容为空则设置‘粘贴”菜单项不可用，否则设置“粘贴”菜单项可用。
    当选择“编辑”菜单下的“复制”命令时，根据which的值不同，将相应文本框中的内容复制到Text3文本框中。当选择“剪切”命令时除应执行与“复制”命令相同的语句外，还应清除当前文本框中的内容。当选择“粘贴”命令时，也是根据which的值不同，将Text3文本框中的内容连入相应文本框原内容之后，故该事件过程的第三个“?”处应改为“Textl．Text+Text3．Text”，第4个问“?”处应改为“Text2．Text+Text3．Text”。
转载请注明原文地址:https://kaotiyun.com/show/HFmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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