内蒙古工业大学VB实验作业.doc

内蒙古工业大学信息工程学院实 验 报 告课程名称： 高级语言程序设计（VB） 实验名称：选择、循环、数组和过程综合程序设计实验类型： 验证性 综合性 设计性实验室名称： 校计算中心 班级： * 学号： *姓名： * 组别： * 同组人： * 成绩： 实验日期： 2013-5-23 2012-5-30 实验报告撰写要求一、 实验前用预习报告纸撰写预习报告，预习报告包括以下内容1 实验目的2 实验用仪器设备、器材或软件环境3 实验原理、方案设计、程序框图、预编程序等4 实验过程中需要记录的实验数据表格二、 实验过程中，要认真观察，仔细记录三、 完成实验后用实验报告纸撰写实验报告，包括以下内容1 仪器设备型号及编号2 实验器材或软件环境3 实验步骤、程序调试方法4 实验数据处理及结果分析5 实验中存在的问题6 体会及思考题四、 报告撰写时，要求格式规范、书写整齐内蒙古工业大学信息工程学院预习报告成绩： 指导教师审核（签名）： 年 月 日预习报告一、实验目的 学会运用选择结构，循环结构，数组，过程及综合运用进行程序设计的方法二、实验用仪器设备、器材或软件环境 电子阅览室普通台式电脑、VB语言程序设计（第三版）、Visual Basic程序设计教程；Windows XP；Microsoft Visual Basic 6.0标准环境下三、实验原理A产生随机数函数使用B筛选其中奇偶数的方法 C. 筛选其中素数的方法 D. 数列排序使用方法 E条件语句的使用F数组的使用方法G过程的使用方法四、方案设计l 随机产生90个随机整数，并利用循环语句将其存入数组中l 运用条件语句进行奇数和偶数的判断，并将其存入不同的数组中l 运用Sub子过程，对奇数进行降序，偶数进行升序排序l 运用function过程，判断是否为素数，并将其存入数组中l 用累计求和法将素数个数和素数和求出五、程序框图判断数组a(I to 90)是否为偶数产生随机数组a (1 to 90)开始否是升序降序将其放入数组s(90)中，并输出将其放入数组t(90)中，并输出判断数组啊（1 to 90）是否为素数是将其存入数组sz（1 to 90）中，并输出将所得到的素数的计数并求和输出素数的个数和素数的和结束六、预编程序(手写)实验报告成绩： 指导教师审核（签名）： 年 月 日实验报告一、实验目的学会综合运用选择结构、循环结构、数组和过程进行程序设计的方法。二、实验内容利用随机函数产生90个1099之间的随机整数，将其中的偶数按由小到大的顺序排列，将奇数按由大到小的顺序排列；在产生的90个随机整数中，找出其中的素数，并将这些素数求和。三、实验要求1将随机产生的90个整数存入一维数组中，按每行15个数输出到窗体上。2将找出的偶数和奇数也分别存入2个一维数组中。用Sub子过程分别对偶数和奇数进行排序，然后在主调过程内，将排好序的偶数和奇数按每行15个数分别输出到2个图片框中。3用Function函数过程判断随机整数是否为素数。在主调过程内，将找出的素数按每行20个数在文本框中输出，将素数的个数及求和结果也输出到同一个文本框中。4界面可参照如图所示的运行结果进行设计，要求各个控件在窗体上布局合理、大小适中。对象属性的设置要求用表格填写，包括用到的对象名、属性名和属性值。5运行程序后，单击“产生随机整数”按钮，则在窗体上输出90个随机整数；单击“找奇偶数并排序”按钮，则分别在2个图片框中输出已经排好序的偶数和奇数；单击“找素数并求和”按钮，则在文本框中输出素数、素数的个数及素数的和；单击“结束”按钮，结束程序的运行。四、实验器材或软件环境电子阅览室普通台式电脑、Windows XP、Microsoft Visual Basic 6.0标准环境下五、实验步骤1、在VB环境中，建立新的窗体，在窗体上添加2个图片框、2个标签、1个文本框、4个命令按钮 2设置各控件属性，如下表控件名称属性属性值Command1caption产生随机整数Command2caption找奇偶数并排序Command3caption找素数并求和Command4caption结束Label1multilinetrue六、编写代码Option Base 1Dim a(1 To 90) As IntegerDim s() As Integer, t() As IntegerPrivate Sub Command1_Click()ShowPrint 90个随机整数：Randomizek = 0For i = 1 To 90a(i) = Int(90 * Rnd + 10)Print a(i);k = k + 1If k Mod 15 = 0 Then PrintNext iPrintEnd SubPrivate Sub Command2_Click()ReDim s(90), t(90)For i = 1 To 90If a(i) Mod 2 = 0 Thenn = n + 1s(n) = a(i)Elsem = m + 1t(m) = a(i)End IfNext iReDim Preserve s(n)ReDim Preserve t(m)Call paixu1(i, n, j)For i = 1 To nLabel1 = n & 个偶数：Picture1.Print s(i);If i Mod 15 = 0 Then Picture1.PrintNext iCall paixu2(i, m, j)For k = 1 To mLabel2 = m & 个奇数：Picture2.Print t(k);If k Mod 15 = 0 Then Picture2.PrintNext kEnd SubSub paixu1(i, n, j)For i = 1 To n - 1k = iFor j = i + 1 To nIf s(k) s(j) Thenk = jEnd IfNext jp = s(k): s(k) = s(i): s(i) = pNext iEnd SubSub paixu2(i, m, j)For i = 1 To m - 1k = iFor j = i + 1 To mIf t(k) t(j) Thenk = jEnd IfNext jq = t(k): t(k) = t(i): t(i) = qNext iEnd SubFunction fnprime(m As Integer) As BooleanDim 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 sum As Integer, sz(1 To 90) As Integer, n As Integer Text1.Text = n = 0 For i = 1 To 90 If fnprime(a(i) Then n = n + 1 sz(n) = a(i) End If Next i sum = 0 For i = 1 To n sum = sum + sz(i) Text1.Text = Text1.Text & Chr(32) & sz(i) If i Mod 20 = 0 Then Text1.Text = Text1.Text & Chr(13) + Chr(10) End If Next iText1.Text = Text1.Text & Chr(13) + Chr(10) & 素数的个数是： & n & Chr(13) + Chr(10)Text1.Text = Text1.Text & Chr(10) + Chr(13) & 素数的和是： & sumEnd SubPrivate Sub Command4_Click()EndEnd Sub七、程序调试如若无法运行则中止，重新调试代码。八、数据处理及分析结果按F5键运行程序，运行后界面如下：九、实验中存在的问题 利用条件语句找素数时，只出现一个数；调用sub子过程排序时，如果不加参数，则无法调用；素数求和时，求和结果与实际结果不符。十、体会及思考在这次实验中，我遇到了各种各样的问题，最后在老师和同学的帮助下解决了。通过这次实验让我体会很深。我发现