完整word版,VB程序设计例题12例

1、索引一、在窗体上画一个文本框，其名称为 Text1 ，Text 属性为空白。再画一个命令按钮，其名称为 C1，Visible 属性为 False 。编写适当的事件过程。 程序运行后，如果在文本框中输入字符，则命令按钮出现。二、计算圆的周长和面积：在窗体中添加一个文本框（ Text1 ）和一个对应的标签（ Label1 ），再添加两个命令按钮（ Command1和 Command2）和一个图片框（ Picture1 ）。程序运行时，当单击 Command1按钮后，计算圆的周长；当单击Command2按钮后，计算圆的面积；计算结果输出在图片框中。 （要求在未输入半径前两个按钮呈灰色不可用。 ）三、

2、在窗体上添加三个文本框和对应的三个标签，标签的标题分别是“个位” 、“十位”、“百位”。程序运行时，当单击窗体后，随机产生一个【 100，999】区间内的整数，将它的个位、十位、百位数字分别显示在对应的文本框中。四、设计一个计算程序： 在窗体上添加四个文本框和四个对应的标签， 标签的标题分别是“语文”、“数学”、“外语”、“平均成绩”，三个命令按钮，标题分别为“清除”、“计算”、“退出”。程序运行后，用户按“清除”按钮，则清除文本框中显示的内容，按“计算”按钮，则计算三科平均成绩，将计算结果显示在第四个文本框中（计算结果保留小数点后一位） 。单击退出按钮则程序退出。五、某税务部门征收所得税，规

3、定如下： （1）收入 200 元以内，免征。（2）收入在 200400 元，超过 200 元的部分纳税 3%。（ 3）收入超过 400 元的部分，纳税4%。（ 4）当收入达 5000 元或超过时，将 4%税金改为 5%。编程序实现上述操作。六、给定三角形的三条边的边长，计算三角形的面积。编写程序，首选判断给出的三条边能否构成三角形， 如可以构成， 则计算并输出该三角形的面积， 否则要求重新输入。当输入 -1 时结束程序。七、编程求 100 以内的全部素数。八、编程打印钻石图案。九、输出杨辉三角形。十、有一个数组，包含了 10 个不同的随机整数（ 2090），要求计算出它们的平均值，并输出这个数

4、组中最接近于平均值的数。十一、在一个窗体上建有包含三个命令按钮的控件数组和一个文体框。编程实现当按下标题不同的命令按钮时，使文体框中文字的字体发生相应的变化。十二、编程求 1000 以内的完全数。所谓完全数是指这样的自然数：它的各个约数（不包括该数本身）。如 28=1+2+4+7+14 就是一个完全数。一、（P50-2）在窗体上画一个文本框，其名称为 Text1 ，Text 属性为空白。再画一个命令按钮，其名称为 C1，Visible 属性为 False 。编写适当的事件过程。程序运行后，如果在文本框中输入字符，则命令按钮出现。要求：存盘时必须存放在“上机题”文件夹下，工程文件名为 vb2-2

5、.vbp ，窗体文件名为 vb2-2.frm 。程序中不得使用任何变量。程序清单如下：Private Sub Text1_Change()If Text1 Then C1.Visible = TrueEnd Sub运行效果如下：二、（ P78-2）计算圆的周长和面积：在窗体中添加一个文本框（ Text1 ）和一个对应的标签（ Label1 ），再添加两个命令按钮（ Command1和 Command2）和一个图片框（ Picture1 ）。程序运行时，当单击 Command1按钮后，计算圆的周长；当单击 Command2按钮后，计算圆的面积； 计算结果输出在图片框中。（要求在未输入半径前两个按

6、钮呈灰色不可用。 ）程序清单如下：Private Sub Command1_Click()x = Val(Text1) * 2 * 3.14159Picture1.Print r= & Text1Picture1.Print 周长 = & xEnd SubPrivate Sub Command2_Click()y = Val(Text1) 2 * 3.14159Picture1.Print r= & Text1Picture1.Print 面积 = & yEnd SubPrivate Sub Text1_Change()If Text1 ThenCommand1.Enabled = TrueC

7、ommand2.Enabled = TrueEnd IfEnd Sub运行效果如下：三、（P78-3）在窗体上添加三个文本框和对应的三个标签， 标签的标题分别是 “个位”、“十位”、“百位”。程序运行时，当单击窗体后，随机产生一个【 100，999】区间内的整数，将它的个位、十位、百位数字分别显示在对应的文本框中。程序清单如下：Private Sub Form_Click()Randomizex = Int(Rnd * 900) + 100Text1.Text = x Mod 10Text2.Text = x 10 Mod 10Text3.Text = x 100End Sub运行效果如下：四

