[院校资料]b期末考试复习.ppt

复习,实例1,已知运输公司的运费计算公式为： F = P * W * S * (1 d) 其中：F为总运费，P为每吨货每公里的基本运费，W为货物重，S为路程距离，d为折扣。折扣d的计算标准如下：,If 语句,行结构 If Then Else 块结构 If Then Else End If,ElseIf 语句,If Then ElseIf Then ElseIf Then Else End If,Select Case 语句,Select Case Case Case Case Else End Select : 下列格式中的一个或多个(,) 精确表示：,，如：1, 3, 5, 7, 9 范围表示： To ，如：“A“ To “Z“ 关系表示：Is ，如：Is = 60,实例2,用下列公式求的近似值，要求直到最后一项的小于10-6为止 根据下列公式求 e 的近似值，要求直到直到最后一项的小于10-6为止,ForNext 语句,功能：以指定的次数重复执行循环体 格式： For 变量=初值 To 终值 Step 步长 语句块 Exit For 语句块 Next 变量 步长为循环控制变量的每次改变增量，缺省为1 Exit For为强制退出循环语句,DoLoop 语句,格式: Do While | Until 语句块 Exit Do 语句块 Loop While | Until ,WhileWend 语句,用条件来控制循环体的重复执行 格式： While Wend 与Do WhileLoop结构相当,多项式求和,寻找循环变量 i 的通项表达式： For i = 注意初终值和步长(Step) T = 关键在于写出通项 S = S + T Next i 寻找迭代式（前后两项的关系）： For i = T = T 关键在于写出迭代式 S = S + T Next i,实例3,单击窗体后，在窗体上显示如下数字字符金字塔：,规则图形输出,模板： For i = 1 To n n行 Print Spc(x); 每行起始x空格 For j = 1 To m 每行m个 Print “A”; 图案字符 Next j Print 换行 Next i,实例4,单击窗体时，从键盘上输入两个年份m和n，然后求出m和n之间的所有闰年,穷举法,穷举法又称蛮力法，它的思路是列举出所有可能的情况，逐个判断哪些符合问题所设的条件，从而得到问题的解 如： 素数、水仙花数、桃花数、同构数 最大公约数、最小公倍数 百鸡问题、韩信点兵,实例5,单击窗体时，先随机产生10个两位整数，然后将它们按从大到小的顺序输出在窗体上,数组,数组是数组变量的简称，是一批具有相同名字但具有不同下标的变量（又称下标变量）。通常利用数组来保存多个具有相同类型的数据,实例6,单击Command1，判断文本框Text1中的内容是否回文；单击Command2，用InputBox输入一文本内容，然后统计它在文本框Text1中出现的次数,字符函数,Len(s) 取出字符串s的长度(字符个数)，如：L = Len(s) Mid(s, i, n) 从字符串s的第i个字符取出n个字符 取出第i个字符：x = Mid(s, i, 1) 取出倒数第i个字符：y = Mid(s, L i + 1, 1) InStr(s1, s2) 判断字符串s2在s1中的位置，如果不在则返回0，否则返回具体的位置,练习,在文本框Text1中输入任意字符串，单击命令按钮Command1时，将此字符串按ASCII码从大到小的顺序输出在标签Label1上,实例7,下列程序运行时，设文本框Text1.Text为空，在Text1获得输入焦点后，依次按下列按键：“1”、“2”、“+”、“3”、“4”、“-”、“5”、“6” 、回车键。分别写出文本框中和窗体上的输出结果 Private Sub Text1_KeyPress(k As Integer) If k Asc(“9“) Then k = 0 Print Text1.Text End If End Sub,实例8,已知文本框Text1初始为空，阅读以下程序，在相应的选项中选择正确的答案来回答问题(31)、(32)和(33) Private Sub Text1_Change() Dim s As Integer s = s + Val(Text1.Text) Print s End Sub,变量作用域和生存期,过程级变量（局部变量） 变量在事件过程中声明 有两种声明方法：Dim和Static 用Dim语句声明的变量，在过程结束后，系统将释放变量占用的内存空间，即变量不存在了 用Static语句声明的变量，在过程结束后，系统依然保留变量占用的内存空间，通常把Static声明的变量称为静态变量,变量作用域和生存期,模块级变量 在通用|声明中用Dim语句或Private语句声明的变量 模块级变量能在此模块的所有事件过程中被调用 模块级变量只有在本模块被卸载时占用的内存空间才会被释放,变量作用域和生存期,应用程序级变量（全局变量） 在通用|声明中用Public语句声明的变量 应用程序级变量在工程中的所有模块的所有事件过程中均可调用，但在调用时必须指明调用的变量是在哪个模块中声明的 应用程序级变量只有在程序结束运行时占用的内存空间才会被释放,实例10,编写自定义函数过程Sum(n As Integer)，用于计算1到n所有数的和。单击Command1时，用InputBox从键盘输入一个整数n，然后调用Sum函数，求出下式的值： s=1+(1+2)+(1+2+3)+(1+2+3+4+n),实例11,编写一个Sub过程Sub PrntPrime(x() As Integer)，用于判断某数组中是否有素数，若有则将其显示在窗体上。单击命令按钮Command1生成20个两位的随机整数，然后调用该过程，将此20个数中是素数的数显示在窗体上？,实例12,写出下列程序运行时，单击命令按钮Command1后窗体上的显示结果？ Function f2(ByVal n1 As Integer, n2 As Integer) As Integer Dim i As Integer Do While n2 = n1 f2 = f2 + n2: n2 = n2 - 1 Loop End Function Private Sub Command1_Click() Dim a As Integer, b As Integer a = 5: b = 8 Print f2(a, b) Print f2(b, a) End Sub,参数传递规则,按地址传递ByRef 形式参数与实际参数共享同一内存空间，两个变量名都指向相同的地址 调用时实参形参，