刘永宏.docx

1、刘永宏内蒙古工业大学信息工程学院实 验 报 告课程名称： 高级语言程序设计（VB） 实验名称：选择、循环、数组和过程综合程序设计实验类型： 验证性 综合性 设计性实验室名称： 校计算中心 班级： 金属13-2 学号：201320402006 姓名： 刘永宏 组别： 同组人： 成绩： 实验日期： 2014-5-25 实验报告撰写要求一、 实验前用预习报告纸撰写预习报告，预习报告包括以下内容1 实验目的2 实验用仪器设备、器材或软件环境3 实验原理、方案设计、程序框图、预编程序等4 实验过程中需要记录的实验数据表格二、 实验过程中，要认真观察，仔细记录三、 完成实验后用实验报告纸撰写实验报告，包括

2、以下内容1 仪器设备型号及编号2 实验器材或软件环境3 实验步骤、程序调试方法4 实验数据处理及结果分析5 实验中存在的问题6 体会及思考题四、 报告撰写时，要求格式规范、书写整齐预习报告成绩： 指导教师审核（签名）： 年 月 日预习报告实验报告成绩： 指导教师审核（签名）： 年 月 日实验报告一、实验目的学会综合运用三种基本控制结构、数组和过程进行程序设计的方法。二、实验内容随机产生n个（20n100）两位整数，找出其中的奇数、偶数和素数，并将奇数按升序排序，将偶数按降序排序，将素数求和。三、实验要求1将随机产生的n个整数存入一维数组中，按每行10个数输出到窗体上。2将找出的奇数和偶数分别存

3、入2个一维动态数组中。用Sub过程分别对奇数和偶数进行排序，奇数用选择法排序，偶数用冒泡法排序，然后在调用过程内，将排好序的奇数和偶数按每行10个数分别输出到图片框和标签中。3用Function过程判断随机整数是否为素数。在调用过程内，将找出的素数（按每行10个数）及求和结果输出到文本框中。4Sub过程和Function过程均建立在标准模块中。5界面可参照如图所示的运行结果进行设计，要求在窗体上添加的各个控件布局合理、大小适中。对象属性的设置要求用表格填写，包括对象名、属性名、属性值和说明（可参照前面章节的实验内容）。6程序运行后，若在输入对话框中输入随机产生的整数个数n为50，单击“产生随机

4、整数”命令按钮，则在窗体上输出50个随机整数；单击“找奇偶数并排序”命令按钮，则分别在图片框和标签中输出排好序的奇数和偶数；单击“找素数并求和”命令按钮，则在文本框和顺序文件中输出素数和素数的和；单击“结束”命令按钮，结束程序的运行。运行结果如图所示。7实验报告主要包括实验目的、实验内容、实验要求、界面设计（包括各对象及其属性设置）、源程序代码、运行结果（要求截图）、实验中存在的问题、体会和思考等内容。一 界面设计二 属性设置控件属性属性值说明Command1Caption产生随机整数Command2Caption找奇偶数并排序Command3Caption找素数并求和Command4Capt

5、ion结束Text1MultlineTrue让文本框能多行输出Label1CaptionLabel1BorderStyle1Label2CaptionLabel3CaptionLabel4CaptionPicture三 程序代码窗体模块代码：Option Base 1Dim a(), jssz(), ossz(), os, js, osgs, jsgs, N, m, sum, xPrivate Sub Command1_Click()N = InputBox(请输入N（20-100）：)ReDim Preserve a(N)Print N + 个随机整数;PrintFor i = 1 To N

6、 Randomize a(i) = Int(Rnd * 90 + 10) Print a(i); If i Mod 10 = 0 Then Print End IfNext iEnd SubPrivate Sub Command2_Click()For i = 1 To N If a(i) Mod 2 = 0 Then os = os + 1 osgs = os ReDim Preserve ossz(os) ossz(os) = a(i) Else js = js + 1 jsgs = js ReDim Preserve jssz(js) jssz(js) = a(i) End IfNext

7、 iCall mppos(ossz, osgs)Label3.Caption = Str(osgs) + 个偶数For i = 1 To osgs Label1.Caption = Label1.Caption & ossz(i) & If i Mod 10 = 0 Then Label1.Caption = Label1.Caption & vbCrLf End IfNext iCall xzpjs(jssz, jsgs)Label2.Caption = Str(jsgs) + 个奇数For i = 1 To jsgsPicture1.Print jssz(i); If i Mod 10 =

8、 0 Then Picture1.Print End IfNext iEnd SubPrivate Sub Command3_Click()For i = 1 To N x = a(i) If ss(x) Then m = m + 1 Text1.Text = Text1.Text & a(i) & If m Mod 10 = 0 Then Text1.Text = Text1.Text & vbCrLf End If sum = sum + a(i) End IfNext iLabel4.Caption = m & 个素数Text1.Text = Text1.Text & vbCrLfTex

9、t1.Text = Text1.Text & 素数的和是： & Str(sum)End SubPrivate Sub Command4_Click() EndEnd Sub标准模块代码：Public Function ss(y) As Booleanss = Falsep = 2Do While p jssz(xu) Then t = jssz(js) jssz(js) = jssz(xu) jssz(xu) = t End If Next xuNext jsEnd SubPublic Sub mppos(ossz(), osgs)For os = osgs To 2 Step -1 For

10、xu = 1 To os - 1 If ossz(xu) ossz(xu + 1) Then t = ossz(xu) ossz(xu) = ossz(xu + 1) ossz(xu + 1) = t End If Next xuNext osEnd Sub四 运行结果（一）运行前的界面（二）产生随机数按钮（三）产生随机数（四）找奇偶数并排序（五）找素数并求和（六）单击结束五 实验心得体会VB在我心目中一直感觉是一门特别高深的课程，经过这段时间的学习我对这门课程有了新的认识，我觉得这门课特别有趣，像是在玩游戏一样，需要费好大劲才能调试好一个复杂一点的程序。在完成这个实验题的过程中我遇到了许多问题，刚开始自己根本无从下手，感觉这道题特别难，在上机调试前我的程序代码写的错误很多，在听了老师的讲解后我改动了我原来的程序代码，在课余时间我又反复运行调试了我的程序，还找了同学来帮忙，最后终于完成了。在事后我想原来只要我愿意去完成它，无论有什么样的困难我们都可以去克服，自己欠缺的知识还很多，我需要继续努力。