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