[理科实验报告精品]选择、循环、数组和过程综合程序设计 实验报告.doc

信息工程学院实 验 报 告课程名称： 高级语言程序设计（VB） 实验名称：选择、循环、数组和过程综合程序设计实验类型： 验证性 综合性 设计性实验室名称： 校计算中心 班级： 会计10-1 学号：姓名： 组别： 同组人： 成绩： 实验日期： 2011-6-14 预习报告成绩： 指导教师审核（签名）： 年 月 日预习报告1. 实验目的学会综合运用选择结构，循环结构，数组和过程进行程序设计的方法2. 实验用仪器设备、器材或软件环境 计算机机房学生电脑，图书馆电子阅历室3. 实验原理 A产生随机数函数使用B筛选其中奇数方法C. 筛选其中素数方法 D.数列排序使用方法E条件语句的使用4. 方案设计a 产生随机数，并利用循环语句将其存入数组 b运用条件语句进行奇数判断，将其存入数组 c编写一个function过程，作用是判断是否是素数 d 利用print 方法输入到form上5.实验环境Windows 7 Microsoft Visual Basic 6.0 中文版6.预编的程序Dim a(80) As Integer, b() As Integer, c() As Integer, d() As Integer, ss() As IntegerPrivate Sub Command1_Click()Dim k%, i&Picture1.ClsRandomizek = 0For i = 1 To 80 a(i) = Int(90 * Rnd + 10) Picture1.Print a(i); k = k + 1 If k = 10 Then Picture1.Print k = 0 End IfNext iEnd SubPrivate Sub Command2_Click()Dim i%, n%, k%, j%, q%, h%, l%Picture2.ClsFor i = 1 To 80 If a(i) Mod 2 <> 0 Then n = n + 1 End IfNext iReDim b(n)For i = 1 To 80 If a(i) Mod 2 <> 0 Then k = k + 1 b(k) = a(i) End IfNext iFor 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 jNext iFor i = 1 To n If b(i) <> 0 Then Picture2.Print b(i); q = q + 1 If q Mod 10 = 0 Then Picture2.Print End IfNext iEnd SubPublic Function ssh(n%) As BooleanDim i%For i = 2 To Sqr(n) If n Mod i = 0 Then ssh = False: Exit For End IfNext iIf i > Sqr(n) Then ssh = TrueEnd IfEnd FunctionPrivate Sub Command3_Click()Dim i%, k%, n%, h%, l%Picture3.ClsFor i = 1 To UBound(b) If ssh(b(i) Then Picture3.Print b(i); k = k + 1 If k Mod 10 = 0 Then Picture3.Print End IfNext iReDim ss(k)For i = 1 To UBound(b) If ssh(b(i) Then n = n + 1 ss(n) = b(i) End IfNext iEnd SubPrivate Sub Command4_Click()EndEnd Sub7. 程序框图开始判断数组a（1 to 80）是否为奇数存入数组s(1 to 80)中排序并输出数组s()判断数组a（1 to 80）是否为素数输出符合条件的元素结束产生随机数组a(1 to 80)实验报告成绩： 指导教师审核（签名）： 年 月 日实验报告1.实验目的学会综合运用选择结构，循环结构，数组和过程进行程序设计的方法2.实验内容利用随机函数产生80个1099之间的随机整数，将其中的奇数按由小到大的顺序排列并输出；在产生的80个随机整数中，找出其中的素数。3.实验要求1将随机产生的80个整数存入数组，按每行10个数输出到窗体或文本框中。2奇数也存入另一个数组，将排好序的奇数输出到窗体或文本框中。3用Sub子过程或Function函数过程判断随机整数是否为素数。4将素数按每行10个数在窗体或文本框中输出。5界面由学生自行设计。4.算法设计1. 种下随机种子，利用Int（Rnd*90+10）产生10-99)的随机数，并利用循环语句将其存入数组a(1 to 80)2. 运用条件语句进行奇数判断，从80个随机数中选出奇数并将其存入数组s（1 to 80）3. 编写一个function过程，作用是判断是否是素数，并调用function5.注意事项1. 数组 a(),s()为模块级变量2. 注意格式的输出，运用；紧跟形式和 print换行6.界面设计只需一个窗体不需要其他控件用最简单7.程序框图开始判断数组a（1 to 80）是否为奇数存入数组s(1 to 80)中排序并输出数组s()判断数组a（1 to 80）是否为素数输出符合条件的元素结束产生随机数组a(1 to 80)8.属性设置所有属性均不改变9.程序清单Dim a(1 To 80) As Integer '模块级变量Dim s(1 To 80) As Integer '模块级变量Function ss(m As Integer) As Boolean '定义函数Dim p As Integer, f As Booleanf = TrueFor p = 2 To m - 1If m Mod p = 0 Then '判断是否是素数f = FalseEnd IfNext pss = fEnd FunctionPrivate Sub Form_Load()Randomize '种下随机种子i = 1Doa(i) = Int(Rnd * 90 + 10)i = i + 1Loop Until (i > 80)End SubPrivate Sub Form_click()Dim n As Integern = 1i = 1DoIf a(i) Mod 2 <> 0 Then '判断是否为奇数s(n) = a(i) '存入数组s（）中n = n + 1End Ifi = i + 1Loop While (i <= 80)Print "随机数组为"i = 1DoPrint a(i);If i Mod 10 = 0 ThenPrintEnd Ifi = i + 1Loop While (i <= 80)For j = 1 To n - 1For k = j + 1 To n - 1 '选择法排序If s(j) > s(k) Then t = s(j)s(j) = s(k)s(k) = t End If Next kNext jPrint "奇数排序为"k = 1DoPrint s(k);If k Mod 10 = 0 ThenPrintEnd Ifk = k + 1Loop While (k <= n - 1)PrintPrint "素数为"i = 1DoIf ss(a(i) ThenPrint a(i);q = q + 1If q Mod 10 = 0 Then '调用function ss()函数PrintEnd IfEnd Ifi = i + 1Loop Until (i > 80)End Sub9.运行结果10.实验分析及总结一.实验中最常遇到的问题是“下标越界”问题 解决方法：按F8进行逐句运行，找到出现下表越界问题的语句进行修改！11.参考文献1电子工业出版社.VB高级语言程序设计（第二版）2高等教育出版社.C语言程序设计（2010版）9