搜索
第四章顺序结构程序设计本章内容及要求：1.掌握赋值语句2.掌握Print方法3.理解人机交互函数和过程本章重点：赋值语句和人机交互函数本章难点：理解人机交互函数和过程4．1赋值语句赋值语句是任何程序设计中最基本的语句，赋值语句都是按顺序执行的。4.1.1赋值语句的语法格式[Let]变量名=表达式[Let]对象名.属性名=表达式其中，关键字Let为可选项，通常都省略该关键字。它的作用是计算右边表达式的值，然后赋给左边的变量，表达式的类型应该与变量名的类型一致。4．1．2有关赋值语句的使用说明（1）当表达式为数值型且与变量的精度不相同时，强制转换成左边变量的精度。例如：iA%=4.7′iA是整型变量，iA中的结果是5（2）当表达式是数字字符串，左边变量是数值类型时，自动转换成数值类型再赋值；但当表达式有非数字字符或空串时，则出错。例如；n%=123'n中的结果是123，与n%=Val(123)效果相同n%=“1a23”‘出现“类型不匹配”的错误（3）赋值号左边只能是变量，不能是表达式、常量。如下面的赋值语句。sin(x)=x+y'左边是表达式5=sqr(s)+a+b'左边是常量x+y=a+b'左边是表达式是错误的（4）不能在同一语句中给多个变量赋值。例如：a=b=c=1我们的本意是给a、b、c赋初值1，书写上没有错误。但VisualBasic编译时，将右边两个“=”作为关系运算符处理，先进行b=c的比较，结果为true(-1)；接着进行True=1的比较，结果为False(0)；最后将false的值赋给a。(5)当逻辑型赋值给数值型时，True转换为-1，False转换为0；反之，非0转换为True，0转换为False。(6)任何非字符类型赋值给字符类型，自动转换为字符类型。(7)注意N=N+1是累加中常见的赋值语句，表示将N变量中的值加1后再赋值给N。4．1．3With结构语句With结构用于对一个单一对象或用户定义对象执行一系列的语句，其格式为：With对象语句块EndWith使用With结构可以对某个对象执行一系列的语句，而不用重复指出该对象的名称。PrivateTypeEmployeeIDAsIntegerNameAsString*20SalaryAsCurrencyEndTypePrivateSubForm_Click()DimaAsEmployeeWitha.ID=123.Name=wxf.Salary=80000Print.ID,.Name,.SalaryEndwithEndSub4．2注释、暂停与程序结束语句4．2．1注释语句为了提高程序的可读性，通常应在程序的适当位置加上必要的注释。VisualBasic中的注释是“Rem”或一个撇号“'”，其格式为：Rem注释内容或'注释内容功能：提高程序的可读性。4．2．2暂停语句StopStop语句用来暂停程序的执行，使用Stop语句，就相当于执行“运行”菜单中的“中断”命令。其格式为：Stop功能：是把解释程序置为中断模式，以便于对程序进行检查和调试。4．2．3结束语句EndEnd语句通常用来结束一个程序的执行。其格式为：End当在程序中执行End语句时，将终止当前程序，重置所有变量，并关闭所有的数据文件。4．3数据的输出4．3．1数据输出Print方法1．Print方法的一般格式：[对象名.]Print［表达式表］[{，|；}]说明：[对象名.]可以是窗体名、图片框名，也可是立即窗口“Debug”。若省略对象，则表示在当前窗体上输出。用Print方法在图片框和立即窗口对象中输出与在窗体对象中输出完全相同。说明：“，”——每个输出项占14列，显示不下的部分不显示；“；”——数据前有一符号位（正号不输出），数据后有一空格，字符数据无此。例4-1写出下列语句的执行结果：PrivateSubForm_Click()Print23+22=;Print23+22Print23+22=,Print23+22EndSub例4-2下列程序段的执行结果。PrivateSubForm_Click()x=5:y=6:z=7Printx=;x,y=;y,z=,zPrintPrintx;y;x;VisualBasic6.0PrintEndSub4．3．2与Print方法有关的函数1．Spc(n)函数：插入n个空格，允许重复使用。2．Tab(n)函数：左端开始右移动n列，允许重复使用。例4-3设有某班级的部分学生名单在窗体上输出。PrivateSubForm_Click()FontName=楷体_GB2312FontSize=16Print姓名;Tab(8);年龄;Tab(16);籍贯;Tab(24);专业PrintPrint张志和;Tab(8);28;Tab(16);苏州;Tab(24);说文解字Print苏东坡;Tab(8);18;Tab(16);江西;Tab(24);音律Print王安石;Tab(8);38;Tab(16);南京;Tab(24);国家政务Print陆游;Tab(8);48;Tab(16);无锡;Tab(24);诗词歌赋Print秦少游;Tab(8);28;Tab(16);苏州;Tab(24);乐府Print晏几道;Tab(8);38;Tab(16);常州;Tab(24);说文解字EndSub4．3．3与数据输出有关的其它属性和方法1.Move方法形式:[对象.]Move左边距离[，上边距离[，宽度[，高度]]]作用:移动窗体或控件，并可改变其大小。对象：可以是窗体及除时钟、菜单外的所有控件，省略代表窗体。左边距离，上边距离，宽度，高度：数值表达式，以twip为单位。如果是窗体对象，则“左边距”和“上边距”是以屏幕左边界和上边界为准。其它则是以窗体的左边和上边界为准。例4-4在窗体上任意放置一个图片框，编写程序移动之。PrivateSubForm_Click()Image1.Move1000,1000,4500,2500Print利用move方法移动图片框。EndSub2.Cls方法形式:[对象.]Cls作用:清除运行时在窗体或图形框中显示的文本或图形。注意:不清除在设计时的文本和图形。清屏后坐标回到原点。3.CurrentX和CurrentY属性用于文本输出的精确定位，这两个属性分别表示当前输出位置的横坐标和纵坐标。语法格式：[对象名.]CurrentX[=x][对象名.]CurrentY[=y]4.ScaleWidth和ScaleHeight属性这两个属性用来返回或设置指定对象的宽度和高度，只能在代码中进行设置。语法格式：[对象名.]ScaleWidth[=Value][对象名.]ScaleHeight[=Value]5.TextWidth和TextHeight属性语法格式：[对象名.]TextWidth(字符串)[对象名.]TextHeight(字符串)说明：这两个属性用来返回一个文本字符串的宽度值和高度值。4.4输出数据的字符控制1．字体类型语法格式：[窗体]|[控件]|[Printer].Fontname[=”字体类型”]2．字体大小[窗体]|[控件]|[Printer].Fontsize[=点数]3．粗体字[窗体]|[控件]|[Printer].FontBold[=Boolean]4.斜体字[窗体]|[控件]|[Printer].FontItalic[=Boolean]5.加下划线[窗体]|[控件]|[Printer].FontUnderline[=Boolean]6.加中划线[窗体]|[控件]|[Printer].FontStrikethru[=Boolean]例4-5设置窗体字型和大小。PrivateSubForm_Click()test1$=VisualBasictest2$=程序设计方法FontSize=16fonrname=systemPrinttest1$fonrname=timesNewromanPrinttest2$FontSize=20fonrname=宋体Print宋体--;test2$fonrname=楷体Print楷体--;test2$fonrname=隶书Print隶书--;test2$fonrname=方正舒体Print方正舒体--;test2$EndSub例4-6测试修饰控制PrivateSubForm_Click()Text1.Text=湖南教育出版社Text1.FontSize=20Text1.FontName=systemText1.FontUnderline=TruePrintText1.TextText2.Text=VisualBasic程序设计Text2.FontSize=24Text2.FontName=隶书Text2.FontItalic=TrueText2.FontStrikethru=TruePrintText2.TextEndSub4．5用户交互函数和过程4.5.1InputBox函数函数形式如下：变量名=InputBox[$](提示信息[，标题][，默认][，x坐标位置][，y坐标位置])其中:“提示”：该项不能省略，是字符串表达式，在对话框中作为信息显示，可为汉字。在每行行末加回车Chr(13)和换行Chr(10)控制符，或用VB内部常数：vbCrLf都可以实现分行显示。“标题”：字符串表达式，在对话框的标题区显示。若省略，则把应用程序名放入标题栏中。“默认”：字符串表达式，当在输入对话框中无输入时，则该默认值作为输入的内容。“x坐标位置”、“y坐标位置”：整形表达式，坐标确定对话框左上角在屏幕上的位置，屏幕左上角是坐标原点，单位为twip。有“$”时，返回字符类型,否则为数值类型。该函数的作用是打开一个对话框，等待用户输入内容，当用户单击“确定”按钮按回车时，函数返回输入的值，其值的类型为字符串。例4-7在屏幕上显示的对话框:PrivateSubform1_Click()DimusernameAsStringusername=InputBox(请输入要查询的姓名，然后按确定按钮,输入提示,诸葛)EndSub例如：要在屏幕上显示的对话框:有下列语句如下:当键盘输入“王晓明”后,变量strName获得键盘输入的值.OptionExplicitPrivateSubForm_Click()DimstrNameAsString*40DimstrS1AsString*40strS1=请输入你的姓名+Chr(13)+Chr(10)+然后单击确定strName=InputBox$(strS1,输入框,,100,100)PrintstrNameEndSub例如：有下列语句如下:Dimx%x=Val(InputBox(“请输入一个数”,“输入框”,100))语句执行后打开如下对话框。4.5.2MsgBox函数和MsgBox过程函数形式:缺省值标题提示变量[%]=MsgBox(提示[,按钮[＋图标]+[缺省按钮]+[模式]][，标题])过程形式:MsgBox提示[,按钮[＋图标]+[缺省按钮]+[模式]][,标题]说明：1.“标题”和“提示”与InputBox函数中对应的参数相同；2.“按钮＋图标+缺省按钮+模式”是整型表达式，决定信息框按钮数目、出现在信息框上的图标类型及操作模式.按钮及图标值如下表:图标标题提示信息命令按钮3．若程序中需要返回值，则使用函数，否则可调用过程。根据用户所选按钮，函数返回1—7的整数值，其含义如下表:例4-8MsgBox的使用。PrivateSubForm_Click()Dimresponseresponse=MsgBox(是否退出系统,vbOKCancel+vbQuestion,退出)Ifresponse=1ThenEndElseIfresponse=2ThenPrintEndIfEndSub例4-9利用inputbox和msgbox来输入验证口令。PrivateSubCommand1_Click()Dimprompt,title,passwordp