内蒙古工业大学VB实验报告材料(找出素数奇数偶数排序)副本

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

2、材或软件环境3 实验步骤、程序调试方法4 实验数据处理及结果分析5 实验中存在的问题6 体会及思考题4、 报告撰写时，要求格式规、书写整齐预习报告成绩:指导教师审核（签名）：月 日预习报告、程序所需包含的对象（如下表）。一.所包括的对象名称数量窗体）FornOFor ml1按钮(,C ornmond)Commo nd 11CojTuwndS1. _CoinmondS1CDinmond.41标受（LaT>el）Label1_1Labal21LabelS1Lab巳141文本框（text）text-11图片框（©icTurg）icturel1、窗体上的布局（预习图）（预习图）、属性和

3、属性值（如下表）（名称）F ormlOption找奇偶数和盍数并进行排序和求和Fcmt 宋体常规小五C名称）ConnondlCoimorLd2CoirarondSCcimmonMCaption产生随机教我奇偶敌并排序找素数并求和结束Font宋体常规小五宋体常规小五宋体常规小五宋体常规小五（名称）LabelLabelsLabslSLabel4Caption刘威制FFont宋体常规小五宋体常规小五宋体常规小五宋体常规、五（名称）text 1CaptionFont宋体常规小五（名称） CaptionjsicturelFont宋体常规小五四、预编程序代码（手写）实验报告成绩： 指导教师审核（签名）：

4、年 月 日实验报告一、实验目的学会综合运用三种基本控制结构、数组和过程进行程序设计的方法。二、实验容利用随机函数产生 n （20wnwi00）个两位整数，找出其中的奇数、偶数和素数，并将奇数按升序排 序，将偶数按降序排序，将素数求和。三、实验要求1 .将随机产生的n个整数存入一维数组中，按每行10个数输出到窗体上。2 .将找出的奇数和偶数分别存入2个一维动态数组中。用 Sub过程分别对奇数和偶数进行排序，奇数用选择法排序，偶数用冒泡法排序，然后在调用过程，将排好序的奇数和偶数按每行10个数分别输出到图片框和标签中。3 .用Function过程判断随机整数是否为素数。在调用过程，将找出的素数（按

5、每行10个数）及求和结果输出到文本框中。4 . Sub过程和Function过程均建立在标准模块中。5 .界面可参照如图所示的运行结果进行设计，要求在窗体上添加的各个控件布局合理、大小适中。 对象属性的设置要求用表格填写，包括对象名、属性名、属性值和说明（可参照前面章节的实验容）。6 .程序运行后，若在输入对话框中输入随机产生的整数个数n为50,单击“产生随机整数”命令按钮，则在窗体上输出50个随机整数；单击“找奇偶数并排序”命令按钮，则分别在图片框和标签中输出排好序的奇数和偶数；单击“找素数并求和”命令按钮，则在文本框和顺序文件中输出素数和素数的和； 单击“结束”命令按钮，结束程序的运行。运

6、行结果如图所示。7 .实验报告主要包括实验目的、实验容、实验要求、界面设计（包括各对象及其属性设置）、源程序代码、运行结果（要求截图）、实验中存在的问题、体会和思考等容。四、我设计的界面如下图（实验图 2012-01）所示：以也岂*s和未哀抖迎打排才和讯却-0 I站票(实验图2012-01)五、我设计的界面中各控件属性及属性值如下五个表格所示:（名称）F ormlOption找奇偶数和毒数并迸行排序和求和Fmt宋体常规小无（名称）Conmortdl Caption产生随机数 F ont宋体常摭小五Coimond2我奇偶徵并排序 宋体常规小五Coiraronil3 找素数并求和 宋体常规小五Co

7、mniDnd4巧丰 宋体常规小五（名称）LabelCaptionF ont宋体常规小五Labels宋体常规小五Labsl3宋体常规小五Label4 刘威制作 宋体常规小五（名称）：teitl： CaptionFont宋体常规小五（名称）picturel CaptionFmt宋体常规小五 六、我设计的源程序代码如下:Dim a%(50), b%(), n%, i%, j%, t%Private Sub Command1_Click()Print "50个随机整数"For i = 1 To 50a(i) = Int(Rnd * 90 + 10)Print a(i);If i M

8、od 10 = 0 Then PrintNext iEnd SubPrivate Sub Command2_Click() For i = 1 To 50If a(i) Mod 2 = 1 Then n = n + 1ReDim Preserve b(n)b(n) = a(i)End IfNext iFor i = 1 To n - 1For j = i + 1 To nIf b(i) > b(j) Thent = b(i) b(i) = b(j) b(j) = tEnd IfNext jNext iPrint n; "个奇数"For i = 1 To nPictur

