写出程序运行结果.ppt

顺序结构,写出程序运行结果,A=3 A=a+1 B=a A=b+1 Print a,b,A=1 B=2 Print a,b A=a+b B=a+b Print a,b,当半径改变时，应该修改哪里？,Private Sub Form_Click( ) r = 10 s = 3.14 * r * r Print “圆的半径：“; r; “圆的面积：“; s End sub,修改程序看运行结果,Private Sub Form_Click( ) r = inputbox(“请输入圆的半径：”,”输入圆半径”) s = 3.14 * r * r Print “圆的半径：“; r; “圆的面积：“; s End sub,Inputbox（ “提示” ， “对话框的标题“ ）,Inputbox（ “500“ ， “500“ ）,Inputbox函数 格式：inputbox（“提示”，“对话框标题”）,参数1,参数2,赋值语句格式： 变量=表达式 r=10 r = inputbox(“请输入圆的半径：”,”输入圆半径”) 变量=函数的返回值,函数用法,什么是函数？ 函数是vb系统为了实现常用的功能预先编写好的小程序。,VB函数,Abs（x） 求x绝对值 Sqr（x） 求x 算术平方根 Int（x） 取整函数，求不大于x的最大整数 Rnd( ) 随机函数，产生一个01之间的随 机数,函数的使用方法,用户使用时只要按规定的格式写出函数，在程序中使用函数称为调用函数。 调用后，一般都有个确定的函数值，即返回值。,在程序中加入红色字体的语句，运行观察结果,Private Sub Form_Click( ) r = inputbox(“请输入圆的半径：”,”输入圆半径”) s = 3.14 * r * r Print “圆的半径：“; r; “圆的面积：“; s Circle(1000,1000),r End sub,你可以尝试改动程序中的数字，观察结果发生什么变化,通过观察，你知道程序中的数字分别代表什么吗？,Circle(1000,1000),500,X轴,Y轴,1000,2000,3000,4000,1000,2000,3000,4000,Circle(1000,1000),1000,0,画圆语句的格式,Circle( x坐标，y坐标 )，半径 （2）circle（1000，1000），500 （3）X=1000 Y=1000 R=500 Circle(X,Y),R,比较两个程序,运行结果相同吗？,程序一： r = Inputbox（ “请输入一个数“ ， “圆的半径“ ） Circle (1000, 1000), r,程序二： Circle (1000, 1000), r r = Inputbox（ “请输入一个数“ ， “圆的半径“ ）,什么是顺序结构？,程序的执行是自上而下的。先执行第一句，然后才是第二句，一直到最后一句。这就是顺序结构。,开始,语句1,语句2,语句n,结束,Private Sub Form_Click(),End Sub,rInputbox（ “请输入一个数“ ， “圆的半径“ ）,Circle(1500,1500),r,顺序结构流程图,课后习题,补充程序并上机实践：输入一个数，计算出这个数的绝对值，并显示结果 X=inputbox(”请输入一个数”,”输入”) Y=_ Print x;”的绝对值为：“；y,补充程序并上机实践：随机产生一个1100的整数 Private Sub Form_Click( ) X=Rnd（）*100 y= _ Print y End Sub,填写程序：输入两个数，然后交换这2个数，并输出交换后的结果。 Private Sub Form_Click( ) X=inputbox(“请输入第一个数”,”输入”) y=inputbox(