VB程序设计例题12例.pdf

索引

一、在窗体上画一个文本框，其名称为Text1，Text属性为空白。再画一个命令

按钮，其名称为C1，Visible属性为False。编写适当的事件过程。程序运行后，

如果在文本框中输入字符，则命令按钮出现。

二、计算圆的周长和面积：在窗体中添加一个文本框（Text1）和一个对应的标

签（Label1），再添加两个命令按钮（Command1和Command2）和一个图片框

（Picture1）。程序运行时，当单击Command1按钮后，计算圆的周长；当单击

Command2按钮后，计算圆的面积；计算结果输出在图片框中。（要求在未输入半

径前两个按钮呈灰色不可用。）

三、在窗体上添加三个文本框和对应的三个标签，标签的标题分别是“个位”、

“十位”、“百位”。程序运行时，当单击窗体后，随机产生一个【100，999】区

间内的整数，将它的个位、十位、百位数字分别显示在对应的文本框中。

四、设计一个计算程序：在窗体上添加四个文本框和四个对应的标签，标签的标

题分别是“语文”、“数学”、“外语”、“平均成绩”，三个命令按钮，标题分别为

“清除”、“计算”、“退出”。程序运行后，用户按“清除”按钮，则清除文本框

中显示的内容，按“计算”按钮，则计算三科平均成绩，将计算结果显示在第四

个文本框中（计算结果保留小数点后一位）。单击退出按钮则程序退出。

五、某税务部门征收所得税，规定如下：（1）收入200元以内，免征。（2）收入

在200~400元，超过200元的部分纳税3%。（3）收入超过400元的部分，纳税

4%。（4）当收入达5000元或超过时，将4%税金改为5%。编程序实现上述操作。

六、给定三角形的三条边的边长，计算三角形的面积。编写程序，首选判断给出

的三条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要

求重新输入。当输入-1时结束程序。

七、编程求100以内的全部素数。

八、编程打印钻石图案。

九、输出杨辉三角形。

十、有一个数组，包含了10个不同的随机整数（20~90），要求计算出它们的平均值，并输

出这个数组中最接近于平均值的数。

十一、在一个窗体上建有包含三个命令按钮的控件数组和一个文体框。编程实现当按下标

题不同的命令按钮时，使文体框中文字的字体发生相应的变化。

十二、编程求1000以内的完全数。所谓完全数是指这样的自然数：它的各个约数（不包括

该数本身）。如28=1+2+4+7+14就是一个完全数。

一、（P50-2）在窗体上画一个文本框，其名称为Text1，Text属性为空白。再画

一个命令按钮，其名称为C1，Visible属性为False。编写适当的事件过程。程

序运行后，如果在文本框中输入字符，则命令按钮出现。

要求：存盘时必须存放在“上机题”文件夹下，工程文件名为vb2-2.vbp，窗体

文件名为vb2-2.frm。程序中不得使用任何变量。

程序清单如下：

PrivateSubText1_Change()PrivateSubText1_Change()

EndSub

运行效果如下：

二、（P78-2）计算圆的周长和面积：在窗体中添加一个文本框（Text1）和一个

对应的标签（Label1），再添加两个命令按钮（Command1和Command2）和一个图

片框（Picture1）。程序运行时，当单击Command1按钮后，计算圆的周长；当单

击Command2按钮后，计算圆的面积；计算结果输出在图片框中。（要求在未输入

半径前两个按钮呈灰色不可用。）

程序清单如下：

PrivateSubCommand1_Click()

x=Val(Text1)*2*3.14159x=Val(Text1)*2*3.14159x=Val(Text1)*2*3.14159

周长周长

EndSub

PrivateSubCommand2_Click()

y=Val(Text1)^2*3.14159y=Val(Text1)^2*3.14159y=Val(Text1)^2*3.14159

面积面积

EndSub

PrivateSubText1_Cha