VB6.0上机实验报告.doc

试 验 报 告院（系）： 课程名称： 日期：班级学号机房专业姓名 时间实验名称VB上机实验成绩评定所用软件教师签名实验目的及要求一、1. 了解VB/VB.NET系统对计算机软件、硬件的要求，掌握启动和退出VB/VB.NET的方法；2. 了解和使用VB/VB.NET集成开发环境各窗口、菜单的一般功能；3. 了解常用控件的生成及其属性、事件和方法；4. 熟悉编辑、调试、运行、保存一个VB/VB.NET应用程序的全过程。二、1. 熟练掌握分支结构程序设计的原理和实现方法；2. 熟练掌握循环结构程序设计的原理和实现方法；3. 掌握常用输入数据方法；4. 掌握数组的定义和引用方法。三、1. 熟练使用顺序结构、分支结构、循环结构实现程序的编写；2. 掌握用户菜单定义，实现功能集成；3. 综合使用不同控件，实现界面的美观及使用；4. 实现简单动画。实验步骤、心得体会实验一1用文本框输入一个数并保存到变量X，如果100X=100 and x=200 then print xEnd sub2. 已知三角形三条边的边长分别为a、b、c。请编写程序计算三角形面积：面积=。其中：s=（a+b+c）/2（要求输入合理）。代码：Private sub command1_click()a=val(text1.text)b=val(text2.text)c=val(text3.text)s=(a+b+c)/2if a+b 0 y = 2 * x * x - 5 * x + 3 Case 0 y = 0 Case Is 0 y = (x 3 - Sqr(5) / (x + 1) End Select Print y= & yEnd Sub2编写竞赛用评分程序：去掉一个最高分，去掉一个最低分，选手的得分最后为余下分数的平均分。Dim a(6) As DoublePublic Sub Command1_Click() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = End SubPrivate Sub Command2_Click()a(0) = Text1.Texta(1) = Text2.Texta(2) = Text3.Texta(3) = Text4.Texta(4) = Text5.Texta(5) = Text6.TextFor i = 0 To 4p = iFor j = i + 1 To 5If a(j) a(p) Thenp = jEnd IfNext jIf p i Thentemp = a(p)a(p) = a(i)a(i) = tempEnd IfNext iy = (a(1) + a(2) + a(3) + a(4) / 4Print average score is: & yEnd SubPublic Sub Form_Load()End Sub3. 找出1000以内20个最大的素数，并计算其累加和。Private Sub Command1_Click()Dim a(1 To 20) As Integerk = 1For i = 1000 To 3 Step -1 For j = 2 To Sqr(i) If i Mod j = 0 Then Exit For Next j If j Sqr(i) Then a(k) = i k = k + 1 End If If k = 21 Then Exit For Next i For p = 1 To 20 List1.AddItem a(p) Next ps = 0 For m = 1 To 20 s = s + a(m) Next m Text1.Text = s Command1.Enabled = FalseEnd Sub4输出所有“水仙花数”：一个三位数=每位数字的立方和。如153=13+53+33Private sub form_click()I=100DOA=I100B=（I-100*A）10C=I-A*100-B*10IFI=A*A*A+B*B*B+C*C*CTHENPRINTIENDIFI=I+1LOOPUNTILI999endsub5. 用随机函数产生50个10，100 ）的随机整数，并按照由小到大的顺序打印出来。代码：Private Sub Command1_Click()Dim a(50) As Integer, tmp As IntegerDim i As Integer, j As IntegerRandomize TimeFor i = 1 To 50 a(i) = Int(Rnd * 71) + 30 Picture1.Print a(i); If i Mod 10 = 0 Then Picture1.PrintNextFor i = 1 To 50 For j = i To 50 If a(i) a(j) Then tmp = a(i) a(i) = a(j) a(j) = tmp End If NextNextFor i = 1 To 50 Picture2.Print a(i); If i Mod 10 = 0 Then Picture2.PrintNextCommand1.Enabled = FalseEnd Sub6. 设计一个程序随机产生一个三位正整数显示在文本框中，然后在另一个文本框中逆序输出。代码：Dim x As IntegerPrivate Sub Command1_Click()Randomizex = Int(Rnd * 900) + 100Text1.Text = CStr(x)End SubPrivate Sub Command2_Click()a = x 100b = (x Mod 100) 10c = x Mod 10Text2.Text = c & b & aEnd Sub实验三1. 分别用子程序、自定义函数过程计算:3!+5!+7!过程：Dim y as integerPrivate sub form_click()Sum=0Call fun(3)Sum=sum+yCall fun(5)Sum=sum+yCall fun(7)Sum=sum+yPrint “sum=” & sumEnd sub Private sub fun(x)Y=1For i=1 to x Y=y*iNext iEnd sub子函数：Private sub form_click()Sum=fun(3)+fun(5)+fun(7)Print sumEnd subPublic function fun(x)Y=1For i=1 to xY=y*iNext iFun=yEnd function2，编写程序：验证任意一个不超过9位的自然数，经过下述的反复变换最终得到123。变换方法是：统计该数的各位数字，将偶数数字（0算偶数数字）个数记为a，奇数数字个数记为b，该数位数记为c；以a为百位数、b为十位数、c为个位数，得到一个新数（若a0，则以b为百位数、a为十位数），若这个新数不是123，再按上述步骤进行变换，直到出现123为止。123被称为陷阱数题2 程序运行界面代码：PrivateSubCommand1_Click()DimxAsLongDimiAsIntegerx=Val(Text1)List1.AddItemxDoCallValidate(x)List1.AddItemxLoopUntilx=123List1.AddItem验证成功!EndSubPrivateSubValidate(xAsLong)Dima%,b%,c%,i%c=Len(CStr(x)Fori=1TocIfMid(CStr(x),i,1)Mod2=0Thena=a+1Nextib=c-aIfa0Thenx=a*100+b*10+cElsex=b*100+a*10+cEndIfEndSubPrivateSubCommand2_Click()Text1=List1.ClearText1.SetFocusEndSubPrivateSubCommand3_Click()EndEndSub3，一个球从500 m高度自由下落，每次落地后反跳回原高度的一半，再落下。求它在第10次落地时，共经过多少米？落地10次反弹高度多少？代码：Private sub form_click()U=500For i=1 to 10S=s+uu=u/2s=s+unext is=s-uprint sprint uend sub4. 计算运费。规则如下:50km以内: 运费=运量(t)*距离(km)*1(元)50100km: 运费=运量(t)*距离(km)*0.8(元)101300km:运费=运量(t)*距离(km)*0.6(元)300km以上:运费=运量(t)*距离(km)*0.5(元) Private Sub Command1_Click()Text1.Text = Text2.Text = Text3.Text = End SubPrivate Sub Command2_Click()a = Val(Text1.Text)b = Val(Text2.Text)If b = 50 And b = 101 And b 300 Theny = a * b * 0.5End IfEnd IfEnd IfEnd IfText3.Text = yEnd SubPrivate Sub Command3_Click()EndEnd Sub5.编程实现图像移动：运行程序，单击“水平移动”按钮，图片沿着水平方向移动；单击“垂直移动”按钮，图片沿着垂直方向移动；单击“沿对角线移动”按钮，图片沿着对角线方向移动。图片任意选择电脑上一幅即可。 Private Sub Command1_Click()Picture1.Left = Picture1.Left + 100End SubPrivate Sub Command2_Click()Picture1.Top = Picture1.Top + 100End SubPrivate Sub Command3_Click()Picture1.Left = Picture1.Left + 100Picture1.Top = Picture1.Top + 100End SubPrivate Sub Command4_Click()EndEnd Sub6. 设计一个程序找出数组中的最大值、最小值，并计算所有元素的平均值。Dim A(20) As IntegerDim max As Integer, min As IntegerPrivate Sub Command1_Click()Dim i As Integermax = A(1)For i = 2 To 20If A(i) max Then max = A(i) End IfNext iText1.Text = maxEnd SubPrivate Sub Command2_Click()Dim i As Integermin = A(1)For i = 2 To 20If A(i) min Thenmin = A(i) End IfNext iText2.Text = minEnd SubPrivate Sub Command3_Click()Dim S, n, i As Integern = 0For i = 1 To 20n = n + A(i)S = n / 20Next iText3.Text = SEnd SubPrivate Sub Form_Click()Dim i As IntegerFor i = 1 To 20RandomizeA(i) = Int(Rnd * 101 + 0)Picture1.Print A(i) & ;Next iEnd Sub7.写两个函数，分别求两个数的最大公约数和最小公倍数。 Private Sub Form_Click()Dim m As Long, n As Longm = Val(InputBox(请输入第一个数：)n = Val(InputBox(请输入第二个数：)If m 1 Or n = B, A, B) x存入最大值Y = IIf(A max Thenmax = a(i)iMax = iEnd IfNext iFor i = iMax To N - 1a(i) = a(i + 1)Next iN = N - 1ReDim Preserve a(N)For i = 1 To NText2.Text = Text2.Text & a(i) & Space(3)Next iEnd Sub9. 设计如下图所示的界面，左列表框列出了某数据表格的各列(字段)名称。要求：单击按钮将左列表框中选择的书名移动到右列表框中；单击= 0 Then List2.AddItem List1.Text List1.RemoveItem List1.ListIndex Else MsgBox 请先在列表中选择某字段, , 注意 End IfEnd SubPrivate Sub Command2_Click() If List2.ListCount = 0 Then MsgBox 列表中已没有可选的字段, , 注意 Exit Sub End If If List2.ListIndex = 0 Then List1.AddItem List2.Text List2.RemoveItem List2.ListIndex Else MsgBox 请先在列表中选择某字段, , 注意 End IfEnd SubPrivate Sub Command3_Click()For i = 0 To List1.ListCount - 1 List1.Selected(0) = True List2.AddItem List1.Text List1.RemoveItem 0 Next iEnd SubPrivate Sub Command4_Click()For i = 0 To List2.ListCount - 1 List2.Selected(0) = True List1.AddItem List2.Te