VisualBasic程序设计...pptVIP

Chen Ying Visual Basic 程序设计 第五讲 顺序结构 一. 赋值语句 [LET]变量名＝表达式 二. 与用户交互函数和过程 1. InputBox函数 InputBox(提示[,标题][,默认][,x 坐标位置] [,y坐标位置]) 2. MsgBox函数和MsgBox过程 变量[%] = MsgBox(提示[,按钮][,标题]) MsgBox 提示[,按钮][,标题] 选择结构 1. If…Then单分支结构 If 表达式 Then 语句块 End If 3. If…Then…ElseIf多分支结构 If 表达式1 Then 语句块1 ElseIf 表达式2Then 语句块2 … [Else 语句块 n+1 ] End If 5．If语句的嵌套 2. If…Then…Else双分支结构 If 表达式 Then 语句块1 Else 语句块2 End If 4. Select Case语句(情况语句) Select Case 变量或表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 … [Case Else 语句块n+1] End Select Visual Basic 程序设计 4.3 循环结构 4.4 其他辅助控制语句 4.5 常用算法（一） 例4.12 用辗转相除法求两自然数m，n的最大公约数 和最小公倍数。 分析：求最大公约数的算法思想： (1)对于已知两数m，n，使得mn； (2) m除以n得余数r； (3)若r=0，则n为最大公约数结束；否则执行(4)； (4)m? n，n? r，再重复执行(2)。 例 求 m=14 ,n=6 的最大公约数. 例：Li4-12.vbp 3. 循环的嵌套 一个循环体内又包含了一个完整的循环结构称为循环的嵌套。 例4.13 打印九九乘法表 For i = 1 To 9 For j = 1 To 9 se = i × j = i * j Picture1.Print Tab((j - 1) * 9 + 1); se; Next j Picture1.Print Next i 思考：打印上三角或下三角程序如何改动？要打印下三角? 例：Li4-13.vbp 5.4 其他辅助控制语句 1. Go To 语句 Go To {标号|行号} 作用：无条件地转移到标号或行号指定的那行语句。 标号是一个字符序列，行号是一个数字序列。 2. Exit语句 Exit For、Exit Do、Exit Sub、Exit Function等。 作用：退出某种控制结构的执行。 3. End语句 End、 End If、 End Select、 End With、 End Type、End Sub、 End Function 作用：End结束一个程序的运行；其余表示某个结构的结束， 与对应的结构语句配对出现。 4. With 语句 With 对象 语句块 End With 作用：对某个对象执行一系列的操作，而不用重复指出对象的名称。 With Label1 .Height = 2000 .Width = 2000 .FontSize=22 .Caption = This is MyLabel End With 常用算法： 累加、连乘 最小、最大值 求自然对数e 求素数 穷举法 递推法 4.5 常用算法（一） 算法是对某个问题求解过程的描述。 算法是程序的核心、编程的基础。 1.累加、连乘 例：求1～100的5或7的倍数的和 Sum = 0 For i = 1 To 100 If i Mod 5 = 0 Or i Mod 7 = 0 Then Sum = Sum + i End If Next i Print Sum 5. 穷举法  “穷举法”也称为“枚举法”或“试凑法”， 就是将可能出现的各种情况一一测试，判断是否满足条件，一般采用循环来实现。 例4.16 百元买百鸡问题。假定小鸡每只5角，公鸡每只2元，母鸡每只3元。现在有100元钱要求买100只鸡，编程列