实验二窗体和标准控件.doc

实验二 窗体和标准控件 （设计型 4学时） 实验目的] 1.掌握命令按钮、标签及文本框控件的使用方法 2.掌握命令按钮、标签及文本框控件的属性、事件和方法 实验内容] 程序1：设计一个由3个窗体组成的“古诗欣赏”应用程序。 窗体1（Form）为主界面：窗体2（Form2）中显示唐诗“登鹳鹊楼”；窗体2（Form3）中显示唐诗“山行”。 要求：单击工具栏中“启示”按钮运行应用程序，出现如图2-1（a）所示主窗体； 单击“登鹳鹊楼”命令按钮，出现如图2-1（b）所示窗体； 单击“山行”命令按钮，出现如图2-1（c）所示窗体； 单击“卸载窗体”命令按钮，退出。 (a) 主窗体 (b) 唐诗“登鹳鹊楼”窗体 (c) 唐诗“山行”窗体 图2-1 “古诗欣赏”窗体 实验步骤： 建立应用程序用户界面。创建工程，分别创建3个窗体，在窗体1中放置3个命令按钮；在窗体2中放置1个命令按钮；在窗体3中放置1个命令按钮。 设置对象属性。属性设置如表2.1所示。 表2.1 对象属性设置 对象 属性 属性值 对象 属性 属性值 窗体1 Name frmPoem 窗体2 Name frmPoem1 Caption 古诗欣赏 Caption 登鹳鹊楼 标签 Caption 请选择要阅读的古诗 命令按钮4 Name cmdReturn2 命令按钮1 Name cmdPoem1 Caption 返回 Caption 登鹳鹊楼 窗体3 Name frmPoem2 命令按钮2 Name cmdPoem2 Caption 山行 Caption 山行 命令按钮5 Name cmdReturn3 命令按钮3 Name cmdUnload Caption 返回 Caption 卸载窗体 （3）编写Form1窗体中对象的事件过程代码。 Private Sub cmdPoem1_Click() frmPoem1.Show frmPoem.Hide End Sub Private Sub cmdPoem2_Click() End Sub Private Sub cmdEnd_Click() End End Sub 在“工程资源管理器”窗体中选择Form2窗体，编写Form2窗体中对象的事件过程代码。 Private Sub Form_Activate() Print Tab(6); 登鹳鹊楼 Prin t Print Tab(4); 白日依山尽， Print Tab(4); 黄河入海流。 Print Tab(4); 欲穷千里目， Print Tab(4); 更上一层楼。 End Sub Private Sub cmdReturn2_Click() Cls frmPoem.Show frmPoem1.Hide End Sub 在“工程资源管理器”窗体中选择Form3窗体，编写Form3窗体中对象的事件过程代码。 Private Sub Form_Activate() End Sub Private Sub cmdReturn3_Click() End Sub 请将程序补充完整。 程序2：设计一个程序，窗体如图2-2所示。 要求在“输入数据”框中一个数字。当单击“计算”命令按钮时，将输入的数据乘以100后显示在另一个文件框中。 图2-2 实验步骤： 建立应用程序用户界面。创建工程，在窗体上添加2个标签、2个文本框、2个命令按钮。 设置对象属性。属性设置如表2.2。 表2.2 对象属性设置 对象 属性 属性值 对象 属性 属性值 标签1 Caption 输入数据 标签2 Caption 输入数据*100 文本框1 Name txtInput 命令按钮1 Name cmdCale Text “”（空） Caption 计算 文本框2 Name txtOutput 命令按钮2 Name cmdExit Text “”（空） Caption 退出 (3) 请完成程序代码。 程序3：编程题 要求