第3章 VB程序设计基础

计算机科学学院2数据输入与输出2VisualBasic基本语句1常用对象33语句由VisualBasic关键字、变量、常量、运算符等组成多条语句写一行，语句之间用冒号“:”分隔一条语句在多行显示，使用续行符“_”。语句PrivateSubForm_Click()Dima%,b%,c%,x1#,x2#a=3:b=6:c=2x1=(-b+sqr(b^2–4*a*c))/_(2*a)x2=(-b-sqr(b^2–4*a*c))/_(2*a)Form1.Printx1;x2EndSub4赋值语句[Let]变量/属性名＝变量/常量/表达式/属性值DimsAsStringDimnAsIntegers=VisualBasic6.0n=2Text1.Text=sVisualBasic6.0s2n思考：赋值语句中：a=b与b=a相同吗?Text1.texts+351.赋值号左边只能是变量，不能是常量、常数符号或表达式sin(x)=x+y×5=sqr(s)+x+y×x+y=3×2.不能在一句赋值语句中给多个变量赋值Dimx%,y%,z%x=y=z=1×x=1:y=1:z=1√55a110a2交换之前10a15a2交换之后a1=a2a2=a1方案1Dimt%t=a1a1=a2a2=t方案2a1=a25a110a210a2=a1a2=tt=a1a1=a2510a1a2t51056PrivateSubForm_Click()Dima1AsInteger,a2AsInteger,t%a1=5:a2=10Form1.Printa1,a2t=a1a1=a2a2=tForm1.Printa1,a2EndSub例：编写程序，交换变量a1、a2的值。7注释语句是非执行语句。注释有利于程序的维护和调试。注释语句语法格式：Rem注释内容´注释内容(1)关键字Rem和注释内容之间要加空格,是一条独立的语句。(2)注释符(单引号’)直接写在其它语句后面。PrivateSubForm_Click()a=1:b=1:c=1'变量a、b、c赋值为1EndSubPrivateSubForm_Click()Rem变量a、b、c赋值为1a=1:b=1:c=1EndSub8用于结束一个程序的运行SubCommand1_Click()End‘结束程序EndSubEndIf、EndSelect、EndWith、EndType、EndFunction、EndSub等。9PrivateSubForm_Click()Dima%,b%,c%,x1#,x2#a=3:b=6:c=2x1=(-b+sqr(b^2–4*a*c))/(2*a)x2=(-b-sqr(b^2–4*a*c))/(2*a)Form1.Printx1;x2EndSub10数据输入与输出2VisualBasic基本语句1常用对象311方法一：PrivateSubForm_Click()Dima%,b%,c%,x1#,x2#a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)x1=(-b+Sqr(b^2-4*a*c))/(2*a)x2=(-b-Sqr(b^2-4*a*c))/(2*a)Form1.Printx1;x2EndSub方法一：用文本框输入获取文本框的Text属性值12方法二：方法二：用InputBox函数输入InputBox（prompt[,title][,default][,xpos,ypos]）对话框中显示的提示信息对话框标题栏显示的信息对话框的输入默认值对话框与屏幕左边、上边的距离PrivateSubForm_Click()Dima%,b%,c%,x1#,x2#a=Val(InputBox(请输入系数a,一元二次方程求根))b=Val(InputBox(请输入系数b,一元二次方程求根))c=Val(InputBox(请输入系数c,一元二次方程求根))x1=(-b+Sqr(b^2-4*a*c))/(2*a)x2=(-b-Sqr(b^2-4*a*c))/(2*a)Form1.Printx1;x2EndSubInputBox函数的返回值为字符串，通常用Val转换为数值13PrivateSubForm_Click()Dima%,b%,c%,x1#,x2#a=3:b=6:c=2x1=(-b+sqr(b^2–4*a*c))/(2*a)x2=(-b-sqr(b^2–4*a*c))/(2*a)Form1.Printx1;x2EndSub14可以是窗体名称(Form)、图片控件名称(PictureBox)、打印机(Printer)，也可以是立即窗口（Debug），省略默认为当前窗体。[对象名.]Print[表达式][,|;]1.可以是一般表达式，也可以是常数或变量2.在两个表达式之间可以加“，”、“；”或“空格”3.“，”表示两个表达式的值按分区格式输出4.“；”或“空格”表示按紧凑格式输出用于控制和下一Print输出间的关系，无符号表示换行，加“，”表示按分区格式，加“；”表示按紧凑格式15PrivateSubForm_Click()Print1，2，3EndSubPrivateSubForm_Click()Print1;2;3EndSubPrint方法示例Print1；2；3分区格式输出紧凑格式输出16例：输出如图所示图案No1•用空格占位空白位置No2•使用Space函数No3•使用Spc或Tab函数17Tab函数Tab(n)功能：控制输出数据的绝对位置。格式：PrintTab(n);输出列表Spc函数Spc(n)功能：控制输出数据与前一数据间的空格个数。格式：PrintSpc(n);输出列表18使用Print打印下面图形参考方法：PrivateSubForm_Click()Form1.Print*********Form1.PrintTab(2);*;Spc(5);*Form1.PrintTab(3);*;Spc(3);*Form1.PrintTab(4);*;Spc(1);*Form1.PrintTab(5);*EndSub19功能：使用format函数，可以使数值、字符或日期按指定格式输出。一般格式：◦Format（数值表达式，格式字符串）20PrivateSubForm_Click()PrintFormat(1234.567,00,000.00)PrintFormat(1234.567,##,###.##)PrintFormat(123,$0.00)PrintFormat(123,+0.00)PrintFormat(0.123,0.00%)PrintFormat(1234.567,0.00E+00)EndSub21No1•MsgBox输出22MsgBox函数1.格式2.返回值MsgBox函数的返回值是一个整数，这个整数与所选择的按钮有关。MsgBox(msg,[,type][,title][,helpfile,context])对话框中显示的提示信息，为一个字符串对话框类型，确定对话框的图标和按钮，为一个整数值为一个整数值对话框标题显示的信息，为一字符串345x=MsgBox(参数错误,18,错误)23MsgBox()返回所选按钮的整数值,若不需返回值,则可作为MsgBox过程使用。函数形式：变量[%]=MsgBox(提示[,按钮][，标题])语句形式：MsgBox提示[,按钮][,标题]函数形式：x=MsgBox(“参数错误”,18)语句形式：MsgBox参数错误,1824No1•MsgBox输出No2•文本框、标签……25数据输入与输出2VisualBasic基本语句1常用对象326窗体命令按钮文本框、标签计时器27•窗体是设计VB应用程序的基本平台•窗体本身是一个对象，又是其他对象的载体•多数应用程序是从窗体开始执行的•一个程序可以有多个窗体.28NameCaptionHeight、WidthTop、LeftEnabledVisibleFontPictureForeColorBackColorAutoRedrawName是只读属性一旦窗体的Enabled属性设置为False，该窗体内的所有控件包括窗体本身都不响应用户的任何事件Form_load()事件使用Print方法的时候AutoRedraw属性设置为True。29Click（单击）单击鼠标左键时发生。单击窗口内的某个位置（该位置不可以有其它的控件）时，执行事件过程Form_Click()。Load（装入）装入窗体，在窗体显示之前执行该事件。一般在该事件中对属性和变量进行初始化。Unload（删除）当窗体从屏幕上删除时发生。当使用Unload语句或窗体右上的关闭按钮关闭该窗体时，此事件被触发。窗体事件30[对象.]Print作用：在指定的对象（窗体、图片框）中输出值[对象.]Cls作用：清除运行时在窗体或图形框中显示的文本或图形[对象.]Move左边距离[,上边距离[,宽度[,高度]]]作用：移动窗体或控件，并可改变其大小[对象.]Show和[对象.]Hide作用：Show方法用来显示窗体，Hide方法用来隐藏窗体311.命令按钮的属性Caption:标题属性——命令按钮显示的内容Enabled:设置按钮是否为激活状态。Style:确定显示的形式。0只能显示文字,1文字、图形均可。Picture：给命令按钮指定一个图片。322、事件Click◦例：简易计算器33标签（Lable)文本框（TextBox)用于显示文本(输出)信息，不能作为输入信息的界面。既可以显示正文内容，也可以在该区域输入、编辑或者复制文本。34Caption：用来改变Label控件中显示的文本AutoSize：设置是否自动调整大小显示文本（False）Alignment：设置文本的对齐方式（左对齐）BorderStyle：有无边框（无）35Text：显示文本内容Multiline：是否允许输入多行（False）ScrollBars：设置是否含有滚动条（无）Alignment：设置文本的对齐方式（左对齐）PasswordChar：设置在文本框中显示口令字符（空串）文本框没有Caption属性文本框事件——change（）Multiline为True有效文本框方法——SetFocus36PrivateSubText1_Change()Text2.Text=UCase$(Text1.Text)Text3.Text=LCase$(Text1.Text)EndSub38利用计算机系统的时钟计时，间隔一定时间触发事件。计时器的时间以毫秒为单位。Interval属性◦用于设置计时器事件之间的时间间隔，取值为0，则表示定时器无效Timer事件◦当达到Interval属性规定的时间间隔就触发事件计时器只有在Enabled为True，且Interval非0时才计时39PrivateSubForm_Load()Label1.Caption=TimeEndSubPrivateSubTimer1_Timer()Label1.Caption=TimeEndSub40思考1.如何让标签移动？2.如何让标签持续移动？3.如何形成循环滚动字幕？课后思考：如何形成真正意义滚动字幕（刚移出部分，则马上从窗体另一端再次出现）？41语句VB的输入与输出◦输入文本框InputBox◦输出PrintMsgBox控件：文本框、标签……常用对象◦窗体◦控件：文本框、标签、命令按钮、计时器42如何对求得的两个根取有效精度？