实验报告模板(Ⅱ).doc

《实验报告模板(Ⅱ).doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、内蒙古工业大学能源与动力工程学院实验报告课程名称：高级语言程序设计（VB）Ⅱ实验名称：选择、循环、数组和过程综合程序设计实验类型：验证性□综合性√设计性□实验室名称：校计算中心班级：交通运输12-3班学号：2姓名：国文举组别：同组人：成绩：实验日期：2013年5月25日实验报告撰写要求一、实验前用预习报告纸撰写预习报告，预习报告包括以下内容1．实验目的2．实验用仪器设备、器材或软件环境3．实验原理、方案设计、程序框图、预编程序等4．实验过程中需要记录的实验数据表格二、实验过程中，要认真观察，仔细记录三、完成实验后用实验报告纸撰写实验报告，包括以下内容1．仪器设备型号及编号2．实

2、验器材或软件环境3．实验步骤、程序调试方法4．实验数据处理及结果分析5．实验中存在的问题6．体会及思考题四、报告撰写时，要求格式规范、书写整齐预习报告成绩：指导教师审核（签名）：年月日预习报告实验报告成绩：指导教师审核（签名）：年月日实验报告一、实验目的学会综合运用选择结构、循环结构、数组和过程进行程序设计的方法。二、实验内容利用随机函数产生100个10～99之间的随机整数，找出其中的奇数和素数，并将奇数按由小到大的顺序排列。三、实验要求1．将随机产生的100个整数存入一维数组中，按每行20个数输出到窗体上。2．将找出的奇数也存入另一个数组中，并将排好序的奇数按每行20个数输出

3、到图片框中。3．用Sub子过程或Function函数过程判断随机整数是否为素数。在主调过程内，将找出的素数按每行20个数在文本框中输出。4．界面可参照如图所示的运行结果进行设计，要求各个控件在窗体上布局合理、大小适中。对象属性的设置要求用表格填写，包括用到的对象名、属性名和属性值。5．运行程序后，单击“产生随机整数”按钮，则在窗体上输出100个随机整数；单击“找奇数并排序”按钮，则在图片框中输出已经排好序的奇数；单击“找素数”按钮，则在文本框中输出素数；单击“结束”按钮，结束程序的运行。Dima(1To90)AsInteger,b(1To90)AsInteger,c(1To90

4、)AsInteger,d(1To90)AsIntegerPrivateSubform_load()ShowRandomizeFori=1To90  a(i)=Int(90*Rnd+10)NextiEndSubPrivateSubCommand1_Click()Fori=1To90 Text2.Text=Text2.Text&""&Str(a(i))IfiMod15=0Then Text2.Text=Text2.Text+(Chr(13)+Chr(10))EndIfNextiEndSubPrivateSubCommand2_Click()x=0:y=0Fori=1To90Ifa(

5、i)Mod2=0Then x=x+1 b(x)=a(i)Else y=y+1 c(y)=a(i)EndIfNextiPicture1.Printx&"个偶数"Picture2.Printy&"个奇数"Forp=1Tox  Forq=1Tox   Ifb(p)>b(q)Then    s=b(p):b(p)=b(q):b(q)=s   EndIf  NextqNextpFori=1Tox  Text3.Text=Text3.Text&""&Str(b(i))   IfiMod15=0Then    Text3.Text=Text3.Text+(Chr(13)+Chr(10))  

6、 EndIfNextiForj=1Toy  Forh=1Toy   Ifc(j)>c(h)Then    t=c(j):c(j)=c(h):c(h)=t   EndIf  NexthNextjFori=1Toy  Text4.Text=Text4.Text&""&Str(c(i))   IfiMod15=0Then    Text4.Text=Text4.Text+(Chr(13)+Chr(10))   EndIfNextiEndSubPrivateSubcommand3_click()zonghe=0:z=0Fori=1To90 Ifsushu(a(i))Then  z=z+

7、1  d(z)=a(i)  zonghe=zonghe+a(i) EndIfNextiFori=1Toz Text5.Text=Text5.Text&""&Str(d(i))  IfiMod15=0Then   Text5.Text=Text5.Text+(Chr(13)+Chr(10))  EndIfNextiText5.Text=Text5.Text+(Chr(13)+Chr(10))Text5.Text=Text5.Text&"总和"&""&zongheText5.Text=Text5