第二章22程序的顺序结构.pptVIP

* * 第2.2节 程序的顺序结构 （3）编写程序 Private Sub Command1_Click() Const s1 As Integer = 170, s2 As Integer = 144, s3 As Integer = 3, s4 As Integer = 36 Const s5 As Integer = 18, s6 As Integer = 12, s7 As Integer = 6, s8 As Integer = 6 Const s9 As Integer = 24, s10 As Integer = 10 Dim d1 As Single, d2 As Single, d3 As Single, d4 As Single, d5 As Single, d6 As Single, d7 As Single,d8 As Single, d9 As Single, d10 As Single Dim x As Single, y As Single d1 = Val(InputBox(请输入粮食的单价：)) d2 = Val(InputBox(请输入蔬菜的单价：)) d3 = Val(InputBox(请输入油脂类的单价：)) d4 = Val(InputBox(请输入薯类的单价：)) d5 = Val(InputBox(请输入肉类的单价：)) d6 = Val(InputBox(请输入干豆类的单价：)) d7 = Val(InputBox(请输入蛋类的单价：)) d8 = Val(InputBox(请输入鱼虾的单价：)) d9 = Val(InputBox(请输入乳类的单价：)) d10 = Val(InputBox(请输入水果的单价：)) x = s1 * d1 + s2 * d2 + s3 * d3 + s4 * d4 + s5 * d5 + s6 * d6 + s7 * d7 + s8 * d8 + s9 * d9 + s10 * d10 y = x / 0.6 Print 基本食品消费支出x＝; x Print 总的生活消费支出y＝; y End Sub （4）调试程序 Private Sub Command1_Click() Dim T As single A = 10 B = 20 T = A A = B B = T Print A=; A, B=; B End Sub Private Sub Command1_Click() Dim T As single A = InputBox(A=, A) B = InputBox(B=, B) T = A A = B B = T Print A=; A, B=; B End Sub 练一练：试编写一个程序，实现输入长方体的长、 宽、高，求长方体的表面积和体积。 开始 输入a 输入b 输入c 根据公式：s=2*(a*b+a*c+b*c) 根据公式：v=a*b*c 输出v 输出s 结束 Dim a, b, c, s, v As Single a = InputBox(长=, 输入) b = InputBox(宽=, 输入) c = InputBox(高=, 输入) v = a * b * c s = 2*(a * b + b * c + a * c) Print “表面积s=”; s Print “体积v=”， v 开始 输入一个三位数r的值 a= r \ 100 结束 b= (r mod 100) \ 10 c= r mod 10 r = c*100+ b*10 + a 输出r的值 Private Sub Command1_Click() Dim a as integer,b as integer, c as integer,r as integer r=inputbox（“r=” ,“输入三 位数) a= r \ 100 b= (r mod 100) \ 10 c= r mod 10 r = c*100+ b*10 + a Print “反向三位数是”；r End Sub 从键盘上输入一个三位整数，然后将它反向输出。例如输入456，输出应是654。 (2)一列火车在某地时的速度为V0=40Km/h,现以加速度a=0.15m/s2加速行驶，试编写一个程序，求2min后的速度V和距开始点的距离S。 private sub command1_click() a=0.15m/s t=2m=120s, V0=40000/3600=(100/9)m/s V=V0+a*t S=V0*t+a*t*t/2 Print “v=”;v,”s=”;s E