(1)在名称为Form1的窗体上画一个名称为Text1的文本框，再建立一个名称为Format的弹出式菜单，含三个菜单项，标题分别为“加粗”、“斜体”、“下划线”，名称分别为M1、M2、M3。请编写适当的事件过程，在运行时当用鼠标右键单击窗体时，弹出此菜单，

admin2017-09-22 60

问题 (1)在名称为Form1的窗体上画一个名称为Text1的文本框，再建立一个名称为Format的弹出式菜单，含三个菜单项，标题分别为“加粗”、“斜体”、“下划线”，名称分别为M1、M2、M3。请编写适当的事件过程，在运行时当用鼠标右键单击窗体时，弹出此菜单，选中一个菜单项后，则按所选菜单标题设置文本框中文本的格式，如图3．149所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt3．vbp，窗体文件名为sjt3．frm。

(2)在考生文件夹下有一个工程文件sjt4．vbp，含有Form1和Form2两个窗体，Form1为启动窗体，窗体上的控件如图3．150(a)所示。程序运行后，在Form1窗体的文本框中输入有关信息(“密码”框中显示“*”字符)，然后单击“提交”按钮则弹出“确认”对话框(即Form2窗体)，并在Form2中显示输入的信息，如图3．150(b)所示。单击“确认”按钮则程序结束，单击“重输”按钮，则Form2消失，回到Form1窗体。在给出的窗体文件中已经给出了程序，但不完整。要求：
①把Form1的标题改为“注册”，把Form2的标题改为“确认”；②设置适当的属性，使Form2标题栏上的所有按钮消失(如图3．150(b)所示)；③去掉程序中的注释符，把程序中的“?”改为正确的内容。
注意：不能修改程序中的其他部分，标题等属性的修改只能在属性窗口中进行。最后把修改后的文件按原文件名存盘。

选项

答案(1)步骤1：新建一个“标准EXE”工程，选择【工具】→【菜单编辑器】命令，打开菜单设计器，按要求设置建立菜单项。步骤2：在窗体中画一个文本框，取名为Text1。步骤3：打开代码编辑窗口，分别编写“加粗”、“斜体”和“下划线”菜单项的事件过程。参考代码： Private Sub Form MouseDown(Button AS Integer，Shift AS Integer，X As Single， Y As Single) If Button=2 Then PopupMenu format End If End Sub Private Sub m1_Click() Text1．Font．Bold=True End Sub Private Sub m3_Click() Text1．Font．Underline=True End Sub Private Sub m2_Click() Text1．Font．ItaliC=True End Sub 步骤4：按要求将文件保存至考生文件夹中。 (2)步骤1：打开考生文件夹下的工程文件sjt4．vbp。步骤2：按要求设置两个窗体的相关属性。步骤3：打开Form1的代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码： Form2．Show Form2．Print Form1．Framel．Caption；”： "； If Form1．Op1(k)．Value Then Text2．PasswordChar="*" 步骤4：按要求将文件保存至考生文件夹中。

解析 (1)要创建本题的弹出式菜单需先用菜单编辑器来建立菜单，并将其主菜单项的可见(即Visible)属性值设置为False，然后在窗体的MouseDown(或MouseUp)事件过程中，判断该事件的BuRon参数值是否为2，若是则执行窗体的PopupMenu方法来显示菜单。
在相应菜单项的Click事件过程中，通过设置文本框的FontBold属性值、FontItalic属性值和FontUnderline属性值为True，可分别将文本框中文本样式显示为加粗、斜体和下划线。
(2)在Form1的单击事件中，首先显示出Form2，然后按照要求在Form2上先后显示出Form1中的信息，其中单选按钮组需要使用If语句判断是哪个按钮被选中。文本框的PasswordChar属性可以设置文本框中显示的密码形式。

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

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

0

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)