【教程】程序控制结构与过程VisualBasic计算机二级VB编程学习PPT课件

第4章程序控制结构与过程,教学目的要求：掌握顺序结构程序设计方法掌握选择结构程序设计方法掌握循环结构程序设计方法掌握数组、过程的使用方法,教学重点顺序、选择、循环结构程序设计,.,2,VB采用事件驱动方法，但仍需要结构化程序设计方法，用控制结构控制程序执行的流程。程序流程有三种最基本的结构：顺序结构、选择结构、循环结构。,引言,.,3,4.1顺序结构,在VB中，采用OOP，程序的执行是事件驱动的，但就某个过程而言，过程本身代码的执行仍采用顺序结构，即按照语句代码出现的先后次序执行,顺序结构的语句主要是赋值语句、输入输出语句等在VB中有赋值语句，没有输入输出语句在VB中输入输出功能可以通过文本框等控件和Print方法来实现，VB提供了专门用于用户交互的函数和过程来实现此功能,.,4,一、几个常用语句1、赋值语句Let,赋值语句的一般形式是Let|=表达式变量名为任何合法的VB变量名，而表达式可以为任何类型的表达式，Let表示赋值，通常省略.赋值语句的执行步骤和作用是先计算赋值号(=)右边表达式的值，然后将表达式的值赋给左边的.使用赋值语句可给变量或属性赋值。对变量进行赋值就是将数据放入指定变量的内存空间。而对属性进行赋值就是设置或改变对象的属性值StudentNum=30number%=StudentNum*4+20Form1.Caption=InputdataLabel1.BackColor=RGB(255,0,0),.,5,注意事项,“=”赋值号与数学中的等号意义不同。例如：语句X=X+1表示将变量X的值加1后的结果值再赋给变量X,而不是表示两边的值相等.2)赋值号左边必须是变量或对象属性.例:X=1MyStr=“GoodMorning”Command1.Caption=“确定”X+1=X(错误),.,6,3)变量名或对象属性名的类型应与表达式的类型相容.即变量名或对象属性名能够正确存取赋值号右边的表达式的值.,例如DimAAsInteger,BAsSingle,CAsDouble,SAsStringA=100S=123.45A=SA=123S=AS=“123”B=12345.67A=BA=12346四舍五入后取整C=123456.789B=CB=123456.8单精度有效数字为7位S=abc”A=S,.,7,4)变量未赋值时，数值型变量的值为0，字符串变量的值为空串“”。,例4-1交换两个变量的值。设变量A中存放5，变量B中存放8，交换两个变量的值，使变量A中存放8，变量B中存放5。分析：交换变量需要借助第三个变量C，才能实现交换。,代码如下：A=5B=8C=AA=BB=C,.,8,2、注释语句通常在程序代码中的适当位置加上必要的文字说明，以提高程序的可读性格式1：Rem注释内容格式2：注释内容注释语句是非执行语句，仅仅对相应位置上的代码起到注释作用格式1中的关键字Rem和注释内容之间必须用空格隔开；注释内容中可以包含任意字符(西文、中文等)，在使用时，遵循语句书写的规范；格式2的注释语句在使用时较格式1更加灵活，可以不用加语句间的分隔符，直接出现在某行语句后面进行注释,.,9,3、暂停语句Stop该语句用来暂停程序的执行，作用类似于“运行”菜单中的“中断”命令格式：StopStop常用于程序调试，用它来设置断点，当Stop语句执行时，会中断程序运行，并自动打开立即窗口，方便用户对程序代码进行检查和调试,4、卸载对象语句Unload从内存中卸载窗体或控件格式：UnloadUnloadForm1卸载窗体Form1UnloadMe卸载当前窗体,.,10,5、结束语句End该语句用来结束一个应用程序的执行，即强迫中止应用程序，卸载该程序中的所有窗体，凡是由Open语句打开的文件被关闭，并且释放程序所占用的内存格式：EndEnd语句不调用Unload、QueryUnload或任何其它VisualBasic代码，只是生硬地终止代码执行。在执行时，End语句会重置所有模块级别变量和所有模块的静态局部变量。若要保留这些变量的值，改为使用Stop语句，则可以在保留这些变量值的基础上恢复执行,.,11,不管多么复杂的问题，一般在解决时，都可分为三个步骤：输入数据、数据处理、输出结果VB的输入输出有着十分丰富的内容和形式，它提供了多种手段，并可通过各种控件实现输入输出操作，使输入输出更加灵活、多样、方便、直观。1、使用文本框输入数据利用文本框接收用户通过键盘输入的内容，而用户输入的内容是保存在文本框的Text文本属性中，要获取Text文本属性的值即用户输入的内容，可通过赋值语句实现：A=Text1.Text,二、数据输入,.,12,例题4-2,由用户输入两个数，实现两个数的求和程序分析：文本框接收用户的输入在“相加”按钮的Click事件过程中编写主要功能代码：(1)利用赋值语句从文本框的Text属性取得数据；(2)求和；(3)通过给标签的Caption属性赋值实现结果的显示,PrivateSubCmdAdd_Click()DimaAsString,bAsString,cAsSinglea=Text1.Text:b=Text2.Textc=Val(a)+Val(b)利用Val函数实现字符串到数值的转换Label1.Caption=Label1.Caption&a&+&b&=&CStr(c)通过标签显示两数求和结果EndSub,.,13,2、输入框函数（Inputbox）,InputBox函数产生一个对话框，作为输入数据的界面，等待用户输入正文或按下按钮，并返回所输入的内容。,格式:=InputBox(,),说明:：字符串表达式。在对话框内显示提示信息，提示用户输入的数据的范围、作用等。如果要显示多行信息，则可在各行行末用回车符Chr(13)、换行符Chr(10)、回车换行符的组合Chr(13)&Chr(10)或系统常量vbCrLf来换行。：字符串表达式，可选项。运行时该参数显示在对话框的标题栏中。如果省略，则在标题栏中显示当前的应用程序名。：字符串表达式，可选项。显示在对话框上的文本框中，在没有其他输入时作为缺省值。如果省略，则文本框为空。,.,14,例如：,InputBox(“请输入字母”，“输入对话框”，“wuxi”),.,15,例4-3,输入圆的半径，计算其周长和面积。（P64.4-2）3、消息框函数（Msgbox）,在windows中，如果操作有误，通常会在屏幕上显示一个对话框，提示用户进行选择，然后系统根据选择确定其后的操作。例如：VB提供的MsgBox函数可以实现此功能，它可以向用户传送信息，并可以接收用户在对话框上的选择，以此作为程序继续执行的依据。,.,16,格式:=MsgBox(,),功能：在对话框中显示消息，等待用户单击按钮，并返回一个整数告诉用户单击了哪个按钮。,.,17,说明:：字符串表达式，用于指定显示在对话框中的信息，要在提示信息中对文本信息进行换行，可以使用回车符Chr(13)、换行符Chr(10)或是回车与换行符的组合Chr(13)&Chr(10)。：数值型数据，是可选项，用来指定对话框中出现的按钮和图标的种类及数量，该参数的值由三类数值相加产生，这三类数值分别表示按钮的类型、显示图标的种类及默认按钮的位置：字符串表达式，是可选项，它显示在对话框的标题栏中，如果省略，则在标题栏中显示应用程序名。,格式:=MsgBox(,),.,18,“对话框类型”的设置值及含义,.,19,MsgBox函数的返回值,.,20,常见使用方法作为表达式(或表达式的一部分)形式出现用于赋值语句ans=MsgBox(确实要删除该文件吗?,1+32+256,确认删除)用于方法调用时的参数PrintMsgBox(“确实要删除该文件吗?”,1+32+256,确认删除)用于条件表达式IfMsgBox(“确实要删除该文件吗?”,1+32+256,“确认删除”)=1_ThenKill(k1.bmp)EndIf,.,21,例:,PrivateSubCommand1_Click()a=MsgBox(“提示信息”)EndSub,PrivateSubCommand1_Click()a=MsgBox(“提示信息”&Chr(13)&“换行显示”)EndSub,.,22,PrivateSubCommand1_Click()a=MsgBox(“提示信息”,“标题”)EndSub,PrivateSubCommand1_Click()a=MsgBox(“提示信息”,1,“标题”)EndSub,显示“确定”、“取消”按钮,.,23,PrivateSubCommand1_Click()a=MsgBox(“提示信息”,1+16,“标题”)EndSub,PrivateSubCommand1_Click()a=MsgBox(“提示信息”,2+32+0,“标题”)EndSub,.,24,三、数据输出,在程序设计中对输入的数据进行加工后，往往需要将数据输出。在VB中，可以使用消息框(MsgBox)函数或语句文本框(Text)控件标签(Label)控件Print方法实现输出。,.,25,1、消息框语句,若不需要返回值,则可以使用MsgBox语句直接输出,其格式为:MsgBox,例：Dima,a1,a2a=“中华人民”a1=“共和国”a2=a&a1Msgbox“a2=”&a2,“输出数据”,.,26,2、使用文本框输出数据,将数据赋给文本框的文本属性，从而在文本框中显示出来。3、使用标签输出数据将数据赋给标签的标题属性，从而在窗体上显示出来。4、使用Print方法输出数据对象.Print输出数据列表,.,27,例题4-4,编写程序，实现用户输入的两个数据内容的互换分析(1)接收用户输入(2)数据交换(3)交换结果输出接收用户输入的两个数据：常用控件是文本框交换结果的输出：常用的方法有利用文本框、标签控件输出、或通过窗体和图片框调用Print方法输出数据交换：习惯通过发出具体的命令来完成数据的处理，因此，通常利用某个对象的事件过程来实现：设计一个命令按钮，在界面提示用户，通过单击按钮，实现数据处理。而具体的数据处理操作的实现代码，就要在该按钮的Click事件过程编写,.,28,例题4-4,按钮的Click事件过程编写,首先得获取接收文本框中输入的数据，这可以通过赋值语句实现：a=Text1.Text:b=Text2.Text其次考虑数据交换的算法(中间变量)：设置一个临时的中间变量Temp，Temp=a:a=b:b=Temp最后将交换结果通过文本框输出：Text1.text=a:Text2.text=b,.,29,例题4-5,用InputBox函数实现数据交换程序分析：InputBox函数接收用户的输入在对话框内显示提示文字信息时，可以自动换行。若想按自己的要求换行，则可采用插入回车换行符，即Chr(13)+Chr(10)或vbCrLf来实现,PrivateSubCmdChange_Click()交换命令按钮DimaAsString,bAsString,tempAsStringa=InputBox(请输入数据交换的&vbCrLf&第一个数a,数据输入)b=InputBox(“请输入数据交换的”&vbCrLf&“第二个数b”,“数据输入”)EndSub,.,30,例题4-6,实现数据交换程序，采用MsgBox实现结果的输出分析：在对话框内显示提示文字信息时，可以自动换行。若想按自己的要求换行，则可采用插入回车换行符，即Chr(13)+Chr(10)或vbCrLf来实现,PrivateSubCmdChange_Click()DimaAsSingle,bAsSingle,tempAsSingleMsgBox“数据交换后,”&vbCrLf&“第一个数据a为”&_CStr(a)&vbCrLf&第二个数据b为&CStr(b),_vbInformation,数据交换结果EndSub,.,31,例题4-7,实现逆序输出用户输入的三位