实验报告模版(第二单元)

VB VB 程序设计程序设计 实验单元二实验单元二 实验报告实验报告 专业班级 1306 姓名 刘铭沂 学号 201324910602 指导教师 王自强 完成时间 2014 4 20 实验五实验五 数组 数组 1 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 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 Integer Dim i As Integer Dim j As Integer Dim d 3 3 As Integer Dim n As Integer 先构成矩阵的二维数组 n 0 For i 1 To 3 For j 1 To 3 n n 1 d i j n Next j Next i 输出矩阵 For i 1 To 3 For j 1 To 3 Print d i j Next j Print Next i 计算主对角线和并输出 s 0 For i 1 To 3 For j 1 To 3 If i j Then s s d i j Next j Next i Print s End Sub 五 实验结果五 实验结果 六 实验体会六 实验体会 本次试验难度越来越高 我也经过一番搜寻和借鉴才完成了本 次试验 总体来说对 VB 已经感到压力非常大 实验五实验五 数组 数组 2 2 一 一 实验目的实验目的 1 掌握列表框和组合框的使用 2 掌握自定义类型及数组的使用 二 实验环境二 实验环境 VB6 0 三 实验内容三 实验内容 1 设计一个如下图所示的应用程序 当 预装 复选框没有被选定时 它下面 的两个单选按钮不能使用 如果单击 确定 按钮 则在列表框中显示用户所 选择的配置 2 设计一个选课的运行界面 它包括 2 个列表框 左边为已开设的课程名称 通过 Form Load 事件加入 当单击某课程名称后 将课程加入到右边列表框 并在左边列表框中删除该课程 当右边课程数已满 5 门时 不允许再加入 四 实验步骤四 实验步骤 依次输入以下代码依次输入以下代码 一 一 Dim flag As Boolean For i 0 To Combo1 ListCount 1 If Combo1 List i Combo1 Text Then flag True Exit For End If Next i If flag False Then Combo1 AddItem Combo1 Text End Sub Private Sub Command1 Click List1 Clear If Check1 Value 1 Then List1 AddItem Combo1 Text List1 AddItem Text1 Text End If If Check2 Value 1 Then If Option1 Then List1 AddItem Option1 Caption Else List1 AddItem Option2 Caption End If End If End Sub 二 二 Private Sub Form Load List1 Clear List1 AddItem c 程序设计程序设计 List1 AddItem VB 程序设计程序设计 List1 AddItem JAVA 程序设计程序设计 List1 AddItem 数据库应用数据库应用 List1 AddItem 大学计算机基础大学计算机基础 List1 AddItem 网页设计网页设计 End Sub Private Sub List1 Click If List2 ListCount 5 Then MsgBox 超过超过 5 门课程 不能再选门课程 不能再选 Exit Sub Else List2 AddItem List1 Text List1 RemoveItem List1 ListIndex End If End Sub 五 实验结果五 实验结果 六 实验体会六 实验体会 本次 VB 试验的界面就非常难以设计 而试验代码更加难以写就 经过一番讨教后我也终 于完成了作业 实验七实验七 过程过程 一 实验目的一 实验目的 1 掌握自定义函数和过程的定义和调用方法 2 掌握实参和形参之间的对应关系 二 实验环境二 实验环境 VB6 0 三 实验内容三 实验内容 1 编一函数过程 IsPrime n 对于已知正整数 n 判断该数是否是素数 函数的返 回值类型为布尔型 主调程序毎输入一个数 调用该函数过程 然后在图形框 中显示输入的数 对于素数 显示一个 界面如下 2 分别用函数和子过程求表达式 的和 四 实验步骤四 实验步骤 一 依次输入以下代码一 依次输入以下代码 二 依次输入以下代码二 依次输入以下代码 Function sum ByVal n As Integer As Single Dim i As Integer sum 0 For i 1 To n sum sum 1 i 2 Next i End Function Private Sub Form Load Dim n As Integer n Fix Val InputBox 请输入你要求和的项数请输入你要求和的项数 MsgBox 1 1 n 2 sum n End Sub Private 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 Tru