VB实验报告模板

应运用的实验原理是： 实验原理
1.利用Rnd 函数产生80个随机整数，再利用For循环将产生的随机整 数存入到数组中，最后利用if 语句按每行十个数输出到第一个文本框 中；
2.用if语句和mod 函数判断是否为奇数，然后运用选择排序法，将奇 数从小到大排序输出到第二个文本框中；
3.调用function函数判断素数，利用for循环和if 函数每10个数输出到 第三个文本框中。
zk(i) mod 2 =1
i=i+1 i mod 10=0
i = i +1
否 是
是 k=k+1 Text1.text=text1.text & vbcrlf
sj(k)=zk(i) 是
i <= 80
i <= 80
否 结束 g=k
结束
开始 开始
输入zk(i),l 输入sj(k),g l=0, i =1 k=1,j=2 调用sushu(zk(i))函数 sj(k)>sj(j)
Private Sub Command2_Click() Dim sj() As Integer Show ReDim 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)
是 否
找出上述80个数中的素数并每十个一行输出到第三个文本框中
不是素数
d=d+1
否
d > m-1 结束
是
是素数
结束
4.编写程序代码 Option Base 1
Dim zk(80) As Integer Private Sub Command1_Click() Dim i As Integer Randomize
1． 实验目的 2． 实验用仪器设备、器材或软件环境 3． 实验原理、方案设计、程序框图、预编
程序等 4． 实验过程中需要记录的实验数据表格 2、 实验过程中，要认真观察，仔细记录 3、 完成实验后用实验报告纸撰写实验报告，包括 以下内容 1． 仪器设备型号及编号 2． 实验器材或软件环境 3． 实验步骤、程序调试方法 4． 实验数据处理及结果分析 5． 实验中存在的问题 6． 体会及思考题 4、 报告撰写时，要求格式规范、书写整齐
（4） 方案设计
1.程序窗体设计
2.属性设置 控件
属性
Command1 caption
Command2 caption
Command3 caption
Text1
Multiline
Text2
Multiline
Text3
Multiline
Label1
caption
Label2
caption
Label3
k mod 10 =0 i <=80
否 是
Text2.text=text2.text & vbcrlf
结束 k <=g
是
是
是 否
否
结束 开始 开始 随机产生80个两位数并每十个一行输入到文本框中
输入m
d=2
找出上述80个数中的奇数并从小到大排列，同时每十个一行输出到第二 个文本框中
m mod d=0
Next k End Sub
Private 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 10 = 0 Then
是 是
Text2.text=text2.text & vbcrlf
Text2.text=text2.text&" "& sj(k)
k mod 10 =0 i <=80
否
是
Text2.text=text2.text & vbcrlf
是 否
结束 k <=g-1
是
否
结束
开始 开始
输入m 随机产生80个两位数并每十个一行输入到文本框中 d=2
zk(i) mod 2 =1
i=i+1 i mod 10=0
i = i +1
否 是
是 k=k+1 Text1.text=text1.text & vbcrlf
sj(k)=zk(i) 是
i <= 80 i <= 80
否 结束 g=k
结束
是 否
开始 开始
输入zk(i),l 输入sj(k),g
l=0, i =1
caption
（五）程序框图
开始
开始
属性值 随机产生80 个元素组成的数组 从小到大排列数组中奇数元素 选出其中的素数 true true true 随机产生的数组 将上述数组中的奇数从小到大排列 其中的素数
i=1
输入zk(i),k ,i
zk(i)=int(rnd*90+10)
k=0，i=1 Text1.text=text1.text &" "& zk(i)
Label2
caption
Label3
caption
3. 绘构程序框图 开始
true true 随机产生的数组 将上述数组中的奇数从小到大排列 其中的素数
开始
i=1
输入zk(i),k ,i
zk(i)=int(rnd*90+10)
k=0，i=1 Text1.text=text1.text &" "& zk(i)
k=1,j=2
调用sushu(zk(i))函数
sj(k)>sj(j)
否
否
是
是
l =l+1
t=sj(k) yj(l)=zk(i)
j=j+1
sj(k)=sj(j)
Text2.text=text2.text&" "& sj(k)
sj(j) = t
k=k+1
i=i+1 i=i+1
否
l mod 10 =0
j <=g
预习报告成绩： 年月日
指导教师审核（签名）：
预习报告
（一）实验目的
学会综合运用选择结构、循环结构、数组和过程进行程序设计的方法。
（2） 实验用仪器设备、器材或软件环境
1.实验用仪器设备:校计算中心计算机 8B58号 2.软件环境 windowxp Microsoft Visual Basic 6.0
三、实验要求
1．将随机产生的80个整数存入数组，按每行10个数输出到窗体或文 本框中。
2．奇数也存入另一个数组，将排好序的奇数输出到窗体或文本框 中。
3．用Sub子过程或Function函数过程判断随机整数是否为素数。
4．将素数按每行10个数在窗体或文本框中输出。 5．界面和属性由学生自行设计和设置（界面设计要合理、美观，属 性设置用表格完成，包括对象名、属性名和属性值）。
内蒙古工业大学信息工程学院 实验报告
课程名称： 高级语言程序设计（VB）
Ⅱ
实验名称：选择、循环、数组和过程综
合程序设计
实验类型： 验证性□ 综合性√ 设计
性□
实验室名称： 校计算中心
班级：英语-国贸
学号：
姓名： 乘舟归梦 组别：
同组人：
成绩：
实验日期：
2012.6.10
实验报告撰写要求
1、 实验前用预习报告纸撰写预习报告，预习 报告包括以下内容
Private Sub Command2_Click() Dim sj() As Integer Show ReDim 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 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
Next i End Sub
属性
Command1 caption
Command2 caption
Command3 caption
Text1
Multiline
属性值 随机产生80 个元素组成的数组 从小到大排列数组中奇数元素 选出其中的素数 true
Text2
Multiline
Text3
Multiline
Label1
caption
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
If m Mod d = 0 Then su = False End If Next d sushu = su End Function
百度文库
实验报告成绩： 年月日
指导教师审核（签名）：
实验报告
一、实验目的
学会综合运用选择结构、循环结构、数组和过程进行程序设计的方 法。
二、实验内容
利用随机函数产生80个10～99之间的随机整数，将其中的奇数按由 小到大的顺序排列并输出；在产生的80个随机整数中，找出其中的素 数。
找出上述80个数中的奇数并从小到大排列，同时每十个一行输出到第二 个文本框中 m mod d=0
是 否
找出其中的素数并每十个一行输出到第三个文本框中 不是素数
d=d+1
否
d > m-1 结束
是
是素数
结束
（六）预编程序
Option Base 1 Dim zk(80) As Integer Private Sub Command1_Click() Dim i As Integer Randomize
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
Next i End Sub
Text3.Text = Text3.Text & vbCrLf End If End If Next i End Sub
Function sushu(m As Integer) As Boolean Dim d As Integer, su As Boolean su = True For d = 2 To m - 1
（3） 实验原理
根据以下要求： 实验要求
1．将随机产生的80个整数存入数组，按每行10个数输出到窗体或文 本框中。
2．奇数也存入另一个数组，将排好序的奇数输出到窗体或文本框 中。
3．用Sub子过程或Function函数过程判断随机整数是否为素数。 4．将素数按每行10个数在窗体或文本框中输出。 5．界面和属性由学生自行设计和设置。
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 k
End Sub
Private Sub Command3_Click() Dim jy() As Integer, l As Single Show ReDim jy(80) l=0 For i = 1 To 80
否 否
是
l =l+1 t=sj(k) yj(l)=zk(i) j=j+1
是 否
是
sj(k)=sj(j) Text2.text=text2.text&" "& sj(k) sj(j) = t
k=k+1
i=i+1 i=i+1
否
l mod 10 =0 j <=g
是
Text2.text=text2.text & vbcrlf Text2.text=text2.text&" "& sj(k)
四、实验报告，包括以下内容
（1） 仪器设备型号及编号 校计算机中心计算机8B58号
（二）实验器材或软件环境 1.实验用仪器设备:校计算中心计算机 2.软件环境 windowxp Microsoft Visual Basic 6.0 （3） 实验步骤、程序调试方法 1.设置窗体界面
2.更改标签属性
控件