算法与程序设计vb编程复习.ppt

上海市继光高级中学 上海市继光高级中学 上海市继光高级中学 上海市继光高级中学 上海市继光高级中学 上海市继光高级中学 上海市继光高级中学 上海市继光高级中学 上海市继光高级中学 上海市继光高级中学 上海市继光高级中学 算法与程序设计 VB编程复习 顺序模式 1.变量赋值 Dim a as integer, b as integer, c as integer a=5 b=6 c=2*a+b print c 上海市继光高级中学 * 顺序模式 2.表达式运算 dim x as integer, y as integer, z as integer, s as integer x=9 y=(x-3)*5 z=(x+y)/3 s=(x+y+z)*2 print s 上海市继光高级中学 * 顺序模式 3.计算圆面积 自然语言 流程图 程序代码 第1步：开始 第2步：输入圆半径r 第3步：计算圆面积s 第4步：输出圆面积s 第5步：结束 dim r as single, s as single r=val(inputbox(“请输入圆半径：”)) s=3.14*r*r print “您输入的圆半径是：”; r print “该圆面积为：”; s 上海市继光高级中学 * 选择模式 4.（单分支）输入一个数，输出该数的绝对值。 dim x as integer x=val(inputbox(“请输入一个数：”)) Print 您刚刚输入的数是：; x if x0 then 　x=-x endif print “该数的绝对值是：”; x 上海市继光高级中学 * 选择模式 5.（单分支）求最值 dim max as integer, min as integer, x as integer max=10 min=0 x=val(inputbox(“请输入一个数：”)) if xmax then 　max=x endif if xmin then 　min=x endif print “max=”; max, “min=“; min 上海市继光高级中学 * 选择模式 6.（双分支）输入一个三位数，并判断该数是否为左右对称的数 dim x as single, a as single, b as integer x = Val(InputBox(请输入一个三位数：)) Print 您输入的是：; x a = x Mod 10 b = x \ 100 If a = b Then Print Yes，这个数是左右对称的数。 Else Print No，这个数不是左右对称的数。 End If 上海市继光高级中学 * 选择模式 7.（双分支）输入三条边，计算三角形面积 dim a as single, b as single, c as single dim p as single, s as single a=val(inputbox(”请输入第一条边长：”)) b=val(inputbox(”请输入第二条边长：”)) c=val(inputbox(”请输入第三条边长：”)) print “您输入的三条边长分别是：”; a; b; c if a+bc and b+ca and a+cb then 　p=(a+b+c)/2 　s=sqr(p*(p-a)*(p-b)*(p-c)) 　print “此三条边构成的三角形面积是：”; s else 　print “此三条边无法构成三角形。” endif 上海市继光高级中学 * 选择模式 8.（分支嵌套）输入三个数，求其中最大值 * 上海市继光高级中学 dim a as integer, b as integer, c as integer a=val(inputbox(“请输入第一个数值：”)) b=val(inputbox(“请输入第二个数值：”)) c=val(inputbox(“请输入第三个数值：”)) print “你刚刚输入的三个数是：”;a,b,c print “其中最大的数是：”; if a=b then if a =c then print a else print c end if else if b=c then print b else print c end if end if 选择模式 9.（分支嵌套）输入一个学生成绩S（100分制），根据该成绩的不同值作以下输出——若：S ＜ 60 ，则输出“F级”；若：60≤S≤90 ，则输出“C级”；若：S ＞ 90 ，则输出“A级” * 上海市继光高级中学 dim s as integer s=val(inputbox(“请输