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

《VB程序设计案例教程（ ） 第5章 中文 VB 程序设计基础》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第5章常用控件【案例19】基本常识我判断【拓展案例48】四则运算练习【案例20】显示个人信息【案例21】人事档案记录卡【拓展案例50】猜字母看谁快【拓展案例51】模拟彩票系统【案例22】动态标签【拓展案例52】动态按钮【拓展案例53】控件数组验证程序【案例23】一元二次方程的根4【拓展案例54】调色板【拓展案例55】字符菱形图案2．【案例19】基本常识我判断图5-1-1“基本常识我判断”程序运行后的两幅画面5.1【案例19】基本常识我判断5.1.1学习目的“基本常识我判断”程序运行后的画面如图5-1-1左图所示，可以看出，窗体的名称为“基本常识我判断”，窗体内上边的标题是“基本常识我判断”，

2、窗体内有两道单选练习题。单击你认为正确的单选项，再单击“下一组题目”按钮，即可切换到另一个名称也为“基本常识我判断”的窗体，如图5-1-1右图所示（还没有判分）。由该图可以看出，窗体内上边的标题是“基本常识我判断”，窗体内有两道复选练习题。单击你认为正确的复选框，再单击“判分”按钮，即可在分数文本框内显示出相应的分数，如图5-1-1右图所示。此时，“退出”按钮由无效变为有效，单击“退出”按钮，即可退出程序的运行。通过本案例的学习，可以进一步了解VB6.0语言中常用的一些控件的使用方法，初步了解单选按钮和复选框控件的使用方法，以及控件数组的使用方法。5.1.2案例实现1．创建程序用户界面（1）

3、“基本常识我判断”应用程序有两个窗体，一个名称为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右图所示。这些对象的主

4、要属性设置如表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”单选钮组也如此。在创建窗体中的控件时，可以采用复制和粘贴的

5、方法。如果要创建控件数组，在进行控件复制前，应将要复制的控件的Index属性设置为0。2．输入程序代码（1）在“Form1”窗体的“代码”窗口内的代码程序如下。PublicFSAsInteger'定义一个全局变量FS用来保存分数Rem给两个标签赋字符串，显示题目PrivateSubForm_Activate()Label2.Caption="1.三角形内角和是（度）："Label3.Caption="2.直角三角形的两个直角边长分别是3和4，斜边长是："EndSubRem单击“下一组题目”按钮后产生的事件PrivateSubCommand1_Click()FS=0'保存分数的变量FS赋初值0

6、IfOption1(1)=TrueThenFS=FS+25'选中第1题第2个单选钮后加25分IfOption2(2)=TrueThenFS=FS+25'选中第2题第3个单选钮后加25分UnloadForm1'卸载窗体Form1Form2.Show'加载并显示窗体Form2EndSub（2）在“Form2”窗体的“代码”窗口内的代码程序如下。DimFSZAsIntegerRem载入窗体Form2后产生的事件，给两个标签赋题目PrivateSubForm_Activate()Label2.Caption="1.下面哪些我国的名胜是世界文遗产？"Label3.Caption="2.能够永久保存数据

7、的器件有哪些？"EndSubRem单击“判分”按钮后产生的事件PrivateSubCommand1_Click()FSZ=0'变量FSZ赋初值0FSZ=Form1.FS'将窗体Form1中定义的变量FS的值赋给变量FSZRem如果选中了第1题第1、2、3、4个复选框，则加25分IfCheck1(0)AndCheck1(1)AndCheck1(2)AndCheck1(3)ThenFSZ=FSZ+25Remy如果