实验报告模版第二单元.docx
- 文档编号:24479637
- 上传时间:2023-05-27
- 格式:DOCX
- 页数:13
- 大小:869.10KB
实验报告模版第二单元.docx
《实验报告模版第二单元.docx》由会员分享,可在线阅读,更多相关《实验报告模版第二单元.docx(13页珍藏版)》请在冰豆网上搜索。
实验报告模版第二单元
《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 六、实验体会 本次试验的难度也是非常大,但是我从中学到了很多,比如函数的运用以及其他的利用,对我来说虽然难度大但是十分值得。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 实验 报告 模版 第二 单元