VB教案4-6(上课用).ppt

综合应用-级数求和 Private Sub Form_Click() ‘I 是 计数器、t是 第 i 项, e 存放累加和 Dim i%, t!, e! e = 0 i = 0: t = 1 Do Until 1 / t 10^(-5) e = e + 1 / t 累加 i = i + 1 为下一项作准备 t = t * i ‘连乘(阶乘) Loop Print 计算了 ; i - 1; 项的和是 ; e End Sub 作业 复习( 实验指导书 P 44,P63 常见错误和难点) 在作业本上完成书上P94-P96 的习题四 (注意 : 答案不用抄题目) 希望同学们能够发现教材书和实验指导书上的错误!!! 第11周 实验 实验E 1-5 P107-7 插入数据(要求：先产生10个随机2位正整数,再按升序排序,最后插入一个数据) P108-8 删除数据(同上) 例6.3 编一函数，统计字符串中汉字的个数 6.2.3子过程调用 第12周 实验 实验E 6 实验F 1-3 实验A-C 拓展内容 例6.4 编一子过程，统计字符串中汉字和字母的个数 实验F 第4、5、6、7题 例：编写一个过程Ins，其功能是插入一个元素。1随机产生15个两位正整数，在Form_Load事件中打印这15个元素的值，对数组元素排序；然后再打印。 2.单击“插入元素”按钮，调用过程Ins，在数组中插入文本框中输入的数，并在图片框中，按4行4列的格式显示新数组。窗体界面如下： 第六章 重点和难点 1. 确定自定义的过程是子过程还是函数过程 函数过程名有值，子过程名无值。 过程有一个返回值，则使用函数过程； 若返回多个值或无返回值，一般使用子过程。 2．过程中形参的个数和传递方式的确定 过程中参数的作用是实现过程与调用者的数据通信。 (1)从主调程序只获得初值，值传递。 (2)将结果返回给主调程序，地址传递。 3. 实参与形参结合时对应问题 个数、类型、位置、次序一一对应。 形参是值传递，对应实参可以是表达式、常量、数组元素。 形参是地址传递，对应实参只能是简单变量。 数组、记录类型、对象只能是地址传递。 4. 变量的作用域问题 局部变量、静态变量、全局变量特点、作用 。 ‘在Form1中定义函数及事件 Public Function Lg(x As Double) As Double Lg = Log(x) / Log(10) End Function Sub Command1_Click() Form2.Show End Sub ‘在Form2中调用Form1中的函数 Private Sub Command1_Click() Dim x As Double x = 100.123456 Print lg( x )=; Form1.Lg(x) End Sub Private Static Function AAA() As Integer Dim x As Integer x = x + 1 AAA = x End Function Private Sub Command1_Click() Print AAA End Sub Private Sub cmdDim_Click() Dim i%, iTotal% Print Dim: For i = 1 To 5 iTotal = SumDim(i) Print iTotal; Next i Print End Sub Function SumDim(n%) Dim j% j = j + n SumDim = j End Function Private Sub cmdStatic_Click() Dim i%, iTotal% Print Static: ; For i = 1 To 5 iTotal = SumStatic(i) Print iTotal; Next i Print End Sub Function SumStatic(n%) Static j% j = j + n SumStatic = j End Function * Option Explicit Private Sub Form_click() Dim Even%, num% For Even = 6 To 100 Step 2 For n =