哥德巴赫猜想程序,VB
一、验证哥德巴赫猜想的源程序（VB编写的）：
Function prime(m%)
Dim i%, Tag As Boolean
Tag = True
For i = 2 To Int(m / 2)
If (m Mod i) = 0 Then
Tag = False
Exit Function
End If
Next i
If Tag Then prime = m
End Function
Private Sub Command1_Click()
Dim Even%, odd1%, odd2%, s%
s = 0
For Even = 6 To 100 Step 2
For odd1 = 3 To Even / 2
odd2 = Even - odd1
If prime(odd1) Then
If prime(odd2) Then
List1.AddItem Even & "=" & odd1 & "+" & odd2
s = s + 1
End If
End If
Next odd1
Next Even
Label1.Caption = "6和100之间有" & s & "对素数和" End Sub
二、 该程序运行过程的流程图： 开始
10 Step2 S=0 判定odd1和 Odd2是否 为素数(子过程)3 Next even 在listbox1中输出 Even=odd1+odd2 结束 标签上输出6-100间共 有s 对满足哥德巴赫猜 想 是 否否 Even=odd1+odd2 s=s+1 三、程序运行结果： §5 哥德巴赫猜想 陈景润(1933—1996)，中国数学家、中国科学院院士.1933年5月22日生于福建福州，1996年3月19日卒于北京.1953年毕业于厦门大学数学系.1957年进入中国科学院数学研究所并在华罗庚教授指导下从事数论方面的研究．历任中国科学院数学研究所研究员、学术委员会委员，兼贵阳民族学院、河南大学、青岛大学、华中工学院、福建师范大学等校教授，国家科委数学学科组成员，《数学季刊》主编等职．主要从事解析数论方面的研究，并在哥德巴赫猜想研究方面取得国际领先的成果．这一成果国际上誉为陈氏定理，被广泛引用．与王元、潘承洞共同获得1978年国家自然科学奖一等奖．其后对上述定理又作了改进，并于1979年初完成论文《算术级数中的最小素数》，将最小素数从原有的80推进到16，受到国际数学界好评．对组合数学与现代经济管理、科学实验、尖端技术、人类生活密切关系等问题也作了研究．发表研究论文70余篇，并有《数学趣味谈》《组合数学》等著作． 1．哥德巴赫原是一位__________国教师，1725～1742年间在__________科学院工作，为该院院士.1742年，哥德巴赫在和他的好朋友、大数学家__________的几次通信中提出了关于正整数和__________之间关系的两个推测：(A)每一个不小于6的偶数都是两个__________的和，即n ＝p 1＋p 2；(B)每一个不小于9的奇数都是3个__________的和，即n ＝p 1＋p 2＋p 3. 这就是著名的哥德巴赫猜想． 2．哥德巴赫猜想第一次重大的突破是20世纪20年代获得的．哈代、李特尔伍德(J.E.Littlewood)建立了__________．使用这种圆法，在假定一条未经证明的著名猜想——__________猜想成立的前提之下，他们证明了两个命题： 命题1 每个充分大的奇数n 都是3个____________之和，即 n ＝p 1＋p 2＋p 3. 命题2 几乎所有偶数都是两个________之和． 这个命题意味着，假设M(x )表示不超过x 而又不能表示为两个奇素数之和的偶数，那么 ()lim x M x x ＝0. 俄国数学家________(I.M.Vinogradov)技高一筹，他使得哥德巴赫猜想的重要结果有了全面突破.1937年，他基本证明了猜想(B)： 每一个充分大的奇数n 都可以表示为三个素数之和： n ＝p 1＋p 2＋p 3. 3．1920年，挪威数学家________证明了每个大偶数均可以分解为两个自然数之和，其中，每一个自然数的素因子个数不超过9，简记为命题(9＋9)． 到了30年代，数学家们已经证明了命题(6＋6)． 著名数学家______在中国最早研究了哥德巴赫猜想． 早在1938年，他就证明了“几乎所有偶数都是两个素数之和”． 1957年，著名数学家________证明了命题(3＋2)． 在布朗的定理中，两个数都不能肯定为素数，如果能肯定其中一个数是素数，这样的命题可以记为：命题(1＋c )． 1948年，瑞尼(A.Renyi)证明了下面的定理． 瑞尼定理 存在一个正常数c ，使每一个充分大的偶数都可以分解为两个自然数的和，其中一个自然数为素数，另一个自然数的素因数个数不超过c . 自1948年以来，这种方式的证明不断有所进展． 1962年，我国著名数学家________证明了(1＋5)； 1963年，________与巴尔巴恩分别独立地证明了(1＋4)； 1965年，维诺格拉多夫、布赫夕塔布和________(E.Bombieri)都证明了(1＋3)； 1966年，我国著名数学家________证明了(1＋2)． 答案： 1．德 圣彼得堡 欧拉 素数 奇素数 奇素数 已知哥德巴赫猜想描述为"任何一个大于6的偶数，都可以表示为两个素数之和"，下面程序实现从键盘输入一个大于6的偶数后，在窗体中打印出所有的分解结果，请将程序补充完整。Private Function sushu(ByVal n As Integer) As Boolean Dim k As Integer For k = 2 To n - 1 If n Mod k = 0 Then __【1】___ Next k If __【2】___ Then sushu = True Else sushu = False End If End Function Private Sub Command1_Click() Dim n As Integer, n1 As Integer, n2 As Integer n = Val(Text1.Text) If n < 6 Or n Mod 2 = 1 Then MsgBox "你输的不是一个大于6的偶数，请重新输入" Else For n1 = 2 To n / 2 n2 = n - n1 If sushu(n1) = True And ___【3】__ Then Print n1; n2 End If Next n1 End If End Sub 下面程序采用顺序查找方法在数组中查找从键盘输入的数据，若找到则输出该数据在数组中的位置，否则输出“查找失败”的信息，请将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim a As Variant a = Array(22, 15, 4, 20, 43, 45, 39, 80, 74, 28) Print "数组所有元素为：" For i = LBound(a) To 10 Print _____【1】____; Next i Print x = Val(InputBox("请输入要查找数据")) For i = LBound(a) To UBound(a) 成名之后的陈景润，最大的愿望就是登上哥德巴赫猜想的峰巅，摘取(1＋1)的璀璨明珠，闵嗣鹤先生不幸去世，陈景润痛哭不已，他为失去一个真正了解他的数学家而悲伤，私下里他曾告诉好友，闵先生去世了，今后谁来审他攻克(1＋1)的论文稿呢？忧伤至极时分，他曾经悲痛地说，我不做(1＋1)了。纯朴的陈景润担心知音断绝，世界上再也没有人能真正了解他，理解他，没有人能看得懂他的科研论文。人世间的冷遇、歧视、逆境所带来的种种压力，可以诱杀创造的生命，然而，对于那些心气不凡的人，也可能激起更大勇气，去搏取未来和明天。外国学者所称道的逆境是一所难得的学校，原因便在于此。颂歌、鲜花、掌声、顺境同样会带来盲目的自满，诱发廖荣，让那些奋斗者陶醉其中，而忘却了自己的神圣责任和使命。被胜利的欢歌所淹没的英雄已是屡见不鲜了。我们一次次地在鲜花和赞美中寻觅陈景润的足迹。事业、家庭皆十分完美的陈景润，并没有重蹈许多英雄的悲剧，他仍是一如既往地背着行囊，艰辛跋涉在通往哥德巴赫猜想顶峰的道路上。陈景润把做好攻克哥德巴赫猜想(1＋1)的外围工作，形象地比喻为是搭梯子。搭梯子何其容易？只有搭好人生的梯子，才有可能搭好科研攻关的梯子。他是不屈的。1985年，陈景润已开始病重，开始，他在中日友好医院住院治疗。他从小就多病，各种疾病像影子似地尾随着他，或许，是病久了，司空见惯，也就不当一回事了，他哪像住院，随身带去了书、各种资料，病房成了工作室，日日夜夜，仍在不停地计算、推理，时常工作到第二天凌晨四五点钟。令许多医生护士惊讶的是，几乎是打了个通宵的陈景润，第二天早晨，精神仍是很好。有时，他担心医生来查房，便故伎重演打开手电，躲在被窝里看书。他以燃烧自己生命之火的代价，希冀能搭起一座通往风光绮丽的峰巅的梯子。他会想起杜甫咏诸葛亮那悲壮的诗句么？出师未捷身先死，长使英雄泪满襟。在陈景润生命的辞典中，他几乎没有提到过让一般人感到恐怖的死亡二字。他经受的苦难太多，亦已经领略过死神的威胁，反而把这一切看淡了。他是一棵咬定青山不放松的竹子，任风雨飘摇，任严霜厉雪，我自岿然如故。他那非凡的韧性和把生命力量弘扬到极致境界的精神，为人们树立了一面最灿烂的生命之旗！在搭梯子的漫长岁月里，陈景润做过多少题目，真是算不清了。过去，他的草稿纸是用麻袋装的，后来，一摞摞地置放在书房里，有不少还放在办公室中。他已去世一年多了，至今，你走进数学所，在昔日同事的案头上，或者，在办公室的柜子里，陈景润的草稿纸随时可能找到。字迹如镌如镂，恰似就在昨日留下的，印记着这位数学巨人深深浅浅的脚印，也印记着无法让人释怀的记忆和淡淡的遗憾。陈景润生命的最后几年，依然在不懈地做着搭梯子的工作。他的最后一篇论文，是和王天泽先生合作的《关于哥德巴赫闯题》，梦魂牵绕数十年，数学皇冠的夺目异彩，一直烛照着他生命的全部航程。陈景润病重期间，眼睛睁不开，需要按摩达一个多小时，才能睁开一点点，懂事的欢欢从小就给陈景润按摩，竟然练就了一手让专业医生都感到惊奇的按摩本领。然而，他的头脑始终是清醒的，他躺在病榻上，和他的研究生一起，仍在不懈地探索着攀登之路。耗尽了生命的全部光华，遍寻数学的群山峻岭，陈景润虽然没有找到这条通往哥德巴赫猜想(1＋1)峰巅的神秘小径，也没有搭起那架等立云天直达九霄的梯子，但他的人生轨迹所焕发的崇高精神，却编织出一道足以让后来者继续攀登的阶梯。人生的梯子，应当像陈景润那样走，才能走进光辉的明天。(《哥德巴赫猜想》有删节)1.下列对传记的分析和概括，不正确的两项是( )(5分) A．作者认为，是人世间的冷遇、歧视、逆境所带来的种种压力，诱杀了陈景润创造的生命。B．陈景润的家庭和事业都很美满，他没有重演许多英雄的悲剧，背着行囊一如既往地问数学峰巅艰难攀登。C．陈景润的一生始终做着搭梯子的工作，因为他的人生梯子搭得好，所以科学攻关的梯子搭得很稳固。D．我们现在仍能看到的陈景润办公室里的草稿纸上的字迹，所留下的淡淡的遗憾是陈景润没有在有生之年摘取数学(1＋1)的桂冠。E．作者认为，人生的路应该像陈景润那样走，而科学研究的路就不能像他那样走，因为他没有搭建起直达九霄的梯子。2.陈景润搭梯子的不屈精神表现在哪里？它的意义是什么？请简要说明。(6 《VB程序设计基础》试题 一、选择题：（每空 2 分，共 20 分） 1. 与传统的程序设计语言相比,Visual Basic最突出的特点是___________。 A. 结构化程序设计 B. 程序开发环境 C. 事件驱动编程机制 D. 程序调试技术 2. Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是________。 A. 属性、事件、方法 B. 控件、属性、事件 C. 窗体、控件、过程 D. 窗体、控件、模块 3. 窗体模块保存在一个扩展名为__________的文件中。 A. bas B. vbp C. vbg D. frm 4. 下面正确的赋值语句是_________。 A. x+y=30 B. y=π*r*r C. y=x+30 D. 3y=x 5. 设S=“492”，表达式Right（S,1）+Left（S,1）+Mid（S,2,1）的值为__________。 A.“492” B.“249” C.“294” D.“429” 6. 将数学表达式a≤b≤c写成Visual Basic表达式，正确的是__________。 A. a<=b<=c B. a<=b Or b<=c C. a<=b And b<=c D. a<=b Not b<=c 7.为了把焦点移到文本框，所使用的方法是___________。 A. SetFocus B.Visible C.Refresh D.GetFocus 8. INT（100*RND）产生的随机整数的闭区间是_____________。 A.[0，100] B.[1，100] C.[1，99] D.[0，99] 9. 一个数组说明为Dim a(0 to 5，1 to 5) As Integer，则该数组共有_________个 元素。 A. 5 B. 36 C. 30 D. 不确定 10. 下面过程定义语句合法的是____________。 C 语言程序设计 实验报告 专业 信息安全 班级 1103 日期 成绩 实验组别 第 1次实验 指导教师 学生姓名 严志颖 学号 U201114113 同组人姓名 实验名称 函数与程序结构实验 一、实验目的 1．熟悉和掌握函数的定义、声明；函数调用与参数传递方法；以及函数返回值类型的定义和返回值使用。 2．熟悉和掌握不同存储类型变量的使用。 3．熟悉多文件编译技术。 二、实验任务 1．源程序改错题 下面是计算s=1!+2!+3!+…+n!的源程序，在这个源程序中存在若干语法和逻辑错误。要求在计算机上对这个例子程序进行调试修改，使之能够正确完成指定任务。 #include "stdio.h" void main(void) { int k; for(k=1;k<6;k++) printf("k=%d\tthe sum is %ld\n",k,sum_fac(k)); } long sum_fac(int n) { long s=0; int i; long fac; for(i=1;i<=n;i++) fac*=i; s+=fac; return s; } 2．源程序修改替换题 （1）修改第1题中sum_fac 函数，使其计算量最小。 （2）修改第1题中sum_fac 函数，计算! 1!31!211n s ++++= 。 3．跟踪调试题 计算fabonacci 数列前n 项和的程序如下： 其中，long sum=0,*p=∑声明p 为长整型指针并用&sum 取出sum 的地址对p 初始化。*p 表示引用p 所指的变量（*p 即sum ）。 void main(void) { 哥德巴赫猜想的证明方法 引言 数论之位数运算，一个新的的概念，一个新的方向，一个新的课题。希望广大数学爱好者能参加到这个课题的研究中，从中发现更多的理论，解决更多的问题。 目录 一、哥德巴赫猜想的证明思路 1、哥德巴赫猜想证明引入的一些符号代表含义 2、素数定理代数表达式 3、哥德巴赫猜想的证明 第一章哥德巴赫猜想的证明思路 通过证明一任意大偶数可拆分2素数之和的数量呈增长趋势来证明哥德巴赫猜想成立 一、哥德巴赫猜想证明引入的一些符号代表含义 1、n，（n≥1;n∈自然数） 2、Pn≈π（x）任意正整数n包含的素数数量 3、Pn1，（0，m）区间内素数数量 4、Pn2，（m，2m）区间内素数数量 5、Pm，任意正整数n包含的素数类型数量 5、（γ，γ=-0.0674243197727122）素数分布系数 6、（λ，λ=0.615885*********）素数类型中素数与伪素数等差比例 系数。 7、logn，以n为底的对数 8、H，小于等于n的所有素数类型的组合数量 9、H1，小于等于n的素数类型组合数量 10、Hn，取值为n时可拆分素数对数量 11、HAL，偶数类型1 12、HBL，偶数类型2 13、HCL，偶数类型3 14、HDL，偶数类型4 15、（m,2m 2m=n）相对区间 16、Hnx=Pn2*(Pn2*2+1)*H1/H,相对区间内两素数组合下限 17、HALx，偶数类型1组合下限 18、HBLx，偶数类型2组合下限 19、HCLx，偶数类型3组合下限 20、HDLx，偶数类型4组合下限 21、Hns=Pn1*(Pn1*2+1)*H1/H,相对区间内两素数组合上限 22、HALs，偶数类型1组合上限 23、HBLs，偶数类型2组合上限 24、HCLs，偶数类型3组合上限 25、HDLs，偶数类型4组合上限 二、素数定理代数表达式 1、Pn=π（x）≈(0.8n/3)/{γ+λ*（logn-2）+1} 《程序设计语言VB》课程习题集 一、单选题 1. Visual Basic是一种面向（）的程序设计语言。 A. 用户 B. 事件 C. 程序 D. 对象 2.在Visual Basic6.0中规定工程文件的扩展名是（）。 A. vbp B. for C. frm D. bas 3. Visual Basic6.0中规定窗体文件的扩展名是（）。 A. for B. frm C. vbp D. bas 4.如何使一个标签或按钮控件在运行时不可用（）。 A. 把它的Visible属性设置成False B. 把它的Visible属性设置成True C. 把它的Enabled属性设置成False D. 把它的Enabled属性设置成True 5.控件的字体可在属性窗口的（）属性中调整？ A. Font B. Color C. Text D. Caption 6.若要将某命令按钮设置为默认命令按钮。则应设置为True的属性是（）。 A. Value B. Cancel C. Default D. Enabled 7.在VB中，记录对象数据的是（）。 A. 方法 B. 事件 C. 属性 8.在文本框上显示文本的属性是（）。 A. Value B. Text C. Print D. Enabled 9. InputBox函数返回值的类型为（）。 A. 字符串 B. 数值 C. 变体 D. 数值或字符串（视输入的数据而定） 10.设有语句：a = InputBox("请输入数值:","输入示例", "100") 程序执行后,若从键盘上输入数值20并按回车键,则变量a的值是（）。 A. 字符串"20" B. 字符串"120" C. 默认值100 D. 数值120 11.下列控件中可用于接受用户输入文本，又可用于显示文本的是（）。 A. Label控件 B. TextBox控件 C. Timer控件 D. CommandButton控件 12.语句PRINT "25*4"的输出结果是（）。 A. 25*4 B. "100" C. 100 D. 出现错误信息 13.只能用来显示字符信息的控件是（）。 A. 文本框 B. 标签框 C. 图片框 D. 图像框 14.下列可作为Visual Basic变量名的是（）。 A. A%A B. 4A C. ?xy D. Stemp 15.下列哪个符号不能作为VB中的变量名（）。 A. timefly C++编程题 1. 100~200间的素数 #include cin>>a>>n; while (i<=n) {tn=tn+a; //赋值后的tn为i个a组成数的值 sn=sn+tn; //赋值后的sn为多项式前i项之和 a=a*10; ++i; } cout<<"a+aa+aaa+...="< 例7-3 验证“哥德巴赫猜想” ?“哥德巴赫猜想”是数论中的一个著名难题，200多年来无数数学家为其呕心沥血，却始终无人能够证明或伪证这个猜想。 ? ?“哥德巴赫猜想”表述为：任何一个大于等于4的偶数均可以表示为两个素数之和。 ? ?1742年法国数学爱好者哥德巴赫在给著名数学家欧拉的信中提出“哥德巴赫猜想”问题。 问题的分解 求解第一步提出问题： 验证哥德巴赫猜想 ?第二步设一上限数M，验证从4到M的所有偶数是否能被分解为两个素数之和。 1. 定义一个变量X，初值为4。 2. 每次令其加2，并验证X能否被分解为两个素数之和，直到 X不小于M为止。 验证哥德巴赫猜想（续一） 第三步如何验证X是否能被分解为两个素数之和。 1.从P=2开始； 2.判别X—P是否仍为素数： 3.若是，打印该偶数的分解式。 4.否则，换更大的素数，再继续执行2.。 如此循环，直到用于检测的素数大X/2且X 与其之差仍不是素数，则打印“哥德巴赫猜想”不成立。 验证哥德巴赫猜想（续二） 第四步生成下一个素数。 （1）当前素数P加1 （2）判别P是否是素数； （3）若是素数，返回P； （4）否则，P加1，继续执行（ 2）。 验证哥德巴赫猜想（续三） ?经过四步分解精化，将“验证哥德巴赫猜想”这个命题已经分解为计算机可以求解的数学模型了。 ? ?剩下的问题就是编程求解了。如何编程是程序设计课程要解决的问题。 哥德巴赫猜想算法分析 1) 用“筛选”法生成素数表PrimeList[M]。先在素数表中产生０到Ｍ-1的所有自然数，然后将已确定的所有素数的倍数置０(求模取余为０）。 2,3,5,7,11,13,17,19,21,23,29,31... 2) 这样一来，素数表中有许多0，为找下一个素数，要跳过这些0。 3) 分解0到M-1之间的所有偶数； ①循环(x “哥德巴赫猜想”讲义（3） 第三讲 “哥德巴赫猜想”历史上的研究方法及其进展（二） 主讲王若仲 第2讲中我们介绍了“哥德巴赫猜想”历史上的研究方法及其进展途径一，这一讲我们介绍“哥德巴赫猜想”历史上的研究方法及其进展的其他途径。 途径二：例外集合，即寻找使得哥德巴赫猜想不成立的那些偶数。 在数轴上取定大整数x，再从x往前看，寻找使得哥德巴赫猜想不成立的那些偶数，即例外偶数。x之前所有例外偶数的个数记为E(x)。我们希望，无论x多大，x之前只有一个例外偶数，那就是2，即只有2使得猜想是错的。这样一来，哥德巴赫猜想就等价于E(x)永远等于1。当然，直到现在还不能证明E(x)=1；但是能够证明E(x)远比x小。在x前面的偶数个数大概是x/2；如果当x趋于无穷大时，E(x)与x的比值趋于零，那就说明这些例外偶数密度是零，即哥德巴赫猜想对于几乎所有的偶数成立。这就是例外集合的思路。 从1920年开始，哈代和利特尔伍德合作陆续发表了七篇总标题 为《“整数拆分”的几个问题》的论文，系统地发展出了堆垒素数论中一个新的分析方法。这个新方法的思想在1918年哈代与印度数学家拉玛努贾合写的论文《组合分析的渐进公式》中就有表现。应用到哥德巴赫猜想上的话，圆法的思想是：对于非零整数，沿着单位圆为路径的环路积分 当且只当整数的时候，上面的积分才等于1。因此，如果考虑积分式： 其中，那么这个积分式实际上等于： 上式中第二项等于0，所以 方程“”的解的个数。所以，关于偶数的哥德巴赫猜想其实等于是说对于所有大于等于6的偶数 ，单位圆上的环路积分式。同理，关于奇数的哥德巴赫猜想等价于环路积分式： 因此，研究哥德巴赫猜想可以归结为研究积分式和中以质数为变数的三角多项式 。哈代和利特尔伍德猜测，当变量接近于分母“比 较小”的既约分数时， 的值会“比较大”，而当接近于分母“比较大”的既约分数时，的值会“比较小”。也就是说，积分的主要部分其实是单位圆上分母“比较小”的那些既约分数附近的积分，其它的部分上积分则没那么重要，可以忽略掉了。因此，可以将整个单位圆分成两个部分：一部分是单位圆上分母“比较小”的那些既约分数附近包括的一些区间，哈代和利特尔伍德称其为“优弧”（major arc 与平面几何中的“优弧”不同），其余的部分 则称为“劣弧”（minor arc）。将整个积分 分成优弧上的积分 与劣弧上积分 之和，然后证明相比 起可以忽略，而，这就是圆法的主要思想[4]。哈代和利特尔伍德在1923年的论文中证明了，如果存在正数 ，使得所有的狄利 克雷L 函数的全体零点都在半平面 上，那么充分大的奇数 一定满 索引 一、在窗体上画一个文本框，其名称为Text1，Text属性为空白。再画一个命令按钮，其名称为C1，Visible属性为False。编写适当的事件过程。程序运行后，如果在文本框中输入字符，则命令按钮出现。 二、计算圆的周长和面积：在窗体中添加一个文本框（Text1）和一个对应的标签（Label1），再添加两个命令按钮（Command1和Command2）和一个图片框（Picture1）。程序运行时，当单击Command1按钮后，计算圆的周长；当单击Command2按钮后，计算圆的面积；计算结果输出在图片框中。（要求在未输入半径前两个按钮呈灰色不可用。） 三、在窗体上添加三个文本框和对应的三个标签，标签的标题分别是“个位”、“十位”、“百位”。程序运行时，当单击窗体后，随机产生一个【100，999】区间内的整数，将它的个位、十位、百位数字分别显示在对应的文本框中。 四、设计一个计算程序：在窗体上添加四个文本框和四个对应的标签，标签的标题分别是“语文”、“数学”、“外语”、“平均成绩”，三个命令按钮，标题分别为“清除”、“计算”、“退出”。程序运行后，用户按“清除”按钮，则清除文本框中显示的内容，按“计算”按钮，则计算三科平均成绩，将计算结果显示在第四个文本框中（计算结果保留小数点后一位）。单击退出按钮则程序退出。 五、某税务部门征收所得税，规定如下：（1）收入200元以内，免征。（2）收入在200~400元，超过200元的部分纳税3%。（3）收入超过400元的部分，纳税4%。（4）当收入达5000元或超过时，将4%税金改为5%。编程序实现上述操作。 六、给定三角形的三条边的边长，计算三角形的面积。编写程序，首选判断给出的三条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。当输入-1时结束程序。 七、编程求100以内的全部素数。 八、编程打印钻石图案。 九、输出杨辉三角形。 十、有一个数组，包含了10个不同的随机整数（20~90），要求计算出它们的平均值，并输出这个数组中最接近于平均值的数。 十一、在一个窗体上建有包含三个命令按钮的控件数组和一个文体框。编程实现当按下标题不同的命令按钮时，使文体框中文字的字体发生相应的变化。 十二、编程求1000以内的完全数。所谓完全数是指这样的自然数：它的各个约数（不包括该数本身）。如28=1+2+4+7+14就是一个完全数。 V B程序设计试题及答案（一） 一、单选题 1. VB6.0是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) Forml.Caption=“欢迎使用VB” (B) Forml.Caption='欢迎使用VB' (C) Forml.Caption=欢迎使用VB (D) Forml.Caption="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 …… VB程序设计试题及答案（一） 一、单选题 1. 是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) =“欢迎使用VB” (B) ='欢迎使用VB' (C) =欢迎使用VB (D) ="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 … … Next x Next x 哥德巴赫猜想分析教案 世界近代三大数学难题之一。哥德巴赫是德国一位中学教师，也是一位著名的数学家，生于1690年，1725年当选为俄国彼得堡科学院院士。1742年，哥德巴赫在教学中发现， 每个不小于6的偶数都是两个素数(只能被和它本身整除的数)之和。如6=3+3，12=5+7等等。 公元1742年6月7日哥德巴赫(Goldbach)写信给当时的大数学家欧拉(Euler)，提出 了以下的想法: (a)任何一个>=6之偶数，都可以表示成两个奇质数之和。 (b)任何一个>=9之奇数，都可以表示成三个奇质数之和。 这就是着名的哥德巴赫猜想。欧拉在6月30日给他的回信中说，他相信这个猜想是 正确的，但他不能证明。叙述如此简单的问题，连欧拉这样首屈一指的数学家都不能证明，这个猜想便引起了许多数学家的注意。从费马提出这个猜想至今，许多数学家都不断努力 想攻克它，但都没有成功。当然曾经有人作了些具体的验证工作，例 如:6=3+3,8=3+5,10=5+5=3+7,12=5+7,14=7+7=3+11,16=5+11,18=5+13,....等等。有人对 33×108以内且大过6之偶数一一进行验算，哥德巴赫猜想(a)都成立。但验格的数学证明尚待数学家的努力。 从此，这道著名的数学难题引起了世界上成千上万数学家的注意。200年过去了，没 有人证明它。哥德巴赫猜想由此成为数学皇冠上一颗可望不可及的“明珠”。到了20世 纪20年代，才有人开始向它靠近。1920年、挪威数学家布爵用一种古老的筛选法证明， 得出了一个结论：每一个比大的偶数都可以表示为(99)。这种缩小包围圈的办法很管用， 科学家们于是从(9十9)开始，逐步减少每个数里所含质数因子的个数，直到最后使每个 数里都是一个质数为止，这样就证明了“哥德巴赫”。 目前最佳的结果是中国数学家陈景润於1966年证明的，称为陈氏定理 (Chen‘sTheorem)“任何充份大的偶数都是一个质数与一个自然数之和，而後者仅仅是两 个质数的乘积。”通常都简称这个结果为大偶数可表示为“1+2”的形式。 1920年，挪威的布朗(Brun)证明了“9+9”。 1924年，德国的拉特马赫(Rademacher)证明了“7+7”。 1932年，英国的埃斯特曼(Estermann)证明了“6+6”。 1937年，意大利的蕾西(Ricei)先後证明了“5+7”,“4+9”,“3+15”和“2+366”。1938年，苏联的布赫夕太勃(Byxwrao)证明了“5+5”。 1940年，苏联的布赫夕太勃(Byxwrao)证明了“4+4”。 《VB程序设计》模拟试题 ●填空题 1.窗体模块的文件扩展名为 ___FRM_________ 、标准模块的文件扩展名为____BAS______ 、 类模块文件的扩展名为______CLS_______ 。 2.Visual Basic中数据类型可分为 _____标准数据类型________和用户自定义数据类型两大类，前者根据其取值的不同，可分为_____整型_________、 ______长整型_____、布尔型和 ____字符型_________。 3. Abs(-6.5)= _____6.5______；Int(-9.1)= ____-10_______。 4. "程序"& "设计"运算结果为 ___程序设计____ 。 5. Dim a, b as Boolean语句显式声明变量a是___变体___变量，b是___布尔__变量。 6. MsgBox函数的返回值中， VBRetry表示单击了____重试_____按钮，VBYes表示单击了___是_____按钮，VBNo表示单击了_____否____按钮。 7. 要加载窗体，可以在代码中使用___________语句，要显示窗体，可以在代码中使用___________方法，要隐藏窗体，可以在代码中使用Hide方法，要卸载窗体，可以在代码中使用___________方法。 8.对话框分为_________对话框和________对话框两种类型，其中_____________ 对话框最 常用。 9. 对象是Visual Basic应用程序的基本单元，它是由 ___类___创建的。在Visual Basic中可以用属性、 __方法___、___事件___ 来说明和衡量一个对象的特性。 10. 条件判断语句可以使用___If…then____________语句、 ____If…Then…Else______语句和 ______If…Then…ElseIf______语句。Select case 语句 11. 声明一个值为3.14的常量Pi的语句为___Const pi = 3.14______。 12. Do…Loop Until 循环结构中，当条件为____真____时结束循环。 13. 要显示弹出菜单，可以在代码中使用_____________事件。 14. 参数传递有__________方式、__________方式和命名传递方式，常量默认采用__________方式；变量默认采用__________方式；表达式默认采用__________方式。 15. 名称属性必须以一个__字母标点_开始并且最长可达40个字符,不能包括__符号___ 和 ___空格___。 16.Visual Basic的程序模块有3种：____窗体模块____ 、标准模块和 ____类模块____。 17.Visual Basic程序，按其语句代码执行的先后顺序，可以分为___顺序__结构、选择__结构和___循环____ 结构。 18.数组元素下标的下界默认为是_____________，如果要改变其默认值，应使用_____________。 ●判断题 （）1. Visual Basic运行程序的方法只有编译模式。 （）2. 语句Command1.visible=false 与Command1.enabled=false 是等价的。 （）3. InputBox函数和MsgBox函数一样，返回的是字符串。 （）4. 通过类模块，我们不可以根据需要建立自己的控件。 （×）5. 2.1E+5是合法的Visual Basic数据。 （）6. 根据占用内存方式的不同，可将数组分为常规数组和动态数组两种类型。 （√）7. x2是合法的变量名。 （）8. 按照文件的存取方式及其组成结构可以分为两种类型：文本文件和随机文件。 狼追兔子 1 巧夺偶数 2 五猴分桃 3 高次方数 4 借书方案 5 过桥问题 6 数制转换7 打渔晒网8 喝酒问题9 哥德巴赫猜想10 打印日历11 抓交通肇事逃逸犯12 反序数13 新郎新娘14 称重砝码15 求车速16 谁是窃贼17 出售金鱼18 百钱百鸡19 谜语博士20 猜牌术（－）21 舍罕王的失算22 怎样存钱利最大23 猜牌术（二）24 爱因斯坦的数学题25 取火柴游戏26 平分鱼和筐27 可逆素数28 三色球问题29 抢n游戏30 问题A: 趣味程序设计＿狼追兔子 时间限制: 1 Sec 内存限制: 128 MB 提交: 341 解决: 63 [提交][状态][讨论版] 题目描述 一只兔子躲进了n个环形分布的洞的某一个中。狼在第一个洞没有找到兔子，就隔一个洞，到第三个洞去找；也没有找到，就隔两个洞，到第六个洞去找。以后每次多一个洞去找兔子……这样下去，如果一直找不到兔子，请问兔子可能在哪个洞中？ 输入 有多组测试数据，读取到文件结尾符为止。每组测试数据输入n（2≤n≤100），即洞穴个数。输入到文件结尾符为止。 输出 兔子可能藏匿的洞。如果不止一个，按从小到大的顺序输出。如果不存在，输出空行。 样例输入 10 8 15 样例输出 2 4 7 9 2 4 5 7 8 9 11 12 14 提示 用一个数组a[10]，对应的元素a[0]，a[1]，a[2]……a[9]对应表示10个洞，初值均置1。通过一个循环用“穷举法”找兔子，第n次查找对应第(n－1)%10个洞，如果在第(n－1)%10个洞中没有找到兔子，因此将数组元素a[(n－1)%10]置0值。循环完成后，检查a数组各元素（各个洞）的值，若其值仍为1，则兔子可能藏身该洞中。 #include哥德巴赫猜想
大学计算机VB6.0习题(填空题)
哥德巴赫猜想 阅读答案
VB程序设计 试题与答案-1
实验三 函数与程序结构实验
哥德巴赫猜想的证明思路
程序设计语言VB_习题集(含答案)
50道常见++编程题
验证哥德巴赫猜想
“哥德巴赫猜想”讲义(3)
完整word版,VB程序设计例题12例
VB程序设计试题及答案一
VB程序设计试题及答案(一)
哥德巴赫猜想分析教案
《VB程序设计基础》模拟精彩试题
复试C语言常考趣味程序设计