实习二_可视化编程基础.docVIP

实习二、可视化编程基础 一、实习目的 1. 掌握窗体的主要属性及Load事件的应用； 2. 掌握Print方法的输出格式控制； 3. 掌握命令按钮和标签的主要属性应用； 4. 掌握文本框的主要属性和事件应用； 5. 掌握工程管理的基本操作； 二、实习内容 1. 完成教材例题上机验证。 2. 完成编程题（P72）1,2题 3. 掌握工程保持，添加、删除窗体文件、设置启动窗体、编译生成EXE文件、运行EXE文件的方法。 三（1）窗体的click事件练习 界面设计 程序代码 Private Sub Form_Click() Dim x$, y$, z$ x = InputBox(请输入一个同学的姓名) y = InputBox(请输入一的地点) z = InputBox(请输入一个动作) MsgBox x 在 y z Form1.Caption = x 在 y z End Sub 运行测试 程序运行结束. 经过程序运行测试,结果满足要求,设计正确。 （2）print和cls方法练习 界面设计 程序代码 Private Sub Command1_Click() Print 1234567890123456789012345678901234567890 Print 1, 2, 3 Print 1; 2; 3 Print -1; -2; -3 Print a; b; c, d Print 3 Print 4; 5 Print 5 Print Print 7; 8; Print Print Time End Sub Private Sub Command2_Click() Cls End Sub Private Sub Form_Load() Me.Caption = print与cls练习 Command1.Caption = 显示 Command2.Caption = 清除 End Sub 运行过程 程序运行结束. 经过程序运行测试,结果满足要求,设计正确。 （3）Private Sub Command1_Click() Me.Picture = LoadPicture(d:\vbjc\图片.jpg) End Sub Private Sub Command2_Click() Me.Picture = LoadPicture() End Sub Private Sub Form_Load() Me.Caption = 背景切换 Command1.Caption = 添加背景A Command2.Caption = 背景切换D End Sub 运行过程 程序运行结束. 经过程序运行测试,结果满足要求,设计正确。 四． 立体字可通过对2个标题文本相同，颜色不同的标签错位重叠来实现。 在窗体上添加2个标签。 1 界面设计 2 程序代码 Private Sub Form_Load() With Label1 .Caption = 中国 .FontBold = True .FontSize = 24 .ForeColor = vbWhite .AutoSize = True .BackColor = 0 .FontName = 隶书 End With With Label2 .Caption = Label1.Caption .FontBold = True .FontSize = 24 .AutoSize = True .BackStyle = 0 .FontName = 隶书 End With End Sub Private Sub Label2_Click() Label1.Top = Label2.Top + 40 Label1.Left = Label2.Left + 40 End Sub 3运行过程 程序运行结束. 经过程序运行测试,结果满足要求,设计正确。 五 在意个窗体上建立2个文本框，将获取焦点的文本框的背景设为红色，失去焦点的文本框的背景颜色为白色。 界面设计 2程序代码 Private Sub Form_Load() End Sub Private Sub Text1_GotFocus() Text1.BackColor = vbRed End Sub Private Sub Text1_LostFocus() Text1.BackColor = vbWhite End Sub Private Sub Text2_GotFocus() Text2.BackColor = vbRed End Sub Private Sub Text2_LostFocus() Text2.BackColor = vbWhite End Sub 3运行过程 程序运行结束. 经过程序运行测试,结果满足要求,设计正确。 六 通过