实验报告模版(第二单元)(共11页).doc
精选优质文档-倾情为你奉上VB程序设计实验单元二实验报告专业班级： 1306 姓名 刘铭沂 学号 2 指导教师： 王自强 完成时间： 2014.4.20 实验五 数组（1）一、实验目的1、 掌握数组的常用操作和常用算法。2、 掌握列表框和组合框的使用。3、 掌握自定义函数和过程的定义和调用方法二、实验环境 VB6.0三、实验内容1、假设已使用Dim Num(99) as integer语句定义了一个数组，并且在该数组中存储了100个学生的成绩，请编写代码在窗体上打印出最高分与最低分。2、从键盘上任意10个整数，然后按由大到小的顺序显示出来。3、编程求下列矩阵主对角线上的元素之和。 1 2 3 4 5 6 7 8 9四、实验步骤一输入以下代码Dim Max As Integer Dim Min As Integer Max=Num(0) Min=Num(0) For i= 1 To 99 If Num(i)>Max Then Max = Num(i) If Num(i)<Max Then Min = Num(i) Next 1Print“最高分是：” & MaxPrint“最低分是：” & Min二建立十个TEXTBOX输入以下代码Sub Form_Click() Dim a(10) As IntegerDim b%, 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 For b = 1 To 9 For i = 1 To 10 - b If a(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 Form_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 s = s + d(i, j) Next jNext iPrint sEnd Sub五、实验结果六、实验体会本次试验难度越来越高， 我也经过一番搜寻和借鉴才完成了本次试验，总体来说对VB已经感到压力非常大。实验五 数组（2） 一、 实验目的1、掌握列表框和组合框的使用。2、掌握自定义类型及数组的使用。二、实验环境 VB6.0三、实验内容1、设计一个如下图所示的应用程序。当“预装”复选框没有被选定时，它下面的两个单选按钮不能使用。如果单击“确定”按钮，则在列表框中显示用户所选择的配置。2、设计一个选课的运行界面。它包括2个列表框，左边为已开设的课程名称，通过Form_Load事件加入。当单击某课程名称后，将课程加入到右边列表框，并在左边列表框中删除该课程。当右边课程数已满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 ThenList1.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.AddItem "大学计算机基础"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. 掌握实参和形参之间的对应关系。二、实验环境 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_Load()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六、实验体会本次试验的难度也是非常大，但是我从中学到了很多，比如函数的运用以及其他的利用，对我来说虽然难度大但是十分值得。专心-专注-专业
