VB习题及习题解答要点

操作步骤：

⑴在VB循环中创建工程、窗体，在窗体上添加一个图片框，1个命令按钮。 ⑵设置相关控件的属性，见表3-3-3所示。

表3-3-3 各相关控件的属性及其值

控件名称 Form1 Command1 属性 caption caption 属性值 ASCII码符与码值对照表 打印 备注 窗体的标题 按钮的标题 ⑶编写相关控件的事件代码，见图3-3-3(b)所示。 图3-3-3(b) “打印”按钮Click事件代码

⑷按F5功能键，运行程序，点击“打印”按钮，运行结果如图3-3-3(a)所示。

4.解：

解题分析：本题是求证通过文本框中输入的内容是否和指定内容(假设正确口令为：“123456”)相同。当文本框中内容输入完毕后验证文本框中内容是否正确，可利用文本框的KeyPress事件或Volidata事件编写代码若利用KeyPress事件，则要求用户在输入口令后必须按Enter键，通过KeyPress事件中返回的KeyAscii参数检测到Enter键，开始对文本框中输入的整体内容进行验证；如采用Volidata事件编程，则当文本框即将失去焦点时，触发Volidata事件，通过编程验证文本框中输入口令的正确性。本题解答使用KeyPress事件编程。当口令输入不正确时，可使用Msgbox()函数显示提示信息。为了防止输入口令时显示口令造成泄密，应设臵输入口令的文本框的PasswordChar属性值为“*”，使得在文本框中输入的任何内容均显示为*。

25-109

图3-3-4(a) 文本框KeyPress事件代码

操作步骤：

⑴在VB环境中创建工程、窗体，在窗体上添加1个标签，1个文本框。 ⑵设置相关控件的属性，见表3-3-4所示。

表3-3-4 各相关控件的属性及其值

控件名称 Form1 Text1 Text1 属性 属性值 Caption 口令验证 Text 空 PasswordChar * 备注 窗体的标题 清空 隐藏显示口令内容 ⑶编写相关控件的事件代码，见图3-3-4(a)所示。 ⑷按F5功能键，运行程序，观察程序运行效果，如图3-3-4(b)所示。

图3-3-4(b) 程序运行界面

5.解：

解题分析：一个数的因子就是能被此数整除的数，可以通过循环语句，用此数对从1开始，到此数的一半的每一个数进行Mod运算，余数为0的数都是此数的因子。

操作步骤：

⑴在VB环境中创建工程、窗体，在窗体上添加3个标签，3个文本框，1个按钮。

⑵设置各相关控件的属性，见表3-3-5所示。

图3-3-5(a) 命令按钮Click事件代码

26-109

表3-3-5 各相关控件的属性及其值

控件名称 Form1 Text1/Text2/text3 Label1 Label2 Label3 Command1 属性 Caption Text Caption Caption Caption Caption 属性值 求解因子 空 输入数据 其因子是 因子个数 求因子 备注 窗体的标题 清空

⑶编写相关控件的事件代码，见图3-3-5(a)所示。

⑷按F5功能键，运行程序，在“输入数据”文本框中输入一个数(例如50)，点击“求因子”按钮，在“其因子是”和“因子个数”文本框中分别显示出该的所有因子及统计出的因子个数，运行界面如图3-3-5(b)所示。

图3-3-6(a) 习题3-6程序运行界面 图3-3-5(b) 程序运行界面

6.解：

解题分析：声明一个包含10个元素的数组，在循环语句中，用随机函数产生10随机整数，每产生一个随机整数，都对其进行最小数、最大数比较，并将其累加到存放求和值的变量中，循环结束，即可得出最小数、最大数，将其累加和除以10即为它们的平均数。

操作步骤：

⑴在VB环境中创建工程、窗体，在窗体上添加4个标签，4个文本框控件。 ⑵设置相关控件的属性，见表3-3-6所示。

表3-3-6 各相关控件的属性及其值

控件名称 Form1 Text1/Text2 Text3/Text4 Label1 Label2 Label3 Label4 27-109

属性 Caption Text Caption Caption Caption Caption 属性值 求最大数和最小数 空 生成一组数据 最大数是 最小数是 平均数是 清空 备注 窗体的标题

⑶编写相关控件的事件代码，见图3-3-6(b)所示。 图3-3-6(b) 窗体Click事件代码

⑷按F5功能键，运行程序，程序运行结果如图3-3-6(a)所示。

7.解：

解题分析：采用循环语句，循环变量取值从6开始到100，每一个循环变量的值，都对6进行Mod运算，根据结果是否为0确定是否是6的倍数，若是则在窗体上显示，并将其值进行累加计算，计数器加1，循环图3-3-7(a) 习题3-7程序运行界面 结束，就可在窗体上显示出100以内的所有

6的倍数的数字，个数及累加和(如图3-3-7(a)所示)。

28-109

图3-3-7(b) 窗体的Click事件代码