操作步骤:
⑴在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事件代码