vb第三章教程

1、Visual Basic语言基础知识,3.2 窗体,2,3.4 VB应用程序的结构与工作方式,4,3.3 数据的输入与输出,3,3.1 语句,1,第三章 VB程序设计基础,3.1 Visual Basic 基本语句,语句由Visual Basic关键字、变量、常量、运算符等组成 语句的功能是使计算机执行具体的操作。 同一语句行中输入多条语句，语句之间用冒号“ : ”分隔。 一条语句在多行显示，使用续行符“ _”。,3.1.1 语句,Private Sub Form_Click() Dim a %, b%, x As double a=3 : b=6 x=( -b + sqr (b2 4 * a

2、 * c) ) / _ (2 * a) Form1.Print x End Sub,3.1.2 赋值语句,LET变量/属性名表达式/属性值,Dim Str1 As String Dim Num As Integer Str1 = Visual Basic 6.0 Num = 2 Text1.Text = Str1,1.赋值号左边只能是变量，不能是常量、常数符号或表达式 sin(x) = x + y 5 = sqr(s) + x + y x + y = 3 2.不能在一句赋值语句中给多个变量赋值 Dim x%,y%,z% x=y=z=1,思考：赋值语句中：a=b与 b=a相同吗?,3.1.3 数

3、据输出Print方法,对象名. Print 表达式 在指定的对象中输出表达式的值，用于在窗体、图片框或打印机上输出数据。,Form, PictureBox, Printer,Print方法,说明 Print方法前的“对象名”可省略，省略对象名就在当前窗体上打印出数据。 表达式可以省略，则在对象上打印空行。 Print方法后可跟多个表达式，当输出多个表达式时，各表达式用逗号|分号隔开。,对象名. Print 表达式,例 Private Sub Form_Click() Dim A1 As Integer, A2 As Integer, Temp% A1 = 5: A2 = 10 使用逗号分隔三个

4、表达式 Form1.Print 交换, A1, A2 Temp = A1: A1 = A2: A2 = Temp Form1.Print 得, A1, A2 End Sub,用“;”（或空格）隔开数据项，打印时以紧凑格式输出,字符串数据的紧凑格式输出时把各表达式连接起来输出,数值数据的紧凑格式输出时,数据前有一个符号位，后有一个空格,Print方法,用“,”隔开，以标准格式输出（分区输出格式），以14个字符宽度划分为一个区段。,判断下面语句的输出结果？ Print 2,-4,Print方法,Print方法,具有计算与输出双重功能 X=5 : y=10 Print (x+y)/3 (对) 但不具

5、有赋值功能 Print z = (x+y)/3 (错),Print方法,，与；的妙用 同一行作显示，必须用，或者； 例：print “30+50=”; print 30+50, Print AB; CDE Print 2; -4, 6 Print AB; CDE, 末尾出现了逗号 Print 2; -4, 6 Print AB; CDE; 末尾出现了分号 Print 2; -4, 6,与Print方法有关的函数,Tab函数 Tab(n) 功能是在指定的位置显示输出信息。参数n为数值表达式，其值为一整数，它是下一个输出位置的列号。 例：print “姓名”;Tab(8);”年龄”;_ Tab(1

6、6);”职务”,例,Private Sub Form_Click() Print: Print FontName = “黑体” 字体类型为“黑体 FontSize = 16 字体大小为16 Print 姓名; Tab(8); 年龄; Tab(16); 职务; Print Tab(24); 单位; Tab(32); 籍贯 Print Print 张得功; Tab(8); 25; Tab(16); 科长; Tab(24); _ 劳动科; Tab(32); 北京 Print 李得胜; Tab(8); 32; Tab(16); 处长; Tab(24); _ 科研处; Tab(32); 上海 End S

7、ub,运行结果：,与Print方法有关的函数,Spc函数 Spc(n) 功能是在两个输出表达式之间空n个空格。参数n为数值表达式，其值为一整数，它是两个表达式之间的空格数。 例：print “abc”;spc(8);”def” 注意：该函数仅用于输出，不可用于表达式,Space$(n)函数,用于返回n个空格，与spc() 函数功能相同，但它可用于表达式中，也可用于输出。 例如：a$ = “a”+space(4)+”b” print a$ 结果：a b,比较,Tab函数需要从对象的左端开始计数 Spc函数只表示两个输出项之间的间隔,Form1.Print “*” 共10个* Form1.Prin

