VB程序设计例题12例

索引

一、在窗体上画一个文本框，其名称为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。程序中不得使用任何变量。

程序清单如下：

Private Sub Text1_Change()

If Text1 <> \"\" Then C1.Visible = True

End Sub

运行效果如下：

二、（P78-2）计算圆的周长和面积：在窗体中添加一个文本框（Text1）和一个对应的标签（Label1），再添加两个命令按钮（Command1和Command2）和一个图片框（Picture1）。程序运行时，当单击Command1按钮后，计算圆的周长；当单击Command2按钮后，计算圆的面积；计算结果输出在图片框中。（要求在未输入半径前两个按钮呈灰色

不可用。）

程序清单如下：

Private Sub Command1_Click()

x = Val(Text1) * 2 * 3.14159

Picture1.Print \"r=\" & Text1

Picture1.Print \"周长=\" & x

End Sub

Private Sub Command2_Click()

y = Val(Text1) ^ 2 * 3.14159

Picture1.Print \"r=\" & Text1

Picture1.Print \"面积=\" & y

End Sub

Private Sub Text1_Change()

If Text1 <> \"\" Then

Command1.Enabled = True

Command2.Enabled = True

End If

End Sub

运行效果如下：

三、（P78-3）在窗体上添加三个文本框和对应的三个标签，标签的标题分别是“个位”、“十位”、“百位”。程序运行时，当单击窗体后，随机产生一个【100，999】区间内的整数，将它的个位、十位、百位数字分别显示在对应的文本框中。

程序清单如下：

Private Sub Form_Click()

Randomize

x = Int(Rnd * 900) + 100

Text1.Text = x Mod 10

Text2.Text = x \\ 10 Mod 10

Text3.Text = x \\ 100

End Sub

运行效果如下：

四、（P78-4）设计一个计算程序：在窗体上添加四个文本框和四个对应的标签，标签的标题分别是“语文”、“数学”、“外语”、“平均成绩”，三个命令按钮，标题分别为“清除”、“计算”、“退出”。程序运行后，用户按“清除”按钮，则清除文本框中显示的内容，按“计算”按钮，则计算三科平均成绩，将计算结果显示在第四个文本框中（计算结果保留小数

点后一位）。单击退出按钮则程序退出。

程序清单如下：

Private Sub Command1_Click()

Text1 = \"\"

Text2 = \"\"

Text3 = \"\"

Text4 = \"\"

End Sub

Private Sub Command2_Click()

Text4 = (Val(Text1) + Val(Text2) + Val(Text3)) / 3

Text4 = Format(Text4, \"0.0\")

End Sub

Private Sub Command3_Click()

Form1.Hide

End Sub

运行效果如下：

五、（P112-3）某税务部门征收所得税，规定如下：（1）收入200元以内，免征。（2）收入在200~400元，超过200元的部分纳税3%。（3）收入超过400元的部分，纳税4%。（4）当收入达5000元或超过时，将4%税金改为5%。编程序实现上述操作。

程序清单如下：

Private Sub Command1_Click()

x = Val(Text1)

Select Case x

Case Is<= 200

Text2 = 0

Case Is<= 400

Text2 = (Val(Text1) - 200) * 0.03

Case Is < 5000

Text2 = 200 * 0.03 + (Val(Text1) - 400) * 0.04

Case Else

Text2 = 200 * 0.03 + (Val(Text1) - 400) * 0.05

End Select

End Sub

运行效果如下：

六、（P112-4）给定三角形的三条边的边长，计算三角形的面积。编写程序，首选判断给出的三条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。当输入-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 \"请重新输入！\警告\"

Text1 = \"\"

Text2 = \"\"

Text3 = \"\"

ElseIf A = -1 Or B = -1 Or C = -1 Then

Unload Me

ElseIf A + B <= C Or A + C <= B Or B + C <= A Then

MsgBox \"请重新输入！\警告\"

Text1 = \"\"

Text2 = \"\"

Text3 = \"\"

Else

P = (A + B + C) / 2

S = (P * (P - A) * (P - B) * (P - C)) ^ (1 / 2)

Text4 = S

End If

End Sub

运行效果如下：

七、（P112-6）编程求100以内的全部素数。

程序清单如下：

Private Sub Form_Click()

y$ = \"2\"

Dim n%, j%, k%

n = 100

For j = 3 To n

k = Int(Sqr(j))

For i = 2 To k

If j Mod i = 0 Then Exit For

Next i

If i > k Then

y$ = y$ & \" \" & j

End If

Next j

MsgBox y, , \"显示素数\"

End Sub

运行效果如下：

八、（P112-8）编程打印钻石图案。

程序清单如下：

Private Sub Form_Click()

For i = -3 To 3

a = Abs(i)

x = 9 + a

y = Abs(i * 2)

z = 7 - y

Print Tab(x);

For j = 1 To z

Print \"*\";

Next j

Print

Next i

End Sub

运行效果如下：

九、（P147-1）输出杨辉三角形。

程序清单如下：

Private Sub Form_Click()

Print 1

Print 1; 1

Print 1; 2; 1

Print 1; 3; 3; 1

Print 1; 4; 6; 4; 1

Print 1; 5; 10; 10; 5; 1

End Sub

运行效果如下：

十、（P147-4）有一个数组，包含了10个不同的随机整数（20~90），要求计算出它们的平均值，并输出这个数组中最接近于平均值的数。

程序清单如下：

Private Sub Form_Click()

Randomize

Print \"10个20~90的随机数如下：\"

Dim a(1 To 10) As Integer, n As Integer

For n = 1 To 10

a(n) = 20 + Int(Rnd * 71)

s = s + a(n)

Print a(n);

Next

Print

p = s / 10

Print \"平均值为：\" & p

Dim b(1 To 10) As Integer, m As Integer

b(1) = Abs(a(1) - p)

x = b(1)

q = a(1)

r = 1

For m = 2 To 10

b(m) = Abs(a(m) - p)

If b(m) < x Then

x = b(m)

q = a(m)

r = m

End If

Next

Print \"10个随机数中最接近于平均值的数是第\" & r & \"个数：\" & q

End Sub

运行效果如下：

十一、（P147-5）在一个窗体上建有包含三个命令按钮的控件数组和一个文体框。编程实现当按下标题不同的命令按钮时，使文体框中文字的字体发生相应的变化。

程序清单如下：

Private Sub Command1_Click(Index As Integer)

Select Case Index

Case 0

Text1.FontName = \"黑体\"

Case 1

Text1.FontName = \"隶书\"

Case 2

Text1.FontName = \"楷体_GB2312\"

End Select

End Sub

运行效果如下：

十二、（P180-6）编程求1000以内的完全数。所谓完全数是指这样的自然数：它的各个约数（不包括该数本身）。如28=1+2+4+7+14就是一个完全数。

程序清单如下：

Private Sub Form_Click()

Print \"1000以内的完全数有：\"

For m = 2 To 1000

s = 0

For i = 1 To m - 1

If m Mod i = 0 Then

s = s + i

End If

Next

If s = m Then

Print m & \"=1+\";

For i = 2 To m - 1

If m Mod i = 0 Then

Print \"+\" & i;

End If

Next

Print

End If

Next

End Sub

运行效果如下：