《计算机二级VB 第3章VB程序设计基础课件》由会员分享，可在线阅读，更多相关《计算机二级VB 第3章VB程序设计基础课件（71页珍藏版）》请在金锄头文库上搜索。
1、Visual Basic程序设计基础,计算机科学学院,上机安排,上机时间：第3, 5-13 周 星期五 8、9节 上机地点：第2实验大楼 2、3、4 机房 第一次实验排定座位后，以后各次实验除机器故障外都在原机位上进行。,第三章 Visual Basic程序设计基础,顺序结构,顺序结构是指程序运行时按语句的书写顺序依次执行 。,M_Variant = 123 M_Variant = 123 M_Variant = True,程序流程图,3.1 Visual Basic 基本语句,3.1.1 语句的概念 语句由Visual Basic关键字、变量、常量、运算符等组成，语句的功能是使计算机执行具体
2、的操作,3.1 Visual Basic 基本语句,注意： 同一语句行中输入多条语句，语句之间用冒号“ : ”分隔。（不推荐使用） a=3 : b=6 一条语句在多行显示，使用续行符“ _”。续行符与它前面的字符之间至少有一个空格,x=( -b + sqr (b2 4 * a * c) ) / _ (2 * a),3.1.2 赋值语句,注意：赋值语句的执行顺序!与数学上的等号含义是不一样的！,LET变量或属性名 = 表达式或属性值,先计算“=”右边的表达式结果，将结果赋值给“=”左边的属性或变量。,Dim Str1 As String Dim Num As Integer Str1 = Vis
3、ual Basic 6.0 Num = 2 Text1.Text = Str1,3.1 Visual Basic 基本语句,1.赋值号左边只能是变量，不能是常量、常数符号或表达式 sin(x) = x + y 5 = sqr(s) + x + y x + y = 3 2.不能在一句赋值语句中给多个变量赋值 Dim x%,y%,z% x=y=z=1 3.等号左边和右边的数据类型至少相关 X%=“asd”,3.1.3 注释语句,功 能：在程序中加入解释性的说明 语法格式： Rem 注释内容 注释内容 （推荐使用） 说 明：注释语句是非执行语句，它仅对程序的有关内容起说明作用 多行注释功能对调试非常
4、有用,(1)使用关键字Rem，在Rem和注释内容之间要加一个空格。 (2)在其他语句后使用Rem关键字，必须使用冒号(:)与前面的 语句隔开。注释符(单引号)可以直接写在其他语句后面。,在VB解释环境下，STOP在程序 代码中设置断点(相当于中断） 暂停程序的执行。,Private Sub Form_click() Dim i%, s% Debug.Print i , s stop s = s + i Form1.Print s End Sub, 每一次的执行都会在此暂停,3.1.4 暂停语句 (Stop语句),3.1.5 结束语句 (End语句),用于结束一个程序的运行,并关闭所有文件 Su
5、b Command1_Click() End 结束程序 End Sub 常用的地方 End Sub 结束一个Sub过程 End Function 结束一个function过程 End If 结束一个if语句块 End Type 结束记录类型的定义 End Select 结束情况语句,实例,1.两个数的交换 2.计算三角形面积,第三章 Visual Basic程序设计基础,3.2 窗体,窗体是构成应用程序的基本模块 窗体是用户与应用程序之间进行交互的窗口,最大化按钮,常见属性,Left、Top、Width、Height属性 所有可视化的对象都具有这些属性，它们决定了对象的位置和大小,格式： 对象
6、.Left=数值 对象.Top=数值 对象.Width=数值 对象.Height=数值,常见属性,Caption和Name属性 Caption属性用来设置窗体或对象的标题，该标题显示在窗体或对象上。 Name属性是在程序代码中引用一个对象的名称，在程序运行时，对象名不能改变。,常用控件的默认Caption属性和Name属性,Enabled、Visible属性 Enabled属性用来设置一个对象是否激活。 Visible属性用来设置一个对象是否可见。 说明： 默认情况下，对象的Enabled和Visible属性值均为True，表示该对象既可见，又处于激活状态,常见属性,常见属性,AutoRedr
7、aw属性 自动重画，该属性控制屏幕图像的重建 如果该属性设置为True，则当一个窗体被其他窗体覆盖，又回到该窗体时，将自动刷新或重画该窗体上的所有图形。 该属性的默认值为False。 Picture属性 Picture属性用来在对象中显示一个图形。该属性可以显示多种图形格式： .jpg、.bmp、.gif 、.ico,常见属性,ForeColor和BackColor属性 ForeColor用来定义文本或图形的前景颜色 BackColor用来定义窗体或控件的背景颜色 颜色用一个十六进制常量表示。 在指定的对象中输出表达式的值，用于在窗体、图片框或打印机上输出数据。 说明 Print方法前的“对象
8、名”可省略，省略对象名就在当前窗体上打印出数据。 Print方法后可跟多个表达式，当输出多个表达式时，各表达式用逗号|分号隔开。 表达式可以省略，则在对象上打印空行。 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
9、 得; intA1; intA2 End Sub,Print方法,用“;”隔开数据项，打印时以紧凑格式输出,字符串数据的紧凑格式输出时把各表达式连接起来输出,数值数据的紧凑格式输出时,数据前有一个符号位，后有一个空格,Print方法,用“,”隔开，以标准格式输出（分区输出格式），以14个字符宽度划分为一个区段。,判断下面语句的输出结果？ Print 2,-4,Print方法,练习题, Print AB; CDE Print 2; -4, 6 Print AB; CDE, 末尾出现了逗号 Print 2; -4, 6 Print AB; CDE; 末尾出现了分号 Print 2; -4, 6 *
10、2*-4*6 ABCDE*2*-4*6 ABCDE*2*-4*6,Print 2, Print 4 Print 2,4 2 4,与Print方法有关的函数,Tab函数 功能是在指定的位置显示输出信息。 Print Tab(n) 参数n为数值表达式，其值为一整数，它是下一个输出位置的列号,与Print方法有关的函数,Spc函数 功能是在两个输出表达式之间空n个空格。 Print Spc(n) 注意： Spc函数和Tab函数的功能十分类似，而且可以互相代替，但Tab函数需要从对象的左端开始计数，而Spc函数只表示两个输出项之间的空格数,Form1.Print * Form1.Print Tab(2
11、); *; 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); *,与Print方法有关的函数,Print Tab(2); “3“ Print Tab(3);spc(3);”1” 11111111111111111111111111111111 3 1,Format函数,将数值或日期按指定格式输出 Format(数值表达式，格
12、式字符串),Format函数,# 数字;不在前面或后面补0 0 数字;在前面或后面补0 . 小数点 ， 千位分隔逗点 % 百分比符号 $ 美元符号 -+ 负、正号 E+ E- 指数符号,Format函数,Print format$(25634, “00000000”) 00025634 Print format$(25634, “#”) 25634 Print format$(850.721, “#.#”) 850.72 Print format$(7.876, “000.00”) 007.88,Format函数,Print format$(.257, “00.0%”) 25.7% Print
13、 format$(384.2, “$#.00”) $384.20 Print format$(3485.52, “0.00E+00”) 3.49E+03,InputBox函数,InputBox( 提示 ,标题 ,默认 ,x坐标 ,y坐标 ) 参数说明 提示 标题 默认,r = Val(InputBox(输入圆半径, 圆周长和面积计算, 1),InputBox函数的返回值是一个字符串,在程序设计中我们除了能正确的把软件的功能给实现（软件的可用性）外，还有一个重要的因素需要考虑：程序的健壮性。,InputBox函数,InputBox函数,换行符 Chr$(13)+ Chr$(10) vbCrLf,
14、MsgBox()函数与MsgBox过程,MsgBox(msg,type,title,helpfile,context) MsgBox( )返回所选按钮的整数值,若不需返回值,则可作为MsgBox过程使用 函数形式：变量%=MsgBox(msg) 过程形式：MsgBox msg type 整型表达式,决定信息框按钮的数目和类型及出现在信息框上的图标类型,MsgBox 欢迎光临！, vbOKOnly + vbInformation, 欢迎,MsgBox 欢迎光临！, 64, 欢迎,0,64,MsgBox函数,MsgBox “网络连接出现问题，是否重试？, 274, 警告,216256,vbAbor
15、tRetryIgnore+ vbCritical+vbDefaultbutton2,MsgBox函数,MsgBox()函数与MsgBox过程,函数形式：x = MsgBox(参数错误,18) 过程形式：MsgBox 参数错误,18,返回值为3,返回值为4,返回值为5,MsgBox函数,MsgBox函数,x = MsgBox(是否退出？, vbOKCancel, 提示),下面给程序添加代码，避免用户的输入超过范围的数据。 添加在计算周长和面积之前 If R 10 Then MsgBox 请输入小于等于10的半径值, 48, 出错 Exit Sub End If,MsgBox()函数与MsgBox
16、过程,以下关于MsgBox的叙述中，错误的是( )A) MsgBox函数返回一个整数。B) 通过MsgBox函数可以设置信息框中图标和按钮的类型。C) MsgBox语句没有返回值。D) MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量。,D,真题,Private Sub Command1_Click( ) a$ = “software and hardware” b$ = Right(a$, 8) c$ = Mid(a$, 1, 8) MsgBox a$, , b$, c$, 1 End Sub 单击命令按钮，在弹出的信息框的标题栏中显示的是( ) A）software and hardware B）software C）
