VB小程序制作.docVIP

VB程序设计 8.1.1 实验目的 1）掌握VB多重窗体程序的概念。 2）掌握多重窗体程序的设计方法。 3）复习各种控件的使用方法。 8.1.2实验内容 采用多窗体技术编写程序，分别在不同的窗体上实现不同功能。 8.1.3 实验步骤 实验步骤如下： 建立启动窗体界面与设置对象属性。选择“新建”工程，进入窗体设计器，在窗体中添加命令按钮组Command1（0）~Command1（5），并修改属性如图8-1左所示。系统默认窗体Form1为启动窗体。 添加窗体。选择“工程”菜单，打开“添加窗体”对话框。按“打开”按钮，添加3个标准窗体Form2~Form4。添加标准模块。选择“工程”菜单，打开“添加模块”对话框。按“打开”按钮，添加1个标准模块Module1。 图8-1 程序界面设计 建立子窗体界面与设置对象属性。界面如图8-1所示，设置属性如表所示。 表8-1 Form1属性设置 对象 属性 属性值 说明 Form1 Name Form1 启动窗体 Caption Form1 Command1（0） Caption Who are you? Command1（1） Caption game Command1（2） Caption writeboard Command1（3） Caption calculator Command1（4） Caption byebye Picture1 autoredraw false Label1 caption Lets start a wonderful journey 表8-2 Form2属性设置 对象 属性 属性值 说明 Form2 Name Form2 输入个人资料窗口 Caption Form2 Label11 Caption name Label12 Caption gender Label13 Caption Is that a girl? Fream1 Caption hobbies command caption okey Caption Option1 Caption female Value True 默认被选中 Option2 Caption male Value True 默认被选中 Check1 Caption WoW Check2 Caption League of Legends Check3 Caption Dungeon and Fighter Check4 Caption QQspeed Check5 Caption films Check6 Caption movie 表8-3 Form3属性设置 对象 属性 属性值 说明 Form3 Name Form3 Caption Form3 Command1 Caption happiness Command2 Caption begin Command3 Caption love Command4 Caption beauty Command5 Caption laugh Label1 caption scroes Label2 Caption 0 Timer1 interval 500 Timer2 interval 71 表8-4 Form4属性设置 对象 属性 属性值 说明 Form4 Name Form4 Caption Form4 Label caption Label2 Caption 路漫漫其修远兮 Label3 Caption 吾将上下而求索 TextBox text Picture1 picture Caption 返回 表8-5 Form5属性设置 对象 属性 属性值 说明 Form Name Form5 Caption Form5 Command1(0~9) caption 1~9,0 Command1(10) caption . Command2(0~4) caption +-*/= Label2 Caption 路漫漫其修远兮 Label3 Caption 吾将上下而求索 TextBox text 表8-6 Form6属性设置 对象 属性 属性值 说明 Form4 Name Form6 Caption Form6 Label caption welcome to use this system again !! Label2 Caption thank you ! Picture1 picture Timer1~12 interval 1 Timer13 interval 1000 编写代码。 编写“启动”窗体form1（Form1）中代码： Option Explicit Dim i As Integer, ur1 As String, N As Integer Privat