admin 管理员组文章数量: 1087858
2024年1月23日发(作者：processing的中文)
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=a3 : b=b+a : c=c+a
b=b3 : a=a+b : c=c+b
c=c3 : a=a+c : b=b+c
print “游戏后：”
print “a=”;a,”b=”;b,”c=”;c
9、输入一元二次方程的三个系数(b2>4ac)，输出该方程的二个实数根。
a=val(inputbox(“A：”))
b=val(inputbox(“B：”))
c=val(inputbox(“C：”))
print “标准一元二次方程的系数A、B、C：”
print “a=”;a,”b=”;b,”c=”;c
d=b*b-4*a*c
x1=(-b-sqr(d))/(2*a)
x2=(-b+sqr(d))/(2*a)
print “该一元二次方程的根为：”
print “x1=”;x1,”x2=”;x2
10、输入两个整数给A,B两个变量，编程交换A,B两个变量的值，并输出。(用两种以上方法)。
a = Val(InputBox("A："))
b = Val(InputBox("B："))
Print "交换前：", "A="; a, "B="; b
c = a: a = b: b = c
Print "交换后：", "A="; a, "B="; b
或
a = Val(InputBox("A："))
b = Val(InputBox("B："))
Print "交换前：", "A="; a, "B="; b
a = a+b: b =a-b: a = a-b
Print "交换后：", "A="; a, "B="; b
或
a = Val(InputBox("A："))
b = Val(InputBox("B："))
Print "交换前：", "A="; a, "B="; b
a = a*b: b =a/b: a = a/b
Print "交换后：", "A="; a, "B="; b
版权声明：本文标题：VB顺序结构编程练习题(2)解答a 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/b/1705984262a496687.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论