选择循环数组和过程综合程序设计.docx

1、选择循环数组和过程综合程序设计内蒙古工业大学信息工程学院实 验 报 告课程名称： 高级语言程序设计（VB） 实验名称：选择、循环、数组和过程综合程序设计实验类型： 验证性 综合性 设计性实验室名称： 校计算中心 班级： 学号：姓名： 组别： 同组人： 成绩： 实验日期： 预习报告成绩： 指导教师审核（签名）： 年 月 日预习报告（一）实验目的学习综合运用选择结构、循环结构、数组和过程进行程序设计的方法（二）实验用仪器设备、器材或软件环境 1.设备：校计算中心计算机2.软件环境： windows XP Microsoft Visual Basic 6.0（三）实验要求1. 将随机产生的80个整数

2、存入数组，按每行10个数输出到窗体或文本框中。2偶数和奇数也分别存入数组，将排好序的偶数和奇数分别输出到窗体或两个文本框中。3用Sub子过程或Function函数过程判断随机整数是否为素数。4将素数按每行10个数在窗体或文本框中输出。5将素数的个数及求和结果输出到窗体或文本框中。6界面由学生自行设计。（四）实验原理利用随机函数产生80个1099之间的随机整数，将其中的偶数按由小到大的顺序排列并输出，将奇数按由大到小的顺序排列并输出；在产生的80个随机整数中，找出其中的素数，并将这些素数求和。（五）设计方案1、属性设置：控件名称控件属性属性值Command1Caption产生随机数Text1Mu

3、ltiLinetrueLabl1Caption奇数排列前2、流程图 假 真3、预编程序Dim a(1 To 80) As Integer, b() As Integer, c() As IntegerPrivate Sub Command1_Click()RandomizeClsPrint 原始数据PrintFor i = 1 To 80 a(i) = Int(90 * Rnd + 10) Print a(i); If i Mod 10 = 0 Then Print End IfNext i End SubPrivate Sub Command2_Click()Dim p As Integer

4、Text2.Text = text1.Text = ReDim b(80)p = 0For i = 1 To 80 If a(i) Mod 2 0 Then p = p + 1 b(p) = a(i) End IfNext i ReDim Preserve b(p) For j = 1 To p text1.Text = text1.Text & & b(j) If j Mod 10 = 0 Then text1.Text = text1.Text + vbCrLf Next For i = 1 To p - 1 For j = i + 1 To p If b(i) c(j) Then h =

5、 c(i): c(i) = c(j): c(j) = h End If NextNext For i = 1 To p Text5.Text = Text5.Text & & c(i) If i Mod 10 = 0 Then Text5.Text = Text5.Text + vbCrLf NextEnd SubPrivate Sub Command4_Click()Dim t As IntegerReDim d(80)Text3.Text = m = 0 For t = 1 To 80 If sushu(a(t) = True Then m = m + 1 d(m) = a(t) End

6、If NextReDim Preserve d(m) For j = 1 To m Text3.Text = Text3.Text & & d(j) If j Mod 10 = 0 Then Text3.Text = Text3.Text + vbCrLf End If Next Dim max As IntegerFor i = 1 To mmax = max + d(i)Next iText3.Text = Text3.Text + vbCrLf & maxEnd SubPublic Function sushu(m As Integer) As BooleanDim k As Integ

7、er, f As Booleanf = TrueFor k = 2 To m - 1 If m Mod k = 0 Then f = False End IfNext ksushu = fEnd Function实验报告成绩： 指导教师审核（签名）： 年 月 日实验报告一、地点：校计算中心机房计算机 编号：C16二、实验器材：计算机 软件环境：Microsoft Visual Basic 6.0三、实验步骤及调试方法1、实验步骤（1）、运行VB6.0，建立标准.EXE工程（2）、在窗体上添加所需控件，并设置其相应的属性（3）、编写代码（4）、运行调试程序，检查错误并改正（5）、运行程序，保证程

8、序正确，最后保存2、调试方法首先逐行逐句读程序，弄清楚每条语句的作用，预见每条语句和模块的执行结果，判断其是否与预期结果一致，检查无误后再进行动态检查，通过上机调试来发现错误，并改正。四、实验数据处理及结果分析（1) 将随机产生的80个整数存入数组中，使用IF语句使其分行，按每行10个数打印在窗体上。其中利用Cls，可使每次清屏。（2）利用动态数组，用IF语句判断是否是偶数，并将它们分别放入两个动态数组里。再使用循环函数，用替换的方法，排列它们的大小。（3）用Function函数过程判断随机整数是否为素数。（4）将素数按每行10个数在窗体输（5）用累加的方法求出素数和五、实验中存在的问题 1. 在使用文本框输入数据时，忘记修改文本框的MultiLine属性，而导致文本框中的数据无法换行。2.在使用动态数组时，会忘记重新定义数组的范围和类型3.文本框输入数据时，会使的输出的数都连在一起，这时应连接& ，让它们中间有分隔4.编写时还会出现编码重复定义，不能使程序启动。六、体会及思考在编写程序时，首先要理清整个实验的思路，要知道先什么再做什么，而不是上来就编。在编写的过程中，要细心谨慎，要明确定义变量的范围，分清各个的实质定义，更要了解代码的含义，能使之正确运行。还要清楚了解常用函数的用法，还有常用控件的重要属性，不要下标越界，检查时逐行检查，不要丢掉End if 、Next等语句。