《vb60实验九习题与答案.docx》由会员分享，可在线阅读，更多相关《vb60实验九习题与答案.docx（5页珍藏版）》请在三一办公上搜索。
1、vb60实验九习题与答案实验九 专业_ 班级_年级_姓名_学号_ 一、实验目的 1、掌握下拉式菜单和弹出式菜单的设计方法 2、掌握菜单事件过程的编写方法 二、实验内容 1、按图示设置窗体： 要求： 建立标题为“幼教”和“退出”主菜单yj和Exit；yj有标题为“三字经”、“弟子规”和“论语”的菜单项szj、dzg和Ly。 编写适当过程，程序运行时单击“三字经”或“弟子规”在文本框中显示相应的文本。单击“退出”，则退出应用程序。 Private Sub szj_Click 三字经内容 Text1.Text = 人之初, & Chr(13) & Chr(10) & 性本善. & Chr(13) &
2、 Chr(10) _ & 性相近, & Chr(13) & Chr(10) & 习相远. End Sub Private Sub dzg_Click 弟子规内容 Text1.Text = 父母呼, & Chr(13) & Chr(10) & 应勿缓. & Chr(13) & Chr(10) _ & 父母命, & Chr(13) & Chr(10) & 行勿懒. End Sub Private Sub tc_Click 退出程序 End End Sub |rem 为使文字可以换行成功，还需设置text1的MultiLine属性为true |rem Chr(13)表示回车 Chr(10)表示换行
3、2、按图示设置窗体： 要求： 建立标题为“整数处理”和“清除”主菜单zscl和qc；zscl有标题为“数位求和”和“非零数位求积”的菜单项swqh和swqj。 编写适当过程，程序运行时在Text1中输入一整数，单击“数位求和”或“非零数位求积”，在Text2中显示该数的数位之和或非零数位的积。 Dim a As String Private Sub Command1_Click Open d:In102.txt For Input As #1 Line Input #1, s a = Split(s, ) Text1.Text = s End Sub Private Sub Command2_
4、Click For i = 0 To UBound(a) If Val(a(i) Mod 2 0 Then Label1.Caption = Label1.Caption & a(i) & End If Next i End Sub Private Sub Command3_Click For i = 0 To UBound(a) s = s + Val(a(i) If Val(a(i) = 90 Then k = k + 1 End If Next i Text2.Text = s / (UBound(a) + 1) Text3.Text = k End Sub 3、按图示设置窗体： 要求:
5、 建立标题为“字体”和“退出”的主菜单Font和Exit；Font有标题为“隶书”、“宋体”和“楷体_GB2312”的菜单项Lishu、Songti和Kaiti。文本框能多行显示。运行时，在文本框中输入字符串，选择“字体”下的不同字体，文本框中字符字体也随之改变。选择“退出”，则退出应用程序。 Private Sub kaiti_Click Text1.FontName = kaiti.Caption End Sub Private Sub lishu_Click Text1.FontName = lishu.Caption End Sub Private Sub songti_Click T
6、ext1.FontName = songti.Caption End Sub Private Sub tc_Click End End Sub 4、在窗体上设置标题分别为：“形状”和“边框样式”菜单；其名称分别为：Sp、Bstyle和Fstyle；“形状”中含有标题为“圆形”和“正方形”的菜单项，名称为：circle和square；“边框样式”中含有标题为“实线”和“点线”的菜单项，名称为：Solid和dot。在窗体中设置形状控件SP1。编写适当的事件过程，程序运行时，单击“圆形”或“正方形”，形状控件分别显示为圆形或正方形；单击“实线”或“点线”，形状控件的边框分别为实线或点线。 Priva
7、te Sub circle_Click Sp1.Shape = 3 End Sub Private Sub square_Click Sp1.Shape = 1 End Sub Private Sub solid_Click Sp1.BorderStyle = 1 End Sub Private Sub dot_Click Sp1.BorderStyle = 3 End Sub 5、练习 1）以下关于菜单叙述，错误的是。 A) 菜单的属性不可以在“属性窗口”中设置 B) “菜单编辑器”中设计的菜单是控件 C) 菜单项是一个控件，但它不在“工具箱”中 D) 菜单项是一个控件， 它具有外观和行为的
8、属性 2）在菜单编辑器中定义了一个名称为Edt菜单项,若需在运行时，使得该菜单项不能响应鼠标事件,可使用的语句是。 3）设有菜单项T1，如果设置T1的Checked属性为True，以下说法错误的是。 A) 不会改变该菜单项的作用 B) 该菜单项前出现一个“” C) 该菜单项处于活动状态 D) 运行时，单击该菜单项，则出现一个“” 4）如果将主菜单项的标题设为“打开(&K)”，那么与单击该菜单项等价的热键是。 5）以下叙述中错误的是。 A) 下拉式菜单和弹出式菜单都用菜单编辑器建立 B) 如果把一个菜单项的Enabled属性设置为False，则该菜单项处于非激活状态 C) 菜单项的标题为“-”时，也能接收Click事件。 D) 在多窗体程序中，每个窗体都可以建立自己的菜单系统 6）在菜单编辑器中设计菜单项时,必须设置属性。 A) 标题 B) 名称 C) 快捷键 D) 复选 7）下列关于菜单叙述，错误的是。 A) 要把非顶级某菜单项设为分隔线,菜单项的标题设为-,名称不可省略 B) 将下拉式菜单的顶级菜单项的Visible属性设为False,才可以作为弹出式菜单 C) 菜单项的事件只有一个Click事件 D) 菜单项是一个控件,可以为其设置快捷键 8）在菜单编辑器中定义了一个标题为YU,名称为Edt的弹出式菜单,要使在窗体的空白处右击 弹出Edt菜单,应在事件中编写代码。