8、t Tab(2); *; Spc(8); * Form1.Print Tab(3); *; Spc(8); * Form1.Print Tab(4); *; Spc(8); * Form1.Print Tab(5); *; Spc(8); * Form1.Print Tab(6); *; Spc(8); * Form1.Print Tab(7); *,Format函数 将数值或日期按指定格式输出。 Format$(表达式，格式字符串),表3-1 常用格式字符串表,Format函数 将数值或日期按指定格式输出。 Format$(表达式，格式字符串),真题 填空,Print Format(Int(

9、12345.6789*100+0.5)/100, 0000,0.00),12,345.68,例 编写程序,试验数值的格式化输出,Sub Form_Click() Print Format$(12345.6, 000,000.00) Print Format$(12345.678, #,#.#) Print Format$(12345.6, #,#0.00) Print Format$(12345.6, $#,#0.00) Print Format$(12345.6, -#,#0.00) Print Format$(0.123, 0.00%) Print Format$(12345.6, 0.0

10、0E+00) Print Format$(0.1234567, 0.00E-00) End Sub,注释语句,语法格式： Rem 注释内容 注释内容,注释有利于程序的维护和调试,(1)使用关键字Rem，在Rem和注释内容之间要加一个以上空格 (2)在其他语句后使用Rem关键字，必须使用冒号(:)与前面的 语句隔开。注释符(单引号)可以直接写在其他语句后面。,暂停语句,(Stop语句),在程序代码中设置断点(相当 于中断），暂停程序的执行。,Private Sub Form_click() Dim i%, s% Debug.Print i , s s = s + i Form1.Print s

11、End Sub,stop,每一次的执行都会在此暂停,结束语句(End语句),用于结束一个程序的运行 Sub Command1_Click() End 结束程序 End Sub,End If、End Select、End With、End Type、 End Function、End Sub等.,输出语句,Print,对象.Print 表达式列表,|;,(在指定的对象中输出表达式的值),注意：Print方法在Form _Load事件过程中起作用， 必须设置窗体的AutoRedraw为True。,对象.? 表达式列表,|;,窗体(Form),窗体是设计VB应用程序的基本平台。 窗体本身是一个对象，

12、又是其它对象的载体。 大多数应用程序是从窗体开始执行的。 一个应用程序可以有多个窗体。,窗体的结构,系统菜单,标题,标题栏,最小化按钮,最大化按钮,窗体,关闭按钮,ControlBox,Caption,MinButton,MaxButton,窗体的属性,1. Height、Width、Top和Left属性,2.字体Font属性组,FontName(字体名称) FontSize(字体大小) FontBold（粗体字） FontItalic（斜体字） Fontstrikethru（加删除线） Fontunderline（加下划线） FontTransParent（重叠显示）,窗体的属性,BackC

13、olor属性设置窗体的背景颜色 ForeColor 属性设置窗体的前景颜色,BorderStyle属性设置窗体边框的类型,Picture属性设置窗体中要显示的图片,Caption属性决定控件上显示内容 Name属性是对象的标识,AutoRedraw属性（自动重画） Form_load( )事件使用Print方法的时候设置为True。,窗体的属性,Enabled属性 （决定控件是否可操作） True ：允许用户进行操作（缺省值） False：禁止用户进行操作。,Visible属性（决定控件是否可见） True ：运行时控件可见（缺省值）。 False：运行时控件隐藏但控件本身 是存在的。,窗体事

14、件,Load事件：是在窗体被装入工作区时触发的事件。当应用程序启动时，自动执行该事件。 UnLoad事件：是卸载事件，当从内存中清除一个窗体时触发该事件。,Load事件和UnLoad事件,窗体的方法,对象. Print 作用：在指定的对象（窗体、图片框）中输出值 对象. Cls 作用：清除运行时在窗体或图形框中显示的文本或图形 对象. Move 左边距离,上边距离,宽度,高度 作用：移动窗体或控件，并可改变其大小 对象. Show和对象. Hide 作用：Show方法用来显示窗体，Hide方法用来隐藏窗体,例：简易计算器,3.3 数据的输入与输出,3.3.1 命令按钮,Caption:标题属性

15、命令按钮显示的内容 Default:确认属性。设置为True时，按Enter键相 当于用鼠标器单击了该按钮。 Enabled:设置按钮是否为激活状态。 Style: 确定显示的形式 0只能显示文字,1文字、 图形均可。 Picture：给命令按钮指定一个图片。,1.命令按钮的属性,2.命令按钮的事件,事件Click,标签（Label) 文本框（Text),只用于显示文本(输出)信息，不能作为输入信息的界面。,既显示正文内容，也可在该区域输入、编辑或者复制文本。,3.3.2 标签与文本框,标签的属性,Caption：用来改变Label控件中显示的文本 Alignment：设置Caption属性中

