1、VB实验报告模板内蒙古工业大学信息工程学院实 验 报 告课程名称： 高级语言程序设计（VB） 实验名称：选择、循环、数组和过程综合程序设计实验类型： 验证性 综合性 设计性实验室名称： 校计算中心 班级：英语-国贸 学号：姓名： 乘舟归梦 组别： 同组人： 成绩： 实验日期： 2012.6.10 实验报告撰写要求一、 实验前用预习报告纸撰写预习报告，预习报告包括以下内容1 实验目的2 实验用仪器设备、器材或软件环境3 实验原理、方案设计、程序框图、预编程序等4 实验过程中需要记录的实验数据表格二、 实验过程中，要认真观察，仔细记录三、 完成实验后用实验报告纸撰写实验报告，包括以下内容1 仪器设
2、备型号及编号2 实验器材或软件环境3 实验步骤、程序调试方法4 实验数据处理及结果分析5 实验中存在的问题6 体会及思考题四、 报告撰写时，要求格式规范、书写整齐预习报告成绩： 指导教师审核（签名）： 年 月 日预习报告（一）实验目的学会综合运用选择结构、循环结构、数组和过程进行程序设计的方法。（2）实验用仪器设备、器材或软件环境 1.实验用仪器设备:校计算中心计算机 8B58号 2.软件环境 windowxp Microsoft Visual Basic 6.0（3）实验原理根据以下要求：实验要求1将随机产生的80个整数存入数组，按每行10个数输出到窗体或文本框中。2奇数也存入另一个数组，将
3、排好序的奇数输出到窗体或文本框中。3用Sub子过程或Function函数过程判断随机整数是否为素数。4将素数按每行10个数在窗体或文本框中输出。5界面和属性由学生自行设计和设置。应运用的实验原理是：实验原理1.利用Rnd 函数产生80个随机整数，再利用For循环将产生的随机整数存入到数组中，最后利用if 语句按每行十个数输出到第一个文本框中；2.用if语句和mod 函数判断是否为奇数，然后运用选择排序法，将奇数从小到大排序输出到第二个文本框中；3.调用function函数判断素数，利用for循环和if 函数每10个数输出到第三个文本框中。（4）方案设计1.程序窗体设计2.属性设置控件属性属性值
4、Command1caption随机产生80 个元素组成的数组Command2caption从小到大排列数组中奇数元素Command3caption选出其中的素数Text1MultilinetrueText2MultilinetrueText3MultilinetrueLabel1caption随机产生的数组Label2caption将上述数组中的奇数从小到大排列Label3caption其中的素数（五）程序框图 开始 开始 i=1输入zk(i),k ,izk(i)=int(rnd*90+10) k=0，i=1Text1.text=text1.text & & zk(i)zk(i) mod 2
5、=1 否 i=i+1i mod 10=0 i = i +1 是 k=k+1 是Text1.text=text1.text & vbcrlf sj(k)=zk(i) i = 80 是 i sj(j) 否 否 是 是 l =l+1t=sj(k)yj(l)=zk(i) j=j+1sj(k)=sj(j) Text2.text=text2.text& & sj(k) sj(j) = t k=k+1 i=i+1i=i+1l mod 10 =0 j =g 否是 是 Text2.text=text2.text & vbcrlfText2.text=text2.text& & sj(k) k mod 10 =0
6、 i =80 否 是 是Text2.text=text2.text & vbcrlf 否 结束 k m-1否 结束 是 是素数 结束（六）预编程序Option Base 1Dim zk(80) As IntegerPrivate Sub Command1_Click()Dim i As IntegerRandomize For i = 1 To 80 zk(i) = Int(90 * Rnd + 10) Text1.Text = Text1.Text & & zk(i) If i Mod 10 = 0 Then Text1.Text = Text1.Text & vbCrLf End If N
7、ext iEnd SubPrivate Sub Command2_Click()Dim sj() As IntegerShowReDim sj(80) k = 0 For i = 1 To 80 If zk(i) Mod 2 = 1 Then k = k + 1 sj(k) = zk(i) End If Next i g= k Dim j As Integer For k = 1 To (g - 1) For j = k + 1 To g If sj(k) sj(j) Then daihuan = sj(k): sj(k) = sj(j): sj(j) = daihuan End If Nex
8、t j Text2.Text = Text2.Text & & sj(k) If k Mod 10 = 0 Then Text2.Text = Text2.Text & vbCrLf End If Next kEnd SubPrivate Sub Command3_Click()Dim h() As Integer, l As Single Show ReDim jy(80) l = 0 For i = 1 To 80 If sushu(zk(i) Then l = l + 1 jy(l) = zk(i) Text3.Text = Text3.Text & & jy(l) If l Mod 1
9、0 = 0 Then Text3.Text = Text3.Text & vbCrLf End If End If Next iEnd SubFunction sushu(m As Integer) As Boolean Dim d As Integer, su As Boolean su = True For d = 2 To m - 1 If m Mod d = 0 Then su = False End If Next d sushu = suEnd Function实验报告成绩： 指导教师审核（签名）： 年 月 日实验报告一、实验目的学会综合运用选择结构、循环结构、数组和过程进行程序设
10、计的方法。二、实验内容利用随机函数产生80个1099之间的随机整数，将其中的奇数按由小到大的顺序排列并输出；在产生的80个随机整数中，找出其中的素数。三、实验要求1将随机产生的80个整数存入数组，按每行10个数输出到窗体或文本框中。2奇数也存入另一个数组，将排好序的奇数输出到窗体或文本框中。3用Sub子过程或Function函数过程判断随机整数是否为素数。4将素数按每行10个数在窗体或文本框中输出。5界面和属性由学生自行设计和设置（界面设计要合理、美观，属性设置用表格完成，包括对象名、属性名和属性值）。四、实验报告，包括以下内容（1）仪器设备型号及编号校计算机中心计算机8B58号（二）实验器材
11、或软件环境 1.实验用仪器设备:校计算中心计算机 2.软件环境 windowxp Microsoft Visual Basic 6.0（3）实验步骤、程序调试方法 1.设置窗体界面 2.更改标签属性控件属性属性值Command1caption随机产生80 个元素组成的数组Command2caption从小到大排列数组中奇数元素Command3caption选出其中的素数Text1MultilinetrueText2MultilinetrueText3MultilinetrueLabel1caption随机产生的数组Label2caption将上述数组中的奇数从小到大排列Label3captio
12、n其中的素数 3. 绘构程序框图 开始 开始 i=1输入zk(i),k ,izk(i)=int(rnd*90+10) k=0，i=1Text1.text=text1.text & & zk(i)zk(i) mod 2 =1 否 i=i+1i mod 10=0 i = i +1 是 k=k+1 是Text1.text=text1.text & vbcrlf sj(k)=zk(i) i = 80 是 i sj(j) 否 否 是 是 l =l+1t=sj(k)yj(l)=zk(i) j=j+1sj(k)=sj(j) Text2.text=text2.text& & sj(k) sj(j) = t k
13、=k+1 i=i+1i=i+1l mod 10 =0 j =g 否是 是 Text2.text=text2.text & vbcrlfText2.text=text2.text& & sj(k) k mod 10 =0 i =80 否 是 是Text2.text=text2.text & vbcrlf 否 结束 k m-1否 结束 是 是素数 结束 4.编写程序代码Option Base 1Dim zk(80) As IntegerPrivate Sub Command1_Click()Dim i As IntegerRandomize For i = 1 To 80 zk(i) = Int(
14、90 * Rnd + 10) Text1.Text = Text1.Text & & zk(i) If i Mod 10 = 0 Then Text1.Text = Text1.Text & vbCrLf End If Next iEnd SubPrivate Sub Command2_Click()Dim sj() As IntegerShowReDim sj(80) k = 0 For i = 1 To 80 If zk(i) Mod 2 = 1 Then k = k + 1 sj(k) = zk(i) End If Next i g= k Dim j As Integer For k =
15、 1 To (g - 1) For j = k + 1 To g If sj(k) sj(j) Then daihuan = sj(k): sj(k) = sj(j): sj(j) = daihuan End If Next j Text2.Text = Text2.Text & & sj(k) If k Mod 10 = 0 Then Text2.Text = Text2.Text & vbCrLf End If Next kEnd SubPrivate Sub Command3_Click()Dim jy() As Integer, l As Single Show ReDim jy(80
16、) l = 0 For i = 1 To 80 If sushu(zk(i) Then l = l + 1 jy(l) = zk(i) Text3.Text = Text3.Text & & jy(l) If l Mod 10 = 0 Then Text3.Text = Text3.Text & vbCrLf End If End If Next iEnd SubFunction sushu(m As Integer) As Boolean Dim d As Integer, s As Boolean s = True For d = 2 To m - 1 If m Mod d = 0 The
17、n s = False End If Next d sushu = sEnd Function（4）实验数据处理及结果分析 结果分析：程序运行正常，输出结果符合要求。（5）实验中存在的问题1.无法将产生的80个随机数每十个输出到一行。原因在于没有充分利用好zk(i)的下标值i 2.产生的素数可以输出，但无法每十个一行输出。查找原因是：在把每个素数赋给新的数组yj(l)时,下标l的值没有逐个累加，根本原因在于累加程序代码l=l+1写错位置。 3.在运行时，产生错误“子程序或函数未定义”。原因在于没有把zk(i)数组设置为全局变量。 4.无法把产生的数组从文本框里输出。根本原因在于忘记用连接符“&
18、”。同时注意在运用连接符时应该链接一个空格。最关键的一点就是修改Multiline属性值为true（6）体会及思考题编写程序首先要深刻理解实验目的，并根据目的，挖掘其中每一步的实验原理。在实验中注意“自顶而上的设计”，在设计时注重每一个设计对于程序实现的作用；“在下而上的编码”，这就要求在实验设计时的每一步如何运用程序代码来逐步进行实现。程序编写的逻辑性要求相当高，可以培养学生的逻辑思维能力。同时，每个代码的确定性也考察了同学们的细心程度与熟练程度。构划程序框图可以学生更为深刻的领会每一个步骤的流程的目的，深化对程序的理解。在每一次的调试及验证中，我们逐步纠正其中的错误，优化程序格式，美化窗体外观，让我们明白程序编码并不枯燥，与此同时提高我们对于程序编程的审美水准。编写好程序代码，需要细心、耐心，更主要的熟练地基础知识。
