2.2.2赋值语句和输入输出语句.pptx

1、赋值语句和输入输出语句,何 颜 红,回顾：什么是顺序结构的程序设计方法？,顺序结构：在程序执行过程中，按语句出现的顺序执行，从上往下，且中途没有任何分支，没有任何重复，即每条语句都要执行且只执行一次，像这样的结构设计我们就称之为顺序结构的程序设计方法。,有分支的称为分支结构，有重复的称为循环结构。,开始,计算水果的应付款Z=xy,输出z的值,输入水果的单价y值,结束,输入水果的重量x值,X的值在5以上,水果应付款Z=0.8xy,水果应付款Z=xy,输出z的值,结束,是,否,输入水果的单价y值,输入水果的重量x值,输出z的值,开始,顺序结构,分支结构,开始,将0赋予sum Sum=0,将1赋予i

2、 i=1,将i+1赋予i i=i+1,将sum+i赋予sum Sum=sum+i,i100,结束,是,否,输出sum值,循环结构,赋值语句:,变量 = 表达式,注意：,“=”是赋值号，它的含义是将表达式的值赋给左边的变量；,“=”左边只能是一个变量，右边可以是变量、常量和表达式。,如：A=B,“=”相当于“ ”，它具有方向性；,变量的值在程序中可发生变化，即后赋入的值会取代先赋入的值。,A=B,B=123 X=X+10,书上没有提到 “let” ，就不要提”let”,赋值语句:,例： private sub command1_click() a=30 b=40 t=a a=b b=t prin

3、t a,b End sub,开始状态：,变量t,变量a,变量b,30,40,第一步：t=a,第二步：a=b,第三步：b=t,30,30,40,30,30,40,30,40,40,a,b,a,b,t,t,以上勿采用了,读下列程序：,1： private sub command1_click() x=Inputbox(“x”,”输入一个数”) x=x+1 y=x+1 Z$=“Finish” Print “x=“;x,”y=“;y,”z$=“;z$ End sub,调出VB程序,2： private sub command1_click() N=0 M=1 N=n+1 M=m*n X=m Print

4、 “x=“;x End sub,3： private sub command1_click() a=8 b=a*a c=b a=b+c c=a+b+c Print “a=“;a,”b=“;b,”c=“;c End sub,特别提示：有的学生看输出项太多有点花眼，比如把a打上双引号，那结果就是a=a,输出语句：Print,格式：,Print 输出内容,注：输出内容可以是数、变量、表达式，也可以是用引号括起来的字符串，数量可以不限。（说明p37,略）,转入VB程序编辑,程序1：(举例说明print具有计算功能） private sub command1_click() r= InputBox(“r

5、=”) Print “c=”;2*3.14*r, “s=“;3.14*r*r End sub,调出VB程序,private sub command1_click() r= InputBox(“r=”) Print “c=”;2*3.14*r, “s=“;3.14*r*r End sub,private sub command1_click() r=inputbox(“r=“) c=2*3.14*r s=3.14*r*r Print “c=“;c,”s=“;s End sub,程序2:（举例说明print的输出格式p37） private sub command1_click() x = Inp

6、utBox(x=, 输入一个数) a = x + 3 b = a * 2 Print a=, a, b=, b End sub,调出VB程序,在VB编程时，注意把窗体拉大，否则print 语句后若有多个输出项，会显示不完的，而且窗体越小，显示的数据越少。,顺序结构程序综合应用：,1、教材p37实践部分；,2、已知一个三角形三条边的边长分别为a，b，c，利用海伦-秦九韶公式设计一个计算三角形面积的算法，并画出程序框图表示。,Private sub command1_click() A=10 B=20 A=a+b B=a-b A=a-b Print “a=“;a,”b=“;b End sub,Pr

7、ivate sub command1_click() A=val(inputbox(“a=“,”输入”) B=val(inputbox(“b=“,”输入”) Min=(a+b)/2+abs(a-b)/2 Print “max=“;max End sub,Private sub command1_click() A=val(inputbox(“a=“,”输入”) B=val(inputbox(“b=“,”输入”) Min=(a+b)/2-abs(a-b)/2 Print “min=“;min End sub,1、p37实践,开始,输入a，b，c,s=,结束,P =,输出s,()()(),+ ,2、程序：,private sub command1_click() a = val(InputBox(“a=”) b