柱子试验报告

内蒙古工业大学信息工程学院实验报告课程名称：高级语言程序设计（VB）I实验名称:选择、循环、数组和过程综合程序设计实验类型：验证性口综合性"设计性口实验室名称：校计算中心 班级：^学号:姓名：^组别：同组人：成绩：实验日期： 实验报告撰写要求一、 实验前用预习报告纸撰写预习报告，预习报告包括以下内容实验目的实验用仪器设备、器材或软件环境实验原理、方案设计、程序框图、预编程序等实验过程中需要记录的实验数据表格二、 实验过程中，要认真观察，仔细记录三、 完成实验后用实验报告纸撰写实验报告，包括以下内容仪器设备型号及编号实验器材或软件环境实验步骤、程序调试方法实验数据处理及结果分析实验中存在的问题体会及思考题四、 报告撰写时，要求格式规范、书写整齐预习报告（一） 实验目的学会综合运用选择结构。尝试运用循环结构、数组和过程进行程序设计的方法。学会简单的计数方法。学会rnd函数的使用。（二） 实验仪器及软件环境：普通台式电脑、VB6.0标准环境下（三） 实验原理：利用Rnd函数产生90个随机整数，再利用For循环将产生的随机整数存入到数组中，用If语句按每行15个数输出到窗体上；用If语句和Mod函数判断是否为奇偶数，并将奇偶数排序分别输出到picturel，picture2中。调用Function函数判断素数，利用For循环和If函数按每行20个数输出，用累计求和法将素数的个数以及和求出放入文本框中。（四） 方案设计：界面设计如下：0Forml（五）程序框图如下（六）预编代码：实验报告一、 实验目的学会综合运用选择结构、循环结构、数组和过程进行程序设计的方法。二、 实验内容利用随机函数产生90个10〜99之间的随机整数，将其中的偶数按由小到大的顺序排列，将奇数按由大到小的顺序排列；在产生的90个随机整数中，找出其中的素数，并将这些素数求和。三、 实验要求将随机产生的90个整数存入一维数组中，按每行15个数输出到窗体上。将找出的偶数和奇数也分别存入2个一维数组中。用Sub子过程分别对偶数和奇数进行排序，然后在主调过程内，将排好序的偶数和奇数按每行15个数分别输出到2个图片框中。用Function函数过程判断随机整数是否为素数。在主调过程内，将找出的素数按每行20个数在文本框中输出，将素数的个数及求和结果也输出到同一个文本框中。界面可参照如图所示的运行结果进行设计，要求各个控件在窗体上布局合理、大小适中。对象属性的设置要求用表格填写，包括用到的对象名、属性名和属性值。运行程序后，单击“产生随机整数”按钮，则在窗体上输出90个随机整数；单击“找奇偶数并排序”按钮，则分别在2个图片框中输出已经排好序的偶数和奇数；单击“找素数并求和”按钮，则在文本框中输出素数、素数的个数及素数的和；单击“结束”按钮，结束程序的运行。四、 界面设计和属性设置控件名称属性名属性值说明Form1captionForm1标题Label1caption标题Label2Caption标题Picture1AutosizeTruePicture2AutosizetrueText1text清空Command1caption产生随机整数标题Command2caption找奇偶数并排序标题Command3caption找素数并求和标题Command4caption结束标题五、源程序代码OptionBase1Dima(90)AsInteger,b(90)AsInteger,d(90)AsIntegerPrivateSubCommand1_Click()Print"90个随机数”RandomizeFori=1To90a(i)=Int(90*Rnd+10)Printa(i)&" ";IfiMod15=0ThenPrintNextiEndSubPrivateSubCommand2_Click()Fori=1To90Ifa(i)Mod2=0Thenn=n+1d(n)=a(i)Elsem=m+1b(m)=a(i)EndIfNextiLabel1.Caption=n&”个偶数”Fori=1Ton-1Forj=i+1TonCalljc(a(i),a(j))NextjNextiFori=1TonPicture1.Printd(i);IfiMod15=0ThenPicture1.PrintNextiLabel2.Caption=m&"个奇数”Fori=1Tom-1Forj=i+1TomCalljm(b(i),b(j))NextjNextiFori=1TomPicture2.Printb(i);IfiMod15=0ThenPicture2.PrintNextiEndSubSubjc(nAsInteger,mAsInteger)Ifn>mThent=n:n=m:m=tEndIfEndSubSubjm(aAsInteger,bAsInteger)Ifa<bThent=a:a=b:b=tEndSubFunctionmy(mAsInteger)AsBooleanDimfAsBoolean,oAsIntegerf=TrueForo=2Tom-1IfmModo=0Thenf=FalseEndIfNextomy=fEndFunctionPrivateSubCommand3_Click()Dimc()AsIntegerReDimc(90)DimmAsIntegerDimnAsIntegerFori=1To90Ifmy(a(i))=TrueThenn=n+1c(n)=a(i)EndIfNextiFori=1Tonm=m+a(i)Text1=Text1&c(i)&""IfiMod20=0ThenText1=Text1&Chr(13)&Chr(10)NextiText1=Text1&Chr(13)&Chr(10)&，素数的个数为："&n&Chr(13)&Chr(10)&”所有素数的和为："&mEndSubPrivateSubCommand4_Click()EndEndSub六、调试和运行结果

目Forml的个随机数799459881878991528698892461217B2828677518137419572759955777016854041975644343666191913919535389179261659412529939920953364713928823619384782799123449495636590484292468462288688677613212129291321212929303131333539394343465354575757&3&4&76868707070717172757576778893959899的个偶数9995959393919185797775757573717171676359595757575753534743434139393939353331312929252523212119171513七、实验中遇到的问题图有错误。图一中分不出偶数。目Forml的个随机数717657723529577543703068886821755731995439779353316770332163297198956446433913702257243941717214536428919352321868726896231615367225887973963084597539604726191759889510748685259152胡个苛额经过检查发现在分类时，输出偶数时本应该输出的d(i)。但是却误以为是输出a(i)。

素数个数不够。&Formi * • *•・・■, 口回|思-'的个随机数935669965925402638866952976449241521788446351218781735608380862344341764847753308260119127467345367051823717194710668267746857375436962563175975258886223293166289439274698173524122经检查发现是在分类时，多次使用a(