VB顺序结构编程练习题(2)参考解答1、有一个“就是它”的猜数游戏，步骤如下：请你任意输入一个三位数，在这三位数后重复一遍，得到一个六位数，467→467467。把这个数连续除以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\10Mod10g=xMod10Sum=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=a\3:b=b+a:c=c+ab=b\3:a=a+b:c=c+bc=c\3:a=a+c:b=b+cprint“游戏后：”print“a=”;a,”b=”;b,”c=”;c9、输入一元二次方程的三个系数(b2>4ac)，输出该方程的二个实数根。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)