[工学]VB上机实验一至十五编码.doc

上机实验 实验一 VB的集成环境 [实验目的] 熟悉Visual Basic 6.0（VB 6.0）的集成开发环境。 了解使用VB 6.0实现一个应用程序的操作过程。 掌握VB 6.0应用程序界面设计的操作方法。 掌握VB 6.0程序代码的输入、修改和运行的方法。 [实验内容] 了解以下知识： Windows资源管理器的基本操作 VB 6.0的启动与退出 VB的集成开发环境 VB应用程序的实现过程 例1：求圆面积 设计界面 编写代码 Private Sub Command1_Click() Dim r as single,s as single r = Val(Text1.Text) s = 3.14 * r * r Text2.Text = Str(s) End Sub 保存工程 运行程序 例2：创建一个使标签文字的从左向右移动的工程 设计界面 2）编写代码 Private Sub Timer1_Timer() Label1.Left = Label1.Left + 100 If Label1.Left = Me.Width Then Label1.Left = -Label1.Width End If End Sub 实验二 窗体 [实验目的] 巩固在实验一中所学到的知识――VB集成开发环境的基本操作。 学习并掌握窗体的常用属性、事件和方法的作用与用法。 [实验内容] 了解以下知识： 对象以及对象的属性、事件和方法等有关概念 窗体及窗体的常用属性、事件和方法 例1：设一程序，控制窗体的高度增加、减少，宽度的增加、减少，窗体上部与屏幕顶部的相对距离，窗体左部与屏幕左部的距离 设计界面： 代码： Private Sub Command1_Click() Form1.Width = Form1.Width + 100 End Sub Private Sub Command2_Click() Form1.Width = Form1.Width - 100 End Sub Private Sub Command3_Click() Form1.Height = Form1.Height + 100 End Sub Private Sub Command4_Click() Form1.Height = Form1.Height - 100 End Sub Private Sub Command5_Click() Form1.Left = Form1.Left - 100 End Sub Private Sub Command6_Click() Form1.Left = Form1.Left + 100 End Sub Private Sub Command7_Click() Form1.Top = Form1.Top - 100 End Sub Private Sub Command8_Click() Form1.Top = Form1.Top + 100 End Sub 例2: 在运行阶段设置窗体标题为“Load事件”，窗体显示在屏幕的正中央，并将其背景设置为蓝色（用VB中的常量vbBlue）。 Private Sub Form_Load() Form1.BackColor = vbBlue Form1.Caption = Load事件 Form1.Left = (Screen.Width – Form1.Width) / 2 Form1.Top = (Screen.Height – Form1.Height) / 2 End Sub 例3：form1两个按钮，控制form2，form3的显示；form2一个按钮，用于隐藏自己。（另外，通过该例子，练习如何在多个窗体中设置启动窗体） 代码： Form1中的代码： Private Sub Command1_Click() Form2.Show End Sub Private Sub Command2_Click() Form3.Show End Sub Private Sub Command3_Click() End End Sub Form2中的代码： Private Sub Command1_Click() Me.Hide End Sub 例4：编写满足如下要求的程序：当窗体的Click, Load, Initialize,Unload事件发生时，给出相应的报告 Private Sub Form_Click() MsgBox 窗体发生了click事件 End Sub Private Sub Form_Initialize() MsgBox 窗体发生了initialize事件 End Sub Private Sub Form_Load() MsgBox 窗体发生了lo