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

1、VB程序设计实验单元二实验报告专业班级：1306 姓名 刘铭沂 学号 0602 指导教师： 王自强完成时间:_实验五数组(1 )一、实验目的1、 掌握数组的常用操作和常用算法。2、 掌握列表框和组合框的使用。3、 掌握自定义函数和过程的定义和调用方法二、实验环境三、实验内容1、假设已使用Dim Num(99) as integer®句定义了一个数组，并且在该数组中存 储了 100个学生的成绩，请编写代码在窗体上打印出最高分与最低分。2、从键盘上任意10个整数，然后按由大到小的顺序显示出来。3、编程求下列矩阵主对角线上的元素之和。1 2 34 5 6< 7 8 9J四、实验步骤一

2、 .输入以下代码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)<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) = Tex

3、t2: a(3) = Text3: a(4) = Text4: a(5) = Text5: a(6) = Text6: a(7)=Text7: a(8) = Text8: a(9) = Text9: a(10) = Text10For b = 1 To 9For i = 1 To 10 - bIf a(i) > a(i + 1) Thent = a(i + 1): a(i + 1) = a(i): a(i) = tEnd IfNext iNext bPrint a;a;a;a;a;a(6); a;a(8); a(9); a(10)End Sub三.输入以下代码Private Sub Fo

4、rm_Click()Dim s As IntegerDim i As IntegerDim j As IntegerDim d(3, 3) As IntegerDim n As Integer'先构成矩阵的二维数组n = 0Fori = 1 To 3Forj = 1 To 3n = n + 1d(i, j) = nNext jNext i输出矩阵Fori = 1 To 3Forj = 1 To 3Print d(i, j),Next jPrintNext i计算主对角线和并输出s = 0Fori = 1 To 3Forj = 1 To 3If i = j Then s = s + d(

5、i, j)Next jNext iPrint sEnd Sub五、实验结果E GEMATTHEW六、实验体会本次试验难度越来越高，我也经过一番搜寻和借鉴才完成了本 次试验，总体来说对 VB已经感到压力非常大。实验五数组（2）一、 实验目的1、掌握列表框和组合框的使用。2、掌握自定义类型及数组的使用二、实验环境三、实验内容1、设计一个如下图所示的应用程序。当“预装”复选框没有被选定时，它下面 的两个单选按钮不能使用。如果单击“确定”按钮，则在列表框中显示用户所选 择的配置。2、设计一个选课的运行界面。它包括 2个列表框，左边为已开设的课程名称， 通过Form_Load事件加入。当单击某课程名称后

6、，将课程加入到右边列表框，并在左边列表框中删除该课程。当右边课程数已满 5门时，不允许再加入。Fa- t|Fx供选课程我选的课程JAVA程序设计 数据库 大学计算机基础 网页设计四、实验步骤依次输入以下代码Dim flag As BooleanFor i = 0 To - 1If (i) = Thenflag = TrueExit ForEnd IfNext iIf flag = False ThenEnd SubPrivate Sub Command1_Click()If = 1 ThenEnd IfIf = 1 ThenIf Option1 ThenElseEnd IfEnd IfEnd

7、Sub二.Private Sub Form_Load()"c程序设计""VB程序设计""JAVA程序设计"”数据库应用"”大学计算机基础”"网页设计"End SubPrivate Sub List1_Click()If >= 5 ThenMsgBox ("超过5门课程，不能再选")Exit SubElseEnd IfEnd Sub五、实验结果£lfl Mxi ME 乜01福修)|1d|吗H I7HL 二晚的 ya :热电*_I用 二片干tl网厘 二谢，这毋部弟源4uiL

8、I nilJE-a! 3*1 尾上iit， ii »乜" kiiti 4伸”n ribs ：4i Lipk1,口:i r川 I ul Li idl LlMLi*j S ，3中厂出一H TWV二苗 如E M Qis =iE&Lle:I Th口虱 1. li” Li”liwi1111sl - f orail fCadtf!z向。日hMl mC Iri)六、头验体会本次VB试验的界面就非常难以设计，而试验代码更加难以写就。经过一番讨教后我也终于 完成了作业。实验七 过程一、实验目的1 .掌握自定义函数和过程的定义和调用方法。2 .掌握实参和形参之间的对 应关系。二、实验环

9、境三、实验内容1、编一函数过程IsPrime (n)对于已知正整数n,判断该数是否是素数，函数的返回值类型为布尔型。主调程序每输入一个数,调用该函数过程，然后在图形框中显示输入的数。对于素数，显示一个界面如下:2、分别用函数和子过程求表达式:的和四、实验步骤.依次输入以下代码二依次输入以下代码Function sum(ByVal n As Integer) As SingleDim i As Integersum = 0For i = 1 To nsum = sum + 1 / i A 2Next iEnd FunctionPrivate Sub Form_Load()Dim n As Int

10、egern = Fix(Val(InputBox("请输入你要求和的项数：")MsgBox "1+.+1/" & n & "A2=" & sum(n)End SubPrivate Function IsZ(ByVal k As Long) As BooleanDim i As LongFor i = 2 To Sqr(k)If k Mod i = 0 ThenIsZ = FalseExit FunctionEnd IfNext iIsZ = TrueEnd FunctionPrivate Sub Command1_Click()Print Choose(2 + IsZ(Text1), " ", "") & Text1End SubiLREl -的 5餐1版 痴心 ItETTjF+U Sm rft£. 也总 2罚 K4 IM1 町 94地 M叱 *讣-k M z W B ; 2W.Wfl 判中 1m%X*|l - Mieravm VlHuil kMK |ia>|