vb实验报告Word文件下载.docx
《vb实验报告Word文件下载.docx》由会员分享，可在线阅读，更多相关《vb实验报告Word文件下载.docx（9页珍藏版）》请在冰豆网上搜索。
实验日期：
实验报告撰写要求
一、实验前用预习报告纸撰写预习报告，预习报告包括以下内容
1．实验目的
2．实验用仪器设备、器材或软件环境
3．实验原理、方案设计、程序框图、预编程序等
4．实验过程中需要记录的实验数据表格
二、实验过程中，要认真观察，仔细记录
三、完成实验后用实验报告纸撰写实验报告，包括以下内容
1．仪器设备型号及编号
2．实验器材或软件环境
3．实验步骤、程序调试方法
4．实验数据处理及结果分析
5．实验中存在的问题
6．体会及思考题
报告撰写时，要求格式规范、书写整齐
预习报告成绩：
指导教师审核（签名）：
年月日
预习报告
1、实验目的
二、实验内容
三、实验要求
1．将随机产生的n个整数存入一维数组中，按每行10个数输出到窗体上。
2．将找出的奇数和偶数分别存入2个一维动态数组中。
用Sub过程分别对奇数和偶数进行排序，奇数用选择法排序，偶数用冒泡法排序，然后在调用过程内，将排好序的奇数和偶数按每行10个数分别输出到图片框和标签中。
3．用Function过程判断随机整数是否为素数。
在调用过程内，将找出的素数（按每行10个数）及求和结果输出到文本框中。
4．Sub过程和Function过程均建立在标准模块中。
5．界面可参照如图所示的运行结果进行设计，要求在窗体上添加的各个控件布局合理、大小适中。
对象属性的设置要求用表格填写，包括对象名、属性名、属性值和说明（可参照前面章节的实验内容）。
6．程序运行后，若在输入对话框中输入随机产生的整数个数n为50，单击“产生随机整数”命令按钮，则在窗体上输出50个随机整数；
单击“找奇偶数并排序”命令按钮，则分别在图片框和标签中输出排好序的奇数和偶数；
单击“找素数并求和”命令按钮，则在文本框中输出素数和素数的和；
单击“结束”命令按钮，结束程序的运行。
7．实验报告主要包括实验目的、实验内容、实验要求、界面设计（包括各对象及其属性设置）、源程序代码、运行结果（要求截图）、实验中存在的问题、体会和思考等内容。
四、实验要求
对象名
属性名
属性值
说明
Form1.
Caption
Label1.
Borderstyle
Label2.
Label3.
Label4.
Command1.
Command2.
Command3.
Command4.
Picturebox1.
Text1.
Text
五、预编程序代码
实验报告成绩：
实验报告
一、实验目的
学会综合运用三种基本控制结构、数组和过程进行程序设计的方法。
随机产生n个（20≤n≤100）两位整数，找出其中的奇数、偶数和素数，并将奇数按升序排序，将偶数按降序排序，将素数求和。
四、页面设计
找奇、偶数和素数并进行排序和求和
初始内容为空，用于输入
1
凹陷单线边框
产生随机数
找奇偶数并排序
找素数并求和
结束
五、源程序代码
DimxAsInteger,iAsInteger,a（）AsInteger
PrivateSubCommand1_Click（）
x=Val（InputBox（"
请输入n"
））
Ifx>
=20Andx<
=100Then
Print"
共"
&
x&
"
个随机数"
ReDimPreservea（x）
Fori=1Tox
a（i）=Int（Rnd*90+10）
Printa（i）;
IfiMod10=0Then
Print
EndIf
Nexti
Else
x=MsgBox（"
错误"
48）
EndSub
PrivateSubCommand2_Click（）
Dimb%（）,c%（）,m%,n%,t%,i%,k%
n=0
m=0
Ifa（i）Mod2<
>
0Then
m=m+1
ReDimPreserveb（m）
b（m）=a（i）
n=n+1
ReDimPreservec（n）
c（n）=a（i）
Fori=1Tom-1
Forj=i+1Tom
Ifb（i）>
b（j）Then
t=b（i）
b（i）=b（j）
b（j）=t
Nextj
Label2.Caption="
m&
个奇数"
Label3.Caption="
n&
个偶数"
Fori=1Tom
Picture1.Printb（i）;
Picture1.Print
Fori=1Ton-1
Forj=1Ton-i
Ifc（j）<
c（j+1）Then
t=c（j）
c（j）=c（j+1）
c（j+1）=t
Fori=1Ton
Label1.Caption=Label1.Caption&
c（i）&
vbCrLf
PrivateSubCommand3_Click（）
DimkAsInteger,sumAsInteger
k=0
sum=0
Ifpass（a）Then
k=k+1
s=s+a（i）
Text1.Text=Text1.Text&
k&
"
vbCrLf&
sum
Functionpass（m）AsBoolean
Dimn%
n=2
DoWhilen<
m
IfmModn=oThen
ExitDo
Loop
Ifn=mThen
pass=True
pass=False
Endfunction
PrivateSubCommand4_Click（）
End
Endsub
EndFunction
PrivateSubForm_Load（）
六、程序运行结果
七、实验中存在的问题
1、数据如何输入文本框中。
2、在文本框中换行的方法。
3、Function子过程的运用。
4、If语句的用法。
5、文本框的属性MultiLine的属性改成True。
6、对一些基本控件的属性和方法掌握不好
八、体会与思考
Vb程序设计在排序和一些简单的运算方面十分有用，并且方法多样。
例如在排序方面有简单排序和冒泡排序等。
但对基本知识的要求较高。
做vb作业需要细心与耐心，小小的差错就会导致整个程序的错误。
学习中基础知识是很重要的，所以我们努力学好基础知识，做什么事都不能急于求成。
升级会员 