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

VB顺序结构编程练习题(2)解答a.docVB顺序结构编程练****题(2)参考解答
1、有一个“就是它”的猜数游戏，步骤如下：
请你任意输入一个三位数，在这三位数后重复一遍，得到一个六位数，467—467467。把这个数 连续除以7, 11, 13,最后的商就是你输入的三位数。请编程加以验证。
x=val(inputbox(4＜请输入一个三位数：x”))
y=x*1000+x
丿) C= 345 y= 345
y=y/ll r
y=y/13
print ''x='';x,''y='';y
2、某学校开运动会，要在正六边形的操场的周围插上彩旗。如果每边插a面彩旗(包括每个角
餐銮甯齧舉盥需聶晋鷲萝面数为.&
上的彩旗)，a变量数可由键盘输入，问总共需要多少面彩旗?
24
a=val(inputbox(＜＜每边插旗数：”))
s=6*a・6
print"正六边形的操场每边插彩旗面数为: 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
自然数等差数列： 首贡二4 末项二15
1该自然数等差数列的和为：114
自然数等差数列： 首贡=1 末项二10
该自然数等差数列的和为：55
{等差数列的和=(首项+末项)X项数/ 2)} number=last-first+1;
5、输入一个学生的情况，包括学号（用整数表示）、姓名（用第一个字母表示）、语文成绩和数学 成绩，然后输出学号、姓名、总分和语数外三门课的平均成绩（保留两位小数）。
绩单== 20138888 王小毛
93
88
96
277

xh = ValCInputBoxC*请输入学号：”）） xm = InputBox（"请输入姓名：”） yw = Val（InputBox（'请输入语文成绩：”）） sx = Val（InputBox（n请输入数学成绩：”）） yy = Val（InputBox（"请输入英语成绩：”）） zf = sx + yw + yy jf=Int（zf/3* 100 + ）/100 Print "====成绩单===="
PrintH 学号：";xh
PrintH 姓名xm Print"语文：”；yw PrintH 数学：“；sx Print"英语：yy Print"总分:";zf PrintH 均分：";jf Print "================"
三条边为：689 该三角形面积：23. 5252523897194
6、输入三条边的整数值a、b、c,输出该三边构成的三