新VB程序设计案例教程（ ） 第5章 中文 VB 程序设计基础.pptVIP

第5章常用控件 【案例19】基本常识我判断 【拓展案例48】四则运算练习 【案例20】显示个人信息 【案例21】人事档案记录卡 【拓展案例50】猜字母看谁快 【拓展案例51】模拟彩票系统 【案例22】动态标签 【拓展案例52】动态按钮 【拓展案例53】控件数组验证程序 【案例23】一元二次方程的根4 【拓展案例54】调色板 【拓展案例55】字符菱形图案2 【案例19】基本常识我判断 5.1 【案例19】基本常识我判断 5.1.1 学习目的 “基本常识我判断”程序运行后的画面如图5-1-1左图所示，可以看出，窗体的名称为“基本常识我判断”，窗体内上边的标题是“基本常识我判断”，窗体内有两道单选练习题。单击你认为正确的单选项，再单击“下一组题目”按钮，即可切换到另一个名称也为“基本常识我判断”的窗体，如图5-1-1右图所示（还没有判分）。由该图可以看出，窗体内上边的标题是“基本常识我判断”，窗体内有两道复选练习题。单击你认为正确的复选框，再单击“判分”按钮，即可在分数文本框内显示出相应的分数，如图5-1-1右图所示。此时，“退出”按钮由无效变为有效，单击“退出”按钮，即可退出程序的运行。 通过本案例的学习，可以进一步了解VB6.0语言中常用的一些控件的使用方法，初步了解单选按钮和复选框控件的使用方法，以及控件数组的使用方法。 5.1.2 案例实现 1．创建程序用户界面 （1）“基本常识我判断”应用程序有两个窗体，一个名称为Form1，另一个窗体的名称为Form2。添加窗体的方法是：单击“文件”→“工程窗体”菜单命令，调出“添加窗体”对话框，选中“新建”选项卡，单击选中“窗体”标签。 （2）Form1窗体中有多个控件对象：3个标签、2个框架、8个单选钮和1个按钮，如图5-1-6左图所示。这些对象的主要属性设置如表5-1-1所示。对象的序号按空间的分类，从上到下、从左到右的顺序依次排号。窗体对象的StartUpPosition属性设置为“2-屏幕中间”。 （3）Form2窗体中有多个控件对象：5个标签、2个框架、8个复选框和2个按钮，如图5-1-6右图所示。这些对象的主要属性设置如表5-1-2所示。对象的序号按从上到下、从左到右的顺序依次排号。窗体对象的StartUpPosition属性设置为“2-屏幕中间”。 特别要注意两组单选钮（即两个单选钮控件数组）“Option1”和“Option2”的Index属性的设置，对于“Option1”单选钮组有四个名称一样的单选按钮，但是它们的Index属性分别为为0到3，则应用时，Option1(0)表示第1个单选按钮，Option1(1)表示第2个单选钮，Option1(2)表示第3个单选按钮，Option1(3)表示第4个单选钮。对于另一组“Option2”单选钮组也如此。 在创建窗体中的控件时，可以采用复制和粘贴的方法。如果要创建控件数组，在进行控件复制前，应将要复制的控件的Index属性设置为0。 2．输入程序代码 （1）在“Form1”窗体的“代码”窗口内的代码程序如下。 Public FS As Integer 定义一个全局变量FS用来保存分数 Rem 给两个标签赋字符串，显示题目 Private Sub Form_Activate() Label2.Caption = 1.三角形内角和是（度）： Label3.Caption = 2.直角三角形的两个直角边长分别是3和4，斜边长是： End Sub Rem 单击“下一组题目”按钮后产生的事件 Private Sub Command1_Click() FS = 0 保存分数的变量FS赋初值0 If Option1(1) = True Then FS = FS + 25 选中第1题第2个单选钮后加25分 If Option2(2) = True Then FS = FS + 25 选中第2题第3个单选钮后加25分 Unload Form1 卸载窗体Form1 Form2.Show 加载并显示窗体Form2 End Sub （2）在“Form2”窗体的“代码”窗口内的代码程序如下。 Dim FSZ As Integer Rem 载入窗体Form2后产生的事件，给两个标签赋题目 Private Sub Form_Activate() Label2.Caption = 1.下面哪些我国的名胜是世界文遗产？ Label3.Caption = 2.能够永久保存数据的器件有哪些？ End Sub Rem 单击“判分”按钮后产生的事件 Private S