第二章(2.2)程序的顺序结构.ppt

第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 a as integer,b as integer Dim 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 实 践： （1）试编写一个程序，实现输入圆的半径，输出圆的周长和面积。 private subcommand1_click() PI=3.14 R=inputbox(“输入圆的半径”) M=2*PI*r S=PI*r*r Print “m=” ;m , “s=”;s End sub (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 End sub 练 习： （1）试编写一个程序，求平面中两点之间的距离 Private sub form_click() X1=inputbox(“坐标轴上的一个点坐标”） X2=inputbox (“坐标轴上的一个点坐标”） y1 =inputbox (“坐标轴上的一个点坐标”） y2=inputbox (“坐标轴上的一个点坐标”） S=sqr((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)) Print s End sub （2）试编写一个程序，求本学习小组数学测 验成绩的平均分和标准差 Private sub form_click() x1=inputbox(输入x1的值) X2=inputbox (输入x2的值) Xn=inputbox (输入xn的