vb讲解教程

第四章控制结构VB程序设计基础教程—第四章2编写程序三个环节数据输入数据处理(计算)数据输出数据处理(计算)使用:顺序结构（赋值语句）、选择结构（条件语句）、循环结构（产生循环的语句）程序设计三大结构顺序结构选择结构循环结构VB程序设计基础教程—第四章34.1顺序结构在顺序结构中，各语句是按照书写顺序依次执行的，这是一种最简单的控制结构。AB顺序结构顺序结构中经常使用的语句：赋值语句、注释语句、Print方法、与用户进行交互的一些函数和过程等.VB程序设计基础教程—第四章4赋值语句是程序设计中很常用的语句，其格式为：变量名＝表达式赋值语句的作用:将赋值号右边表达式的运算结果赋给左边变量。1、赋值语句VB程序设计基础教程—第四章5例如：●Text1.Text=””””●Text1.Text=””欢迎使用VisualBasic6.0””●S1=89●AV=(S1+S2)/2●FileName$=””student_addrss””●n=n+1-------------用于计数●sum=sum+10-------------用于累加。VB程序设计基础教程—第四章6赋值语句的有关规定（1）表达式只能出现在赋值号的右边。在赋值时，右边表达式类型如果与左边变量类型不同时，右边的数据类型强制向左边数据类型转换。【例如】：a%=7.7a的值为8（四舍五入）x!=6.28315248#x的值为6.283152a%=“31x4出现类型不匹配的错误a%=truea的值为-1（False转为0）a$=123a的值为123VB程序设计基础教程—第四章7（2）赋值号“=”与关系运算符“=”，系统自动识别。（3）赋值号左边只能是变量或对象的属性，不能是常量和表达式。例如：语句：sex=“女”andage=25语句：a=b关系运算符赋值号例如：错误语句：5=ax+z=5cos(x)=x+zVB程序设计基础教程—第四章8（4）不要在同一赋值语句中，同时对多个变量赋值。例如：Dimx%,y%,z%x=y=z=1结果是将y=z=1的值赋给x，结果为0VB程序设计基础教程—第四章9例如：输入圆的半径，求圆的面积。数据输入1．使用“文本框”控件进行输入，文本框是最直接的方法。思考:如何编写程序引入另一种输入方法在对话框中输入数据VB程序设计基础教程—第四章10功能：在屏幕上打开一个对话框，等待用户输入内容，当用户单击“确定”按钮或按回车键时，函数返回输入的值，其值的类型为字符串。提示：提示用户操作的信息，标题：标题区显示默认：字符串或字符串表达式，输入区的默认内容X、Y坐标位置:对话框在屏幕上的的位置。单位为Twip[]:表示其中的内容可以省略，全部省略后的语句形式为:InputBox(请输入…...)“提示”字符串不能省2．Inputbox函数－－与用户交互的函数Inputbox函数的语法格式为：变量＝InputBox(提示[,标题][,默认][,x坐标位置][,y坐标位置])VB程序设计基础教程—第四章11用Inputbox函数输入圆半径，求圆面积。Dimr!PrivateSubCommand1_Click()r=InputBox(请输入圆面积)Text1=3.14159*r*rEndSubVB程序设计基础教程—第四章12例4.1编写一个程序，通过调用InputBox函数，在屏幕上显示一个数据输入对话框。PrivateSubForm_click()DimstrNameAsString*20DimstrSAsString*20strS=请输入你的姓名+Chr(13)+Chr(10)+然后单击确定按钮strName=InputBox$(strS,输入框,,200,200)EndSub换行VB程序设计基础教程—第四章131）InputBox函数在使用时为方便起见一般都会省略其中某几项参数，但要注意作为各参数项之间分隔符的逗号不能被省略。函数在使用时应注意：score=InputBox(请输入分数,,,0,0)2）每执行一次InputBox函数只能在其对话框中输入一个数据(一个变量对应一个数据)，并要单击“确定”按钮或按“回车”键确认。输入数据框在屏幕的左上角出现VB程序设计基础教程—第四章14功能：在屏幕上打开一个信息框，等待用户选择一个按钮。MsgBox函数返回所选按钮的整数值，其数值的含义见教材第四章表4.1。按钮:整数表达式，决定信息框按钮的数目和类型及出现在信息框上的图标类型，其设置见表4.2.3．MsgBox函数和MsgBox过程－与用户直接交互Msgbox函数的语法格式为：变量(%)=MsgBox(提示[，按钮][，标题])Msgbox过程的语法格式为：MsgBox(提示[，按钮][，标题])VB程序设计基础教程—第四章15例4.2以下程序是对MsgBox函数不同组合的应用。PrivateSubCommand1_Click()msgbox1$=是否继续执行操作?“msgbox2$=MsgBox函数的组合调用“result=MsgBox(msgbox1$,67,msgbox2$)PrintresultEndSubVB程序设计基础教程—第四章16数据输出1．使用文本框的Text属性，文本框既可以用于输入又可用于输出。Text1.Text=sum或Text1=sum2．使用标签控件的caption属性，常用于显示界面上提示信息。Label1.caption=sum3．使用窗体的Print方法，计算结果将直接显示在窗体上。Printsum4．使用图片框的Print方法，计算结果将直接显示在图片框上。Picture1.PrintsumVB程序设计基础教程—第四章17print方法的语句格式为：［对象名.］Print[{spc(n)|tab(n)};][表达式列表][;|,]对象：可以是窗体、图形框、或打印机，默认为窗体Spc(n)函数:用于在输出时插入n个空格Tab(n)函数：用于在输出表达式列表前向右移动n列表达式列表：数值或字符串表达式，省略则输出空行分号(;):表示光标定位在上一个显示的字符后逗号(,):表示光标定位在下一个打印区的开始位置处（即隔14列）,无“;”或“，”表示输出后换行4．Print方法－－属于窗体、图形框、打印机对象VB程序设计基础教程—第四章18Print“abcdefg”Print“姓名”,“年龄”例如：在窗体上输出字符串第一条Print语句的最后没有“;”或“,”，因此下一条Print的输出位置为下一行。14列位置－－执行第二条语句－－执行第一条语句VB程序设计基础教程—第四章19Printabcdefg;Print姓名,年龄第一条Print语句的最后有“;”，因此下一条Print接着上一次打印位置输出。不换行，接着上一次打印位置输出VB程序设计基础教程—第四章20例4.3用Print方法输出图形。PrivateSubForm_load()…PrintFori=1To5PrintTab(15-i);String(i,●);PrintTab(30-i);String(i,⊙)NextiForj=1To5PrintTab(15-(6-j));String(6-j,●);PrintTab(30-(6-j));String(6-j,⊙)NextjEndSubVB程序设计基础教程—第四章21用于清除运行时在窗体或图形框中显示的文本或图形。形式为：(对象.)Cls“对象”为窗体或图形框，省略时默认为窗体。例如：Picture1.Cls'清除图形框Cls'清除窗体5．Cls方法6．Rem语句注释语句的功能是在程序中进行注释。形式为：Rem|‵注释内容VB程序设计基础教程—第四章22用于退出某种控制结构的执行。有多种形式为：Exitfor、ExitDo等例如：Fori=1To5PrintTab(15-i);String(i,●);PrintTab(30-i);String(i,⊙)Ifi=3thenExitforNexti7．Exit语句8．End语句用于结束一个过程或块。有多种形式：Endsub、Endif等VB程序设计基础教程—第四章234.2选择结构选择结构通过对条件的判断来选择一个分支。VB中提供了多种形式的条件语句和函数来实现选择结构，如If、SelectCase等。条件AB真假VB程序设计基础教程—第四章24例如求十个数之和Dimnum!,tol!,n!PrivateSubCommand1_Click()num=InputBox(请输入数据)tol=tol+numn=n+1EndSubifn=10thenPrint“十个数之和为:”;tol判断是否输入到第10个数,如果条件成立打印出十个数之和VB程序设计基础教程—第四章251．单选择结构（If…Then语句）If表达式Then语句块If表达式Then语句块EndIf4.2.1If条件语句单行形式多行形式表达式：一般是关系表达式、逻辑表达式，也可是算术表达式或常量和变量（转换为逻辑值）,结果为True或False功能：若条件成立(值为真)，则执行Then后面的语句或语句块，否则直接执行下一条语句或“EndIf”的下一条语句条件VB程序设计基础教程—第四章26单行形式与多行形式【例如】：已知两个变量x和y，比较它们的大小，使得x总是小于y的值。ifxythent=x:x=y:y=t:printx,y单行ifxythenendif多行t=x:x=y:y=tprintx,y不能换行且多条语句必须用“:”分开重要的是学会两个数的交换，若上述语句次序变一下，结果如何？VB程序设计基础教程—第四章27例：编程实现轮流变换窗体背景颜色。要求最少要有四种颜色，如红、绿、蓝、黄。DimiAsIntegerPrivateSubForm_Click()i=i+1Ifi4Theni=1Ifi=1ThenForm1.BackColor=vbRedIfi=2ThenForm1.BackColor=vbGreenIfi=3ThenForm1.BackColor=vbBlueIfi=4ThenForm1.BackColor=vbYellowEndSub使用IfThen结构VB程序设计基础教程—第四章282．双选择结构（If…Then…Else语句）格式：If条件Then语句块1(A)Else语句块2(B)EndIf功能：首先测试条件(E)，如果条件成立(即值为真)，则执行Then后面的语句块1，如果条件不成立(即值为假)，则执行Else后面的语句块2。而在执行Then或Else之后的语句块后，会从EndIf之后的语句继续执行。真假ABEVB程序设计基础教程—第四章29例4.5在窗体上输出整数a、b中的大数PrivateSubForm_Load()AutoRedraw=TrueFontItalic=True'字形设为斜体a%=5:b%=9IfabThenPrint大数是：;aElsePrint大数是：;bEndIfEndSubVB程序设计基础教程—第四章303．多选择结构（If…Then…ElseIf语句）If条件1Then语句块1E1seIf条件2Then语句块2……E1seIf条件nThen语句块nElse语句块n+1EndIf条件1为真时执行的一段语句条件1为假且条件2为真时执行的一段语句条件1……条件n-1为假且条件n为真时执行的一段语句当以上条件都为假时执行的一段语句VB程序设计基础教程—第四章31例：已知百分制成绩mark，显示对应的五级制成绩方法一Ifmark=90ThenPrint优ElseIfmark=80ThenPrint良ElseIfmark=70ThenPrint中ElseIfmark=60ThenPrint及格ElsePrint不及格EndIf方法二Ifmark60ThenPrint不及格ElseIfmark70ThenPrint及格ElseIfmark80ThenPrint中ElseIfmark90ThenPrint良ElsePrint优EndIf