选择、循环、数组和过程综合程序设计 实验报告.docVIP

信息工程学院 实 验 报 告 课程名称： 实验名称： 实验类型： 验证性□ 综合性 设计性□ 实验室名称： 班级： 学号： 姓名： 组别： 同组人： 成绩： 实验日期： 预习报告成绩： 指导教师审核（签名）： 年 月 日 预习报告 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 Integer Private Sub Command1_Click() Dim k%, i Picture1.Cls Randomize k = 0 For 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 If Next i End Sub Private Sub Command2_Click() Dim i%, n%, k%, j%, q%, h%, l% Picture2.Cls For i = 1 To 80 If a(i) Mod 2 0 Then n = n + 1 End If Next i ReDim b(n) For i = 1 To 80 If a(i) Mod 2 0 Then k = k + 1 b(k) = 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 For 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 If Next i End Sub Public Function ssh(n%) As Boolean Dim i% For i = 2 To Sqr(n) If n Mod i = 0 Then ssh = False: Exit For End If Next i If i Sqr(n) Then ssh = True End If End Function Private Sub Command3_Click() Dim i%, k%, n%, h%, l% Picture3.Cls For 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 If Next i ReDim ss(k) For i = 1 To UBound(b) If ssh(b(i)) Then n = n + 1 ss(n) = b(i) End If Next i End Sub Private Sub Command4_Click() End End Sub 7. 程序框图 实验报告成绩： 指导教师审核（签名）： 年 月 日 实验报告 1.实验目的 学会综合运用选择结构，循环结构，数组和过程进行程序设计的方法 2.实验内容 利用随机函数产生0个