D自集成111+6+38.doc_第1页
D自集成111+6+38.doc_第2页
D自集成111+6+38.doc_第3页
D自集成111+6+38.doc_第4页
D自集成111+6+38.doc_第5页
全文预览已结束

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

实验6 验证哥德巴赫猜想一、实验目的：任意一个大于2的偶数都可以表示成两个素数之和。编程将6100之间的全部偶数表示为两个素数之和，在列表框显示结果，最后Label1显示共有多少对素数之和。提示：1） 编一求素数的函数prime（m），若m是素数，则函数的返回值为True，否则为False。2） 主程序对已知6100之间全部偶数Even，把它分解成两个奇数Odd1和Odd2（Even-Odd1），先调用prime函数，判断Odd1是否是素数，若不是素数，则不必再对Odd2进行判断；否则在判断Odd2，若都是素数，则添加到列表框。利用两重循环来实现，外循环变量Even（6100的偶数），内循环Odd1（3Even/2之间的奇数）和Odd2（Even-Odd1）进行判断。二、属性设置控件名标题属性设置Label1Capital：lable11字体Font：常规、四号List1Capital：list1字体Font：常规、四号Command1Capital：验证字体Font：粗体、四号三、代码编写Private Sub Command1_Click()Dim i As Integeri = 0For even = 6 To 100 Step 2For odd1 = 3 To even / 2 Step 2If prime(odd1) = True Thenodd2 = even - odd1If prime(odd2) ThenList1.AddItem even & = & odd1 & + & odd2i = i + 1End IfEnd IfNext odd1Next evenLabel1.Caption = 6100之间有 & i & 对素数和End SubPrivate Function prime(ByVal m As Integer) As Booleanprime = TrueFor i = 2 To Sqr(m)If m Mod i = 0 Thenprime = FalseExit FunctionEnd IfNext iEnd Function四、代码运行 五、 实验感想 主程序对已知6100之间全部偶数Even，把它分解成两个奇数Odd1和Odd2（Even-Odd1），先调用prime函数，判断Odd1是否是素数，若不是素数，则不必再对Odd2进行判断；否则在判断Odd2，若都是素数，则添加到列表框。利用两重循环来实现，外循环变量Even（6100的偶数），内循环Odd1（3Even/2之间的奇数）和Odd2（Eve
人人文库> 全部分类> 教育资料 > 课件下载

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论