内工大VB模板作业.doc

内蒙古工业大学信息工程学院实 验 报 告课程名称： 高级语言程序设计（vb） 实验名称：选择、循环、数组和过程综合程序设计实验类型： 验证性 综合性 设计性实验室名称： 校计算中心 班级： 学号： 姓名： 组别： 同组人： 成绩： 实验日期： 内蒙古工业大学信息工程学院预习报告成绩： 指导教师审核（签名）： 年 月 日预习报告1.实验目的：学会综合运用选择结构、循环结构、数组和过程进行程序设计的方法。2.软件环境：vb6.03.界面设计：4.属性设置：5.预编程序：option base 1dim a(1 to 80) as integerprivate sub command1_click()dim i%randomizefor i = 1 to 80a(i) = int(rnd * 90 + 10)text1.text = text1.text & & a(i)if i mod 10 = 0 thentext1.text = text1.text & vbcrlfend ifnext iend subprivate sub command2_click()dim i%, b() as integer, t%t = 1for i = 1 to 80if a(i) mod 2 = 0 thenredim preserve b(t)b(t) = a(i)t = t + 1end ifnext ifor i = 1 to ubound(b)for t = i + 1 to ubound(b)if b(i) b(t) thenz = b(i): b(i) = b(t): b(t) = zend ifnext ttext2.text = text2.text & & b(i)if i mod 10 = 0 thentext2.text = text2.text & vbcrlfend ifnext iend subprivate sub command3_click() dim i%, b() as integer, t%t = 1for i = 1 to 80if a(i) mod 2 = 0 thenelseredim preserve b(t)b(t) = a(i)t = t + 1end ifnext ifor i = 1 to ubound(b) for t = i + 1 to ubound(b) if b(i) d then rt = trueend function实验报告成绩： 指导教师审核（签名）： 年 月 日实验报告1.实验目的：学会综合运用选择结构、循环结构、数组和过程进行程序设计的方法。2.实验内容：利用随机函数产生80个1099之间的随机整数，将其中的偶数按由小到大的顺序排列并输出，将奇数按由大到小的顺序排列并输出；在产生的80个随机整数中，找出其中的素数，并将这些素数求和。3.实验要求：（1）将随机产生的80个整数存入数组，按每行10个数输出到窗体或文本框中。（2）偶数和奇数也分别存入数组，将排好序的偶数和奇数分别输出到窗体或两个文本框中。（3）用sub子过程或function函数过程判断随机整数是否为素数。（4）将素数按每行10个数在窗体或文本框中输出。（5）将素数的个数及求和结果输出到窗体或文本框中。（6）界面由学生自行设计。4.源程序代码：option base 1dim a(1 to 80) as integerprivate sub command1_click()dim i%randomizefor i = 1 to 80a(i) = int(rnd * 90 + 10)text1.text = text1.text & & a(i)if i mod 10 = 0 thentext1.text = text1.text & vbcrlfend ifnext iend subprivate sub command2_click()dim i%, b() as integer, t%t = 1for i = 1 to 80if a(i) mod 2 = 0 thenredim preserve b(t)b(t) = a(i)t = t + 1end ifnext ifor i = 1 to ubound(b)for t = i + 1 to ubound(b)if b(i) b(t) thenz = b(i): b(i) = b(t): b(t) = zend ifnext ttext2.text = text2.text & & b(i)if i mod 10 = 0 thentext2.text = text2.text & vbcrlfend ifnext iend subprivate sub command3_click() dim i%, b() as integer, t%t = 1for i = 1 to 80if a(i) mod 2 = 0 thenelseredim preserve b(t)b(t) = a(i)t = t + 1end ifnext ifor i = 1 to ubound(b) for t = i + 1 to ubound(b) if b(i) d then rt = trueend function5.程序运行结果：6.调试分析：我的大学爱情观目录：1、 大学概念2、 分析爱情健康观3、 爱情观要三思4、 大学需要对爱情要认识和理解5、 总结1、什么是大学爱情：大学是一个相对宽松，时间自由，自己支配的环境，也正因为这样，培植爱情之花最肥沃的土地。大学生恋爱一直是大学校园的热门话题，恋爱和学业也就自然成为了大学生在校期间面对的两个主要问题。恋爱关系处理得好、正确，健康，可以成为学习和事业的催化剂，使人学习努力、成绩上升；恋爱关系处理的不当，不健康，可能分散精力、浪费时间、情绪波动、成绩下降。因此，大学生的恋爱观必须树立在健康之上，并且树立正确的恋爱观是十分有必要的。因此我从下面几方面谈谈自己的对大学爱情观。2、什么是健康的爱情：1) 尊重对方，不显示对爱情的占有欲，不把爱情放第一位，不痴情过分；2) 理解对方，互相关心，互相支持，互相鼓励，并以对方的幸福为自己的满足; 3) 是彼此独立的前提下结合；3、什么是不健康的爱情：1)盲目的约会，忽视了学业;2)过于痴情，一味地要求对方表露爱的情怀，这种爱情常有病态的夸张;3)缺乏体贴怜爱之心，只表现自己强烈的占有欲;4)偏重于外表的追求;4、大学生处理两人的在爱情观需要三思：1. 不影响学习：大学恋爱可以说是一种必要的经历，学习是大学的基本和主要任务，这两者之间有错综复杂的关系，有的学生因为爱情，过分的忽视了学习，把感情放在第一位；学习的时候就认真的去学，不要去想爱情中的事，谈恋爱的时候用心去谈，也可以交流下学习，互相鼓励，共同进步。2. 有足够的精力：大学生活，说忙也会很忙，但说轻松也是相对会轻松的！大学生恋爱必须合理安排自身的精力，忙于学习的同时不能因为感情的事情分心，不能在学习期间，放弃学习而去谈感情，把握合理的精力，分配好学习和感情。3、 有合理的时间；大学时间可以分为学习和生活时间，合理把握好学习时间和生活时间的“度”很重要；学习的时候，不能分配学习时间去安排两人的在一起的事情，应该以学习为第一；生活时间，两人可以相互谈谈恋爱，用心去谈，也可以交流下学习，互相鼓励，共同进步。5、大学生对爱情需要认识与理解，主要涉及到以下几个方面：（1） 明确学生的主要任务“放弃时间的人，时间也会放弃他。”大学时代是吸纳知识、增长才干的时期。作为当代大学生，要认识到现在的任务是学习学习做人、学习知识、学习为人民服务的本领。在校大学生要集中精力，投入到学习和社会实践中，而不是因把过多的精力、时间用于谈情说爱浪费宝贵的青春年华。因此，明确自己的目标，规划自己的学习道路，合理分配好学习和恋爱的地位。（2） 树林正确的恋爱观提倡志同道合、有默契、相互喜欢的爱情：在恋人的选择上最重要的条件应该是志同道合，思想品德、事业理想和生活情趣等大体一致。摆正爱情与学习、事业的关系：大学生应该把学习、事业放在首位，摆正爱情与学习、事业的关系，不能把宝贵的大学时间，锻炼自身的时间都用于谈情说有爱而放松了学习。 相互理解、相互信任，是一份责任和奉献。爱情是奉献而不时索取，是拥有而不是占有。身边的人与事时刻为我们敲响警钟，不再让悲剧重演。生命只有一次，不会重来，大学生一定要树立正确的爱情观。（3） 发展健康的恋爱行为 在当今大学校园，情侣成双入对已司空见惯。抑制大学生恋爱是不实际的，大学生一定要发展健康的恋爱行为。与恋人多谈谈学习与工作，把恋爱行为限制在社会规范内，不致越轨，要使爱情沿着健康的道路发展。正如马克思所说：“在我看来，真正的爱情是表现在恋人对他的偶像采取含蓄、谦恭甚至羞涩的态度，而绝不是表现在随意流露热情和过早的亲昵。”（4） 爱情不是一件跟风的事儿。很多大学生的爱情实际上是跟风的结果，是看到别人有了爱情，看到别人幸福的样子（注意，只是看上去很美），产生了羊群心理，也就花了大把的时间和精力去寻找爱情（5） 距离才是保持爱情之花常开不败的法宝。爱情到底需要花多少时间，这是一个很大的问题。有的大学生爱情失败，不是因为男女双方在一起的时间太少，而是因为他们在一起的时间太多。相反，很多大学生恋爱成功，不是因为男女双方在一起的时间太少，而是因为他们准确地把握了在一起的时间的多少程度。（6） 爱情不是自我封闭的二人世界。很多人过分的活在两人世界，对身边的同学，身边好友渐渐的失去联系，失去了对话，生活中只有彼此两人；班级活动也不参加，社外活动也不参加，每天除了对方还是对方，这样不利于大学生健康发展，不仅影响学习，影响了自身交际和合作