第4章 VB控制结构cppt课件.ppt

《第4章 VB控制结构cppt课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第4章VB控制结构4.1顺序结构4.2选择结构4.3循环结构4.4其它辅助控制语句4.5综合应用4.6程序调试本章目录VB开发应用程序代码界面顺序结构选择结构循环结构结构化程序设计4.1顺序结构顺序结构：就是各语句按出现的先后次序执行。顺序结构的语句：赋值语句输入/输出语句等本章目录语句1语句2顺序结构流程图X=6Y=x^2PrintyY=x^2X=6PrintyXYXY636064.1.1赋值语句1.赋值语句的形式：变量名=表达式(对象.属性＝表达式)过程：计算右边表达式的值，然后赋给左边的变量。作用：将表达式的值赋值给变量名或指定对象的属性。一

2、般用于给变量赋值或对控件设定属性值.给变量赋值和设定属性是VB编程中常见的两个任务。本章目录4.1.1赋值语句1.赋值语句的形式：例如：y=3*x^2+4*x+5Text1.Text＝""'清除文本框的内容Text1.Text＝"欢迎使用VB"‘文本框显示字符串Form1.width=300本章目录赋值语句注意点②赋值号左边的变量只能是变量，不能是常量、常数符号、表达式。下面均为错误的赋值语句：Now()=x+y'左边是表达式(函数)5=sqr(s)+x+y'左边是常量“=”赋值号关系运算符①虽然赋值号与关系运算符等于号都用=表示，VB系统会根据所

3、处的位置自动判断符号的意义（3）不能在一条赋值语句中，同时给多个变量赋值。例如：要对x，y，z三个变量值赋初值1，如下书写语法上没错，但结果不正确：Dimx%,y%,z%x=y=z=1执行该语句前x，y，z的变量值默认是0，VisualBasic在编译时，将右边两个“=”作为关系运算符处理，先进行y=z比较，结果为True(-1)；接着True=1比较结果False(0)；最后将False赋值给x，因此最后三个变量中的值仍为0。正确书写应分别使用三个赋值语句完成。2.赋值语句的两个常用形式：①累加。例如：sum=sum+xs=s+x②计数。例如：n

4、=n+1x=x+15n6n执行了n=n+1之后012345x执行x=x+1PublicxPrivateSubForm_Click()x=x+1Print"x=";xEndSubPrivateSubForm_Load()x=0EndSubPublicx,sumPrivateSubForm_Click()x=x+1sum=sum+xPrintx,sumEndSubPrivateSubForm_Load()x=0sum=0EndSub012345x执行x=x+101361015执行s=s+xs3.赋值号两边数据类型不同时的处理赋值符号“=”两边的数据类型

5、一般要求应一致。如果不一致，则①当表达式为数值型并与变量精度不同时，需强制转换成等号左边变量的精度n%=3.5②当表达式是数字字符串，左边变量是数值类型，自动转换成数值类型再赋值。如果表达式有非数字字符或空串，则出错。n%=“1a23”③当赋给数值型变量时，逻辑的True转换为-1，False转换为0；④任何非字符型的值赋值给字符型变量，自动转换成字符型。DimmAsBooleanm=Truen%=mPrint"n=";nDimmAsStringm=123Printm+"123"常用的输入方式有：1.键盘输入数据的函数InputBox2.文本框等控

6、件常用的输出方式有：1.Print方法2.MsgBox函数和过程3.文本框4.标签5.图形框4.1.2数据输出和输入本章目录1.标签和文本框控件（1）标签caption属性：输出数据（2）文本框text属性：输入或输出4.1.2数据输出和输入本章目录例：计算圆周长和面积。PrivateSubCommand1_Click()Dimr!,l!,s!r=Text1.Textl=2*3.14159*rs=3.14159*r*rText2.Text=l:Text3.Text=sEndSubPrivateSubCommand2_Click()EndEndSub

7、PrivateSubForm_Load()Text1="":Text2="":Text3=""EndSub2.输入对话框InputBox函数格式：InputBox(提示[，标题][，默认][，x坐标位置][，y坐标位置])功能：InputBox函数产生一个对话框，作为输入数据的界面，等待用户输入内容，当用户单击“确定”按钮或按回车键，函数返回输入的值，其值的类型为字符串（String）。使用方式：变量=InputBox（提示[，按钮][，标题]][，x坐标位置][，y坐标位置]）例：计算圆周长和面积。PrivateSubCommand1_Click

8、()Dimr!,l!,s!r=InputBox("请输入圆的半径："+Chr(13)+_"然后单击确定","输入框",,1