(vb综合练习.docVIP

菜单和窗体设计练习 提示：设置显式变量声明： 运行VB, 在代码窗口的通用声明部分写命令语句： Option Explicit 实验内容 第1题: 编写如下要求的程序，程序有2个窗体。 在窗体form1上用一个标签控件label1显示实时日期和时间，每1秒变化1次 ,要求在设计时在属性窗口将label1的autosize设为true 在窗体form1上用一个图像控件image1显示图片，要求在设计时在属性窗口将image1的stretch属性设为true，picture属性设为图片文件 1.jpg ， 按照下表并参照下图编辑form1中菜单； 菜单项标题 菜单项名称 热键 快捷键 菜单级别 查看 ViewMenu V 1 放大 ViewBig CTRL+B 2 缩小 ViewSmall CTRL+S 2 日期格式 rqgs 1 退出 FileExit X 1 （4）单击菜单单击菜单单击菜单单击“退出”菜单结束程序的运行； 属性列表如下： 对象名称 相关属性 所属窗体 Label1 Aautosize?:true Form1 Timer1 Interval :1000 Form1 Image1 Picture：1.jpg stretch :true Form1 Label1 Caption：字体 Form2 Label2 Caption：字号 Form2 Combo1 Form2 Hscroll1 Min:12 max:24 Smallchange: 2 Largechange: 4 Form2 Frame1 Caption：字形 Form2 Frame2 Caption：前景色 Form2 Check1 Caption：粗体 Form2 Check2 Caption：斜体 Form2 Check3 Caption：下划线 Form2 Option1 Caption：红 Form2 Option2 Caption：蓝 Form2 Command1 Caption：设置并返回 Form2 第2题: 设置效果如 下图所示的“字体设置”程序，要求有如下功能： 程序由两个窗体组成；窗体1是字体设置窗体，窗体2是字体颜色设置窗体，界面和其中的菜单如图 窗体1的界面和菜单如下3个图： 窗体2的界面如下图： （2）窗体1中的菜单按如下要求表设置表： 菜单项 名称 热键 快捷键 菜单级别 字体 mFontName N 1 黑体 mNameHei 2 隶书 mNameLi 2 字形 mFontStyle X 1 粗体 mFontBold Ctrl+B 2 倾斜 mFontItalic Ctrl+I 2 下划线 mFontUnderline Ctrl+U 2 字号 mFontSize S 1 20 mFontS_20 2 32 mFontS_32 2 颜色 mFontColor C 1 退出 mQuit Q 1 （3）“字体设置”窗体中的标签“VB程序设计”以每100毫秒50缇的速度从左往右滚动，当标签从左侧滚动到窗体的最右端时，标签右侧从窗体左侧出现，循环滚动 （4）“字体设置”窗体中，在“字体”菜单内设置标签文字的字体；在“字形”菜单内设置标签文字的字形效果；在“字号”菜单内设置标签文字的字号；单击“颜色”菜单关闭窗体1，显示窗体2，即“颜色设置”窗体；单击“退出”直接退出程序； （5）“颜色设置”窗体有三个滚动条，当改变三个颜色滚动条的值时，窗体1中文字的颜色会相应改变。当单击“返回”按钮后，关闭窗体2，显示窗体1。 对象名称 相关属性 所属窗体 Form1 Caption：字体设置 Form1 Label1 Caption：VB程序设计 Form1 Timer1 Interval：100 Form1 Form2 Caption：颜色设置 Form2 Label1 Caption：红 Form2 Label2 Caption：绿 Form2 Label3 Caption：蓝 Form2 HScroll1 Min：0 Max：255 LargeChange：5 SmallChange：1 Form2 Hscroll2 Min：0 Max：255 LargeChange：5 SmallChange：1 Form2 Hscroll3 Min：0 Max：255 LargeChange：5 SmallChange：1 Form2 Command1 Caption：返回 Form2