1、实验报告模版第二单元剖析VB程序设计实验单元二实验报告专业班级: 1306 姓名 刘铭沂 学号 201324910602 指导教师: 王自强 完成时间: 2014.4.20 实验五 数组(1)一、实验目的1、 掌握数组的常用操作和常用算法。2、 掌握列表框和组合框的使用。3、 掌握自定义函数和过程的定义和调用方法二、实验环境 VB6.0三、实验内容1、假设已使用Dim Num(99) as integer语句定义了一个数组,并且在该数组中存储了100个学生的成绩,请编写代码在窗体上打印出最高分与最低分。2、从键盘上任意10个整数,然后按由大到小的顺序显示出来。3、编程求下列矩阵主对角线上的元素
2、之和。 1 2 3 4 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三输入以下代码Pr
3、ivate 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 I
4、f i = j Then s = s + d(i, j) Next jNext iPrint sEnd Sub五、实验结果六、实验体会本次试验难度越来越高, 我也经过一番搜寻和借鉴才完成了本次试验,总体来说对VB已经感到压力非常大。实验五 数组(2) 一、 实验目的1、掌握列表框和组合框的使用。2、掌握自定义类型及数组的使用。二、实验环境 VB6.0三、实验内容1、设计一个如下图所示的应用程序。当“预装”复选框没有被选定时,它下面的两个单选按钮不能使用。如果单击“确定”按钮,则在列表框中显示用户所选择的配置。2、设计一个选课的运行界面。它包括2个列表框,左边为已开设的课程名称,通过Form_L
5、oad事件加入。当单击某课程名称后,将课程加入到右边列表框,并在左边列表框中删除该课程。当右边课程数已满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.
6、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 数
7、据库应用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. 掌握
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
9、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六、实验体会本次试验的难度也是非常大,但是我从中学到了很多,比如函数的运用以及其他的利用,对我来说虽然难度大但是十分值得。
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1