内蒙古工业大学vb实验报告找出素数奇数偶数排序副本

1、内蒙古工业大学信息工程学院实 验 报 告课程名称： 高级语言程序设计（vb） 实验名称：选择、循环、数组和过程综合程序设计实验类型： 验证性 综合性 设计性实验室名称： 校计算中心 班级：安全13 学号：201320518008姓名： 刘威 组别： 同组人： 成绩： 实验日期： 2014年5月 实验报告撰写要求一、 实验前用预习报告纸撰写预习报告，预习报告包括以下内容1 实验目的2 实验用仪器设备、器材或软件环境3 实验原理、方案设计、程序框图、预编程序等4 实验过程中需要记录的实验数据表格二、 实验过程中，要认真观察，仔细记录三、 完成实验后用实验报告纸撰写实验报告，包括以下内容1 仪器设备

2、型号及编号2 实验器材或软件环境3 实验步骤、程序调试方法4 实验数据处理及结果分析5 实验中存在的问题6 体会及思考题四、 报告撰写时，要求格式规范、书写整齐 预习报告成绩： 指导教师审核（签名）： 年 月 日预习报告一、程序所需包含的对象（如下表）。二、窗体上的布局（预习图）。（预习图）三、属性和属性值（如下表）。四、预编程序代码（手写）。实验报告成绩： 指导教师审核（签名）： 年 月 日实验报告一、实验目的学会综合运用三种基本控制结构、数组和过程进行程序设计的方法。二、实验内容利用随机函数产生n（20n100）个两位整数，找出其中的奇数、偶数和素数，并将奇数按升序排序，将偶数按降序排序，

3、将素数求和。三、实验要求1将随机产生的n个整数存入一维数组中，按每行10个数输出到窗体上。2将找出的奇数和偶数分别存入2个一维动态数组中。用sub过程分别对奇数和偶数进行排序，奇数用选择法排序，偶数用冒泡法排序，然后在调用过程内，将排好序的奇数和偶数按每行10个数分别输出到图片框和标签中。3用function过程判断随机整数是否为素数。在调用过程内，将找出的素数（按每行10个数）及求和结果输出到文本框中。4sub过程和function过程均建立在标准模块中。5界面可参照如图所示的运行结果进行设计，要求在窗体上添加的各个控件布局合理、大小适中。对象属性的设置要求用表格填写，包括对象名、属性名、属

4、性值和说明（可参照前面章节的实验内容）。6程序运行后，若在输入对话框中输入随机产生的整数个数n为50，单击“产生随机整数”命令按钮，则在窗体上输出50个随机整数；单击“找奇偶数并排序”命令按钮，则分别在图片框和标签中输出排好序的奇数和偶数；单击“找素数并求和”命令按钮，则在文本框和顺序文件中输出素数和素数的和；单击“结束”命令按钮，结束程序的运行。运行结果如图所示。7实验报告主要包括实验目的、实验内容、实验要求、界面设计（包括各对象及其属性设置）、源程序代码、运行结果（要求截图）、实验中存在的问题、体会和思考等内容。四、我设计的界面如下图（实验图2012-01）所示：（实验图2012-01）五

5、、我设计的界面中各控件属性及属性值如下五个表格所示：六、我设计的源程序代码如下：dim a%(50), b%(), n%, i%, j%, t%private sub command1_click()print "50个随机整数" for i = 1 to 50 a(i) = int(rnd * 90 + 10) print a(i); if i mod 10 = 0 then print next i end subprivate sub command2_click() for i = 1 to 50 if a(i) mod 2 = 1 then n = n + 1 r

6、edim preserve b(n) b(n) = a(i) end if next i for i = 1 to n - 1 for j = i + 1 to n if b(i) > b(j) then t = b(i) b(i) = b(j) b(j) = t end if next j next i print n; "个奇数" for i = 1 to n picture1.print b(i); if i mod 10 = 0 then picture1.print next i for i = 1 to 50 if a(i) mod 2 = 0 then

7、m = m + 1 redim preserve b(m) b(m) = a(i) end if next i for i = 1 to n - 1 for j = i + 1 to m if b(i) > b(j) then t = b(i) b(i) = b(j) b(j) = t end if next j next i label3.caption = label3.caption & m & "个偶数" for i = 1 to m - 1 for j = 1 to m - 1 if b(j) < b(j + 1) then t = b

8、(j) b(j) = b(j + 1) b(j + 1) = t end if next j next i for i = 1 to m label1.caption = label1.caption & " " & b(i) & " " if i mod 10 = 0 then label1.caption = label1.caption & vbcrlf next i end subfunction fnprime(m as integer) dim k as integer, f as boolean f = tr

9、ue for k = 2 to m - 1 if m mod k = 0 then f = false end if next k fnprime = f end functionprivate sub command3_click()dim b as integer, c as integer for i = 1 to n if fnprime(a(i) then c = c + 1 b = b + a(i) text1.text = text1.text + str(a(i) if c mod 20 = 0 then text1.text = text1.text & vbcrlf

10、 end if next i text1.text = text1.text & vbcrlf & "素数之和是：" & blabel2.caption = "素数的个数是：" & cend subprivate sub command4_click()endend subprivate sub form_load()end sub七、我设计程序的调试和运行结果展示如下：. 当点击“”时显示结果如下图（实验图2012-02）所示：（实验图2012-02）.当点击“”时显示结果如下图（实验图2012-03）所示：（实验图20

11、12-03）.当点击“”时显示结果如下图（实验图2012-04）所示：（实验图2012-04）.当点击“”时：结束程序。八、实验中存在的问题.实验中出现如右图（实验图2012-6）所示的错误提醒。经“帮助”知这是在fornext语句中的“if”语句后没有对应的“end if”造成的。 （实验图2012-06）.实验中曾将“b()”数组定义在了通用中，造成在找素数时的错误。经老师点拨将“b()”数组定义在相应的private下，便解决了素数输出的错误。.实验中没有对“text1”“text2”文本框的属性“multiline”属性值进行改变致使随在源代码中定义了换行却不能显示出来（实验图2012

12、-7）。在同学的提醒下将“multiline”属性值设置为“true”，之后再运行程序就实现了每行10个数字的显九、 体会和思考在这次高级语言v b编程实验中我出的不少错误，也有一定的成就感。其实v b语言并不是一个很难的学科，但它能考验一个人的学习态度与对细节的把握程度。只有拥有良好的学习态度才能学会v b的编程技巧，只有平时认真听理论课，并在上机操作课时认真练习才有可能学会v b，学好v b。v b语言的学习不仅仅与平时的学习态度有关，在一定程度也与一个人的思维模式有关，只有具备良好的思维模式，才能快速准确的编写v b程序。但我认为这并不是决定性因素。还有一个最最重要的：那就是注重细节。俗话说：“细节决