《内蒙古工业大学vb实验报告(找出素数奇数偶数排序)副本.doc》由会员分享，可在线阅读，更多相关《内蒙古工业大学vb实验报告(找出素数奇数偶数排序)副本.doc（14页珍藏版）》请在三一办公上搜索。
1、内蒙古工业大学信息工程学院实 验 报 告课程名称： 高级语言程序设计（VB） 实验名称：选择、循环、数组和过程综合程序设计实验类型： 验证性 综合性 设计性实验室名称： 校计算中心 班级：安全13 学号：201320518008姓名： 刘威 组别： 同组人： 成绩： 实验日期： 2014年5月 实验报告撰写要求一、 实验前用预习报告纸撰写预习报告，预习报告包括以下内容1 实验目的2 实验用仪器设备、器材或软件环境3 实验原理、方案设计、程序框图、预编程序等4 实验过程中需要记录的实验数据表格二、 实验过程中，要认真观察，仔细记录三、 完成实验后用实验报告纸撰写实验报告，包括以下内容1 仪器设备
2、型号及编号2 实验器材或软件环境3 实验步骤、程序调试方法4 实验数据处理及结果分析5 实验中存在的问题6 体会及思考题四、 报告撰写时，要求格式规范、书写整齐 预习报告成绩： 指导教师审核（签名）： 年 月 日预习报告一、程序所需包含的对象（如下表）。二、窗体上的布局（预习图）。（预习图）三、属性和属性值（如下表）。四、预编程序代码（手写）。实验报告成绩： 指导教师审核（签名）： 年 月 日实验报告一、实验目的学会综合运用三种基本控制结构、数组和过程进行程序设计的方法。二、实验内容利用随机函数产生n（20n100）个两位整数，找出其中的奇数、偶数和素数，并将奇数按升序排序，将偶数按降序排序，
3、将素数求和。三、实验要求1将随机产生的n个整数存入一维数组中，按每行10个数输出到窗体上。2将找出的奇数和偶数分别存入2个一维动态数组中。用Sub过程分别对奇数和偶数进行排序，奇数用选择法排序，偶数用冒泡法排序，然后在调用过程内，将排好序的奇数和偶数按每行10个数分别输出到图片框和标签中。3用Function过程判断随机整数是否为素数。在调用过程内，将找出的素数（按每行10个数）及求和结果输出到文本框中。4Sub过程和Function过程均建立在标准模块中。5界面可参照如图所示的运行结果进行设计，要求在窗体上添加的各个控件布局合理、大小适中。对象属性的设置要求用表格填写，包括对象名、属性名、属
4、性值和说明（可参照前面章节的实验内容）。6程序运行后，若在输入对话框中输入随机产生的整数个数n为50，单击“产生随机整数”命令按钮，则在窗体上输出50个随机整数；单击“找奇偶数并排序”命令按钮，则分别在图片框和标签中输出排好序的奇数和偶数；单击“找素数并求和”命令按钮，则在文本框和顺序文件中输出素数和素数的和；单击“结束”命令按钮，结束程序的运行。运行结果如图所示。7实验报告主要包括实验目的、实验内容、实验要求、界面设计（包括各对象及其属性设置）、源程序代码、运行结果（要求截图）、实验中存在的问题、体会和思考等内容。四、我设计的界面如下图（实验图2012-01）所示：（实验图2012-01）五
5、、我设计的界面中各控件属性及属性值如下五个表格所示：六、我设计的源程序代码如下：Dim a%(50), b%(), n%, i%, j%, t%Private Sub Command1_Click()Print 50个随机整数 For i = 1 To 50 a(i) = Int(Rnd * 90 + 10) Print a(i); If i Mod 10 = 0 Then Print Next i End SubPrivate Sub Command2_Click() For i = 1 To 50 If a(i) Mod 2 = 1 Then n = n + 1 ReDim Preserv
6、e b(n) b(n) = a(i) End If Next i For i = 1 To n - 1 For j = i + 1 To n If b(i) b(j) Then t = b(i) b(i) = b(j) b(j) = t End If Next j Next i Print n; 个奇数 For i = 1 To n Picture1.Print b(i); If i Mod 10 = 0 Then Picture1.Print Next i For i = 1 To 50 If a(i) Mod 2 = 0 Then m = m + 1 ReDim Preserve b(m)
7、 b(m) = a(i) End If Next i For i = 1 To n - 1 For j = i + 1 To m If b(i) b(j) Then t = b(i) b(i) = b(j) b(j) = t End If Next j Next i Label3.Caption = Label3.Caption & m & 个偶数 For i = 1 To m - 1 For j = 1 To m - 1 If b(j) b(j + 1) Then t = b(j) b(j) = b(j + 1) b(j + 1) = t End If Next j Next i For i
8、 = 1 To m Label1.Caption = Label1.Caption & & b(i) & If i Mod 10 = 0 Then Label1.Caption = Label1.Caption & vbCrLf Next i End SubFunction fnprime(m As Integer) Dim k As Integer, f As Boolean f = True For k = 2 To m - 1 If m Mod k = 0 Then f = False End If Next k fnprime = f End FunctionPrivate Sub C
9、ommand3_Click()Dim b As Integer, c As Integer For i = 1 To n If fnprime(a(i) Then c = c + 1 b = b + a(i) Text1.Text = Text1.Text + Str(a(i) If c Mod 20 = 0 Then Text1.Text = Text1.Text & vbCrLf End If Next i Text1.Text = Text1.Text & vbCrLf & 素数之和是： & bLabel2.Caption = 素数的个数是： & cEnd SubPrivate Sub
10、Command4_Click()EndEnd SubPrivate Sub Form_Load()End Sub七、我设计程序的调试和运行结果展示如下：. 当点击“”时显示结果如下图（实验图2012-02）所示：（实验图2012-02）.当点击“”时显示结果如下图（实验图2012-03）所示：（实验图2012-03）.当点击“”时显示结果如下图（实验图2012-04）所示：（实验图2012-04）.当点击“”时：结束程序。八、实验中存在的问题.实验中出现如右图（实验图2012-6）所示的错误提醒。经“帮助”知这是在ForNext语句中的“If”语句后没有对应的“End If”造成的。 （实验图
11、2012-06）.实验中曾将“b()”数组定义在了通用中，造成在找素数时的错误。经老师点拨将“b()”数组定义在相应的Private下，便解决了素数输出的错误。.实验中没有对“Text1”“Text2”文本框的属性“MultiLine”属性值进行改变致使随在源代码中定义了换行却不能显示出来（实验图2012-7）。在同学的提醒下将“MultiLine”属性值设置为“True”，之后再运行程序就实现了每行10个数字的显九、 体会和思考在这次高级语言V B编程实验中我出的不少错误，也有一定的成就感。其实V B语言并不是一个很难的学科，但它能考验一个人的学习态度与对细节的把握程度。只有拥有良好的学习态
12、度才能学会V B的编程技巧，只有平时认真听理论课，并在上机操作课时认真练习才有可能学会V B，学好V B。V B语言的学习不仅仅与平时的学习态度有关，在一定程度也与一个人的思维模式有关，只有具备良好的思维模式，才能快速准确的编写V B程序。但我认为这并不是决定性因素。还有一个最最重要的：那就是注重细节。俗话说：“细节决定成败”。在VB语言的程序编写过程中这句话更是体现的淋漓尽致。忘记定义数据类型、“If”后忘记填写“End If”、“ForNext”语句的残缺不全、源代码的顺序、属性值的非准确定义等等，看似微不足道的细节问题，极容易被忽略。然而，这往往决定着程序最终的成败。这次实验感受多多，体会多多。我将会把这些宝贵的经验运用到学习生活的其他领域。不断完善自己，让自己在学习生活中不断成长。
