2.我国现有人口为12亿,设年增长率为1%,编写程序,计算多少年后增加到16亿。 解答:程序如下:
Private Sub Form_Click( ) Dim p As Double Dim r As Single Dim n As Integer P=1200000000 r=0.01
While p<1600000000 P = P + P* r N = N + 1 Wend P = Int(P)
Print N;″年后,全国人口为:″;P End Sub
运行程序,单击窗体,输出结果为: 29年后,全国人口为:1601404641。
3.给定三角形的三条边长,计算三角形的面积。编写程序,首先判断给出的三条边能否构成三角形,如可以构成,则计算并输出该三角形的面积,否则要求重新输入。当输入-1时结束程序。
解答:从几何学可知,三角形的 两边之和大于第三边。因此,如果输入的三角形的三条边中两边之和小于或等于另一边长,则不能构成三角形。在这种情况下,给出适当的信息,并要求重新输入。如果能构成三角形,则输出该三角形的面积。 程序如下:
Private Sub Form_Click( ) Dim a,b,c,s,t As Single Start:
A = InputBox (″请输入A边的边长″) A = Val (a)
If a =-1 Then End
B = InputBox (″请输入B边的边长″) B = Val (b)
C =InputBox(″请输入C边的边长″) C = Val (c)
If a + b < = c Or b + c < = a Or c + a < = b Then
MsgBox ″所输入的值不能构成三角形,请重新输入″ GoTo Start End If
S =( a + b + c ) / 2
T = Spr (s * ( s — a )* ( s — b ) * ( s — c ) ) Print ″三角形的面积为:″; T End Sub
程序运行后,单击窗体,先后显示三个输入对话框,在三个对话框中分别输入三角形的三条边长,程序先判断输入的边长是否能构成三角形,然后决定之后的操作,用信息框显示信息
6
或者输出三角形的面积。当输入1,2,3时,将显示信息框,要求重新输入;如果输入8,7,6,则输出结果为: 三角形的面积为:20.33316
4.税务部门征收所得税,规定如下: (1)收入在200元以内,免征;
(2)收入在200~400内,超过200元的部分纳税3%; (3)收入超过400元的部分,纳税4%;
(4)当收入达到5000元或超过时,将4%税金改为5%。 编程序实现上述操作。 解答:程序如下:
Private Sub Form_Click ( ) R = InputBox (″请输入您的收入″) R = Val ( r )
If r < = 200 Then tax = 0
ElseIf r > 200 And r < = 400 Then tax = (r —200) *0.03
ElseIf r > 400 And r < 5000 Then tax = (r — 400) * 0.04 ElseIf r > = 5000 Then tax = ( r — 400 ) * 0.05 End If
Print″收入″;r; ″应纳税″; tax End Sub
程序运行后,单击窗体,在输入对话框中输入收入数,程序将输出纳税金额。 5.编写程序,打印如下所示的“数字金字塔”: 1 1 2 1
1 2 3 2 1 1 2 3 4 3 2 1 . . .
1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1 解答:程序如下:
Private Sub Form_Click ( ) For I = 1 To 9
For j = 1 To 30-3 * I Print\ Next j
For k = 1 To I Print k; Next k
For k = I—1 To 1 Step — 1 Print k;
7
Next k Print Next I End Sub
6.从键盘上输入两个正整数M和N,求最大公因子。 解答:程序如下:
Private Sub Form_Click ( ) Dim m, n As Integer
m = InputBox (″请输入M的值″) m = Val (m) m1 = m
n = InputBox(″请输入N的值″) n = Val ( n ) n1= n
Do While n < > 0 remin = m Mod n m = n
n=remin Loop
Print m1; \和\的最大公因子是:\ End Sub
该程序通过辗转相除法求两个正整数的最大公因子。程序运行后,在输入对话框中分别输入96和64,输出结果为:96和64的最大公因子是:32
7.从键盘上输入一个学生的学号和考试成绩,然后输出该学生的学号、成绩,并根据成绩按下面的规定输出对该学生的评语:
成绩 80~100 60~79 50~59 40~49 0~39 评语 Very good Good Fair Poor Fail 答案:程序如下:
Private Sub Form_Click ( ) n = InputBox(″请输入学号″) s = InputBox(″请输入分数″) If s >= 80 Then
MsgBox \学号\分数为 \ MsgBox \学号\分数为\ ElseIf s >= 50 And s <= 59 Then
MsgBox \学号\分数为\ ElseIf s >= 40 And s <= 49 Then
MsgBox \学号\分数为\ ElseIf s >= 0 And s <= 39 Then
MsgBox \学号\分数为\ End If End Sub
程序运行后,单击窗体,在输入对话框中分别输入学号和分数,程序将在输出对话框中输出适当评语。
8
9