8、、（ P78-4）设计一个计算程序：在窗体上添加四个文本框和四个对应的标签，标签的标题分别是“语文” 、“数学”、“外语”、“平均成绩”，三个命令按钮，标题分别为“清除”、“计算”、“退出”。程序运行后，用户按“清除”按钮，则清除文本框中显示的内容，按“计算”按钮，则计算三科平均成绩，将计算结果显示在第四个文本框中 （计算结果保留小数点后一位） 。单击退出按钮则程序退出。程序清单如下：Private Sub Command1_Click()Text1 = Text2 = Text3 = Text4 = End SubPrivate Sub Command2_Click()Text4 = (Va

9、l(Text1) + Val(Text2) + Val(Text3) / 3Text4 = Format(Text4, 0.0)End SubPrivate Sub Command3_Click()Form1.HideEnd Sub运行效果如下：五、（ P112-3）某税务部门征收所得税，规定如下： （1）收入 200 元以内，免征。（ 2）收入在 200400 元，超过 200 元的部分纳税 3%。（3）收入超过 400 元的部分，纳税 4%。（4）当收入达 5000 元或超过时，将 4%税金改为 5%。编程序实现上述操作。程序清单如下：Private Sub Command1_Click(

10、)x = Val(Text1)Select Case xCase Is= 200Text2 = 0Case Is= 400Text2 = (Val(Text1) - 200) * 0.03Case Is 5000Text2 = 200 * 0.03 + (Val(Text1) - 400) * 0.04Case ElseText2 = 200 * 0.03 + (Val(Text1) - 400) * 0.05End SelectEnd Sub运行效果如下：六、（ P112-4）给定三角形的三条边的边长，计算三角形的面积。编写程序，首选判断给出的三条边能否构成三角形， 如可以构成，则计算并输出

11、该三角形的面积，否则要求重新输入。当输入 -1 时结束程序。程序清单如下：Private Sub Command1_Click()A = Val(Text1)B = Val(Text2)C = Val(Text3)If A = 0 And A -1 Or B = 0 And B -1 Or C = 0 And C -1 Then MsgBox 请重新输入！ , 5 + 16 + 0, 警告 Text1 = Text2 = Text3 = ElseIf A = -1 Or B = -1 Or C = -1 ThenUnload MeElseIf A + B = C Or A + C = B Or

12、 B + C k Theny$ = y$ & & jEnd IfNext jMsgBox y, , 显示素数 End Sub运行效果如下：八、（ P112-8）编程打印钻石图案。程序清单如下：Private Sub Form_Click()For i = -3 To 3a = Abs(i)x = 9 + ay = Abs(i * 2)z = 7 - yPrint Tab(x);For j = 1 To zPrint *;Next jPrintNext iEnd Sub运行效果如下：九、（ P147-1）输出杨辉三角形。程序清单如下：Private Sub Form_Click()Print 1

13、Print 1; 1Print 1; 2; 1Print 1; 3; 3; 1Print 1; 4; 6; 4; 1Print 1; 5; 10; 10; 5; 1End Sub运行效果如下：十、（ P147-4）有一个数组，包含了 10 个不同的随机整数（ 2090），要求计算出它们的平均值，并输出这个数组中最接近于平均值的数。程序清单如下：Private Sub Form_Click()RandomizePrint 10 个 2090 的随机数如下：Dim a(1 To 10) As Integer, n As IntegerFor n = 1 To 10a(n) = 20 + Int(R

14、nd * 71)s = s + a(n)Print a(n);NextPrintp = s / 10Print 平均值为： & pDim b(1 To 10) As Integer, m As Integerb(1) = Abs(a(1) - p)x = b(1)q = a(1)r = 1For m = 2 To 10b(m) = Abs(a(m) - p)If b(m) x Thenx = b(m)q = a(m)r = mEnd IfNextPrint 10 个随机数中最接近于平均值的数是第 & r & 个数： & q End Sub运行效果如下：十一、（ P147-5 ）在一个窗体上建有

15、包含三个命令按钮的控件数组和一个文体框。编程实现当按下标题不同的命令按钮时，使文体框中文字的字体发生相应的变化。程序清单如下：Private Sub Command1_Click(Index As Integer)Select Case IndexCase 0Text1.FontName = 黑体 Case 1Text1.FontName = 隶书 Case 2Text1.FontName = 楷体 _GB2312End SelectEnd Sub运行效果如下：十二、（P180-6 ）编程求 1000 以内的完全数。所谓完全数是指这样的自然数：它的各个约数（不包括该数本身） 。如 28=1+2+4+7+14 就是一个完全数。程序清单如下