VisualBasic面向过程程序设计题.docVIP

面向过程程序设计题 **1．已知地球的半径为6371公里，编写程序计算地球的表面积和体积。 *2．三角形三条边a，b，c，求三角形面积的公式为S=√s(s-a)(s-b)(s-c)，其中s=(a+b+c)/2编写程序，由键盘输入a，b，c的值，首先判断给出的三条边能否构成三角形，若能计算出三角形的面积S，并在窗体上输出三条边的值及面积的值；否则要求重新输入三条边。（提示：判断条件为任意两条边之和必须大于第三条边） 序计算y的值，x由键盘输入。计算公式根据x值分别为 当x≤2.5时，y= x2+1；当x2.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% 键盘上输入一个学生的成绩，根据下表输出该生的成绩与评语。 成绩 85—100 75—84 60—74 45—59 0—44 评语 Perfect Good Fair Poor Fail 猜数游戏。由随机函数产生一个1—100之间的随机整数R，用户从输入框输入一个猜数X，计算机通过比较X与R，给出提示（注：计算机提示利用MsgBox函数产生）：如果XR，计算机提示“太小了”，用户继续猜如果XR，计算机提示“太大了”，用户继续猜如果XR，计算机提示“猜中了”，在窗体上显示该数和猜的次数并结束猜数游戏。（改进程序：如果在5次以下猜中，在窗体上显示“太棒了！”，否则显示“加油！”） 编写一个程序，它能读并且能计算出连续加减算式的值。例如，输入+15-4+3+169-4后，给出算式值为179。 编写程序，计算1+2+3+……+100 编写程序，计算1!+2!+……+10! 编写程序，计算1+1/2+1/4+1/8+……+1/512+1/1024 编写程序，计算1-1/2+1/3-1/4+……+1/99-1/100 编写程序，计算1/(1*2)+1/(2*3)+1/(3*4)+……+1/(n*(n+1))；n=20 编写程序，求出当变量T为长整数（Long）类型时，式子T=1*2*3*……*N所允许的最大N。 用台劳级数求e的近似值，直到最后一项小于10-7。 e=1+1/1!+1/2!+1/3!+…… 编写程序求sin-1(0.5)的近似值。已知Sin-1x的值的计算公式为Sin-1x=x + x3/2·3 + 1·3 x5/2·4·5 + 1·3·5 x7/2·4·6·7 + …… 我国1999年现有人口12.4亿，设年增长率为1%，编写程序，计算哪一年增加到18亿。 求S=a+aa+aaa+……+aaaa…a(n个a)的值。例如，当a=2，n=4时，S=2+22+222+2222。a和n由键盘输入。 *19．从键盘上输入两个整数M和N，求最大公约数。 20．一个班级有20个学生，考数学、语文、英语三门课。编写程序，由键盘输入每个学生的数据，输入数据格式为每个学生的学号及三门课的考试成绩（如0051301，78，80，91）。将这个班级所有学生的学号、每门功课成绩、平均成绩逐行打印出来，并在最后一行打印各门功课不及格人数。（提示：利用Mid$函数将输入的每条数据分离成4项） *21．写一个程序将20个数读入计算机，并统计出其中负数的个数。 个有100个数组成的数列，它的头三个数为0，1，2。第四个数为前三个数之和，第五个数为第二、第三、第四三个数之和，以后每个数皆为前三个数之和，编写程序，在窗体上将这个数列按每行10个打印出来。 个数如果等于其每一个数字立方之和，则称此数为阿姆斯特朗数（Armstrong number）。如407就是一个阿姆斯特朗数，因为407=43+03+73。编写程序，找出1—2000之间所有的阿姆斯特朗数。 *24．勾股定理中的三个数的关系是a2+b2=c2，编写程序，输出100以内满足上述关系的不重复的整数组（如3、4、5）。 25．编写程序，打印如下图形。 $$$$$$$$$ $$$$$$$ $$$$$ $$$ $ $$$ $$$$$ $$$$$$$ $$$$$$$$$ 写程序，打印如下所示的“数字金字塔”： 1 121