vb实验报告材料实用模板

《vb实验报告材料实用模板》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、内蒙古工业大学信息工程学院内蒙古工业大学信息工程学院实验报告课程名称：高级语言程序设计（VB）Ⅰ实验名称：选择、循环、数组和过程综合程序设计实验类型：验证性□综合性√设计性□实验室名称：校计算中心班级：过控11-2学号：201120506047第页内蒙古工业大学信息工程学院姓名：蒋安神组别：同组人：成绩：实验日期：2012-06-8预习报告成绩：指导教师审核（签名）：年月日预习报告一、实验题目《选择、循环、数组和过程综合程序设计》二、实验目的学会综合运用选择结构、循环结构、数组和过程进行程序设计的方法。三、实验内容利用随机函数产生

2、80个10～99之间的随机整数，将其中的偶数按由小到大的顺序排列并输出，将奇数按由大到小的顺序排列并输出；在产生的80个随机整数中，找出其中的素数，并将这些素数求和四、实验用仪器设备、器材或软件环境第页内蒙古工业大学信息工程学院电脑、MicrosoftVisualBasic6.0中文版软件、VB语言程序设计（第二版）、VisualBasic程序设计教程。五、实验设计要求、方案设计。1．将随机产生的80个整数存入数组，按每行10个数输出到窗体或文本框中。2．偶数和奇数也分别存入数组，将排好序的偶数和奇数分别输出到窗体或两个文本框中。

3、3．用Sub子过程或Function函数过程判断随机整数是否为素数。4．将素数按每行10个数在窗体或文本框中输出。5．将素数的个数及求和结果输出到窗体或文本框中。6．界面和属性由学生自行设计和设置（界面设计要合理、美观，属性设置用表格完成，包括对象名、属性名和属性值）。2、方案设计1属性设置控件captionfontLabel1随机产生80个10～99之间的随机整数，其中的偶数按由小到大的顺序排列并输出，将奇数按由大到小的顺序排列并输出,其中的素数，并将这些素数求和字体（宋体）字形（常规）大小（五号）Command1启动字体（宋体

4、）字形（常规）大小（小二）Command2结束字体（宋体）字形（常规）大小（小二）2界面设计第页内蒙古工业大学信息工程学院4预编程序流程先随机产生80个10到99的整数，运用2维数组显示出来，在运用if函数分离出偶数和奇数并运用function过程按要求分大小排序显示，最后运用function过程找出素数并对素数计数和求和，然后输出素数，素数的个数，素数的和3预编程序第页内蒙古工业大学信息工程学院第页内蒙古工业大学信息工程学院第页内蒙古工业大学信息工程学院第页内蒙古工业大学信息工程学院第页内蒙古工业大学信息工程学院实验报告成绩：指

5、导教师审核（签名）：年月日实验报告一、实验目的学会综合运用选择结构、循环结构、数组和过程进行程序设计的方法。二、实验内容利用随机函数产生80个10～99之间的随机整数，将其中的偶数按由小到大的顺序排列并输出，将奇数按由大到小的顺序排列并输出；在产生的80个随机整数中，找出其中的素数，并将这些素数求和。三、实验要求1．将随机产生的80个整数存入数组，按每行10个数输出到窗体或文本框中。2．偶数和奇数也分别存入数组，将排好序的偶数和奇数分别输出到窗体或两个文本框中。3．用Sub子过程或Function函数过程判断随机整数是否为素数。4

6、．将素数按每行10个数在窗体或文本框中输出。5．将素数的个数及求和结果输出到窗体或文本框中。6．界面和属性由学生自行设计和设置（界面设计要合理、美观，属性设置用表格完成，包括对象名、属性名和属性值）。四、实验步骤1、在窗体中建立相应的文本框和命令按钮，并调整其对齐。2、对相应的属性进行设置。控件captionfontLabel1随机产生80个10～99之间的随机整数，其中的偶数按由小到大的顺序排列并输出，将奇数按由大到小的顺序排列并输出,其中的素数，并将这些素数求和字体（宋体）字形（常规）大小（五号）Command1启动字体（宋体

7、）字形（常规）大小（小二）Command2结束字体（宋体）第页内蒙古工业大学信息工程学院字形（常规）大小（小二）初始界面截图3、编写程序代码PrivateSubCommand1_Click()Dima(1To80)AsInteger,a1()AsInteger,a2()AsInteger,a3()AsInteger,b(1To8,1To10)AsInteger,iAsInteger,mAsInteger,nAsInteger,cAsIntegerClsRandomizeReDima1(80):ReDima2(80):ReDima3

8、(80)Fori=1To80第页内蒙古工业大学信息工程学院a(i)=Int(90*Rnd+10)Ifa(i)Mod2=0Thenm=m+1a1(m)=a(i)Elsen=n+1a2(n)=a(i)EndIfIfFnprime(a(i))Thenc=