《Visual Basic6.0程序设计 教学课件 ppt 作者 张险峰 第3章 Visual Basic程序设计基础》由会员分享，可在线阅读，更多相关《Visual Basic6.0程序设计 教学课件 ppt 作者 张险峰 第3章 Visual Basic程序设计基础（55页珍藏版）》请在金锄头文库上搜索。
1、第3章 Visual Basic程序设计基础,本章内容及要求： 1 掌握Visual Basic的基本控制语句 2 了解常用内部函数的功能，掌握部分常用内部函 数的用法 3 掌握Sub和Function过程的定义和调用方法 4 掌握用户交互函数过程的使用,3.1.1 赋值语句 形式: 变量名表达式 对象.属性表达式 功能： 将表达式的值赋值给变量名或指定对象的属性。 一般用于给变量赋值或对控件设定属性值. 例： sRate!=0.1 Text1.Text “欢迎使用Visual Basic 6.0” 说明： 1 执行过程：先求表达式的值，然后将值赋值给左边的变量。 2 右边的表达式可以是变量、
2、常量、函数调用等特殊的表达式。 3 不要将“”理解为数学上的等号： A=A+1 是表示将A单元的值加后以放回到A单元。,3.1 流程控制结构,3.1 流程控制结构,执行过程如右图,4赋值符号“=”左边一定只能是变量名或对象的属性引用，不能是常量、符号常量、表达式。 下面的赋值语句都是错的： 5=X 左边是常量。 Abs(X)=20 左边是函数调用，即是表达式。,5. 赋值符号“=”两边的数据类型一般要求应一致。,3.1.2 简单的数据输出语句 1.Print方法 Print方法用于在窗体、立即窗口、图片框、打印机等对象中显示文本字符串和表达式的值。其使用语法如下： 对象名.Print 表达式,
3、|； 说明： 若省略对象名，则系统默认在当前窗体上输出。 若省略表达式，则打印输出一空行。 表达式间若以逗号分隔，则数据项按标准输出格式显示；若以分号分隔，则按紧凑格式输出。,3.1 流程控制结构,3.1 流程控制结构,2. Cls方法 对象名.Cls “清屏”，只清除运行时窗体或图形框中显示的文本或图形,不清除窗体在设计时的文本或图形。 数据输入输出的形式还有很多，比如Move方法、Msgbox函数等，它们都属于顺序结构。,IfThen语句(单分支结构) If Then 语句块 End If 或 If Then ,例:已知两个数x和y，比较它们的大小， 使得x大于y. If xy Then
4、t=x : x=y: y=t End If 或 If xy Then t=x: x=y: y=t,3.1 流程控制结构,2. IfThenElse语句(双分支结构) If Then Else End If If Then Else ,双分支选择结构执行过程,3.1 流程控制结构,例如：输出x,y两个中值较大的一个值。 IF XY Then Print X Else Print Y End If 也可以写成如下的单行形式： IF XY Then Print X Else Print Y,3.1 流程控制结构,3. IfThenElseIf语句(多分支结构) 形式: If Then ElseIf
5、Then Else 语句块 n+1 End If,3.1 流程控制结构,例3.1：输入一学生成绩，评定其等级。方法是：90100分为“优秀”，8089分为“良好”，7079分为“中等”，6069分为“及格”，60分以为“不合格”,使用IF语句实现的程序段如下： If x=90 then Print “优秀“ ElseIf x=80 Then Print “良好“ ElseIf x=70 Then Print “中等“ ElseIf x=60 Then Print “及格“ Else Print “不及格“ End If,3.1 流程控制结构,4 . Select Case语句（情况语句） 形式
6、： Select Case 变量或表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 Case Else 语句块n+1 End Select,数值型或字符串表达式,3.1 流程控制结构,说明： ：与同类型的下面四种形式之一： 表达式 A +5 一组枚举表达式(用逗号分隔) 2, 4, 6, 8 表达式1 To 表达式2 60 to 100 Is 关系运算符表达式 Is 60,3.1 流程控制结构,例如：将例3.1 使用select case语句来实现的程序段如下： Select Case x Case 90 to 100 Print “优秀“ Case 80 to 89
7、 Print “良好“ Case 70 to 79 Print “中等“ Case 60 to 69 Print “及格“ Case Else Print “不及格“ End Select,3.1 流程控制结构,5. 选择结构的嵌套 下面是两种正确的嵌套形式： （1） IF Then IF Then Else End If . Else . IF Then Else End If End IF,（2） IF Then Select Case Case IF Then Else End If Case. End Select . End IF,3.1 流程控制结构,注意：只要在一个分支内嵌套，不
8、出现交叉，满足结 构规则，其嵌套的形式将有很多种，嵌套层次也可以任意 多。对于多层IF嵌套结构中，要特别注意IF与Else的配对 关系，一个Else必须与IF配结，配对的原则是：在写含有 多层嵌套的程序时，建议使用缩进对齐方式，这样容易阅 读和维护。,3.1 流程控制结构,【例】 将输入文本框中的所有小写字母转换成大写字母， 并将一些特殊符号变成等价的字符串，如DLR表示$、AT表示、 0/0表示、BPT表示#、AND表示&等。可以在KeyPress事件中 修改文本框控件的缺省操作，使它能在用户输入这些字符时进 行相应修改。,Private Sub Text1_KeyPress (KeyAsc
9、ii As Integer) Dim spesymbols As String Dim ch As String 1 Spesymbols=$#%& ch= Chr(KeyAscii) If InStr(Spesymbols,ch) Then KeyAscii=0 Else,3.1 流程控制结构,KeyAscii = Asc(Ucase(ch) Exit Sub End If Select Case ch Case $: Text1.SelText=DLR Case #: Text1.SelText=BPT Case %: Text1.SelText=0/0 Case &: Text1.Sel
10、Text=AND Case : Text1.SelText=AT End Select End Sub,3.1 流程控制结构,3.2 循环结构 1. For循环语句 (一般用于循环次数已知) 形式： For 循环变量初值 to 终值 Step 步长 语句块 Exit For 语句块 Next 循环变量,3.1 流程控制结构,循环次数,例: For I=2 To 13 Step 3 Print I , Next I Print “I=“, I,循环执行次数 ： 4 输出I的值分别为: 2 5 8 11 出了循环输出为: I=14,3.1 流程控制结构,例3.2 编程计算：S=1+2+3+100,
11、Dim S%, I% S=0 累加前变量S为0 For I=1 to 100 S=S+I Next I Print “ S=“,S,3.1 流程控制结构,【例3.3】求阶乘n！,3.1 流程控制结构,编写程序代码。 Private Sub Command1_Click() Dim n As Integer,i As Integer Dim result As Long result=1 n=CInt(text1.text) If n=0 Then Label2.Caption=“请输入正整数！“ Exit Sub 结束过程 End if For i=1 To n result=result*i
12、 Next i Label2.Caption=Str(n)+“!=“+Str(result) End Sub,3.1 流程控制结构,2. DoLoop循环语句,形式1：（当型循环） Do While|Until 语句块 Exit Do 语句块 Loop,3.1 流程控制结构,形式2：(直到循环） Do 语句块 Exit Do 语句块 Loop While|Until ,3.1 流程控制结构,Do UntilLoop执行过程 DoLoop Until执行过程,3.1 流程控制结构,说明： （1）当使用While构成循环时，当条件为“真”，则反复执行循环体，当条件为“假”，则退出循环。 （2）当使
13、用Until 构成循环时，当条件为“假”，则反复执行循环体，直到条件成立，即为“真”时，则退出循环。,（3）在循环体内一般应有一个专门用来改变条件表达式中变量的语句，以使随着循环的执行，条件趋于不成立（或成立），最后达到退出循环。 （4）语句Exit Do的作用是退出它所在的循环结构，它只能用在DO/Loop结构中，并且常常是同选择结构一起出现在循环结构中，用来实现当满足某一条件时提前退出循环。,3.1 流程控制结构,【例3.5】用DoLoop循环结构实现求和sum=1+2+3+100。,编写代码如下：,3.1 流程控制结构,解法一：采用当型循环Do WhileLoop Private Sub
14、 Command1_Click() Dim i As Integer,sum As Integer i=1 计数器初值置为1 sum=0 累加器初值置为0 Do While i=100 当型循环 sum=sum+i i=i+1 每次循环变量加1 Loop Label2.Caption=Str(sum) End Sub,3.1 流程控制结构,解法二：采用直到型循环DoUntilLoop Private Sub Command1_Click() Dim i As Integer,sum As Integer i=1 计数器初值置为1 sum=0 累加器初值置为0 Do Until i100 sum
15、=sum+i i=i+1 Loop Label2.Caption=Str(sum) End Sub,3.1 流程控制结构,3.2 常用函数,VB提供了上百种内部函数（库函数），要求掌握这些常用函数的功能及使用。 调用方法： 函数名（参数列表） 有参函数 函数名 无参函数 说明： （1） 使用库函数要注意参数的个数及其参数的数据类型 （2） 要注意函数的定义域（自变量或参数的取值范围） 例如： sqr(x) 要求： x=0 （3） 要注意函数的值域。 如：exp(23773) 的值就超出实数在计算机中的表示范围,3.2 常用函数,1、数学函数 常用的数学函数 Abs(N) Cos(N) Sin(N) Exp(N) Log(N) Sqr(N) Rnd(N) Sgn(N) 说明： （1） 在三角函数中的自变量是以弧度为单位。 如：sin300 sin(3.14159/180*30) （2）Rnd函数返回0 1（包括0和不包括1）之间的双精度随机数。 若要产生1-1
