内蒙古工业大学VB实验报告(找出素数奇数偶数排序).docVIP

内蒙古工业大学信息工程学院 实 验 报 告 课程名称： 高级语言程序设计（VB）Ⅰ 实验名称：选择、循环、数组和过程综合程序设计 实验类型： 验证性□ 综合性√ 设计性□ 实验室名称： 校计算中心 班级： ********* 学号：************* 姓名： ******** 组别： 同组人： 成绩： 实验日期： 2012年5月28日 实验报告撰写要求 实验前用预习报告纸撰写预习报告，预习报告包括以下内容 实验目的 实验用仪器设备、器材或软件环境 实验原理、方案设计、程序框图、预编程序等 实验过程中需要记录的实验数据表格 实验过程中，要认真观察，仔细记录 完成实验后用实验报告纸撰写实验报告，包括以下内容 仪器设备型号及编号 实验器材或软件环境 实验步骤、程序调试方法 实验数据处理及结果分析 实验中存在的问题 体会及思考题 报告撰写时，要求格式规范、书写整齐 内蒙古工业大学信息工程学院 第 页 预习报告成绩： 指导教师审核（签名）： 年 月 日 预习报告 一、程序所需包含的对象（如下表）。 二、窗体上的布局（预习图）。 （预习图） 三、属性和属性值（如下表）。 四、预编程序代码（手写）。 实验报告成绩： 指导教师审核（签名）： 年 月 日 实验报告 一、实验目的 学会综合运用选择结构、循环结构、数组和过程进行程序设计的方法。 二、实验内容 利用随机函数产生80个10～99之间的随机整数，将其中的偶数按由小到大的顺序排列并输出，将奇数按由大到小的顺序排列并输出；在产生的80个随机整数中，找出其中的素数，并将这些素数求和。 三、实验要求 1．将随机产生的80个整数存入数组，按每行10个数输出到窗体或文本框中。 2．偶数和奇数也分别存入数组，将排好序的偶数和奇数分别输出到窗体或两个文本框中。 3．用Sub子过程或Function函数过程判断随机整数是否为素数。 4．将素数按每行10个数在窗体或文本框中输出。 5．将素数的个数及求和结果输出到窗体或文本框中。 6．界面和属性由学生自行设计和设置（界面设计要合理、美观，属性设置用表格完成，包括对象名、属性名和属性值）。 四、我设计的界面如下图（实验图2012-01）所示： （实验图2012-01） 五、我设计的界面中各控件属性及属性值如下四个表格所示： 六、我设计的源程序代码如下： Dim a(1 To 80) As Integer ‘在通用中声明数组“a（）” Public Sub Command1_Click() ‘“Command1”单击事件 Text1.Text = Text2.Text = ‘将“Text1”，“Text2”文本框清空 Label1.Caption = ‘将“Label1”标签内容清空 k = 0 ‘定义“k=0“以方便定义换行输出文本 For i = 1 To 80 ‘应用“For…Next“循环语句 Randomize ‘随机数生成器 a(i) = Int(90 * Rnd + 10) ‘生成10-99的随机数 Text1.Text = Text1.Text a(i) ‘输出生成的随机数 k = k + 1 ‘每生成一个随机数k加1 If k Mod 10 = 0 Then Text1.Text = Text1.Text Chr(13) + Chr(10) ‘控制每输出10个数字后换行 Next i End Sub Private Sub Command2_Click() ‘“Command2”单击事件 Text2.Text = ‘将“Text2”文本框清空 Dim b(1 To 80) As Integer ‘定义数组“b（）”为整形 k = 0 ‘定义“k=0“以方便换行输出文本 d = 1 ‘定义“d=1” For i = 1 To 80 ‘应用“For…Next“循环语句 If a(