大学生VB课程第六章重点.ppt

* * 应用举例 程序中的 p、x、a 数组必须在通用位置定义吗？ sp 这个变量的作用是？ mean() 这个自定义过程的作用是什么？ 在按钮单击事件中完成了什么功能？ [例6-21] 例6-22 验证哥德巴赫猜想:“任何一个大于6的偶数，均可以表示为两个素数之和”,从键盘上输入一个大于6的偶数后，打印出所有分解结果。 例: m=8 m1 m2 2(是) 6(不是) 3(是) 5(是) 7(是) 1(不是) 关键 ?1? 求2到该偶数(n)之间的所有素数 For i=2 to n for j=2 to i-1 if i mod j = 0 Then Exit For Next j If ji-1 Then ‘j值为所求的素数 Next i ?2? 判断n-j的这个数是否也是素数 Private Sub Command1_Click() Dim m, m1, m2, n, f, p For m = 6 To 100 Step 2 p = m1 = 1 aa: m1 = m1 + 1 Call gdbh(m1, f) If f = 1 Then GoTo aa m2=m-m1 Call gdbh(m2, f) If f = 1 Then GoTo aa p = p m = m1 + m2 List1.AddItem p Next m End Sub Private Sub gdbh(n, f) f = 0 If n = 2 Then f = 0 For i = 2 To Sqr(n) If n Mod i = 0 Then f = 1 Next i End Sub 窗体界面设计与属性设置及运行结果 第六章 过 程 6.1 Function过程 6.2 Sub过程 6.3 过程的嵌套调用 6.4 过程的递归调用 6.5 参数传递 6.6 鼠标和键盘 6.7 过程的作用域 6.8 变量的作用域和生存期 6.9 应用举例 6.10 常用算法(3) 常用算法(3) 11 13 27 38 45 49 65 76 97 55 11 13 27 38 45 49 55 65 76 97 条件：操作的是有序数组，插入后该数组仍然有序 实现方法如下： Dim a%(1 To 10) k [注意] 要执行插入操作的数组在声明的时候要注意数组大小的合法性 ? ? ?  1、有序数组中元素的插入操作 Dim a(10) As Integer For i = 1 To 9 a(i) = Val(InputBox(输入数据)) Text1 = Text1 a(i) Next i x = Val(InputBox(输入要插入的数)) For k = 1 To 9 If x a(k) Then Exit For Next k For i = 9 To k Step -1 a(i + 1) = a(i) Next i a(k) = x For i = 1 To 9 Text2 = Text2 a(i) Next i 将大于x的数据依次 往后移动一个位置 查找x的插入位置 改进：找位置的同时实现数据移动 Private Sub insert(a%(), x%) For i = 9 To 1 Step -1 If a(i) = x Then a(i + 1) = a(i) Else Exit For End If Next i a(i + 1) = x End Sub 找插入位置 ‘插入数据 2.有序数列的删除 条件：操作的是有序数组，删除后该数组仍然有序 实现方法如下： Dim a%() 1 4 7 10 13 16 19 22 25 k 1 4 7 10 16 19 22 25 ReDim a(1 To 9) ? ? ? ? Dim a(10) As Integer For i = 1 To 10 a(i) = Val(InputBox(输入数据)) Text1 = Text1 a(i)