VB结业论文.doc

内蒙古工业大学信息工程学院 实 验 报 告 课程名称： 实验名称： 实验类型： 验证性□ 综合性 设计性□ 实验室名称： 班级： 学号： 姓名： 组别： 同组人： 成绩： 实验日期： 实验报告撰写要求 实验前用预习报告纸撰写预习报告，预习报告包括以下内容 实验目的 实验用仪器设备、器材或软件环境 实验原理、方案设计、程序框图、预编程序等 实验过程中需要记录的实验数据表格 实验过程中，要认真观察，仔细记录 完成实验后用实验报告纸撰写实验报告，包括以下内容 仪器设备型号及编号 实验器材或软件环境 实验步骤、程序调试方法 实验数据处理及结果分析 实验中存在的问题 体会及思考题 报告撰写时，要求格式规范、书写整齐  预习报告成绩： 指导教师审核（签名）： 年 月 日 预习报告 一、实验目的 掌握综合运用常用控件进行程序设计的方法 掌握运用菜单和多模块进行程序设计的方法 掌握综合运用三种基本控制结构、数组、过程和文本进行程序设计的方法。 通过综合型实验，进一步提高程序设计能力。 学会综合运用选择结构、循环结构、数组和过程进行程序设计的方法。 二、实验用仪器设备、器材或软件环境 windowXP操作系统电脑、Microsoft visual basic 6.0中文版软件、 Visual basic 程序设计教程、Visual basic习题解答与实验指导 三、实验原理、方案设计、程序框图、预编程序等 1、实验原理：利用随机函数产生n（20≤n≤100）个两位整数，将其中的奇数按由小到大的顺序排列并输出；将其中的偶数按由小到大的顺序排列并输出；从随机数中找出素数。用sub子过程或function函数过程判断是否为素数，偶数、奇数和素数按每行10个数在窗体中输出。 2方案设计： ①属性设置 控件 Caption 属性 属性值 Picture Picture1 Label Label1 Border Style 1 Text Text1 MultiLine TRUE Command 产生随机数 Command 找奇偶数并排序 Command 找素数并排序 Command 结束 ②程序框图设置 ③流程图设置 实验报告成绩： 指导教师审核（签名）： 年 月 日 实验报告 一实验目的 学会二实验内容 三实验要求 1．将随机产生的n个整数存入一维数组中，按每行10个数输出到窗体上。 2．将找出的奇数和偶数分别存入2个一维动态数组中。用Sub过程分别对奇数和偶数进行排序，奇数用选择法排序，偶数用冒泡法排序，然后在调用过程内，将排好序的奇数和偶数按每行10个数分别输出到图片框和标签中。 3．用Function过程判断随机整数是否为素数。在调用过程内，将找出的素数（按每行10个数）及求和结果输出到文本框中。 4．Sub过程和Function过程均建立在标准模块中。 5．界面可参照如图所示的运行结果进行设计，要求在窗体上添加的各个控件布局合理、大小适中。对象属性的设置要求用表格填写，包括对象名、属性名、属性值和说明（可参照前面章节的实验内容）。 6．程序运行后，若在输入对话框中输入随机产生的整数个数n为50，单击“产生随机整数”命令按钮，则在窗体上输出50个随机整数；单击“找奇偶数并排序”命令按钮，则分别在图片框和标签中输出排好序的奇数和偶数；单击“找素数并求和”命令按钮，则在文本框和顺序文件中输出素数和素数的和；单击“结束”命令按钮，结束程序的运行。运行结果如图所示。 7．实验报告主要包括实验目的、实验内容、实验要求、界面设计（包括各对象及其属性设置）、源程序代码、运行结果（要求截图）、实验中存在的问题、体会和思考等内容。 五、运行结果（要求取截图） ① 程序代码 Dim x As integer, i As integer, a As integer() Private Sub Command1_Click() x = Val(InputBox(请输入x的值, 输入整数)) If x = 20 And x = 100 Then Print x 个随机整数 ReDim Preserve a(x) For i = 1 To x a(i) = Int(Rnd * 90 + 10) Print a(i);