vb实验报告模板完整版.docVIP

内蒙古工业大学信息工程学院 实 验 报 告 课程名称： 实验名称： 实验类型： 验证性□ 综合性 设计性□ 实验室名称： 班级： 学号： 姓名： 组别： 同组人： 成绩： 实验日期： 实验报告撰写要求 实验前用预习报告纸撰写预习报告，预习报告包括以下内容 实验目的 实验用仪器设备、器材或软件环境 实验原理、方案设计、程序框图、预编程序等 实验过程中需要记录的实验数据表格 实验过程中，要认真观察，仔细记录 完成实验后用实验报告纸撰写实验报告，包括以下内容 仪器设备型号及编号 实验器材或软件环境 实验步骤、程序调试方法 实验数据处理及结果分析 实验中存在的问题 体会及思考题 报告撰写时，要求格式规范、书写整齐 预习报告成绩： 指导教师审核（签名）： 年 月 日 预习报告 （一）实验目的 学会综合运用选择结构、循环结构、数组和过程进行程序设计的方法。 （二）实验内容 利用随机函数产生80个10～99之间的随机整数，将其中的偶数按由小到大的顺序排列并输出，将奇数按由大到小的顺序排列并输出；在产生的80个随机整数中，找出其中的素数，并将这些素数求和。 （三）实验要求 1．将随机产生的80个整数存入数组，按每行10个数输出到窗体或文本框中。 2．偶数和奇数也分别存入数组，将排好序的偶数和奇数分别输出到窗体或两个文本框中。 3．用Sub子过程或Function函数过程判断随机整数是否为素数。 410个数在窗体或文本框中输出。 5．将素数的个数及求和结果输出到窗体或文本框中。 6．界面由学生自行设计。 （四）流程图 （五）属性设置表格 （六）程序代码 Dim a 1 To 80 As Integer Private Sub Command1_Click Randomize For i 1 To 80 a i Int 90 * Rnd + 10 Text1 Text1 a i If i Mod 10 0 Then Text1 Text1 Chr 13 Chr 10 Next End Sub Private Sub Command2_Click Dim s1, s2 As String Randomize Dim a 80 As Integer For i 1 To 80 a i 10 + Int Rnd * 90 Next i For i 1 To 79 For j i + 1 To 80 If a i a j Then t a i : a i a j : a j t Next j Next i n 0 For i 1 To 80 If a i Mod 2 0 Then s1 s1 + Str a i n n + 1 If n Mod 10 0 Then s1 s1 + Chr$ 13 + Chr$ 10 End If Next i Text2.Text s1 n 0 For i 80 To 1 Step -1 If a i Mod 2 0 Then s2 s2 + Str a i n n + 1 If n Mod 10 0 Then s2 s2 + Chr$ 13 + Chr$ 10 End If Next i Text3.Text s2 End Sub Private Function check m As Integer As Boolean Dim k As Integer, f As Integer f True For k 2 To m - 1 If m Mod k 0 Then f False End If Next k check f End Function Private Sub Command3_Click Dim m As Integer For i 1 To 80 If check a i Then n n + 1: a n a i Next For i 1 To n m m + a i Text4 Text4 a i If i Mod 10 0 Then Text4 Text4 Chr 13 Chr 10 Next Label1.Caption 素数的个数: n Chr 10 素数之和： m End Sub Private Sub Form_Load End Sub 实验报告成绩： 指导教师审核（签名）： 年 月 日 实验报告 1.实验报告名称：选择、循环、数组和过程综合程序设计 2.实验原理: 1．将随机产生的80个整数