实验一 Visual Basic环境和简单程序设计.doc

实验一 Visual Basic环境和简单程序设计一、实验目的1掌握Visual Basic启动和退出的方法。2熟悉Visual Basic的集成开发环境。3掌握Visual Basic程序设计的基本步骤。4掌握基本控件（标签、命令按钮和文本框）的基本使用方法。二、实验内容1 启动Visual Basic，然后创建一个“标准 EXE”工程。了解Visual Basic集成开发环境下各组成部分及其作用。【要求】（1）在集成开发环境中分别寻找“窗体窗口”、“属性窗口”、“工程资源管理器”、“窗体布局窗口”、“工具箱窗口”，熟悉它们的默认位置。（2）在“视图”或“工程资源管理器”中切换显示“代码窗口”和“窗体窗口”。（3）在“视图”菜单中点击“立即窗口”，观察刚刚显示出来的“立即窗口”。（4）尝试分别将各部分关闭，然后再用“视图”菜单中对应的菜单命令将其显示。2 编写一个简单的应用程序。要求窗体的标题为“简单VB实验”；窗体中有一个标题为“显示”的按钮；单击该按钮后在窗体上显示红色的“广西师范学院”。【步骤】（1）设计应用程序的界面：在窗体上创建一个命令按钮Command1、一个标签Label1。（2）设置对象的属性对象名称属性名称属性值Form1Caption简单VB实验Label1ForeColor红色Command1Caption显示（3）编写事件代码：Private Sub Command1_Click() Label1.Caption = 广西师范学院End Sub（4）程序的运行及保存。【提示】在窗体上显示“广西师范学院”有两种方法：（1）用Print方法：设置窗体的前景色为红色。（2）用一个标签控件：设置标签控件的前景色为红色。【思考】为什么在以上两种方法中在颜色的设置问题上有所不同？3 通过编程修改控件的属性。【要求】（1）进入程序设计的界面如图1-1（a）。（2）点击“单击此处”按钮后程序运行的界面如图1-1(b)。【步骤】（1）在窗体中创建一个标签Label1、一个命令按钮Command1。（2）在属性窗口中设置对象的属性：对象名称属性名称属性值Form1Caption设计界面Label1Caption请留意此处Command1Caption单击此处（3）在Command1的Click事件中编写程序代码：Private Sub Command1_Click() Form1.Caption = 编程后界面 Label1.Caption = 欢迎您使用VB 6.0 Command1.Caption = 运行结果End Sub【提示】可以通过两种方法设置对象的属性：（1）在程序设计状态，通过属性窗口对该属性进行修改或设置。（2）在程序运行状态，通过程序中的语句动态地更改对象的属性。修改对象属性的语句格式： 对象名.属性名称=新设置属性值实验二 顺序结构程序设计一、实验目的1掌握常量和变量、表达式的基本概念和正确书写格式。2掌握赋值语句和常用函数的正确使用方法。3掌握输入、输出对话框（InputBox和MsgBox）的基本使用方法。二、实验内容1 假设有变量a=2,b=5,c=4,d=3,e=6，编写程序，计算表达式a+bc and d*a=e的值，将结果打印在窗体上。【提示】注意复合表达式的运算顺序。【思考】复合表达式按什么样的顺序运算？2 编写程序，界面如图2-1所示。使得单击一次按钮可以产生一个60,90之间的随机数并显示在标签Label1上，再求出该数的正弦值，将结果写在标签Label2上。【步骤】（1）设计应用程序的界面：在窗体上创建一个命令按钮Command1、两个标签Label1和Label2。（2）设置对象的属性对象名称属性名称属性值Form1Caption随机数的正弦值Command1Caption下一个随机数Label1CaptionLabel2Caption（3）编写事件代码：Private Sub Command1_Click() Dim x!, y! Randomize x = Rnd * 31 + 60 y = Sin(x) Label1.Caption = 随机数（60-90）： & Str(x) Label2.Caption = 正弦值 ： & Str(y)End Sub（4）程序的运行及保存。【提示】（1）使用Rnd函数产生随机数，注意，为了防止两次运行程序的随机数序列相同，调用Rnd之前先用Randomize语句进行初始化。（2）产生某闭区间内的随机数的公式为：(上限-下限+1)*rnd+下限。（3）求正弦值函数为：sin()。【思考】怎样产生一个60,90之间的随机数？ 3 编写一个华氏温度F与摄氏温度C之间转换的应用程序，界面如图2-2所示。其中F与C之间的关系为：。【步骤】（1）设计应用程序的界面：在窗体上创建两个命令按钮Command1和Command2、两个标签Label1和Label2、两个文本框Text1和Text2。（2）设置对象的属性对象名称属性名称属性值Form1Caption温度转换Command1CaptionCommand2CaptionLabel1Caption华氏温度Label2Caption摄氏温度Text1TextText2Text（3）编写事件代码：Private Sub Command1_Click() Dim f!, c! f = Val(Text1.Text) c = (f - 32) * 5 / 9 Text2 = Str(c)End SubPrivate Sub Command2_Click() Dim f!, c! c = Val(Text2.Text) f = 9 / 5 * c + 32 Text1 = Str(f)End Sub（4）程序的运行及保存。4 求圆的面积及圆柱体的体积，界面如图2-3所示。【步骤】（1）设计应用程序的界面：在窗体上创建两个命令按钮Command1和Command2，四个标签Label1、Label2、Label3和Label4，四个文本框Text1、Text2、Text3和Text4。（2）设置对象的属性对象名称属性名称属性值Command1Caption求圆的面积Command2Caption求圆柱的体积Label1Caption圆的半径Label2Caption圆柱的高Label3Caption圆的面积Label4Caption圆柱的体积Text1、Text2、Text3、Text4Text（3）编写事件代码：Private Sub Command1_Click()Dim r As Single, s As Single r = Val(Text1.Text) s = 3.14159 * r * r Text3.Text = Str(s)End SubPrivate Sub Command2_Click() Dim r!, h!, v! r = Val(Text1.Text) h = Val(Text2) v = 3.14159 * r * r * h Text4 = vEnd Sub（4）程序的运行及保存。实验三 选择结构程序设计一、实验目的1掌握逻辑表达式的正确使用方法。2掌握单分支、双分支和多分支条件语句结构的使用方法。二、实验内容1 有函数：写一个程序，输入x值后，则输出相应y值。要求用“IfElseIfEndIf”和用“Select Case”两种方法完成该题目。【提示】注意区分1x10和1=x And x 0 Then If y 0 Then Label1.Caption = 在第一象限 Else Label1.Caption = 在第四象限 End If Else If y 0 Then Label1.Caption = 在第二象限 Else Label1.Caption = 在第三象限 End If End IfEnd Sub（4）程序的运行及保存。3 编写一个网吧收费程序。【要求】（1）运行界面如图3-2所示。（2）网吧基本收费为2元/小时。（3）根据不同的上机时数x，上机费用y可以按以下公式计算收费： 【步骤】（1）设计应用程序的界面：在窗体上创建一个命令按钮Command1，两个标签Label1和Label2，两个文本框Text1和Text2。（2）设置对象的属性对象名称属性名称属性值Command1Caption计费Label1Caption上机时数Label2Caption上机费用Text1、Text2Text（3）编写事件代码：Private Sub Command1_Click() Dim x!, y! x = Val(Text1) If x 3 Then y = 2 * x ElseIf x 5 Then y = 2 * 0.9 * x ElseIf x 6000为止。5 计算的值，当第i项时结束。6 已知工厂去年的年产值为300万元，年增长率为15%。试问经过多少年后，该工厂的年产值可以翻一番？翻一番后的实际产值是多少？【步骤】（1）设计应用程序的界面：在窗体上创建一个命令按钮Command1，八个标签Label1Label8，四个文本框Text1Text4，如图4-3。（2）设置对象的属性对象名称属性名称属性值Command1Caption翻一番Label1Caption现有产值Label2Caption元Label3Caption年增长率Label4Caption%Label5Caption经过Label6Caption年Label7Caption产值为：Label8Caption元Text1Text4Text（3）编写事件代码：Private Sub Command1_Click() Dim p!, s!, y%, r! p = Val(Text1) r = Val(Text2) / 100 y = 0 s = 0 Do y = y + 1 s = p * (1 + r) y Loop While s 【符号】中找到，再从Word中剪切或复制到VB代码中。（4）可以将窗体的AutoRedraw属性设为True，以防初始大小的窗体显示不下全部内容。8 显示所有的水仙花数。所谓水仙花数，就是指一个3位正整数，其各位数字的立方和等于该数本身。例如，153即为水仙花数。【步骤】（1）界面设计：在窗体上创建一个图形框Picture1。（2）编写事件代码：Private Sub Picture1_Click() Dim i% Picture1.Cls Picture1.Print For i = 100 To 999 a = i 100 b = i 10 Mod 10 c = i Mod 10 If i = a 3 + b 3 + c 3 Then Picture1.Print i; Next iEnd Sub（3）程序的运行及保存。【提示】本题目解法有两种：（1）对3位数的各位数组合进行穷举：利用3重循环，将3个个位数组成一个3位数进行判断。例如，3位数的各位数从高位到低位依次为a、b、c，则对应的3位数为a*100+b*10+c。（2）对所有3位数进行穷举：利用单循环对所有3位数进行穷举，循环内将一个3位数拆成3个个位数进行判断。例如，对s678进行拆解时：个位数s Mod 10；十位数（s10） Mod 10；百位数s100。当然，也可以将上述拆解过程写为一个循环（这时就是利用双重循环，内层循环即为拆解过程）。实验五 数组及其应用一、实验目的1掌握数组的基本概念。2掌握数组的声明、引用。3掌握静态数组和动态数组的区别。4掌握控件数组。4掌握如何利用数组解决与数组相关的常用算法（特别是排序算法）。二、实验内容1 随机产生10个0100之间（包括0和100）的整数，存放在一个数组中，然后求各元素之和、平均值，统计大于平均值的元素个数并把它们打印出来，如图5-1所示。【步骤】（1）设计应用程序的界面：在窗体上创建三个命令按钮Command1、Command2和Command3，四个标签Label1、Label2、Label3和Label4，两个文本框Text1和Text2，两个图形框Picture1和Picture2。（2）设置对象的属性对象名称属性名称属性值Command1Caption求和Command2Caption求平均值Command3Caption统计Label1Caption10个随机整数分别为：Label2Caption各元素之和为：Label3Caption平均值为：Label4Caption大于平均值的元素为：Text1、Text2Text（3）编写事件代码：Option Base 1Dim a(10) As IntegerPrivate Sub Command1_Click() Dim i%, sum% sum = 0 For i = 1 To 10 sum = sum + a(i) Next i Text1 = Str(sum)End SubPrivate Sub Command2_Click() Text2 = Val(Text1) / 10End SubPrivate Sub Command3_Click() Dim i% For i = 1 To 10 If a(i) Val(Text2) Then Picture2.Print a(i); Next iEnd SubPrivate Sub Form_click() Dim i% Randomize Picture1.Cls Picture2.Cls Text1 = Text2 = For i = 1 To 10 a(i) = Int(Rnd * 101) Picture1.Print a(i); Next i End Sub（4）程序的运行及保存。2 编写一个程序，删除数组中某个元素，如图5-2所示。【步骤】（1）设计应用程序的界面：在窗体上创建一个命令按钮Command1，三个标签Label1、Label2和Label3，一个文本框Text1，两个图形框Picture1和Picture2。（2）设置对象的属性对象名称属性名称属性值Command1Caption删除Label1Caption删除前Label2Caption删除后Label3Caption被删除元素的下标Text1Text（3）编写事件代码：Option Base 1Dim a%(10)Private Sub Command1_Click() Dim i%, j% If Val(Text1) 10 Then MsgBox 下标超出范围！ Text1 = Else For i = Val(Text1) + 1 To 10 a(i - 1) = a(i) Next i For i = 1 To 9 Picture2.Print a(i); Next i End IfEnd SubPrivate Sub Form_click() Dim i% Picture1.Cls Picture2.Cls Text1 = For i = 1 To 10 a(i) = Int(Rnd * 900 + 100) Picture1.Print a(i); Next iEnd Sub（4）程序的运行及保存。3 编写一个程序，求一个45矩阵中的最大元素，以及该元素所在的行号和列号，如图5-3所示。【步骤】（1）设计应用程序的界面：在窗体上创建一个图形框Picture1，三个标签Label1、Label2和Label3，三个文本框Text1、Text2和Text3。（2）设置对象的属性对象名称属性名称属性值Label1Caption最大元素Label2Caption行号Label3Caption列号Text1、Text12、Text3Text（3）编写事件代码：Option Base 1Private Sub Form_click() Dim a(4, 5) As Integer, i%, j%, max%, max_i%, max_j% Picture1.Cls Randomize For i = 1 To 4 For j = 1 To 5 a(i, j) = Int(Rnd * 101) Picture1.Print Tab(j - 1) * 6); a(i, j); Next j Picture1.Print Next i max = a(1, 1) max_i = 1 max_j = 1 For i = 1 To 4 For j = 1 To 5 If max max Then max = a(i) Next iEnd Sub（4）程序的运行及保存。3 编一个选择排序子过程，对已知的若干个整数按递增次序排序。【步骤】（1）编写事件代码和子过程：Option Base 1Private Sub Form_click() Dim a%(), n%, i% n = Val(InputBox() ReDim a(n) Cls Print For i = 1 To n a(i) = Int(Rnd * 100) Print a(i); If i Mod 10 = 0 Then Print Next i Print Call sort1(a() Print For i = 1 To n Print a(i); If i Mod 10 = 0 Then Print Next iEnd SubPrivate Sub sort1(a() As Integer) Dim i%, j%, temp% For i = LBound(a) To UBound(a) - 1 p = i For j = i + 1 To UBound(a) If a(j) ”的按钮时，就将候选列表里当前被选中的项移动到选定列表最后；当点击标题为“【部件】中选择并加入【Microsoft Windows Common Controls 6.0】，这时就可以看到控件栏中加入了好几个ActiveX控件，其中有工具栏控件、状态栏控件和图像列表控件（ImageList控件）。工具栏中按钮的图标一般是从ImageList控件中选取，因而应先将选好的图片存入ImageList控件中。图标可从“GraphicsBitmapsOffCtlBrLargeColor”子目录中选取。图8-4 实验8-5程序运行界面5 编写一程序，要求响应键盘的4个方向键，如图8-4所示，当按一次某方向键，就使图片向相应的方向移动50单位距离。 实验九 文件一、实验目的1掌握文件的概念及其使用方法，注意顺序、随机和二进制文件各自的