VB实验80个随机数

内蒙古工业大学信息工程学院实验报告课程名称：高级语言程序设计（VB）I实验名称:选择、循环、数组和过程综合程序设计实验类型：验证性口综合性M设计性口实验室名称：校计算中心班级：:姓名：成绩：实验日期：实验报告撰写要求一、实验前用预习报告纸撰写预习报告，预习报告包括以下内容1．实验目的2．实验用仪器设备、器材或软件环境3．实验原理、方案设计、程序框图、预编程序等4．实验过程中需要记录的实验数据表格二、实验过程中，要认真观察，仔细记录三、完成实验后用实验报告纸撰写实验报告，包括以下内容1．仪器设备型号及编号2．实验器材或软件环境3．实验步骤、程序调试方法4．实验数据处理及结果分析5．实验中存在的问题6．体会及思考题四、报告撰写时，要求格式规范、书写整齐内蒙古工业大学信息工程学院内蒙古工业大学信息工程学院第第#页实验报告成绩：指导教师审核（签名）：年月日实验报告实验一选择、循环和数组综合程序设计一）实验目的学会综合运用选择结构、循环结构、数组和过程进行程序设计的方法。（二）实验内容利用随机函数产生80个10〜99之间的随机整数，将其中的偶数按由小到大的顺序排列并输出，将奇数按由大到小的顺序排列并输出；在产生的80个随机整数中，找出其中的素数，并将这些素数求和。（三）实验要求1．将随机产生的80个整数存入数组，按每行10个数输出到窗体或文本框中。2．偶数和奇数也分别存入数组，将排好序的偶数和奇数分别输出到窗体或两个文本框中。用Sub子过程或Function函数过程判断随机整数是否为素数。4．将素数按每行10个数在窗体或文本框中输出。将素数的个数及求和结果输出到窗体或文本框中。界面由学生自行设计。创立界面，4个标签，5个文本框，3个命令按钮。控件名称属性属性值FormlcaptionFormlLabellcaption偶数从小到大Label2caption奇数从大到小Label3caption素数Label4caption素数之和TextltextText2textText3textTex14TextText5TextCommandlcaption随机80个数，分出偶数奇数Command2caption找出素数，并求素数之和Command3caption谢谢观赏代码Dima(1To80)AsInteger,b(1To80)AsInteger,c(1To80)AsInteger,d(1To80)AsIntegerPrivateSubForm_Load()ShowRandomizeFori=1To80a(i)=Int(90*Rnd+10)NextiEndSubPrivateSubCommand1_Click()x=0:y=0Fori=1To80Text1.Text=Text1.Text+Str(a(i))IfiMod10=0ThenText1.Text=Text1.Text+(Chr(13)+Chr(10))EndIfIfa(i)Mod2=0Thenx=x+1b(x)=a(i)EndIfIfa(i)Mod2<>0Theny=y+1c(y)=a(i)EndIfNextiPrint"偶数个数:";xPrint"奇数个数:";yForp=1ToxForq=1ToxIfb(p)>b(q)Thens=b(p):b(p)=b(q):b(q)=sEndIfNextqNextpFori=1ToxText2.Text=Text2.Text+Str(b(i))IfiMod10=0ThenEndText2.TextIf=Text2.Text+(Chr(13)+Chr(10))NextiForj=1Toy-1Forh=j+1ToyIfc(j)<c(h)Thent=c(j):c(j)=c(h):c(h)=tEndIfNexthNextjFori=1ToyText3.Text=Text3.Text+Str(c(i))IfiMod10=0ThenText3.Text=Text3.Text+(Chr(13)+Chr(10))EndIfNextiEndSubPrivateSubCommand2_Click()zonghe=0:z=0Fori=1To80IfFnprime(a(i))Thenz=z+1d(z)=a(i)zonghe=zonghe+a(i)EndIfNextiFori=1TozText4.Text=Text4.Text+Str(d(i))IfiMod10=0ThenText4.Text=Text4.Text+(Chr(13)+Chr(10))EndIfNextiText5.Text=zongheEndSubFunctionFnprime(mAsInteger)AsBooleanDimkAsInteger,fAsBooleanf=TrueFork=2Tom-1IfmModk=0Thenf=FalseEndIfNextkFnprime=fEndFunctionPrivateSubCommand3_Click()EndEndSub结果厢机创个数.分出偶数奇数596929346696983318576660厢机创个数.分出偶数奇数59692934669698331857666073489956994022738022527586841628866929166658341456697748284264205841898886105182381526267454284744695541427279769220501427811653309988275929737329418947417953偶数从小到大9896928888868686848280767472GGGG666460585856565452504848444242403834343028282826262222202018161616141410素数613素数

之和奇数从大到小3175535751757752977521995299862993963991964991964谢谢观赏实验存在的问题起初想在给偶数和奇数排序的时候也用个命令按钮，结果无法实行。奇数排序起初也会出现大小不一的情况，经过多次试验，解决这个问题命令按钮还是有点少奇偶数排序错误，检查时改正了素数选取时不会循环体会及思考经过这次实验，发现我的VB课内容还是不太熟悉，