实验参考_VBNET.docVIP

实验1：VB入门基本练习 实验目的：掌握标签、按钮属性的设置，理解VB编程中对象、属性、方法、事件的概念及应用 实验要求：设计如右边窗体，要求单击“显示”按钮显示图中红色标签；单击“隐藏”按钮隐藏红色标签。“退出”按钮则退出整个程序。 实验步骤： （1）：通过相应对象的属性设置，达到右图所示的视觉效果。 （2）：通过相应对象事件代码实现动态变化： Private Sub Command1_Click() Label1.Visible = True End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() Label1.Visible = False End Sub 实验2：VB编制图形化计算程序 实验目的：将以前学习的基本程序设计思想应用于VB，理解VB编程的基本特点。 实验要求：实现右图所示窗体，要求在文本框中输入数字，按“求累加和”按钮，即在下面用红色数字显示累加和结果。若文本框中输入了非法数据，要求提示用户。 实验步骤： （1）：设置各对象的属性，以达到右图视觉效果。 （2）编制相应的程序代码： Option Explicit Dim i As Long, x1 As Long, x2 As Long, y As Double Private Sub Command1_Click() y = 0 Label3.AutoSize = True On Error GoTo error_1 If IsNumeric(Text2.Text) And IsNumeric(Text1.Text) Then x1 = Val(Text1.Text) x2 = Val(Text2.Text) If x1 = x2 Then For i = x1 To x2 y = y + i Next i Else For i = x2 To x1 y = y + i Next i End If Label3.Caption = y Else MsgBox 文本框中输入的不是数值，请重输, vbOKOnly, 错误 End If Exit Sub error_1: MsgBox 数据溢出, vbOKOnly, 错误 Label3.Caption = End Sub Private Sub Command2_Click() Unload Me End Sub 实验3：用时钟控件实现动画效果 实验目的：掌握时钟控件的使用 实验要求：实现右图效果，图中“文字时钟”在窗体内做直线运动（上下左右），碰到窗体的边缘后沿反方向弹回，且程序运行中窗体大小的变化不影响运行效果 实验步骤： （1）：设置时钟属性：interval:10(0即可) （2）：参考事件代码： Option Explicit Dim arrow1 As Integer, arrow2 As Integer Private Sub Timer1_Timer() 控制左右方向 Label1.Caption = Time If arrow1 = 0 Then If Label1.Left Form1.ScaleLeft Then arrow1 = 1 Else Label1.Left = Label1.Left - 50 End If Else If Label1.Left + Label1.Width Form1.ScaleLeft + Form1.ScaleWidth Then arrow1 = 0 Else Label1.Left = Label1.Left + 50 End If End If 控制上下方向 If arrow2 = 0 Then If Label1.Top Form1.ScaleTop Then arrow2 = 1 Else Label1.Top = Label1.Top - 50 End If Else If Label1.Top + Label1.Height Form1.ScaleTop + Form1.ScaleHeight Then arrow2 = 0 Else Label1.Top = Label1.Top + 50 End If End If End Sub 实验4：高级控件的应用 实验目的：掌握imagelist，treeview，listview的用法 实验要求：实现右图效果，并可以在右边图标框内可以通过弹出菜单实现图标的排列。下面状态栏根据不同的选择给出相应的提示 实验步骤： （1）：添加