内蒙古工业大学vb实验报告(找出素数_奇数偶数排序) - 副本.doc

内蒙古工业大学信息工程学院 实 验 报 告 课程名称： 高级语言程序设计（VB）Ⅰ 实验名称：选择、循环、数组和过程综合程序设计 实验类型： 验证性□ 综合性√ 设计性□ 实验室名称： 校计算中心 班级：安全13 学号：201320518008 姓名： 刘威 组别： 同组人： 成绩： 实验日期： 2014年5月 实验报告撰写要求 实验前用预习报告纸撰写预习报告，预习报告包括以下内容 实验目的 实验用仪器设备、器材或软件环境 实验原理、方案设计、程序框图、预编程序等 实验过程中需要记录的实验数据表格 实验过程中，要认真观察，仔细记录 完成实验后用实验报告纸撰写实验报告，包括以下内容 仪器设备型号及编号 实验器材或软件环境 实验步骤、程序调试方法 实验数据处理及结果分析 实验中存在的问题 体会及思考题 报告撰写时，要求格式规范、书写整齐 预习报告成绩： 指导教师审核（签名）： 年 月 日 预习报告 一、程序所需包含的对象（如下表）。 二、窗体上的布局（预习图）。 （预习图） 三、属性和属性值（如下表）。 四、预编程序代码（手写）。 实验报告成绩： 指导教师审核（签名）： 年 月 日 实验报告 一、实验目的 学会综合运用三种基本控制结构、数组和过程进行程序设计的方法。 二、实验内容 利用随机函数产生n（20≤n≤100）个两位整数，找出其中的奇数、偶数和素数，并将奇数按升序排序，将偶数按降序排序，将素数求和。 三、实验要求 1．将随机产生的n个整数存入一维数组中，按每行10个数输出到窗体上。 2．将找出的奇数和偶数分别存入2个一维动态数组中。用Sub过程分别对奇数和偶数进行排序，奇数用选择法排序，偶数用冒泡法排序，然后在调用过程内，将排好序的奇数和偶数按每行10个数分别输出到图片框和标签中。 3．用Function过程判断随机整数是否为素数。在调用过程内，将找出的素数（按每行10个数）及求和结果输出到文本框中。 4．Sub过程和Function过程均建立在标准模块中。 5．界面可参照如图所示的运行结果进行设计，要求在窗体上添加的各个控件布局合理、大小适中。对象属性的设置要求用表格填写，包括对象名、属性名、属性值和说明（可参照前面章节的实验内容）。 6．程序运行后，若在输入对话框中输入随机产生的整数个数n为50，单击“产生随机整数”命令按钮，则在窗体上输出50个随机整数；单击“找奇偶数并排序”命令按钮，则分别在图片框和标签中输出排好序的奇数和偶数；单击“找素数并求和”命令按钮，则在文本框和顺序文件中输出素数和素数的和；单击“结束”命令按钮，结束程序的运行。运行结果如图所示。 7．实验报告主要包括实验目的、实验内容、实验要求、界面设计（包括各对象及其属性设置）、源程序代码、运行结果（要求截图）、实验中存在的问题、体会和思考等内容。 四、我设计的界面如下图（实验图2012-01）所示： （实验图2012-01） 五、我设计的界面中各控件属性及属性值如下五个表格所示： 六、我设计的源程序代码如下： 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 Sub Private Sub Command2_Click() For i = 1 To 50 If a(i) Mod 2 = 1 Then n = n + 1 ReDim 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