aual basie语言程序设计 第5章VB程序设计语句 ●5.1赋值语句 赋值语句是任何程序设计语言中最基本的语句。 格式:[LET]变量名=表达式 功能:它的作用是把右边表达式的值赋给左边的变 量 说明 (1)LET表示赋值,通常可以省略 (2)表达式的类型应与变量的类型一致,即同时为数值型 或同时为字符型。当是数值型且有不同精度时,强制转换 成左边的精度
Visual Basic 语 言 程 序 设 计 第5章 VB程序设计语句 ⚫ 5.1 赋值语句 – 赋值语句是任何程序设计语言中最基本的语句。 – 格式:[LET] 变量名=表达式 – 功能:它的作用是把右边表达式的值赋给左边的变 量。 – 说明: ⚫ (1)LET表示赋值,通常可以省略。 ⚫ (2)表达式的类型应与变量的类型一致,即同时为数值型 或同时为字符型。当是数值型且有不同精度时,强制转换 成左边的精度
aual basie语言程序设计 5.1赋值语句 例如:A%=6.3 A为整型变量 A中的结果为6 在ⅦB中,赋值语句通常是给变量赋值和设置对象属性值。 1.给变量赋值 例如 Dim A As Integer Dim B As stringk10 A=100 B=”我是中国人 可以将一个表达式的值赋给一个变量,所以下面的赋值语句是合法的: Dim s As Integer DimP As single S=600+1000 P=3.14米S+200米500
Visual Basic 语 言 程 序 设 计 5.1 赋值语句 ⚫ 例如:A%=6.3 ‘A为整型变量 ⚫ A中的结果为6 ⚫ 在VB中,赋值语句通常是给变量赋值和设置对象属性值。 ⚫ 1.给变量赋值 – 例如: ⚫ Dim A As Integer ⚫ Dim B As String*10 ⚫ A=100 ⚫ B="我是中国人" – 可以将一个表达式的值赋给一个变量,所以下面的赋值语句是合法的: ⚫ Dim S As Integer ⚫ Dim P As Single ⚫ S=600+1000 ⚫ P=3.14*S+200*500
aual basie语言程序设计 5.1赋值语句 2.为对象设置属性值 在程序中可以用赋值语句为对象的属性设置属性值。 格式:对象.属性=属性值 例如:为命令按钮 Command1的 Caption属性设置值。 Command. Caption="显示文本" 为文本框 Text1的 FontName及 Fontsize属性设置值: Text1. FontName=“隶书” Text1. Fontsize=32
Visual Basic 语 言 程 序 设 计 5.1 赋值语句 – 2.为对象设置属性值 – 在程序中可以用赋值语句为对象的属性设置属性值。 – 格式:对象.属性=属性值 ⚫ 例如:为命令按钮Command1的Caption属性设置值。 – Command1.Caption="显示文本" ⚫ 为文本框Text1的FontName及FontSize属性设置值: – Text1.FontName=“隶书” – Text1.FontSize=32
aual basie语言程序设计 5.2条件语句 ●VB提供了多种形式的条件语句来实现选择结构。 对条件进行判断,根据判断结果,选择执行不 同的分支
Visual Basic 语 言 程 序 设 计 5.2 条件语句 ⚫ VB提供了多种形式的条件语句来实现选择结构。 对条件进行判断,根据判断结果,选择执行不 同的分支
aual basie语言程序设计 5.2.1分支结构 1.单分支结构(If.Then语句)格式: (1)If〈条件〉Then 〈语句块〉 End if (2)If〈条件〉Then〈语句〉 ●功能 (1)如果〈条件〉为真,执行Then后面的〈语句块〉,如果 条件为假,不执行Then后面的语句块,而执行 End lf后的 语句。如图5.1所示。 (2)如果〈条件〉为真,执行Then后面的〈语句〉,如果条 件为假,不执行Then后面的〈语句〉
Visual Basic 语 言 程 序 设 计 5.2.1 分支结构 ⚫ 1.单分支结构(If…Then语句)格式: – (1) If〈条件〉Then – 〈语句块〉 – End If – (2) If〈条件〉Then〈语句〉 ⚫ 功能: – (1)如果〈条件〉为真,执行Then后面的〈语句块〉,如果 条件为假,不执行Then后面的语句块,而执行End If后的 语句。如图5.1所示。 – (2)如果〈条件〉为真,执行Then后面的〈语句〉,如果条 件为假,不执行Then后面的〈语句〉
aual basie语言程序设计 5.2.1分支结构 2.双分支结构(If.Then.Else语句)格式 If〈条件〉Then 〈语句块1) 〈语句块2〉 End if 功能 如果〈条件〉为真,执行Then后面的〈语句块1〉, 如東〈条件〉为假,执行Else后面的〈语句块2〉。 【例5.1】计算分段函数。用双分支结构实现 y=sinx+(x2+1)x≠0 y-COSTX If x0 Th y=sin(x)+(x*x+1) Else y=cos(x)-x3+3米x End if
Visual Basic 语 言 程 序 设 计 5.2.1 分支结构 ⚫ 2.双分支结构(If…Then…Else语句)格式: – If〈条件〉Then – 〈语句块1〉 – Else – 〈语句块2〉 – End If – 功能: 如果〈条件〉为真,执行Then后面的〈语句块1〉, 如果〈条件〉为假,执行Else后面的〈语句块2〉。 ⚫ 【例5.1】计算分段函数。用双分支结构实现: – y=sinx+(x 2+1) x≠0 – y=cos-x 3+3x x=0 – If x<>0 Then – y=sin(x)+(x*x+1) – Else – y=cos(x)-x^3+3*x – End If
aual basie语言程序设计 5.2.1分支结构 ●3.IIf函数 IIf函数可用来执行简单的条件判断操作,它是 “If.Then.Else结构的简写版本。 格式: result=If(〈条件〉,〈True部分〉,( False部 分〉) 功能:当〈条件〉为真时,If函数返回“True部分”,而当 〈条件〉为假时,If函数返回“ False部分”。 说明: result函数的返回值,〈True部分〉、〈 False部分〉 及结果变量的类型要一致
Visual Basic 语 言 程 序 设 计 5.2.1 分支结构 ⚫ 3.IIf函数 – IIf函数可用来执行简单的条件判断操作,它是 “If…Then…Else”结构的简写版本。 – 格式:result=IIf(〈条件〉,〈True部分〉,〈False部 分〉) – 功能:当〈条件〉为真时,IIf函数返回“True部分”,而当 〈条件〉为假时,IIf函数返回“False部分”。 – 说明:result函数的返回值,〈True部分〉、〈False部分〉 及结果变量的类型要一致
aual basie语言程序设计 IIf函数 ●例如 If x>l0 Then r=1 Else r=2 End If 而用If函数来代替,可以使程序大大简化。 r=IIf(x>10,1,2) 【例5.2】某大学实行按学分收费,如果不超过12学分,应缴纳 学费为4000元,如果超过12学分,每超过1学分,加收500元学费。 输入学分U,输出学分U和应缴纳的学 ●【例5.3】设计一个对输入整数求和的程序,输入0时程序结東运 行
Visual Basic 语 言 程 序 设 计 IIf函数 ⚫ 例如: – If x>10 Then – r=1 – Else – r=2 – End If ⚫ 而用IIf函数来代替,可以使程序大大简化。 – r=IIf(x>10,1,2) ⚫ 【例5.2】某大学实行按学分收费,如果不超过12学分,应缴纳 学费为4000元,如果超过12学分,每超过1学分,加收500元学费。 输入学分U,输出学分U和应缴纳的学费T。 ⚫ 【例5.3】设计一个对输入整数求和的程序,输入0时程序结束运 行
aual basie语言程序设计 5.2.1分支结构 4.多分支结构(If.Then.1seIf语句) 格式: If〈条件1)Then 〈语句块1 Elself〈条件2〉Then 〈语句块2〉 〈语句块n+1 End if 功能:这种结构称为多分支结构。先测试〈条件1〉,如果〈条件1〉为真 执行Then后面的〈语句块1〉;如果〈条件1)〉为假继续〈条件2〉,如果 条件2〉为真,执行后面〈语句块2〉; 如此测试下去。如果所有条件 都为假,则执行Else后面的〈语句块n+1)〉。 【例5.4】在文本框中,输入学生成绩,判断其等级,在窗体中输出
Visual Basic 语 言 程 序 设 计 5.2.1 分支结构 ⚫ 4.多分支结构(If…Then…ElseIf语句) – 格式: ⚫ If〈条件1〉Then ⚫ 〈语句块1〉 ⚫ ElseIf〈条件2〉Then ⚫ 〈语句块2〉 ⚫ …… ⚫ Else ⚫ 〈语句块n+1〉 ⚫ End If – 功能:这种结构称为多分支结构。先测试〈条件1〉,如果〈条件1〉为真, 执行Then后面的〈语句块1〉;如果〈条件1〉为假继续〈条件2〉,如果 〈条件2〉为真,执行后面〈语句块2〉;…。如此测试下去。如果所有条件 都为假,则执行Else后面的〈语句块n+1〉。 ⚫ 【例5.4】在文本框中,输入学生成绩,判断其等级,在窗体中输出
aual basie语言程序设计 5.2.2情况语句 情况语句( Select case)的一般格式 Select case〈测试表达式〉 Case〈表达式列表1 〈语句块1〉 Case〈表达式列表2 〈语句块2〉 Case〈表达式列表n) 〈语句块n)〉 Case else 〈语句块n+1〉] End select 【例5.5】用户在文本框Text1中分别输入:Dot,Line,Box, Circle,在窗 体上分别画一个点、一条线、一个矩形、或一个圆等图形,然后在End Select语句出口
Visual Basic 语 言 程 序 设 计 5.2.2 情况语句 ⚫ 情况语句(Select Case )的一般格式: – Select Case〈测试表达式〉 – Case〈表达式列表1〉 – 〈语句块1〉 – Case〈表达式列表2〉 – 〈语句块2〉 – …… – Case〈表达式列表n〉 – 〈语句块n〉 – [Case Else – 〈语句块n+1〉] – End Select ⚫ 【例5.5】用户在文本框Text1中分别输入:Dot,Line,Box,Circle,在窗 体上分别画一个点、一条线、一个矩形、或一个圆等图形,然后在End Select语句出口