实验报告模版第二单元剖析.docx
《实验报告模版第二单元剖析.docx》由会员分享，可在线阅读，更多相关《实验报告模版第二单元剖析.docx（10页珍藏版）》请在冰豆网上搜索。
实验报告模版第二单元剖析
《VB程序设计》实验单元二
实验报告
专业班级：
1306姓名刘铭沂学号201324910602指导教师：
王自强完成时间：
2014.4.20
实验五数组
（1）
一、实验目的
1、掌握数组的常用操作和常用算法。
2、掌握列表框和组合框的使用。
3、掌握自定义函数和过程的定义和调用方法
二、实验环境
VB6.0
三、实验内容
1、假设已使用DimNum（99）asinteger语句定义了一个数组，并且在该数组中存储了100个学生的成绩，请编写代码在窗体上打印出最高分与最低分。
2、从键盘上任意10个整数，然后按由大到小的顺序显示出来。
3、编程求下列矩阵主对角线上的元素之和。
123
456
789
四、实验步骤
一．输入以下代码
DimMaxAsInteger
DimMinAsInteger
Max=Num（0）
Min=Num（0）
Fori=1To99
IfNum（i）>MaxThenMax=Num（i）
IfNum（i） Next1
Print“最高分是：
” &Max
Print“最低分是：
” &Min
二．建立十个TEXTBOX
输入以下代码
SubForm_Click（）
Dima（10）AsInteger
Dimb%,i%,t%
a
（1）=Text1:
a
（2）=Text2:
a（3）=Text3:
a（4）=Text4:
a（5）=Text5:
a（6）=Text6:
a（7）=Text7:
a（8）=Text8:
a（9）=Text9:
a（10）=Text10
Forb=1To9
Fori=1To10-b
Ifa（i）>a（i+1）Then
t=a（i+1）:
a（i+1）=a（i）:
a（i）=t
EndIf
Nexti
Nextb
Printa
（1）;a
（2）;a（3）;a（4）;a（5）;a（6）;a（7）;a（8）;a（9）;a（10）
EndSub
三．输入以下代码
PrivateSubForm_Click（）
DimsAsInteger
DimiAsInteger
DimjAsInteger
Dimd（3,3）AsInteger
DimnAsInteger
'先构成矩阵的二维数组
n=0
Fori=1To3
Forj=1To3
n=n+1
d（i,j）=n
Nextj
Nexti
'输出矩阵
Fori=1To3
Forj=1To3
Printd（i,j）,
Nextj
Print
Nexti
'计算主对角线和并输出
s=0
Fori=1To3
Forj=1To3
Ifi=jThens=s+d（i,j）
Nextj
Nexti
Prints
EndSub
五、实验结果
六、实验体会
本次试验难度越来越高，我也经过一番搜寻和借鉴才完成了本次试验，总体来说对VB已经感到压力非常大。
实验五数组
（2）
一、实验目的
1、掌握列表框和组合框的使用。
2、掌握自定义类型及数组的使用。
二、实验环境
VB6.0
三、实验内容
1、设计一个如下图所示的应用程序。
当“预装”复选框没有被选定时，它下面的两个单选按钮不能使用。
如果单击“确定”按钮，则在列表框中显示用户所选择的配置。
2、设计一个选课的运行界面。
它包括2个列表框，左边为已开设的课程名称，通过Form_Load事件加入。
当单击某课程名称后，将课程加入到右边列表框，并在左边列表框中删除该课程。
当右边课程数已满5门时，不允许再加入。
四、实验步骤
依次输入以下代码
一．
DimflagAsBoolean
Fori=0ToCombo1.ListCount-1
IfCombo1.List（i）=Combo1.TextThen
flag=True
ExitFor
EndIf
Nexti
Ifflag=FalseThenCombo1.AddItemCombo1.Text
EndSub
PrivateSubCommand1_Click（）
List1.Clear
IfCheck1.Value=1Then
List1.AddItemCombo1.Text
List1.AddItemText1.Text
EndIf
IfCheck2.Value=1Then
IfOption1Then
List1.AddItemOption1.Caption
Else
List1.AddItemOption2.Caption
EndIf
EndIf
EndSub
二．PrivateSubForm_Load（）
List1.Clear
List1.AddItem"c程序设计"
List1.AddItem"VB程序设计"
List1.AddItem"JAVA程序设计"
List1.AddItem"数据库应用"
List1.AddItem"大学计算机基础"
List1.AddItem"网页设计"
EndSub
PrivateSubList1_Click（）
IfList2.ListCount>=5Then
MsgBox（"超过5门课程，不能再选"）
ExitSub
Else
List2.AddItemList1.Text
List1.RemoveItemList1.ListIndex
EndIf
EndSub
五、实验结果
六、实验体会
本次VB试验的界面就非常难以设计，而试验代码更加难以写就。
经过一番讨教后我也终于完成了作业。
实验七过程
一、实验目的
1.掌握自定义函数和过程的定义和调用方法。
2.掌握实参和形参之间的对应关系。
二、实验环境
VB6.0
三、实验内容
1、编一函数过程IsPrime（n）,对于已知正整数n,判断该数是否是素数,函数的返回值类型为布尔型。
主调程序毎输入一个数，调用该函数过程，然后在图形框中显示输入的数。
对于素数，显示一个“★”。
界面如下：
2、分别用函数和子过程求表达式：
的和
四、实验步骤
一．依次输入以下代码
二．依次输入以下代码
Functionsum（ByValnAsInteger）AsSingle
DimiAsInteger
sum=0
Fori=1Ton
sum=sum+1/i^2
Nexti
EndFunction
PrivateSubForm_Load（）
DimnAsInteger
n=Fix（Val（InputBox（"请输入你要求和的项数:
"）））
MsgBox"1+...+1/"&n&"^2="&sum（n）
EndSub
PrivateFunctionIsZ（ByValkAsLong）AsBoolean
DimiAsLong
Fori=2ToSqr（k）
IfkModi=0Then
IsZ=False
ExitFunction
EndIf
Nexti
IsZ=True
EndFunction
PrivateSubCommand1_Click（）
PrintChoose（2+IsZ（Text1）,"★",""）&Text1
EndSub
六、实验体会
本次试验的难度也是非常大，但是我从中学到了很多，比如函数的运用以及其他的利用，对我来说虽然难度大但是十分值得。
升级会员 