VISUAL BASIC 面向过程程序设计题

14． 编写程序，求出当变量 T 为长整数（Long）类型时，
式子 T=1*2*3*……*N 所允许的最大 N。 15． 用台劳级数求 e 的近似值，直到最后一项小于 10-7。
e=1+1/1!+1/2!+1/3!+…… 16． 编写程序求 sin-1(0.5)的近似值。已知 Sin-1x 的值的计算公式为
77 44 36 58
然后进行如下操作：
（1）输出矩阵对角线上数的和。 （2）找出矩阵中最大值的位置（行、列值）。
（3）将矩阵转置后输出。
*43．假定在磁盘上已建立了一个通讯录文件，文件中的每个人包含编号、姓名、电话号码
和地址四项内容。编写一个程序，从文件中查找指定姓名的电话号码及地址。若查找不
成功，给出查找失败信息。
面向过程程序设计题
**1．已知地球的半径为 6371 公里，编写程序计算地球的表面积和体积。
*2．三角形三条边 a，b，c，求三角形面积的公式为
S=√s(s-a)(s-b)(s-c)，其中 s=(a+b+c)/2
编写程序，由键盘输入 a，b，c 的值，首先判断给出的三条边能否构成三角形，若能计
算出三角形的面积 S，并在窗体上输出三条边的值及面积的值；否则要求重新输入三条
成绩 85—100 75—84 60—74 45—59 0—44
评语
Perfect Good
Fair
Poor
Fail
7． 猜数游戏。由随机函数产生一个 1—100 之间的随机整数 R，用户从输入框输入一个猜数
X，计算机通过比较 X 与 R，给出提示（注：计算机提示利用 MsgBox 函数产生）：
如果 X<R，计算机提示“太小了”，用户继续猜
*44．假定磁盘上已有一个学生成绩文件，存放着 100 个学生的情况，包括学号、姓名、性
别和四门功课的成绩。编写程序，分别建立以下几个文件：
1.
女生成绩文件；
2.
男生成绩文件；
3.
两门课以上（含两门课）不及格学生成绩文件；
4.
按四门课平均成绩从高到低排列的学生成绩文件（须增加平均成绩一项）。
101
*19．从键盘上输入两个整数 M 和 N，求最大公约数。 20．一个班级有 20 个学生，考数学、语文、英语三门课。编写程序，由键盘输入每个学生
的数据，输入数据格式为每个学生的学号及三门课的考试成绩（如 0051301，78，80， 91）。将这个班级所有学生的学号、每门功课成绩、平均成绩逐行打印出来，并在最后 一行打印各门功课不及格人数。（提示：利用 Mid$函数将输入的每条数据分离成 4 项） *21．写一个程序将 20 个数读入计算机，并统计出其中负数的个数。 22．个有 100 个数组成的数列，它的头三个数为 0，1，2。第四个数为前三个数之和，第五 个数为第二、第三、第四三个数之和，以后每个数皆为前三个数之和，编写程序，在窗 体上将这个数列按每行 10 个打印出来。 23．个数如果等于其每一个数字立方之和，则称此数为阿姆斯特朗数（Armstrong number）。 如 407 就是一个阿姆斯特朗数，因为 407=43+03+73。编写程序，找出 1—2000 之间所有 的阿姆斯特朗数。 *24．勾股定理中的三个数的关系是 a2+b2=c2，编写程序，输出 100 以内满足上述关系的不 重复的整数组（如 3、4、5）。 25．编写程序，打印如下图形。
如果 X>R，计算机提示“太大了”，用户继续猜
如果 X>R，计算机提示“猜中了”，在窗体上显示该数和猜的次数并结束猜数游戏。（改
进程序：如果在 5 次以下猜中，在窗体上显示“太棒了！”，否则显示“加油！”）
8． 编写一个程序，它能读并且能计算出连续加减算式的值。例如，输入+15-4+3+169-4 后，
1 123456789 2 2 4 6 8 10 12 14 16 18 3 3 6 9 12 15 18 21 24 27
……………… 9 9 18 27 36 45 54 63 72 81 28．编写程序能自动形成并打印杨辉三角形，行数由键盘输入（≥3）。杨辉三角形格式如下：
1 11 121 1331 14641 1 5 10 10 5 1 1 6 15 20 15 6 1 ………… 29．一个两位的正整数，如果将它的个位数字与十位数字对调，则产生另一个正整数，我们 把后者叫做前者的对调数。编写程序，由键盘输入一个两位正整数，找出另一个两位 正整数，使得这两个两位正整数之和等于它们各自的对调数之和。要求把所有符合以 上条件的一对对两位正整数都找出来，并按以下格式输出。例如，输入的一个两位正 整数为 56，那么结果为： 56 +（10）=（1）+ 65 56 +（21）=（12）+ 65 56 +（32）=（23）+ 65 56 +（43）=（34）+ 65 56 +（54）=（45）+ 65 56 +（65）=（56）+ 65 56 +（76）=（67）+ 65 56 +（87）=（78）+ 65 56 +（98）=（89）+ 65 30．编写程序，通过调用阶乘的函数过程求 S=A！+B！+C！。A、B、C 值由键盘输入。 *31 ． 根 据 进 位 计 数 制 原 则 编 写 将 R 进 制 数 X 转 换 为 十 进 制 数 的 函 数 过程；参数为 X、R，函数值为转换后的十进制数。 *32．编写一个三个数中求最大数 Max 的函数过程。然后用这个函数过程分别求三个数、五 个数及七个数中的最大值。 33．a 为一个正整数，如果 a2 =××a 成立，则称 a 为“守形数”。例如 52=25，252=625，则 5 和 25 都是守形数。编写一个判断守形数的过程 Automorphic，参数为一个正整数。利 用该过程查找 1 到 1000 内的所有守形数。 *34．y=f(u+v)/(f(u)+f(v))，u、v 为变量，它们的数值由键盘输入；f(x)=(sin(x)+cos2(x))/4，用
$$$$$$$$$ $$$$$$$
$$$$$ $$$ $ $$$
$$$$$ $$$$$$$ $$$$$$$$$ 26．写程序，打印如下所示的“数字金字塔”：
1 121 12321 1234321 ………… 12345678987654321
99
27．编写程序，打印如下“九九表” *1 2 3 4 5 6 7 8 9
41．由随机函数产生 20 个 1—500 之间的随机整数放入数组中，将它们按从小到大的顺序进
行排序。再从键盘上用 InputBox 函数输入一个整数，将这个数添加到数组中并保持数
组的从小到大的顺序。
42．编写程序，输入下面的二维数组：
25 36 78 13
26 12 88 93
75 18 22 32
边。（提示：判断条件为任意两条边之和必须大于第三条边）
3． 序计算 y 的值，x 由键盘输入。计算公式根据 x 值分别为
当 x≤2.5 时，y= x2+1；当 x>2.5 时，y=x2-1
*4．写程序求解一元二次方程 ax2+bx+c=0 的根。要求 a、b、c 由键盘输入，要求判别式 b2-4ac≥0 且 a≠0。
5．编写程序，在输入个人收入后，按以下规定给出纳税值：
（1）收入在 800 元以内，免征；
（2）收入在 800——1200 元内，超过 800 元部分纳税 20%
（3）收入超过 1200 元部分，纳税 30%
（4）收入达到 5000 元或超过时，将 30%税金改为 40%
6． 键盘上输入一个学生的成绩，根据下表输出该生的成绩与评语。
序后输出。
*39．由随机函数产生 50 个 100—300 之间的随机整数放入数组中，将它们中的偶数按从大
到小的顺序放入另一个数组并输出。
40．随机函数产生 100 个 1—1000 之间的随机整数放入数组中，再从键盘上用 InputBox 函
数输入一个整数，在数组中找出该数并删除，若数组中没有该数，输出“无此数据”。
给出算式值为 179。
9． 编写程序，计算 1+2+3+……+100
10． 编写程序，计算 1!+2!+……+10!
11．编写程序，计算 1+1/2+1/4+1/8+……+1/512+1/1024
12． 编写程序，计算 1-1/2+1/3-1/4+……+1/99-1/100
13． 编写程序，计算 1/(1*2)+1/(2*3)+1/(3*4)+……+1/(n*(n+1))；n=20
计优秀、合格和不合格的人数。
*37．从键盘上任意输入若干个（假设不超过 100 个）任意数，将其中的负数、正数分别用
wk.baidu.com
两个数组保存起来。如果输入的数为 0，则表示结束输入，分别将正数和负数的个数、
平均值、最大数、最小数统计出来。
38．随机函数产生 100 个 1—200 之间的随机整数放入数组中，将它们按从小到大的顺序排
Sin-1x=x + x3/2·3 + 1·3x5/2·4·5 + 1·3·5x7/2·4·6·7 + ……
98
17． 我国 1999 年现有人口 12.4 亿，设年增长率为 1%，编写程序，计算哪一年增加到 18 亿。
18． 求 S=a+aa+aaa+……+aaaa…a(n 个 a)的值。例如，当 a=2，n=4 时，S=2+22+222+2222。 a 和 n 由键盘输入。
100
自定义函数过程的方法编写程序计算出 y 值。
35．波纳契（Fibonacci）数列的第一项是 0，第二项是 1，以后各项都是前两项的和。要求
用函数过程的递归算法求出斐波纳契数列的第 N 项的值。N 由键盘输入。
*36．从键盘上输入班上 30 位同学的体育成绩，并用一个数组保存起来。要求将班上这些同 学的成绩按优秀（≥85）、合格（≥60）和不合格（<60）进行归类打印出来，并分别统