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

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

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

3、元,超过200元的局部纳税3%.3收入超过400元的局部,纳税 4%.4当收入达5000元或超过时,将4%税金改为5%.编程序实现上述操作.六、给定三角形的三条边的边长,计算三角形的面积.编写程序,首选判断给出 的三条边能否构成三角形,如可以构成,那么计算并输出该三角形的面积,否那么要 求重新输入.当输入-1时结束程序.七、编程求100以内的全部素数 八、编程打印钻石图案 九、输出杨辉三角形.十、有一个数组,包含了 10个不同的随机整数2090,要求计算出它们的平均值,并输 出这个数组中最接近于平均值的数.H-一、在一个窗体上建有包含三个命令按钮的控件数组和一个文体框.编程实现当按下标 题不同

4、的命令按钮时,使文体框中文字的字体发生相应的变化.十二、编程求1000以内的完全数.所谓完全数是指这样的自然数：它的各个约数不包括 该数本身.如28=1+2+4+7+14就是一个完全数.一、(P50-2)在窗体上画一个文本框,其名称为 Textl , Text属性为空白.再画 一个命令按钮,其名称为 C1, Visible属性为False.编写适当的事件过程.程 序运行后,如果在文本框中输入字符,那么命令按钮出现.要求：存盘时必须存放在“上机题文件夹下,工程文件名为vb2-2.vbp ,窗体文件名为vb2-2.frm.程序中不得使用任何变量.程序清单如下：Private Sub Text1_C

5、hange()If Text1 <> "" Then C1.Visible = TrueEnd Sub运行效果如下：艺仲E «*>我和二帘口将工卬 m 耘单IA<> P?用不由 RR二、(P78-2)计算圆的周长和面积：在窗体中添加一个文本框( Textl)和一个 对应的标签(Labell ),再添加两个命令按钮(Command和Command2和一个图 片框(Picturel ).程序运行时,当单击Command按钮后,计算圆的周长；当单 击Command技钮后,计算圆的面积；计算结果输出在图片框中.(要求在未输入 半径前两个按钮呈

6、灰色不可用.)程序清单如下：Private Sub Command1_Click()x = Val(Text1) * 2 * 3.14159Picturel.Print "r=" & Text1Picture1.Print " 周长="& xEnd SubPrivate Sub Command2_Click()y = Val(Text1) A 2 * 3.14159Picture1.Print "r=" & Text1Picture1.Print " 面积="& yEnd SubPr

7、ivate Sub Text1_Change()If Text1 <> "" ThenCommand1.Enabled = TrueCommand2.Enabled = TrueEnd IfEnd Sub运行效果如下:3T Tff曲lftEEL a三、(P78-3)在窗体上添加三个文本框和对应的三个标签,标签的标题分别是“个 位、“十位、“百位.程序运行时,当单击窗体后,随机产生一个【100, 999】 区间内的整数,将它的个位、十位、百位数字分别显示在对应的文本框中.程序清单如下：Private Sub Form_Click()Randomizex = Int

8、(Rnd * 900) + 100Textl.Text = x Mod 10Text2.Text = x 10 Mod 10Text3.Text = x 100End Sub运行效果如下:ip«ll四、P78-4设计一个计算程序：在窗体上添加四个文本框和四个对应的标签, 标签的标题分别是“语文、“数学、“外语、“平均成绩,三个命令按钮,标 题分别为“去除、“计算、“退出.程序运行后,用户按“去除按钮,那么清 除文本框中显示的内容,按“计算按钮,那么计算三科平均成绩,将计算结果显 示在第四个文本框中计算结果保存小数点后一位.单击退出按钮那么程序退出.程序清单如下:Private Sub

9、 Command1_Click()Textl =""Text2 =""Text3 =""Text4 ="" End SubPrivate Sub Command2_Click()Text4 = (Val(Text1) + Val(Text2) + Val(Text3) / 3Text4 = Format(Text4, "0.0")End SubPrivate Sub Command3_Click()Form1.HideEnd Sub运行效果如下:ri 压困五、(P112-3)某税务部门征收所得税

10、,规定如下：(1)收入200元以内,免征.(2)收入在200400元,超过200元的局部纳税3%.(3)收入超过400元的 局部,纳税4%.(4)当收入达5000元或超过时,将4%税金改为5%.编程序 实现上述操作.程序清单如下：Private Sub Command1_Click()x = Val(Text1)Select Case xCase Is<= 200Text2 = 0Case Is<= 400Text2 = (Val(Text1) - 200) * 0.03Case Is < 5000Text2 = 200 * 0.03 + (Val(Text1) - 400)

11、 * 0.04Case ElseText2 = 200 * 0.03 + (Val(Text1) - 400) * 0.05End SelectEnd Sub运行效果如下:* FdeaI收入所得税cli ck六、(P112-4)给定三角形的三条边的边长,计算三角形的面积.编写程序,首 选判断给出的三条边能否构成三角形,如可以构成,那么计算并输出该三角形的面 积,否那么要求重新输入.当输入-1时结束程序.程序清单如下：Private Sub Command1_Click()A = Val(Text1)B = Val(Text2)C = Val(Text3)If A <= 0 And A &

12、lt;> -1 Or B <= 0 And B <> -1 Or C <= 0 And C <> -1 ThenMsgBox "请重新输入！ ", 5 + 16 + 0,"警告"Text1 =""Text2 =""Text3 =""Elself A = -1 Or B = -1 Or C = -1 ThenUnload MeElself A + B <= C Or A + C <= B Or B + C <= A Then MsgBox

13、 请重新输入！ ", 5 + 16 + 0,"警告" Text1 ="" Text2 ="" Text3 =""ElseP = (A + B + C) / 2S = (P * (P - A) * (P - B) * (P - C) A (1 / 2) Text4 = SEnd IfEnd Sub运行效果如下:七、(P112-6)编程求100以内的全部素数程序清单如下：Private Sub Form_Click()y$ = "2"Dim n%, j%, k%n = 100For j =

14、 3 To n k = Int(Sqr(j)For i = 2 To kIf j Mod i = 0 Then Exit For Next iIf i > k Then y$ = y$ & " " & j End IfNext jMsgBox y,"显示素数"End Sub运行效果如下：显示素敷冈2 3 5 7 11 13 1723 29 31 37 41 43 47 53 S3 61 67 T1 73楣定书|八、(P112-8)编程打印钻石图案程序清单如下：Private Sub Form_Click()For i = -3 To

15、 3 a = Abs(i) x = 9 + a y = Abs(i * 2) z = 7 - y Print Tab(x); Forj = 1 To z Print "*" Next j PrintNext iEnd Sub运行效果如下:*源濯*率*本*九、(P147-1)输出杨辉三角形.程序清单如下：Private Sub Form_Click()Print 1Print 1; 1Print 1; 2; 1Print 1; 3; 3; 1Print 1; 4; 6; 4; 1Print 1; 5; 10; 10; 5; 1End Sub运行效果如下： Foral匚1回又L

16、 2 1L 5 3 1L 4 & 4 1L 5 10 IC 5 1十、(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(Rnd * 71)s = s + a(n)Print a(n);NextPrintp = s / 10Pr

17、int 平均值为："& 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 & "个数："& qEnd Sub运行效果如下：H一、P147-5在一个窗体上建有包含三个命令按钮的控

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