实习二_可视化编程基础

《实习二_可视化编程基础》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、实习二、可视化编程基础一、实习目的1.掌握窗体的主要属性及Load事件的应用；2.掌握Print方法的输出格式控制；3.掌握命令按钮和标签的主要属性应用；4.掌握文本框的主要属性和事件应用；5.掌握工程管理的基本操作；二、实习内容1.完成教材例题上机验证。2.完成编程题（P72）1,2题3.掌握工程保持，添加、删除窗体文件、设置启动窗体、编译生成EXE文件、运行EXE文件的方法。三（1）窗体的click事件练习界面设计程序代码PrivateSubForm_Click()Dimx$,y$,z$x=InputBox("请输入一个同学的姓名")y=InputBox("请输入一的地

2、点")z=InputBox("请输入一个动作")MsgBoxx&"在"&y&zForm1.Caption=x&"在"&y&zEndSub运行测试程序运行结束.经过程序运行测试,结果满足要求,设计正确。（2）print和cls方法练习界面设计程序代码PrivateSubCommand1_Click()Print"1234567890123456789012345678901234567890"Print1,2,3Print1;2;3Print-1;-2;-3Print"a";"b";"c","d"Print3Print4;5Print5PrintPrint7;8;PrintP

3、rintTimeEndSubPrivateSubCommand2_Click()ClsEndSubPrivateSubForm_Load()Me.Caption="print与cls练习"Command1.Caption="显示"Command2.Caption="清除"EndSub运行过程程序运行结束.经过程序运行测试,结果满足要求,设计正确。（3）通过编程添加或清除窗体的背景图片新建一个工程，在窗体上添加两个命令按钮，窗体和命令按钮的caption属性在窗体的load事件过程代码中设置。窗体设计程序代码PrivateSubCommand1_Click()Me.Pictu

4、re=LoadPicture("d:vbjc图片.jpg")EndSubPrivateSubCommand2_Click()Me.Picture=LoadPicture()EndSubPrivateSubForm_Load()Me.Caption="背景切换"Command1.Caption="添加背景&A"Command2.Caption="背景切换&D"EndSub运行过程程序运行结束.经过程序运行测试,结果满足要求,设计正确。四．立体字可通过对2个标题文本相同，颜色不同的标签错位重叠来实现。在窗体上添加2个标签。1界面设计2程序代码PrivateSubForm_L

5、oad()WithLabel1.Caption="中国".FontBold=True.FontSize=24.ForeColor=vbWhite.AutoSize=True.BackColor=0.FontName="隶书"EndWithWithLabel2.Caption=Label1.Caption.FontBold=True.FontSize=24.AutoSize=True.BackStyle=0.FontName="隶书"EndWithEndSubPrivateSubLabel2_Click()Label1.Top=Label2.Top+40Label1.Left

6、=Label2.Left+40EndSub3运行过程程序运行结束.经过程序运行测试,结果满足要求,设计正确。五在意个窗体上建立2个文本框，将获取焦点的文本框的背景设为红色，失去焦点的文本框的背景颜色为白色。1.界面设计2程序代码PrivateSubForm_Load()EndSubPrivateSubText1_GotFocus()Text1.BackColor=vbRedEndSubPrivateSubText1_LostFocus()Text1.BackColor=vbWhiteEndSubPrivateSubText2_GotFocus()Text2.BackColo

7、r=vbRedEndSubPrivateSubText2_LostFocus()Text2.BackColor=vbWhiteEndSub3运行过程程序运行结束.经过程序运行测试,结果满足要求,设计正确。六通过键盘为文本框每录入一个字符，都会触发文本框的keypress事件，再通过keypress事件过程参数keyascii,得到按键字符的ASC值。1界面设计1程序代码PrivateSubText1_KeyPress(KeyAsciiAsInteger)Label1.Caption="您刚按的那个字符的ASCII"