VB程序设计基础.ppt.ppt

1、Visual Basic程序设计基础,顺序结构,顺序结构是指程序运行时按语句的书写顺序依次执行 。,M_Variant = 123 M_Variant = 123 M_Variant = True,程序流程图,3.1 Visual Basic 基本语句,注意： 同一语句行中输入多条语句，语句之间用冒号“ : ”分隔。 a=3 : b=6 一条语句在多行显示，使用续行符“ _”。续行符与它前面的字符之间至少有一个空格,1.1 语句的概念,x=( -b + sqr (b2 4 * a * c) ) / _ (2 * a),语句由Visual Basic关键字、变量、常量、运算符等组成，语句的功能是

2、使计算机执行具体的操作。,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=

3、y=z=1 3.等号左边和右边的数据类型至少相关,1.3 注释语句,语法格式： Rem 注释内容 注释内容,(1)使用关键字Rem，在Rem和注释内容之间要加一个空格。 (2)在其他语句后使用Rem关键字，必须使用冒号(:)与前面的 语句隔开。注释符(单引号)可以直接写在其他语句后面。,说 明：注释语句是非执行语句，它仅对程序的有关内容起注释作用。,功 能：在程序中加入解释性的说明。,1.4 暂停语句,(Stop语句),在VB解释环境下，STOP在程序 代码中设置断点(相当于中断） 暂停程序的执行。,Private Sub Form_click() Dim i%, s% Debug.Print

4、 i , s s = s + i Form1.Print s End Sub,stop, 每一次的执行都会在此暂停,1.5 结束语句(End语句),用于结束一个程序的运行,并关闭所有文件。 Sub Command1_Click() End 结束程序 End Sub 常用的地方 End Sub 结束一个Sub过程 End Function 结束一个function过程 End If 结束一个if语句块 End Type 结束记录类型的定义 End Select 结束情况语句,2 窗体,窗体是构成应用程序的基本模块 窗体是用户与应用程序之间进行交互的窗口,最大化按钮,常见属性,Left、Top、W

5、idth和Height属性 所有可视化的对象都具有这些属性，它们决定了对象的位置和大小,格式： 对象.Left=数值 对象.Top=数值 对象.Width=数值 对象.Height=数值,常见属性,Caption和Name属性 Caption属性用来设置窗体或对象的标题，该标题显示在窗体或对象上。 Name属性是在程序代码中引用一个对象的名称，在程序运行时，对象名不能改变。,常用控件的默认Caption属性和Name属性,Enabled和Visible属性 Enabled属性用来设置一个对象是否激活。 Visible属性用来设置一个对象是否可见。 说明： 默认情况下，对象的Enabled和Vi

6、sible属性值均为True，表示该对象既可见，又处于激活状态。,常见属性,常见属性,AutoRedraw属性 自动重画，该属性控制屏幕图像的重建 如果该属性设置为True，则当一个窗体被其他窗体覆盖，又回到该窗体时，将自动刷新或重画该窗体上的所有图形。 该属性的默认值为False。 Picture属性 Picture属性用来在对象中显示一个图形。该属性可以显示多种图形格式： .jpg、.bmp、.gif 、.ico,常见属性,ForeColor和BackColor属性 ForeColor用来定义文本或图形的前景颜色 BackColor用来定义窗体或控件的背景颜色 颜色用一个十六进制常量表示。

7、 WindowState和BorderStyle属性 WindowState属性用来设置窗体的操作状态 (正常状态/最大化/最小化) BorderStyle属性用来设置窗体边框的类型 ControlBox属性 设置窗口控制框(系统菜单，位于窗口左上角). Font属性 Font属性用来设置输出字符的字形属性，包括字体和字号等 如果程序中需要使用多种字形，可以通过程序代码设置,窗体的常见方法,对象.Cls 用于清除对象中显示的文本或图形 说明： 格式中的“对象”可以是窗体或图片框，如果省略“对象”则清除当前窗体内的显示内容。但是用Picture属性输入的图形不能用Cls方法清除，只能通过Load

8、Picture方法清除。 不能清除在设计时的文本和图形,窗体的常见方法,对象.Show和对象.Hide 作用：Show方法用来显示窗体，Hide方法用来隐藏窗体,Move方法 用来移动对象，同时可改变其大小。如果一个对象支持Left、Top、Width和Height属性，则它也支持Move方法。 对象.Move left,top,width,Height,窗体的常见方法,窗体的常见事件,Load事件 Load事件是在窗体被装入工作区时自动触发的事件。当应用程序启动时，自动执行该事件。Load事件可以用来在启动时对属性和变量进行初始化。,Sub Form_Load() Caption = 装入窗

9、体 Form1.AutoRedraw = True FontSize = 48 : FontName = 隶书 Form1.Print 装入窗体 End Sub,Unload事件(卸载事件) 当从内存中清除一个窗体（关闭窗体）时自动触发该事件。,窗体的常见事件,Click和DblClick事件 Click是鼠标单击事件，程序运行后，当鼠标在对象上作单击操作时，将调用对象的单击事件对象名_Click() DblClick是鼠标双击事件，程序运行后，当鼠标在对象上作双击操作时，将调用对象的双击事件对象名_DblClick()。 “双击”实际上触发两个事件，第一次按鼠标按钮时产生Click事件，第二

10、次产生DblClick事件。 触发Click和DblClick事件的对象常见的有窗体和命令按钮。,Change事件 Change事件是一旦控件的内容改变，就自动触发该事件。例如在文本框中键入内容时，就触发Change事件。,Private Sub Text1_Change() Print 文本框中的内容有改变 End Sub,常见事件,几个常见控件,命令按钮（Command Button） 标签（Lable） 文本框（TextBox） 计时器（Timer）,常用控件命令按钮(Command Button),属性 Caption、Default、Cancel、Enabled 事件 Click、D

11、blClick,常用控件标签(Label),属性 Caption ForeColor、BackColor Alignment BorderStyle AutoSize,常用控件文本框（TextBox）,既可以显示文本，又可以在文本框中输入、编辑或复制文本。 Text属性：设置文本框中显示的文本内容 Multiline属性：设置是否允许输入多行文本 ScrollBars属性：设置是否含有滚动条 PasswordChar属性：设置显示口令字符,常用控件文本框（TextBox）,仅在运行时有效的属性 SelLength 当前选中的字符个数。为0表示未选中任何字符。 SelStart 当前选择文本的起

12、始位置。其值为从0开始。 SelText 当前选择的文本字符串，没有选择时为空串。,常用控件计时器控件,利用计算机系统的时钟计时，间隔一定时间触发事件。计时器的时间以毫秒为单位。 Interval属性 用于设置计时器事件之间的时间间隔，取值为0，则表示定时器无效 Timer事件 当达到Interval属性规定的时间间隔就触发事件,Private Sub Form_Load() Text1.Text = 计时器 Command2.Enabled = False Timer1.Interval = 100 End Sub Private Sub Timer1_Timer() Label1.Capt

13、ion = Time End Sub,Private Sub Command1_Click() Text1.Text = 计时开始 Form1.Tag = Timer Command1.Enabled = False Command2.Enabled = True End Sub Private Sub Command2_Click() Text1.Text = CInt(10 * (Timer - Form1.Tag) / 10 在指定的对象中输出表达式的值，用于在窗体、图片框或打印机上输出数据。 说明 Print方法前的“对象名”可省略，省略对象名就在当前窗体上打印出数据。 Print方法

14、后可跟多个表达式，当输出多个表达式时，各表达式用逗号|分号隔开。 表达式可以省略，则在对象上打印空行。 Print具有计算和输出双重功能。,例 Private Sub Form_Click() Dim intA1 As Integer, intA2 As Integer, intTemp% intA1 = 5: intA2 = 10 使用分号分隔三个表达式 Form1.Print 交换; intA1; intA2 intTemp = intA1: intA1 = intA2: intA2 = intTemp Form1.Print 得; intA1; intA2 End Sub,例 Priva

15、te Sub Form_Click() Dim intA1 As Integer, intA2 As Integer, intTemp% intA1 = 5: intA2 = 10 使用逗号分隔三个表达式 Form1.Print “交换”, intA1, intA2 intTemp = intA1: intA1 = intA2: intA2 = intTemp Form1.Print “得”, intA1, intA2 End Sub,用“;”隔开数据项，打印时以紧凑格式输出,字符串数据的紧凑格式输出时把各表达式连接起来输出,数值数据的紧凑格式输出时,数据前有一个符号位，后有一个空格,用“,”

16、隔开，以标准格式输出（分区输出格式），以14个字符宽度划分为一个区段。,判断下面语句的输出结果？ Print 2,-4,课后练习题 Print AB; CDE Print 2; -4, 6 Print AB; CDE, 末尾出现了逗号 Print 2; -4, 6 Print AB; CDE; 末尾出现了分号 Print 2; -4, 6,与Print方法有关的函数,Tab函数 功能是在指定的位置显示输出信息。 Print Tab(n) 参数n为数值表达式，其值为一整数，它是下一个输出位置的列号。,与Print方法有关的函数,Spc函数 功能是在两个输出表达式之间空n个空格。 Print Sp

17、c(n) 注意： Spc函数和Tab函数的功能十分类似，而且可以互相代替，但Tab函数需要从对象的左端开始计数，而Spc函数只表示两个输出项之间的空格数。,Form1.Print * Form1.Print 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函数 将数值或日期按指定格式输

18、出。 Format(数值表达式，格式字符串),InputBox函数,InputBox(提示,标题,默认,x坐标,y坐标) 参数说明 提示 标题 默认,r = Val(InputBox(输入圆半径, 圆周长和面积计算, 1),InputBox函数的返回值是一个字符串,在程序设计中我们除了能正确的把软件的功能给实现（软件的可用性）外，还有一个重要的因素需要考虑：程序的健壮性。,MsgBox()函数与MsgBox过程,MsgBox(msg,type,title,helpfile,context) MsgBox()返回所选按钮的整数值,若不需返回值,则可作为MsgBox过程使用 函数形式：变量%=Ms

19、gBox(msg) 过程形式：MsgBox msg type 整型表达式,决定信息框按钮的数目和类型及出现在信息框上的图标类型,函数形式：x = MsgBox(参数错误,18) 过程形式：MsgBox 参数错误,18,返回值为3,返回值为4,返回值为5,下面给程序添加代码，避免用户的输入超过范围的数据。 添加在计算周长和面积之前 If R 10 Then MsgBox 请输入小于等于10的半径值, 48, 出错 Exit Sub End If,顺序程序设计实例,摄氏温度与华氏温度的转换 转换公式为：F=32+1.8C，其中F为华氏温度，C为摄氏温度,如何输入摄氏温度与华氏温度值？ 用文本框或InputBox函数来获得输入值,如何输出转换后的结果？ 用文本框的文本属性、标签的标题属性以及Print方法来输出结果,InputBox函数来获得输入值，用标签的标题显示输出结果,文本框既获得输入值，也来显示输出结果,设计界面 设置对象属性 编写事件代码 保存工程 运行程序,设计界面 设置对象属性 编写事件代码 保存工程 运行程序,在Command2的单击事件中应该完成的