9、e1.Print b(i);If i Mod 10 = 0 Then Picture1.PrintNext iFor i = 1 To 50If a(i) Mod 2 = 0 Then m = m + 1ReDim Preserve b(m) b(m) = a(i)End IfNext iFor i = 1 To n - 1For j = i + 1 To mIf b(i) > b(j) Then t = b(i) b(i) = b(j) b(j) = tEnd IfNext jNext iLabel3.Caption = Label3.Caption & m & &qu

10、ot;个偶数 "For i = 1 To m - 1For j = 1 To m - 1If b(j) < b(j + 1) Then t = b(j) b(j) = b(j + 1) b(j + 1) = tEnd IfNext jNext iFor i = 1 To mLabel1.Caption = Label1.Caption & " " & b(i) & " "If i Mod 10 = 0 Then Label1.Caption = Label1.Caption & vbCrLfNext iEn

11、d SubFunction fnprime(m As Integer)Dim k As Integer, f As Booleanf = TrueFor k = 2 To m - 1If m Mod k = 0 Thenf = FalseEnd IfNext kfnprime = fEnd FunctionPrivate Sub Command3_Click()Dim b As Integer, c As IntegerFor i = 1 To nIf fnprime(a(i) Thenc = c + 1b = b + a(i)Text1.Text = Text1.Text + Str(a(i

12、)If c Mod 20 = 0 Then Text1.Text = Text1.Text & vbCrLfEnd IfNext iText1.Text = Text1.Text & vbCrLf & " 素数之和是：" & bLabel2.Caption = "素数的个数是：" & cEnd SubPrivate Sub Command4_Click()EndEnd SubPrivate Sub Form_Load()End Sub七、我设计程序的调试和运行结果展示如下:（实验图2012-4）.当点击“图2012

13、-02）所示:时显示结果如下图（实验明物14 3 5 m L 5 S 9 3 d 3 B 5B wu I 7 I占步弓 L科 S/ZL3 a 9B D p F 0 3 5 1 7 m2 11 才，三J& 一163911 7 4，Q &立olbn 域穹NXIF制腻10时显示结果如下图（实验.当点击“图2012-03）所示:依克:等，和素.将升指二字序制末和sfl'-力ZGI.alj r -二 1 E 弓9 3 3彳而15胃98配3r4n铜历r.1L d _4±q 1 E.£I N 审r £亡二 1 9 3- 3 I需教阳卿来都隔现而来而掷 的

14、肥由渊曳要弘加和14 .1 H监中:忖 力作时显示结果如下图（实验.当点击“图2012-04）所示:（实验图2012-04）.£.¥ F- 4 7" d- JI 5- I 中托Rsl 牛出巾ffltj SJJ. 后 h- 7 L 冷总土Is j-d - - = 1 s 3 4 k- 9 ta£ 1 : E I 3 0 G 9-产生旭加敢下 4 3 口 机 E /?d H 箭 附一工FK-1十 dJ.?-L4HK " S3.美陛 35733 3 R ? T Q- 1 3 IF 3电 T S 9- I A9 一: I £u A SB 叵F

15、 1J TJ. 14 fl- T FT s- -挟花邓壮可匚班不却*中和<*1 -n Pfi Fft M 7 TH 用 Fl fitSt Ci 56 5E dl H te 50 ：4壮野狞l： ae is v不模KH片jiJP 才酢.当点击时：结束程序八、实验中存在的问题.实验中出现如右图(实验图2012-6)所示的 错误提醒。经“帮助”知这是在For-Next语 句中的“If”语句后没有对应的“End If”造成（实验图2012-06）.实验中曾将“b()”数组定义在了通用中，造成在找素数时的错误。经 老师点拨将“b()”数组定义在相应的Private下，便解决了素数输出的 错误。.实

16、验中没有对“Textl” “Text2”文本框的属性“MultiLine”属性值进行改变致使随在源代码中定义了换行却不能显示出来(实验图2012-7) 在同学的提醒下将“MultiLine”属性值设置为“True”，之后再运行程序就 实 现 了 每 行 10个 数 字 的 显九、 体会和思考在这次高级语言V B编程实验中我出的不少错误，也有一定的成就感。其 实V B 语 言并不是一 个很难的 学 科，但 它 能考验 一 个 人 的学 习 态 度与对细节的把握程度。只有拥有良好的学习态度才能学会V B的编程技巧， 只 有 平 时认 真 听 理论课，并 在上机操 作 课时认 真 练习才 有 可 能 学会 VB，学 好 V B。V B语言的学习不仅仅与平时的学习态度有关，在一定程度也与一个 人的 思维模式有关，只有具备良好的思维模式，才能快 速准确 的