VB顺序结构编程练习题解答a.docVIP

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