VB编程序的基本结构.ppt
《VB编程序的基本结构.ppt》由会员分享,可在线阅读,更多相关《VB编程序的基本结构.ppt(65页珍藏版)》请在三一文库上搜索。
1、第3章 程序的基本结构,程序开发的两步,程序基本控制结构(三种),3.1 顺序结构,顺序结构的程序设计是最简单的,只要按照解决问题的顺序写出相应的语句就行。 顺序结构就是各语句按出现的先后次序执行,顺序结构可以独立使用构成一个简单的完整程序,常见的输入、计算,输出三部曲的程序就是顺序结构,例如计算圆的面积。,语法格式:变量名 = 表达式,3.1.1 赋值语句,功能: 计算赋值号“=”右边表达式的值,然后赋给赋值号“=”左边的变量。,给变量赋值和设定属性是VB编程中常见的两个任务 如以下语句, n = n + 1 计数累加 Label1.Text “欢迎使用VB “,6,以下语句形式很常用: d
2、im sum% , x% sum=100 : x=5 sum = sum + x 执行后,sum的值为多少? dim n% n=7 n = n + 1 执行后,n的值为多少?,7,3.1.2 用户交互函数,为了便于应用程序与用户之间进行信息交互,完成信息的输入和输出,用户可采用文本框、标签等控件来实现,也可用VB.NET提供的InputBox、MsgBox来实现。 InputBox的功能是等待并提示用户为程序运行输入指定的数据,简称“输入对话框”。 MsgBox的功能是进行提示,用以确认某种程序的操作,简称“消息框”。,8,1. InputBox (输入对话框函数) 输入对话框一般由标题、提示
3、信息、“确定”按钮、“取消”按钮和一个供用户输入的文本框组成。当用户将输入信息输入到文本框,并单击“确定”按钮后,函数返回用户输入的字符串数据。当单击“取消”按钮时,返回一个空字符串。 语法格式:InputBox(Prompt,Title,Default),9,例 创建一个输入对话框。如下图所示: Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles Me.Click Dim myvalue As Object myvalue = InputBox(“请输入数值,数值在13之
4、间!“, “输入提示“, “1“) End Sub,10,2. MsgBox(消息框) MsgBox函数用于在屏幕上的消息框中显示简短消息,并等待用户单击按钮,然后返回一个整数型的数值,让应用程序了解用户单击的是哪一个按钮。 语法格式: MsgBox(Prompt,Buttons ,Title) 功能:在屏幕上显示一个消息框,根据选择确定其后的操作。,11,当用户单击消息框上的某按钮时,MsgBox函数将返回一个常量来确认该按钮被按动了,下表是按钮和常量之间的对应关系。通过对返回值的判断,就可以确定消息框中到底是哪个按钮被按动,从而确定程序下一步的运行方式。,表 Msgbox函数的可能返回值,
5、12,例 在Form1_Click()事件过程中定义一个消息框,代码如下: Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles Me.Click Dim s As Integer s = MsgBox(“用户名必须包含数字和字母“, 5 + 48, “警告“) If s = vbCancel Then End 若用户单击“取消“,则程序退出 End Sub 单击窗体,将弹出消息框,如图3-5所示。,3.2 选择结构,对于要先做判断再选择的问题就要使用分支结构,如下面例子,,
6、分支结构的执行是依据一定的条件选择执行路径,而不是严格按照语句出现的物理顺序。,单分支结构,多行形式 If 表达式 Then 语句块 End If,单行形式 If 表达式 Then 语句块,当表达式的值为True,执行Then后面的语句块,否则不做任何操作。,单分支结构,关系表达式: If x y Then num1=50 : Msgbox(“你好!”) If (x+30)*100 y) or (num1=num2) Then i=i+1 算术表达式 If 5+3 Then j=j+2 If num1+num2*10 Then sum=sum-num3,例:将保存在变量a和 b中的整数按升序排
7、列。(即a的值一定不大于b的值) 分析:ab时,两者的值交换 If b a Then t = a a = b b = t End If,单分支结构举例,也可改写成行IF语句,如下所示, If b a Then t = a : a = b: b = t,1,2,3,双分支结构,多行形式 If 表达式 Then 语句块1 Else 语句块2 End If,单行形式 If 表达式 Then 语句块1 Else 语句块2 当表达式的值为True时,执行Then后面的语句块1,否则执行Else后面的语句块2,If,Then,Else,双分支结构举例,例 通过InputBox输入实数x,求下列分段函数f(
8、x)值,最后通过MsgBox输出f(x), 其中:,编制事件过程Form1_Click如下: Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles Me.Click Dim x As Single x = Val(InputBox(“输入实数x“, “计算分段函数的值“) If x = 4 Then MsgBox(“f(x)=“ + Str(1 - x * x) Else _ MsgBox(“f(x)=“ + Str(x - 4) 0.25) End Sub,思考:该处续行符
9、能否去掉?,例: 计算当 0x10时,y=x,否则 y=100 ,正确的语句是_。 If 0x10 then y=x else y=100 If 0x and x10 then y=x else y=100 If 0x and x10 then y=x else y=100 If 0x or x10 then y=x else y=100 正确答案:C,双分支结构练习,多分支结构,不管有几个分支,依次判断,当某条件满足,执行相应的语句,其余分支不再执行;若条件都不满足,且有Else子句,则执行该语句块,否则什么也不执行。,else,Elseif,Elseif,Then,If,多分支结构举例,语
10、法格式: If 表达式1 Then 语句块1 ElseIf 表达式2 Then 语句块2 ElseIf 表达式n Then 语句块n Else 语句块n+1 End If,例 已知变量ch中存放了一个字符,判断该字符是字母字符、数字字符还是其他字符。 If UCase(ch) = “A“ And UCase(ch) = “0“ And ch = “9“ Then MsgBox(ch + “是数字字符“) Else MsgBox(ch + “是其他字符“) End If,多分支结构举例,If b a Then c = a: a = b: b = c End If If b c Then x =
11、b ElseIf a c Then x = c Else x = a End If Msgbox( “x=“ & x) End Sub,Private Sub Form1_Click() Dim a, b, c, d As Single Dim x As Single a = 100 b = 20 c = 1000,x=100,If语句的嵌套是指If或Else后面的语句块中又包含If语句. If 表达式1 Then If 表达式2 Then End If End If,If语句的嵌套,本章目录,Select case语句,Select Case 变量或表达式 Case 表达式列表1 语句块1
12、Case 表达式列表2 语句块2 Case Else 语句块n+1 End Select,表达式列表 i 必须与 “变量或表达式”的类型相同 表达式列表 i是下面三种形式之一: 1.表达式 例: “A“ 例: 5 2.表达式1 To 表达式2 例:60 To 100 例:“a”to”z” 较小的数值要出现在 To 之前 3. Is 表达式(配合关系运算符) 例:Is =30 4. 以上三种形式的以逗号分隔的任意组合枚举值 例:2,4 to 8,is50,is-7,注意: 变量的类型或表达式的结果必须为数值或字符串。 对于多个变量进行条件判断时,不能使用select case语句,只能使用IF
13、语句,将前面的例子改用 Select Case 语句实现: Select Case ch Case “a“ To “z“, “A“ To “Z“ MsgBox (ch + “是字母字符“) Case “0“ To “9“ MsgBox (ch & “是数字字符“) Case Else MsgBox (ch + “是其他字符“) End Select,Select语句举例,Dim Number% Number = Val(InputBox(“输入整数“) Select Case Number Case 1 To 5 范围为1,5 Msgbox( “Between 1 and 5“) Case 6
14、, 7, 8 Msgbox (“Between 6 and 8“) Case 9, 10 Msgbox (“Greater than 8“) Case Else Msgbox (“Not between 1 and 10“) End Select,Select语句举例,28,例:编写程序,当输入X的值后用Selct Case语句 计算输出Y的值。,Private Sub Button1_Click(ByVal _ sender As System.Object, ByVal e As _ System.EventArgs) Handles _ Button1.Click Dim x, y As
15、 Single x = Val(TextBox1.Text) Select Case x Case Is 0 y = x Case Is = 10 y = x * x Case Is = 20 y = 10 Case Else y = 0.5 * x + 20 End Select MsgBox(“y=“ & y) End Sub,格式: IIf(表达式,TruePart,FalsePart) IIf函数是If Then Else 结构的简洁表示 例如,将x,y中大的数,放入Tmax变量中: Tmax = IIf(x y,x,y) 该语句与如下语句等价 : If x y Then Tmax =
16、 x Else Tmax = y,IIF函数,3.3 循环结构,问题1: 求 1100之间的奇数之和 即计算 1 + 3 + 5 + 7 + 9 + 。 + 97 + 99 变量 i : 从1 到 100 之间的奇数 和: 变量sum 最初设置sum=0 第一次:i的初值为1 sum=sum+i sum=0+1=1 第二次 :i=i+2 执行后 i=3 sum=sum+i 执行后 sum=4 第三次 :i=i+2 执行后 i=5 sum=sum+i 执行后 sum=9 。 直至i=100 结束 循环执行的语句即 循环体: sum=sum+ i i=i+2,3.3 循环结构,问题2: 每个月的工
17、资都放在变量pay中;求12个月的平均工资 需要求12个月的总工资sum sum=sum + pay 循环次数 12次 问题1,2循环次数可以预知,采用循环结构程序可以解决一些按一定规则重复执行的问题。 循环结构可以减少源程序重复书写的工作量,用来描述重复执行某段算法的问题 。,3.3 循环结构,两种常见的循环语句类型: 控制循环次数已知的循环结构 For.Next循环语句; 条件型循环语句 Do.Loop循环语句,采用循环结构程序可以解决按一定规则重复执行的问题,可以减少源程序重复书写的工作量,用来描述重复执行某段算法的问题 。,格式: For 循环控制变量 = 初值 To 终值 Step
18、步长 语句块 Exit For 语句块 Next 循环控制变量 ,3.3.1 FORNext语句,ForNext语句用于循环次数预知的循环结构。,循环控制变量:数值型,控制循环的次数。 初值、终值、步长:均为数值型表达式 步长可为正数,也可为负数。步长为负数时,给循环变量赋初值和终值时注意: 初值=终值 当步长为1时,可省略Step 步长 。,FOR循环的执行流程,循环终止条件: 循环变量 终值 通过Exit For,FOR循环的执行流程,循环终止条件: 循环变量 终值 通过Exit For,FOR语句的循环次数如何计算? For i=1 to 3 step 1 循环次数: ( (3-1)/1
19、 )+1 For i=1 to 5 step 2 循环次数: ( (5-1)/2)+1 For i=1 to 6 step 2 循环次数: int( (6-1)/2)+1 For i=6 to 1 step -2 (注意:步长为负数) 循环次数: int( (1-6)/(-2) )+1,计算下列循环语句的次数 (1)For i= 5.5 to 3.5 step -0.5 Int ( ( 3.5-5.5)/(-0.5)+1 =5 (2) For i= 3.5 to 5.5 step -0.5 不执行循环体 (3) For i= -3 to 20 step 0 步长为0,死循环 循环体内需要有 e
20、xit for 语句才可跳出该循环,39,例4.8 下列程序结果是( )? Private Sub Form1_Click(ByVal sender As _ Object, ByVal e As System.EventArgs) _ Handles Me.Click Dim i As Integer, sum As Long Dim t1#, n t1 = 1 : sum = 0 : n = 0 For i = 1 To 3 n = n + 1 t1 = t1 * i sum = sum + t1 Next i MsgBox(“sum=“ & sum & “ n=“ & n) End Su
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 程序 基本 结构
链接地址:https://www.31doc.com/p-2773255.html