16、文本的对齐方式 （0，1，2) BorderStyle：有无边框 0-None：无边框； 1-Fixed Single：有边框； Autosize （True,False) Backstyle: 是否透明(0,1),文本框的属性,Text:显示文本内容 Multiline：是否允许输入多行（默认一行false） Alignment：设置文本框中文本的对齐方式 PasswordChar：设置文本框中显示口令字符 Locked：设置是否锁定文本框中的文本 MaxLength: 最大字符数,文本框没有Caption属性,Text1.Text=,文本框事件,Change( ) GotFocus Los

17、tFocus SetFocus,应用举例,例 用change事件改变文本框的Text属性 Private Sub Command1_Click() Text1.Text = Microsoft Visual Basic 6.0 End Sub Private Sub Text1_Change() Text2.Text = LCase(Text1.Text) Text3.Text = UCase(Text1.Text) End Sub,计时器,利用计算机系统的时钟计时，间隔一定时间触发事件。计时器的时间以毫秒为单位，每秒可以触发最多18个事件。 Interval属性 用于设置计时器事件之间的时间

18、间隔，取值为0，则表示定时器无效。 Timer事件 当达到Interval属性规定的时间间隔就触发事件。,示例,Private Sub Timer1_Timer() Label1.FontName = “Arial Label1.FontSize = 36 Label1.Caption = Time$ End Sub,图 建立数字计时器（界面设计）,图 建立数字计时器（执行情况）,例 用计时器实现字体的放大,示例： 蝴蝶飞翔,窗体设计,Private Sub Command1_Click() End End Sub Private Sub Timer1_Timer() Static ImaBm

19、p As Integer Image1.Move Image1.Left + 20, Image1.Top - 5 If Image1.Top = 0 Then Image1.Left = 0 Image1.Top = 1320 End If If ImaBmp Then Image1.Picture = Image3.Picture Else Image1.Picture = Image2.Picture End If ImaBmp = Not ImaBmp End Sub,例,3.3.4 InputBox函数,执行InputBox函数时程序被暂停，并产生一个对话框，等待用户在输入框输入数据

20、，并返回所输入的内容。,变量名=InputBox(提示,标题,默认,x坐标,y坐标),R = Val(InputBox$(输入球半径, 计算面积体积, 0, 100, 100),InputBox函数的返回值为字符串，可用Val转换为数值,例 编写程序,试验InputBox函数的功能,Private Sub Form_Click() c1$ = Chr$(13) + Chr$(10) msg1$ = “输入顾客名字: msg2$ = 输入后按回车键 msg3$ = 或单击确定按钮 msg$ = msg1$ + c1$ + msg2$ + c1$ + msg3$ custname$ = Input

21、Box(msg$, InputBox_ Function demo, 王大力) Print custname$ End Sub,vbcrlf,求解一元二次方程,要求: （1）参数a,b,c用InputBox函数输入 （2）显示定义方程的根x1,和x2为双精度浮点数 （3）按格式“方程的一个解=？ 方程的另一个解=？” 在窗体上输出。,注意,默认情况下，InputBox的返回值是字符串，可用Val函数转换为数值。 Inputbox一次只能输入一个值，要输入多个值时需多次调用该函数,真题,在窗体上画一个文本框，然后编写如下事件过程： Private Sub Form_Click() x= Inpu

22、tBox(“请输入一个数”) print x+Text1.Text End Sub 程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容：,3.3.5 MsgBox函数和MsgBox语句,MsgBox函数 执行MsgBox函数时程序被暂停，并产生一个对话框，对话框中包含提示信息和命令按钮，等待用户单击某个命令按钮， MsgBox函数返回所选按钮的整数值，并以此作为程序继续进行的依据。,函数形式: MsgBox(msg,type,Title,helpfile,context),x = MsgBox(参数错误,18),3,4,5,type：整型表达式,决定信息框按钮的数目和类型及出 现在信息框上的图标类型,按钮值如下: 函数返回所选按钮整数值:,例 编写程序,试验MsgBox函数的功能,Private Sub Form_Click() msg1$ = 要继续吗? msg2$ = Operation Dialog Box r = MsgBox