End If
x=InputBox(\ Loop
Print\ End Sub 6.阅读以下程序：
Private Sub Form_Click() Dim k,n,m As Single n=10 m=1 k=1
Do While k<=n m=m*2 k=k+1 Loop Print m End Sub
程序运行后，单击窗体，输出结果为 。 7.以下循环的执行次数是 。 k=0
Do While k<=10 k=k+1 Loop 8.阅读以下程序：
Private Sub Form_Click() num=0
Do While num<=2 num=num+1 Print num Loop End Sub
程序运行后，单击窗体，输出结果为 。 9. 在窗体上画一个命令按钮，然后编写如下事件过程：
- 41 -
Private Sub Command1_Click() a=0
For i=1 To 2 For j=1 To 4
If j Mod 2 <>0 Then a=a+1 End If a=a+1 Next j Next i Print a End Sub
程序运行后，单击窗体，输出结果为 。 三、编程题
1.编写程序，计算1+2+3+??+100。
2.我国现有人口约为12亿，设年增长率为1%，编写程序，计算多少年后增长到20亿。 3.给定三角形的3条边长，计算三角形的面积。编写程序，首先判断给出的3条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。当输入-1时结束程序。
4.税务部门征收所得税，规定如下： （1）收入在200元以内，免征；
（2）收入在200~400元内，超过200元的部分纳税3%； （3）收入超过400元的部分，纳税4%；
（4）当收入达5000元或超过时，将4%税金改为5%。 编程序实现上述操作。 5.假定有以下每周工作安排： 星期一、三；讲计算机课
星期二、四：讲程序设计课 星期五：进修英语 星期六：政治学习 星期日：休息
- 42 -
试编写一个程序，对上述工作日程进行检索，程序运行后，要求输入一周里的某一天，程序将输出这一天的工作安排。在输入时用06分别代表星期日到星期六，如果输入06之外的数，则程序结束运行。
6.编写程序，打印如下所示的“数字金字塔”： 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
7.勾股定理中3个数的关系是：a2 + b2 =c2 。编写程序，输出30以内满足上述关系的整数组合，例如3、4、5就是一个整数组合。 8.从键盘上输入两个正整数M和N，求最大公因子。
9.如果一个数的因子之和等于这个数本身，则称这样的数为“完全数”。例如，整数28的因子为、2、4、7、14，其和1+2+4+7+14=28，因此28是一个完全数。编写一个程序，从键盘上输出正整数N和M，求出M和N之间的所有完全数。 10.编写程序，打印如下的乘积表： * 3 6 9 12 15 ?? 16 ?? 17 ?? 18 ??
11.从键盘上输入一个学生的学号和考试成绩，然后输出该学生的学号和考试成绩，并根据成绩按下面的规定输出对该学生的评语：
成绩 80~100 60~79 50~59 40~49 0~39 评语 Very good Good Fair Poor Fail
12.一个两位数的正整数，如果将它的个位数与十位数对调，则产生另一个正整数，我们把后者叫做前者的对调数。现给定一个两位的正数，请找到另一个两位的正整数，使得这两个两位数正整数之和等于它们各自的对调数之和。例如，12+32=23+21。编写程序，把具有这种特征的一对两位正整数都找出来。下面是其中的一种结果： 56+（10）=（1） +65 56+（65）=（56）+65 56+（21）=（12）+65 56+（76）=（67）+65 56+（32）=（23）+65 56+（87）=（78）+65
- 43 -
56+（43）=（34）+65 56+（98）=（89）+65 56+（54）=（45）+65
一、选择题
1.B 2.A 3.B 4.D 5.A 6.B 7.A 8.C 9.C 10.B 二、填空题 1.9 2.1 2 3
3.y=0 x<=0 5-2x x<=10 x-5 x<=15 0 x>15 4.x>=7
5.x>=0 x
- 44 -
自测题答案8
9.12
自测题9
一、选择题
1.用下面的语句所定义的数组的元素个数是 Dim A(-3 To 5)As Integer
A.6 B.7 C.8 D.9 2.用下面的语句所定义的数组的元素个数是 Dim arr(3 To 5,-2 To 2)
A.20 B.12 C.15 D.24
3.在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码： Private Sub Command1_Click()
Dim Arr1(10) As Integer,arr2(10) As Integer n=3
For i=1 To 5 Arr1(i)=i arr2(n)=2*n+i Next i
Print arr2(n);Arr1(n)
- 45 -