大学生VB课程第六章PPT课件.pptVIP

* * 应用举例 程序中的 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