《VB程序设计》实验单元二.doc

VB程序设计实验单元二实验报告专业班级： 姓名 学号 实验五 数组（1）一、实验目的1、 掌握数组的常用操作和常用算法。二、实验环境 VB6.0三、实验内容1、假设Dim Num(9) as integer语句定义了一个数组，并且在该数组中存储了10个学生的成绩，请编写代码在窗体上打印出最高分与最低分。四、实验步骤绘制一个command，程序代码为：Private Sub Command1_Click()Dim Min As Integer Max = Num(0) Min = Num(0) For i = 1 To 9 If Num(i) Max Then Max: Num (i) If Num(i) Max Then Min: Max (i) Next i Print 最高分是: & Max; Print 最低分是: & Min;End Sub五、实验结果三、实验内容2、输入任意10个整数，然后按由大到小的顺序显示出来。四、实验步骤程序编码为：Option Base 1Dim a(10) As IntegerDim i%, j%, t%Private Sub Command1_Click()For i = 1 To 10a(i) = Val(InputBox(请输入第 & i & 个数!)Picture1.Print a(i)Next iEnd SubPrivate Sub Command2_Click()For i = 1 To 99For j = i + 1 To 10If a(i) = 5 Then MsgBox (超过5门，不能再选) End IfEnd Sub五、实验结果实验七 过程一、实验目的1. 掌握自定义函数和过程的定义和调用方法。2. 掌握实参和形参之间的对应关系。二、实验环境 VB6.0三、实验内容1、编一函数过程IsPrime (n),对于已知正整数n,判断该数是否是素数,函数的返回值类型为布尔型。主调程序毎输入一个数，调用该函数过程，然后在图形框中显示输入的数。对于素数，显示一个“”。界面如下：四、实验步骤1. 编写的程序：Private Sub Command1_Click() n = Val(Text1.Text) isprime (n)End SubPrivate Sub isprime(ByVal n) Picture1.Print n yes = ture For i = 2 To Sqr(n) If n Mod i = O Then yes = Fasle Next i If yes Then Picture1.Print Picture1.PrintEnd Sub五、实验结果三、实验内容2、分别用函数和子过程求表达式： 的和四、实验步骤编写的程序：Private Function sum(n#) As Double Dim s s = 1 For i = 1 To n s = s + 1 / i Next i sum = sEnd FunctionPr