vb6.0实验九习题与答案

实验九
专业_____________ 班级________年级________姓名______________学号_______________
一、实验目的
1、掌握下拉式菜单和弹出式菜单的设计方法
2、掌握菜单事件过程的编写方法
二、实验内容
1、按图示设置窗体：
要求：
①建立标题为“幼教”和“退出”主菜单yj和Exit；yj有标题为“三字经”、“弟子规”和“论语”的菜单项szj、dzg和Ly。

②编写适当过程，程序运行时单击“三字经”或“弟子规”在文本框中显示相应的文本。

单击“退出”，则退出应用程序。

P r i v a t e S u b s z j_C l i c k()'三字经内容
T e x t1.T e x t="人之初,"&C h r(13)&C h r(10)&"性本善."&C h r(13)&C h r(10)_ &"性相近,"&C h r(13)&C h r(10)&"习相远."
E n d S u b
P r i v a t e S u b d z g_C l i c k()'弟子规内容
T e x t1.T e x t="父母呼,"&C h r(13)&C h r(10)&"应勿缓."&C h r(13)&C h r(10)_ &"父母命,"&C h r(13)&C h r(10)&"行勿懒."
E n d S u b
P r i v a t e S u b t c_C l i c k()'退出程序
E n d
E n d S u b
'|r e m为使文字可以换行成功，还需设置t e x t1的M u l t i L i n e属性为t r u e
'|r e m C h r(13)表示回车C h r(10)表示换行
2、按图示设置窗体：
要求：
①建立标题为“整数处理”和“清除”主菜单zscl和qc；zscl有标题为“数位求和”和“非零数位求积”的菜单项swqh和swqj。

②编写适当过程，程序运行时在Text1中输入一整数，单击“数位求和”或“非零数位求积”，在Text2中显示该数的数位之和或非零数位的积。

D i m a()A s S t r i n g
P r i v a t e S u b C o m m a n d1_C l i c k()
O p e n"d:\I n102.t x t"F o r I n p u t A s#1
L i n e I n p u t#1,s
a()=S p l i t(s,"")
T e x t1.T e x t=s
E n d S u b
P r i v a t e S u b C o m m a n d2_C l i c k()
F o r i=0T o U B o u n d(a)
I f V a l(a(i))M o d2<>0T h e n
L a b e l1.C a p t i o n=L a b e l1.C a p t i o n&a(i)&""
E n d I f
N e x t i
E n d S u b
P r i v a t e S u b C o m m a n d3_C l i c k()
F o r i=0T o U B o u n d(a)
s=s+V a l(a(i))
I f V a l(a(i))>=90T h e n
k=k+1
E n d I f
N e x t i
T e x t2.T e x t=s/(U B o u n d(a)+1)
T e x t3.T e x t=k
E n d S u b
3、按图示设置窗体：
要求:
①建立标题为“字体”和“退出”的主菜单Font和Exit；Font有标题为“隶书”、“宋体”和“楷体_GB2312”的菜单项Lishu、Songti和Kaiti。

文本框能多行显示。

运行时，在文本框中输入字符串，选择“字体”下的不同字体，文本框中字符字体也随之改变。

选择“退出”，则退出应用程序。

P r i v a t e S u b k a i t i_C l i c k()
T e x t1.F o n t N a m e=k a i t i.C a p t i o n
E n d S u b
P r i v a t e S u b l i s h u_C l i c k()
T e x t1.F o n t N a m e=l i s h u.C a p t i o n
E n d S u b
P r i v a t e S u b s o n g t i_C l i c k()
T e x t1.F o n t N a m e=s o n g t i.C a p t i o n
E n d S u b
P r i v a t e S u b t c_C l i c k()
E n d
E n d S u b
4、在窗体上设置标题分别为：“形状”和“边框样式”菜单；其名称分别为：Sp、Bstyle 和Fstyle；“形状”中含有标题为“圆形”和“正方形”的菜单项，名称为：circle和square；“边框样式”中含有标题为“实线”和“点线”的菜单项，名称为：Solid和dot。

在窗体中设置形状控件SP1。

编写适当的事件过程，程序运行时，单击“圆形”或“正方形”，形状控件分别显示为圆形或正方形；单击“实线”或“点线”，形状控件的边框分别为实线或点线。

P r i v a t e S u b c i r c l e_C l i c k()
S p1.S h a p e=3
E n d S u b
P r i v a t e S u b s q u a r e_C l i c k()
S p1.S h a p e=1
E n d S u b
P r i v a t e S u b s o l i d_C l i c k()
S p1.B o r d e r S t y l e=1
E n d S u b
P r i v a t e S u b d o t_C l i c k()
S p1.B o r d e r S t y l e=3
E n d S u b
5、练习
1）以下关于菜单叙述，错误的是（A）。

A) 菜单的属性不可以在“属性窗口”中设置
B) “菜单编辑器”中设计的菜单是控件
C) 菜单项是一个控件，但它不在“工具箱”中
D) 菜单项是一个控件，它具有外观和行为的属性
2）在菜单编辑器中定义了一个名称为Edt菜单项,若需在运行时，使得该菜单项不能响应鼠标事件,可使用的语句是（Edt.Enabled=false）。

3）设有菜单项T1，如果设置T1的Checked属性为True，以下说法错误的是（B ）。

A) 不会改变该菜单项的作用 B) 该菜单项前出现一个“√”
C) 该菜单项处于活动状态 D) 运行时，单击该菜单项，则出现一个“√”
4）如果将主菜单项的标题设为“打开(&K)”，那么与单击该菜单项等价的热键是（Alt + K）。

5）以下叙述中错误的是（C）。

A) 下拉式菜单和弹出式菜单都用菜单编辑器建立
B) 如果把一个菜单项的Enabled属性设置为False，则该菜单项处于非激活状态
C) 菜单项的标题为“-”时，也能接收Click事件。

D) 在多窗体程序中，每个窗体都可以建立自己的菜单系统
6）在菜单编辑器中设计菜单项时,必须设置（AB ）属性。

A) 标题 B) 名称 C) 快捷键 D) 复选
7）下列关于菜单叙述，错误的是（D）。

A) 要把非顶级某菜单项设为分隔线,菜单项的标题设为"-",名称不可省略
B) 将下拉式菜单的顶级菜单项的Visible属性设为False,才可以作为弹出式菜单
C) 菜单项的事件只有一个Click事件
D) 菜单项是一个控件,可以为其设置快捷键
8）在菜单编辑器中定义了一个标题为YU,名称为Edt的弹出式菜单,要使在窗体的空白处右击弹出Edt菜单,应在（Edt_Click）事件中编写（PopupMenu Edt）代码。