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

实习二、可视化编程基础一、实习目的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 & zForm1.Caption = x & 在 & y & zEnd Sub运行测试程序运行结束.经过程序运行测试,结果满足要求,设计正确。（2）print和cls方法练习界面设计程序代码Private Sub Command1_Click()Print 1234567890123456789012345678901234567890Print 1, 2, 3Print 1; 2; 3Print -1; -2; -3Print a; b; c, dPrint 3Print 4; 5Print 5PrintPrint 7; 8;PrintPrint TimeEnd SubPrivate Sub Command2_Click()ClsEnd SubPrivate Sub Form_Load()Me.Caption = print与cls练习Command1.Caption = 显示Command2.Caption = 清除End Sub运行过程程序运行结束.经过程序运行测试,结果满足要求,设计正确。（3）通过编程添加或清除窗体的背景图片新建一个工程，在窗体上添加两个命令按钮，窗体和命令按钮的caption属性在窗体的load事件过程代码中设置。窗体设计程序代码Private Sub Command1_Click()Me.Picture = LoadPicture(d:vbjc图片.jpg)End SubPrivate Sub Command2_Click()Me.Picture = LoadPicture()End SubPrivate Sub Form_Load()Me.Caption = 背景切换Command1.Caption = 添加背景&ACommand2.Caption = 背景切换&DEnd Sub运行过程程序运行结束.经过程序运行测试,结果满足要求,设计正确。四立体字可通过对2个标题文本相同，颜色不同的标签错位重叠来实现。 在窗体上添加2个标签。1 界面设计2 程序代码Private Sub Form_Load()With Label1.Caption = 中国.FontBold = True.FontSize = 24.ForeColor = vbWhite.AutoSize = True.BackColor = 0.FontName = 隶书End WithWith Label2.Caption = Label1.Caption.FontBold = True.FontSize = 24.AutoSize = True.BackStyle = 0.FontName = 隶书End WithEnd SubPrivate Sub Label2_Click()Label1.Top = Label2.Top + 40Label1.Left = Label2.Left + 40End Sub3运行过程程序运行结束.经过程序运行测试,结果满足要求,设计正确。五 在意个窗体上建立2个文本框，将获取焦点的文本框的背景设为红色，失去焦点的文本框的背景颜色为白色。1. 界面设计2程序代码Private Sub Form_Load()End SubPrivate Sub Text1_GotFocus()Text1.BackColor = vbRedEnd SubPrivate Sub Text1_LostFocus()Text1.BackColor = vbWhiteEnd SubPrivate Sub Text2_GotFocus()Text2.BackColor = vbRedEnd SubPrivate Sub Text2_LostFocus()Text2.BackColor = vbWhiteEnd Sub3运行过程程序运行结束.经过程序运行测试,结果满足要求,设计正确。六通过键盘为文本框每录入一个字符，都会触发文本框的keypress事件，再通过keypress事件过程参数keyascii,得到按键字符的ASC值。1 界面设计2 程序代码Private Sub Text1_KeyPress(KeyAscii As Integer)Label1.Caption = 您刚按的那个字符的ASCII & KeyAsciiEnd Sub3运行过程程序运行结束.经过程序运行测试,结果满足要求,设计正确。七当文本框内容改变时，会引发文本框的change事件1界面设计2 程序代码Private Sub Command1_Click()Text1.Text = Label.Caption = 当前文本框有0个字符End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Text1_Change()Label.Caption = 当前文本框有 & Len(Text1.Text) & 个字符End Sub3运行过程程序运行结束.经过程序运行测试,结果满足要求,设计正确。八录入学生的信息（姓名，成绩和名次）其中若成绩（text2）录入不符合要求，当光标离开文本框时，显示出错信息，并将光标重新定位到文本框。1 界面设计2 程序代码Private Sub Text2_LostFocus()If Text2.Text 100 ThenMsgBox 输入错误，请重新输入!Text2.SetFocusEnd Sub3 运行结果程序运行结束.经过程序运行测试,结果满足要求,设计正确。九设计程序，显示文本框中的光标位置，选中文本长度和内容。1界面设计2程序代码Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Text2.Text = Text1.SelStartText2.Text = Text1.SelLengthText4.Text = Text1.SelTextEnd Sub3运行结果程序运行结束.经过程序运行测试,结果满足要求,设计正确。十在窗体上添加一个image对象，当鼠标在对象上点击时，显示另一图片，双击时清除图片。1界面设计2程序代码Private Sub Image1_Click()Image1.Picture = LoadPicture(D:TDDOWNLOAD新建文件夹photo_20577.jpg)End SubPrivate Sub Image1_DblClick()Image1.Picture = LoadPicture(D:TDDOWNLOAD新建文件夹4953913_113055006807_2.jpg)End Sub3运行结果程序运行结束.经过程序运行测试,结果满足要求,设计正确。十一1界面设计2程序代码Private Sub Command1_Click()Picture1.Print 努力学好计算机Picture1.FontSize = 12Picture1.Print 努力学好计算机End SubPrivate Sub Command2_Click()Picture1.Circle (800, 800), 300Picture1.Line (1500, 500)-Step(600, 600), , BEnd Sub3运行结果程序运行结束.经过程序运行测试,结果满足要求,设计正确。习题一1界面设计2程序代码Private Sub Command1_Click() Dim f%, h%, x%, y% h = Val(Text1.Text): f = Val(Text2.Text) x = (4 * h - f) / 2 y = (f - 2 * h) / 2 Label3.Caption = 计算结果为: & 鸡有 & x & 只 & 兔有 & y & 只3运行结果程序运行结束.经过程序运行测试,结果满足要求,设计正确。习题二1 界面设计程序代码Private Sub Command1_Click() Dim x%, y%, z%, u%, v%, w%, m% m = Val(InputBox(请输入总金额, 现金兑换, 0) x = m 100 y = (m - x * 100) 50 z = (m - x * 100 - y * 50) 20 u = (m - x * 100 - y * 50 - z *