实习二可视化编程基础.docx
《实习二可视化编程基础.docx》由会员分享，可在线阅读，更多相关《实习二可视化编程基础.docx（14页珍藏版）》请在冰点文库上搜索。
实习二可视化编程基础
可视化编程基础
一、实习目的
1.掌握窗体的主要属性及Load事件的应用；
2.掌握Print方法的输出格式控制；
3.掌握命令按钮和标签的主要属性应用；
4.掌握文本框的主要属性和事件应用；
5.掌握工程管理的基本操作；
二、实习内容
1.完成教材例题上机验证。
2.完成编程题（P72）1,2题
3.掌握工程保持，添加、删除窗体文件、设置启动窗体、编译生成EXE文件、运行EXE文件的方法。
三、实习任务完成情况
1.教材例题验证：
例3-1窗体的click事件练习
界面设计：
略
属性设置
代码：
PrivateSubForm_Load（）
Dimx$,y$,z$
x=InputBox（"请输入一个同学的姓名"）
y=InputBox（"请输入一个地点"）
z=InputBox（"请输入一个动作"）
MsgBoxx&"在"&y&z
Form1.Caption=x&"在"&y&z
EndSub
例3-2print和cls方法练习
界面设计：
略
属性设置：
代码：
PrivateSubCommand1_Click（）
Print"1234567890123456789012345678901234567890"
Print1,2,3
Print-1;-2;-3
Print"A";"B";"C";"D"
Print3,
Print4;5;
Print6
Print
Print7;8;
Print
PrintTime
EndSub
PrivateSubCommand2_Click（）
Cls
EndSub
PrivateSubForm_Load（）
Me.Caption="print与cls方法练习"
Command1.Caption="显示"
Command2.Caption="清除"
EndSub
例3-3通过编程添加或清除窗体的背景图片
界面设计：
属性设置：
代码：
PrivateSubCommand1_Click（）
Me.Caption=LoadPicture（"D:
\psu8.jpg"）
EndSub
PrivateSubCommand2_Click（）
Me.Caption=LoadPicture（）
EndSub
PrivateSubForm_Load（）
Me.Caption="背景切换"
Command1.Caption="添加背景&A"
Command2.Caption="清除背景&D”
EndSub
例3-4：
在窗体上添加2个标签，制作图片如下
界面设计：
属性设置：
代码：
PrivateSubForm_Load（）
WithLabel1
.Caption="中华人民共和国"
.FontBold=True
.FontSize=24
.ForeColor=vbWhite
.AutoSize=True
.BackStyle=0
.FontName="隶书"
EndWith
WithLabel2
.Caption=Label1.Caption
.FontBold=True
.FontSize=24
.AutoSize=True
.BackStyle=0
.FontName="隶书"
EndWith
EndSub
PrivateSubLabel2_Click（）
Label1.Top=Label2.Top+40
Label1.Left=Label2.Left+40
EndSub
例3-5：
在一个窗体上建立2个文本框，将获取的文本框的背景设为红色，失去焦点的文本框成为白色
界面设计：
属性设置
代码：
PrivateSubText1_GotFocus（）
Text1.BackColor=vbRed
EndSub
PrivateSubText1_LostFocus（）
Text1.BackColor=vbWhite
EndSub
PrivateSubText2_GotFocus（）
Text2.BackColor=vbRed
EndSub
PrivateSubText2_LostFocus（）
Text2.BackColor=vbWhite
EndSub
例3-6在文本框录入数据，捕获键盘每一个见得ASCLL值
界面设计：
略
属性设置：
代码：
PrivateSubText_KeyPress（KeyAsciiAsInteger）
Label1.Caption=”您刚按的那个字符的ASCII吗是”&KeyAscii
EndSub
例3-7编程实现文本框录入文字时，文本框显示字符数
界面设计：
属性设置：
代码：
PrivateSubCommand1_Click（）
Text1.Text=""
Label1.Caption="当前文本框有0个字符"
EndSub
PrivateSubCommand2_Click（）
UnloadMe
EndSub
PrivateSubText1_Change（）
Label1.Caption="当前文本框中有"&Len（Text1.Text）&"个字符"
EndSub
例3-8设计界面，录入学生姓名、成绩、名次，若成绩不符合要求，显示错误信息
界面设计：
属性设置：
代码：
PrivateSubText2_LostFocus（）
IfText2.Text<0OrText2.Text>100Then
MsgBox"输入错误，请重新输入！
！
"
Text2.SetFocus
EndSub
例3-9设计程序，显示文本框光标位置、选中文本长度和内容
界面设计：
略
属性设置：
代码：
PrivateSubText1_MouseUp（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
Text2.Text=Text1.SelStart
Text3.Text=Text1.SelLength
Text4.Text=Text1.SelText
EndSub
例3-10在窗体添加1个Image对象，当鼠标在对象上是，显示另一张图片，双击时清除图片
界面设计：
属性设置：
略
代码：
PrivateSubImage1_Click（）
Image1.Picture="D:
\TDDOWNLOAD\psb（3）.jpg"
EndSub
PrivateSubImage1_DblClick（）
Image1.Picture=TDDOWNLOAD（）
EndSub
例3-11在窗体添加一个PictureBox对象，在PictureBox中输入文字和图形
界面设计：
略
属性设置：
代码：
PrivateSubCommand1_Click（）
Picture1.Print"努力学好计算机"
Picture1.FontSize=12
Picture1.Print"努力学好计算机"
EndSub
PrivateSubCommand2_Click（）
Picture1.Circle（800,800）,300
Picture1.Line（1500,500）-Step（600,600）,,B
EndSub
2.编程题：
界面设计、对象属性、事件代码
P7编程题
（1）、鸡兔同笼
界面设计：
对象属性：
代码：
PrivateSubCommand1_Click（）
DimhAsInteger,fAsInteger,xAsInteger,yAsInteger
h=Val（Text1.Text）:
f=Val（Text2.Text）
x=2*h-f/2
y=f/2-h
Label3.Caption="计算结果：
"&"鸡有"&x&"只，"&"兔子有"&y&"只！
"
EndSub
（2）、银行工作人员向客户支付一个整数金额的现金问题
界面设计：
属性设置：
代码：
PrivateSubCommand1_Click（）
DimwAsInteger,aAsInteger,bAsInteger,cAsInteger,dAsInteger,fAsInteger,eAsInteger
w=Val（Text1.Text）
a=Int（w/100）
b=Int（（w-100*a）/50）
c=Int（（w-100*a-50*b）/20）
d=Int（（w-100*a-50*b-20*c）/10）
e=Int（（w-100*a-50*b-20*c-10*d）/5）
f=Int（（w-100*a-50*b-20*c-10*d-5*e）/1）
Label2.Caption="工作人员应支付客户：
"&a&"张100元，"&b&"张50元，"&c&"张20元，"&d&"张10元，"&e&"张5元，"&f&"张1元"
EndSub
四、实习总结
1、错误类型
···编程时候，应认真对待所赋值对应的属性值或者对应的文本框；
运算符号要加上不能简写
运行文件时，应该启动所对应的窗体
2、存在的问题：
不能熟练的运用所学习的函数，以及其对应的对象写法
3.实习收获
在认识自身不足的基础上，能够独立解决编程的问题，进一步加强了对于函数极其使用方法，以后学习中应该熟记函数，即使复习与预习；注重编程时候的细节问题！
！
（如：
以上变成是的错误）
升级会员 