VB顺序结构编程练习题(2)解答a.doc

VB顺序结构编程练习题(2)参考解答1、有一个“就是它”的猜数游戏，步骤如下：请你任意输入一个三位数，在这三位数后重复一遍，得到一个六位数，467467467。把这个数连续除以7，11，13，最后的商就是你输入的三位数。请编程加以验证。x=val(inputbox(“请输入一个三位数：x”)y=x*1000+xy=y/7y=y/11y=y/13print ”x=”;x,”y=”;y2、某学校开运动会，要在正六边形的操场的周围插上彩旗。如果每边插a面彩旗(包括每个角上的彩旗)，a变量数可由键盘输入，问总共需要多少面彩旗? a=val(inputbox(“每边插旗数：”)s=6*a-6print ” 正六边形的操场每边插彩旗面数为：”;aprint ” 总共需要彩旗面数为：”;s3、计算图形的周长和面积 c=(48+36)*2s=48*12+24*24print ”图形的周长为：”;cprint ”图形的面积为：”;s4、编写求下列自然数等差数列之和的程序，数列的首项和末项由键盘输入。4+5+6+7+8+9+10+11+12+13+14+15等差数列的求和公式自己从网上或从数学手册查找，当然也可自己推导。sx = Val(InputBox(输入等差数列的首项：)mx = Val(InputBox(输入等差数列的末项：)n = mx - sx + 1s = (sx + mx) * n / 2print 自然数等差数列：print 首项=; sx, 末项=; mxprint 该自然数等差数列的和为：; s等差数列的和=(首项+末项)项数2) number=last-first+1;5、输入一个学生的情况，包括学号(用整数表示)、姓名(用第一个字母表示)、语文成绩和数学成绩，然后输出学号、姓名、总分和语数外三门课的平均成绩（保留两位小数）。xh = Val(InputBox(请输入学号：)xm = InputBox(请输入姓名：)yw = Val(InputBox(请输入语文成绩：)sx = Val(InputBox(请输入数学成绩：)yy = Val(InputBox(请输入英语成绩：)zf = sx + yw + yyjf = Int(zf / 3 * 100 + 0.5) / 100Print =成 绩 单=Print 学号：; xhPrint 姓名：; xmPrint 语文：; ywPrint 数学：; sxPrint 英语：; yyPrint 总分：; zfPrint 均分：; jfPrint =6、输入三条边的整数值a、b、c，输出该三边构成的三角形的面积。a=val(inputbox(“A边：”)b=val(inputbox(“B边：”)c=val(inputbox(“C边：”)p=(a+b+c)/2s=sqr(p*(p-a)*(p-b)*(p-c)print “该三角形面积：”;s7、输入一个三位整数，输出该三位数的各位数字之和，以及它的反序数。x = Val(InputBox(请输入一个三位数：x)b = x 100s = x 10 Mod 10g = x Mod 10Sum = b + s + gfxs = g * 100 + s * 10 + bPrint 三位数 X：; xPrint 三位数码和：sum=; SumPrint X的反序数：fxs=; fxs8、三个小朋友做游戏，第一个人把自己的糖果等分为三份，多余的吃掉，一份留给自己，另两份分别给其他两位；接下来，第二个人也仿照第一做法做了一遍，最后第三个人也如前面的人一样做了一遍。请输出三人做完游戏后各自的糖果数。(三人刚开始时各自的糖果数用键盘输入)。a=val(inputbox(“A糖果数：”)b=val(inputbox(“B糖果数：”)c=val(inputbox(“C糖果数：”)print “游戏前：”print “a=”;a,”b=”;b,”c=”;ca=a3 : b=b+a : c=c+ab=b3 : a=a+b : c=c+bc=c3 : a=a+c : b=b+cprint “游戏后：”print “a=”;a,”b=”;b,”c=”;c9、输入一元二次方程的三个系数(b24ac)，输出该方程的二个实数根。a=val(inputbox(“A：”)b=val(inputbox(“B：”)c=val(inputbox(“C：”)print “标准一元二次方程的系数A、B、C：”print “a=”;a,”b=”;b,”c=”;cd=b*b-4*a*cx1=(-b-sqr(d)/(2*a)x2=(-b+sqr(d)/(2*a)print “该一元二次方程的根为：”print “x1=”;x1,”x2=”;x210、输入两个整数给A,B两个变量，编程交换A,B两个变量的值，并输出。(用两种以上方法)。a = Val(InputBox(A：)b = Val(InputBox(B：)Print 交换前：, A=; a, B=; bc = a: a = b: b = cPrint 交换后：, A=; a, B=; b或a = Val(InputBox(A：)b = Val(InputBox(B：)Print 交换前：, A=; a, B=; ba = a+b: b =a-b: a = a-bPrint 交换后：, A=; a, B