《实验报告模版(第二单元).doc》由会员分享，可在线阅读，更多相关《实验报告模版(第二单元).doc（11页珍藏版）》请在金锄头文库上搜索。
1、VB程序设计实验单元二实验报告专业班级： 1306 姓名 刘铭沂 学号 201324910602 指导教师： 王自强 完成时间： 2014.4.20 实验五 数组（1）一、实验目的1、 掌握数组的常用操作和常用算法。2、 掌握列表框和组合框的使用。3、 掌握自定义函数和过程的定义和调用方法二、实验环境 VB6.0三、实验内容1、假设已使用Dim Num(99) as integer语句定义了一个数组，并且在该数组中存储了100个学生的成绩，请编写代码在窗体上打印出最高分与最低分。2、从键盘上任意10个整数，然后按由大到小的顺序显示出来。3、编程求下列矩阵主对角线上的元素之和。 1 2 3 4
2、5 6 7 8 9四、实验步骤一输入以下代码Dim Max As IntegerDim Min As IntegerMax=Num(0)Min=Num(0)For i= 1 To 99If Num(i)Max Then Max = Num(i)If Num(i) a(i + 1) Then t = a(i + 1): a(i + 1) = a(i): a(i) = t End If Next i Next b Print a(1); a(2); a(3); a(4); a(5); a(6); a(7); a(8); a(9); a(10)End Sub三输入以下代码Private Sub Fo
3、rm_Click()Dim s As IntegerDim i As IntegerDim j As IntegerDim d(3, 3) As IntegerDim n As Integer先构成矩阵的二维数组n = 0For i = 1 To 3 For j = 1 To 3 n = n + 1 d(i, j) = n Next jNext i输出矩阵For i = 1 To 3 For j = 1 To 3 Print d(i, j), Next j PrintNext i计算主对角线和并输出s = 0For i = 1 To 3 For j = 1 To 3 If i = j Then
4、 s = s + d(i, j) Next jNext iPrint sEnd Sub五、实验结果六、实验体会本次试验难度越来越高， 我也经过一番搜寻和借鉴才完成了本次试验，总体来说对VB已经感到压力非常大。实验五 数组（2） 一、 实验目的1、掌握列表框和组合框的使用。2、掌握自定义类型及数组的使用。二、实验环境 VB6.0三、实验内容1、设计一个如下图所示的应用程序。当“预装”复选框没有被选定时，它下面的两个单选按钮不能使用。如果单击“确定”按钮，则在列表框中显示用户所选择的配置。2、设计一个选课的运行界面。它包括2个列表框，左边为已开设的课程名称，通过Form_Load事件加入。当单击某
5、课程名称后，将课程加入到右边列表框，并在左边列表框中删除该课程。当右边课程数已满5门时，不允许再加入。四、实验步骤依次输入以下代码一Dim flag As BooleanFor i = 0 To Combo1.ListCount - 1If Combo1.List(i) = Combo1.Text Thenflag = TrueExit ForEnd IfNext iIf flag = False Then Combo1.AddItem Combo1.TextEnd SubPrivate Sub Command1_Click()List1.ClearIf Check1.Value = 1 Th
6、enList1.AddItem Combo1.TextList1.AddItem Text1.TextEnd IfIf Check2.Value = 1 ThenIf Option1 ThenList1.AddItem Option1.CaptionElseList1.AddItem Option2.CaptionEnd IfEnd IfEnd Sub二Private Sub Form_Load()List1.ClearList1.AddItem c程序设计List1.AddItem VB程序设计List1.AddItem JAVA程序设计List1.AddItem 数据库应用List1.Ad
7、dItem 大学计算机基础List1.AddItem 网页设计End SubPrivate Sub List1_Click()If List2.ListCount = 5 ThenMsgBox (超过5门课程，不能再选)Exit SubElseList2.AddItem List1.TextList1.RemoveItem List1.ListIndexEnd IfEnd Sub五、实验结果六、实验体会本次VB试验的界面就非常难以设计，而试验代码更加难以写就。经过一番讨教后我也终于完成了作业。实验七 过程一、实验目的1. 掌握自定义函数和过程的定义和调用方法。2. 掌握实参和形参之间的对应关系
8、。二、实验环境 VB6.0三、实验内容1、编一函数过程IsPrime (n),对于已知正整数n,判断该数是否是素数,函数的返回值类型为布尔型。主调程序毎输入一个数，调用该函数过程，然后在图形框中显示输入的数。对于素数，显示一个“”。界面如下：2、分别用函数和子过程求表达式： 的和四、实验步骤一依次输入以下代码二依次输入以下代码Function sum(ByVal n As Integer) As SingleDim i As Integersum = 0For i = 1 To nsum = sum + 1 / i 2Next iEnd FunctionPrivate Sub Form_Loa
9、d()Dim n As Integern = Fix(Val(InputBox(请输入你要求和的项数:)MsgBox 1+.+1/ & n & 2= & sum(n)End SubPrivate Function IsZ(ByVal k As Long) As Boolean Dim i As Long For i = 2 To Sqr(k) If k Mod i = 0 Then IsZ = False Exit Function End If Next i IsZ = TrueEnd Function Private Sub Command1_Click()Print Choose(2 + IsZ(Text1), , ) & Text1End Sub六、实验体会本次试验的难度也是非常大，但是我从中学到了很多，比如函数的运用以及其他的利用，对我来说虽然难度大但是十分值得。
