第三章实习报告.docx
《第三章实习报告.docx》由会员分享，可在线阅读，更多相关《第三章实习报告.docx（15页珍藏版）》请在冰点文库上搜索。
第三章实习报告
PrivateSubCommand1_Click（）
Form1.Show
EndSub
PrivateSubCommand10_Click（）
Form10.Show
EndSub
PrivateSubCommand11_Click（）
Form11.Show
EndSub
PrivateSubCommand12_Click（）
End
EndSub
PrivateSubCommand2_Click（）
Form2.Show
EndSub
PrivateSubCommand3_Click（）
Form3.Show
EndSub
PrivateSubCommand4_Click（）
Form4.Show
EndSub
PrivateSubCommand5_Click（）
Form5.Show
EndSub
PrivateSubCommand6_Click（）
Form6.Show
EndSub
PrivateSubCommand7_Click（）
Form7.Show
EndSub
PrivateSubCommand8_Click（）
Form8.Show
EndSub
PrivateSubCommand9_Click（）
Form9.Show
EndSub
例题3-1
PrivateSubCommand1_Click（）
Print"HelloWorld"
EndSub
PrivateSubCommand2_Click（）
UnloadMe
EndSub
例题3-2
PrivateSubCommand2_Click（）
Cls
EndSub
PrivateSubForm_Click（）
Print1,2,3
Print1;2;3
Print-1;-2;-3
Print"A";"B";"C","D"
Print3,
Print4;5;
Print6
Print
Print7;8;
Print
PrintTime
EndSub
例题3-3
PrivateSubCommand1_Click（）
Form4.Picture=LoadPicture（"F:
\VB程序设计\第三章\图片资料\3.jpg"）
EndSub
PrivateSubCommand2_Click（）
Form4.Picture=LoadPicture（）
EndSub
PrivateSubCommand3_Click（）
UnloadMe
EndSub
例题3-4
PrivateSubCommand1_Click（）
UnloadMe
EndSub
PrivateSubForm_Load（）
WithLabel1
.Caption="中国共产党万岁！
"
.FontSize=50
.AutoSize=True
.ForeColor=vbYellow
EndWith
WithLabel2
.Caption=Label1.Caption
.FontSize=50
.ForeColor=vbRed
.AutoSize=True
.BackStyle=0
EndWith
EndSub
PrivateSubLabel1_MouseMove（buttonAsInteger,shiftAsInteger,xAsSingle,yAsSingle）
Label1.Left=Label2.Left+50
Label1.Top=Label2.Top-50
EndSub
例题3-5
PrivateSubCommand1_Click（）
UnloadMe
EndSub
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
PrivateSubCommand1_Click（）
UnloadMe
EndSub
PrivateSubText1_KeyPress（KeyAsciiAsInteger）
Label1.Caption="您刚按的那个字符的ASCII码是"&KeyAscii&Chr（KeyAscii）
EndSub
例题3-7
PrivateSubCommand1_Click（）
Text1.Text=""
Label1.Caption="当前文本框中有0个字符"
EndSub
PrivateSubCommand2_Click（）
UnloadMe'释放窗体，结束程序运行
EndSub
PrivateSubCommand3_Click（）
UnloadMe
EndSub
PrivateSubText1_Change（）
Label1.Caption="当前文本框中有"&Len（Text1.Text）&"个字符"
EndSub
例题3-8
PrivateSubCommand1_Click（）
UnloadMe
EndSub
PrivateSubText2_LostFocus（）
IfText2.Text<0OrText2.Text>100Then
MsgBox"输入错误，请重新输入！
！
"'出错提示信息
Text2.SetFocus'重新定位光标到文本框
EndIf
EndSub
例题3-9
PrivateSubCommand1_Click（）
UnloadMe
EndSub
PrivateSubText1_MouseUP（buttonAsInteger,shiftAsInteger,xAsSingle,yAsSingle）
Text2.Text=Text1.SelStart'设置选择的起始点
Text3.Text=Text1.SelLength'设置选择字符的个数
Label3.Caption="选择内容：
"&Text1.SelText'显示选择内容
EndSub
PrivateSubForm_Load（）
Label1.Caption="选择起点"
Label2.Caption="选择长度"
Label3.Caption="选择内容"
Command1.Caption="确定"
EndSub
例题3-10
PrivateSubCommand1_Click（）
UnloadMe
EndSub
PrivateSubImage1_Click（）
Image1.Picture=LoadPicture（"F:
\VB程序设计\第三章\图片资料\5.jpg"）
EndSub
PrivateSubImage1_DblClick（）'双击时清除图片
Image1.Picture=LoadPicture（）
EndSub
例题3-11
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
PrivateSubCommand3_Click（）
UnloadMe
EndSub
升级会员 