TxtClick.Text = "单击实验成功"
End Sub
Private Sub TxtDblick_Change()
TxtDblick.Text = "双击实验成功"
End Sub
3. Private Sub Form_Click()
Label2.Caption = "真诚欢迎进入VB世界"
Label3.Caption = "在窗口空白处双击击"
End Sub
4、Private Sub Command1_Click()
Text1.Text = "脑海"
End Sub
5、
五、总结
对上机实践结果进行分析，问题回答，上机的心得体会及改进意见。
1、课本要认真看过，一些关键英文表示什么意思要了解。
2、这次课程让我对VB6.0编程的过程有了一个比较初步的了解，对于VB6.0事件驱动的编程机制也有了一个初步的概念。
实验报告(一)
课程名称：VB程序设计
年级：11级
实验日期：2012/2/17
姓名：江志星
学号：2011091517
班级采矿工程：
实验名称：实验一Visual Basic程序上机简介（2学时）
教师评语（成绩）：
一、实验目的及要求
掌握启动与退出VB的方法、熟悉VB开发环境、掌握建立、编辑和运行一个简单的VB应用程序的全过程
1、Private Sub Text1_Change()
Text2.Text=Text1.Text
End Sub
Private Sub Command1_Click()
TxtClick.Text = ""
TxtDblick.Text = ""
End Sub
Private Sub TxtClick_Change()
End Sub
Private Sub Form_DblClick()
Label1.Caption = "在窗口空白处单击"
Label2.Caption = ""
Label3.Caption = ""
End Sub
Private Sub Form_Load()
Label1.Caption = "在窗口空白处单击"
通过编写和运行相关程序，掌握常用控件（文本框、标签、命令按钮）sual Basic6.0
三、实验内容
学习指导P12实验内容
1、实现两个文件框的内容同步
2、按要求完成程序设计
3、按要求完成设计
4、完成所示操作
四、实验步骤（或记录）及相关代码