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

1、信息工程学院实 验 报 告课程名称： 高级语言程序设计（vb） 实验名称：选择、循环、数组和过程综合程序设计实验类型： 验证性 综合性 设计性实验室名称： 校计算中心 班级： 会计10-1 学号：姓名： 组别： 同组人： 成绩： 实验日期： 2011-6-14 预习报告成绩： 指导教师审核（签名）： 年 月 日预习报告1. 实验目的学会综合运用选择结构，循环结构，数组和过程进行程序设计的方法2. 实验用仪器设备、器材或软件环境 计算机机房学生电脑，图书馆电子阅历室3. 实验原理 a产生随机数函数使用b筛选其中奇数方法c. 筛选其中素数方法 d.数列排序使用方法e条件语句的使用4. 方案设计a

2、产生随机数，并利用循环语句将其存入数组 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

3、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

4、+ 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

5、 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(

6、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.实验内容利用随机函数产生

7、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

8、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 模块级变

9、量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

10、 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 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 if