内蒙古工业大学信息工程学院实验报告课程名称：高级语言程序设计（VB）Ⅱ实验名称：选择、循环、数组和过程综合程序设计实验类型：验证性□综合性√设计性□实验室名称：校计算中心班级：土木11—3学号：201130608047姓名：范学勇组别：无同组人：成绩：实验日期：实验报告撰写要求实验前用预习报告纸撰写预习报告，预习报告包括以下内容实验目的实验用仪器设备、器材或软件环境实验原理、方案设计、程序框图、预编程序等实验过程中需要记录的实验数据表格实验过程中，要认真观察，仔细记录完成实验后用实验报告纸撰写实验报告，包括以下内容仪器设备型号及编号实验器材或软件环境实验步骤、程序调试方法实验数据处理及结果分析实验中存在的问题体会及思考题报告撰写时，要求格式规范、书写整齐内蒙古工业大学信息工程学院第页预习报告成绩：指导教师审核（签名）：年月日预习报告实验目的：学会综合应用选择结构、循环结构、数组和过程程序设计方法。实验器材设备：计算机、VB语言程序。实验原理：随机函数选择结构数组及过程方案设计：引用随机函数产生80个10～99之间的随机整数，将其中的奇数按由小到大的顺序排列并输出；在产生的80个随机整数中，找出其中的素数。利用rnd函数选出10~99随机整数程序框图:存入二维数组产生的数分别mod2用function函数判断是否为素数为奇数存入数组，从小到大排序每行10个输出求和输出控件Caption属性值TextCommand1随机整数Font宋体无Command2从小到大排列的奇数Font宋体无Command3素数Font宋体无Text1无MultilineTrue空白Text2无MultilineTrue空白Text3无MultilineTrue空白界面设计：五．预编程序：Dima(80)AsInteger,b(1To81)AsIntegerFunctionfnprime(mAsInteger)AsBooleanDimkAsInteger,fAsBooleanf=TrueFork=2TomIfmModk=0Thenf=FalseEndIfNextkfnprime=fEndFunctionPrivateSubCommand1_Click()RandomizeFori=1To80a(i)=Int(90*Rnd+10)Text1.Text=Text1.Text&a(i)&""IfiMod10=0ThenText1.Text=Text1.Text&Chr(13)&Chr(10)EndIfNextiEndSubPrivateSubCommand2_Click()Forj=1To79Fori=j+1To80Ifa(j)>a(i)Thent=a(j):a(j)=a(i):a(i)=tEndIfNextiNextjFori=1To80Ifa(i)Mod2=1Thenm=m+1b(m)=a(i)Text3.Text=Text3.Text&b(m)&""IfmMod10=0ThenText3.Text=Text3.Text&Chr(13)&Chr(10)EndIfNextiEndSubPrivateSubCommand3_Click()Fori=1To80Iffnprime(a(i))Thenm=m+1b(m)=a(i)Text2.Text=Text2.Text&b(m)&""IfmMod10=0ThenText2.Text=Text2.Text&Chr(13)&Chr(10)EndIfNextiEndSub实验报告成绩：指导教师审核（签名）：年月日实验报告成绩：指导教师审核（签名）：年月日实验报告一、实验目的学会综合运用选择结构、循环结构、数组和过程进行程序设计的方法。二、实验内容利用随机函数产生80个10～99之间的随机整数，将其中的奇数按由小到大的顺序排列并输出；在产生的80个随机整数中，找出其中的素数。三、实验要求1．将随机产生的80个整数存入数组，按每行10个数输出到窗体或文本框中。2．奇数也存入另一个数组，将排好序的奇数输出到窗体或文本框中。3．用Sub子过程或Function函数过程判断随机整数是否为素数。4．将素数按每行10个数在窗体或文本框中输出。5．界面和属性由学生自行设计和设置（界面设计要合理、美观，属性设置用表格完成