版等考VB源程序集.docx
《版等考VB源程序集.docx》由会员分享，可在线阅读，更多相关《版等考VB源程序集.docx（82页珍藏版）》请在冰豆网上搜索。
版等考VB源程序集
《全国计算机等级考试二级教程——VisualBasic语言程序设计》（2010年版）源程序集
书号ISBN978-7-04-22944-8
按书中页码，将源程序摘录如下：
P41---P是页码（PAGE）的意思，后面跟的数字是表示在书中的位置
PrivateSubCommand3_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
EndSub
P42
PrivateSubCommand1_Click（）
Text1.FontSize=20
Text1.Text="欢迎使用VisualBasic6.0中文版"
Endsub
PrivateSubCommand2_Click（）
Text1.Text=""
EndSub
PrivateSubCommand3_Click（）
End
EndSub
P60
SubTest（）
StaticVar1AsInteger
Var1=Var1+1
……
EndSub
P64
SubCommand1_Click（）
Answer=InputBox＄（"Areyoustudent?
"）
IfAnswer="Yes"then
MsgBox"Heisastudent"
Else
MsgBox"Heisnotastudent"
EndSub
P69
例4.1编写程序，测试StrConv函数功能。
PrivateSubCommand1_Click（）
DimtempStr,newStrAsString
tempStr="BASIC程序设计"
Print"tempStr=";tempStr
newStr=StrConv（tempStr,vbFromUnicode）
Print
Print"执行newStr=StrConv（tempStr,vbFromUnicode）后：
"
Print"newStr=";newStr
Print"LenB（newStr）=";LenB（newStr）
Print"Len（newStr）=";Len（newStr）
Print
newStr=StrConv（newStr,vbUnicode）
Print"执行newStr=StrConv（newStr,vbUnicode）后：
"
Print"newStr=";newStr
Print"LenB（newStr）=";LenB（newStr）
Print"Len（newStr）=";Len（newStr）
EndSub
P85
例5.1
编写如下的事件过程：
PrivateSubForm_Click（）
Print:
Print
FontName="魏碑"‘字体类型为“魏碑”
FontSize=16‘字体大小为16
Print"姓名";Tab（8）;"年龄";Tab（16）;"职务";
PrintTab（24）;"单位";Tab（32）;"籍贯"
Print
Print"张得功";Tab（8）;25;Tab（16）;"科长";Tab（24）;"劳动科";Tab（32）;"北京"
Print"李得胜";Tab（8）;32;Tab（16）;"处长";Tab（24）;"科研处";Tab（32）;"上海"
EndSub
P90
例5.2
编写如下事件过程：
PrivateSubForm_Click（）
Move800,800,3990,2600
Text1.Move200,200,1500,1000
Picture1.Move1800,200,1500,1000
Picture1.Print"Picture1"
EndSub
例5.3编写程序，试验TextHeight方法。
PrivateSubForm_Click（）
CurrentY=TextHeight（"Microsoft"）*6‘下一个输出位置的Y坐标
CurrentX=0‘下一个输出位置的X坐标
Print"MicrosoftVisualBasic6.0"
Print
Test＄="Microsoft"
PrintTest＄
PrintTextHeight（Test＄）,TextWidth（Test＄）
FontSize=18‘设置字体大小
Print
PrintTest＄
PrintTextHeight（Test＄）,TextWidth（Test＄）
EndSub
P91
例5.4编写程序，使字符串居中显示。
PrivateSubForm_Click（）
FontSize=16
Sample＄="MicrosoftVisualBasic程序设计"
x=（ScaleWidth-TextWidth（Sample＄））/2
y=（ScaleHeight-TextHeight（Sample＄））/2
CurrentX=x
CurrentY=y
PrintSample＄
EndSub
P92
例5.5编写程序，用TextWidth方法控制输出宽度。
双击窗体，进入程序代码窗口，在“对象”栏中选择“通用”，然后键入以下代码：
DimSampleAsString*18
SubWidthCheck（）
IfTextWidth（Sample）+CurrentX>=ScaleWidthThen
Print
EndIf
EndSub
PrivateSubForm_Click（）
FontSize=12
Sample="VisualBasic6.0"
Fori=1To20
WidthCheck
PrintSample;
Nexti
EndSub
P94
例5.6编写程序，试验InputBox函数的功能。
PrivateSubForm_Click（）
c1＄=Chr＄（13）+Chr＄（10）
msg1＄="输入顾客名字:
"
msg2＄="输入后按回车键"
msg3＄="或单击“确定”按钮"
msg＄=msg1＄+c1＄+msg2＄+c1＄+msg3＄
custname＄=InputBox（msg＄,"InputBoxFunctiondemo","王大力"）
Printcustname＄
EndSub
P96
例5.7编写程序，用InputBox函数输入数据。
PrivateSubForm_Click（）
msg1＄="请输入姓名：
"
msgtitle＄="学生情况登记"
msg2＄="请输入年龄：
"
msg3＄="请输入性别：
"
msg4＄="请输入籍贯"
studname＄=InputBox（msg1＄,msgtitle＄）
studage=InputBox（msg2＄,msgtitle＄）
studsex＄=InputBox（msg3＄,msgtitle＄）
studhome＄=InputBox（msg4＄,msgtitle＄）
Cls
Printstudname＄;",";studsex＄;",现年";
Printstudage;"岁";",";studhome＄;"人"
EndSub
P99
例5.8编写程序，试验MsgBox函数的功能。
PrivateSubForm_Click（）
msg1＄="Areyoucontinueto?
"
msg2＄="OperationDialogBox"
r=MsgBox（msg1＄,34,msg2＄）
Printr
EndSub
P100
例5.9编写程序，用MsgBox函数判断是否继续执行。
PrivateSubForm_Click（）
msg＄="请确认此数据是否正确"
title＄="数据检查对话框"
x=MsgBox（msg＄,19,title＄）
Ifx=6Then
Printx*x
ElseIfx=7Then
Print"请重新输入"
EndIf
EndSub
P101
例5.10
PrivateSubForm_Click（）
sample1＄="MicrosoftVisualBasic6.0"
sample2＄="程序设计技巧"
FontSize=20
FontName="system"
Print"system--->";sample1＄
FontName="bimini"
Print"bimini--->";sample1＄
FontName="helv"
Print"helv--->";sample1＄
FontName="courier"
Print"courier--->";sample1＄
FontName="TmsRmn"
Print"TmsRmn--->";sample1＄
FontName="symbol"
Print"symbol--->";sample1＄
Print"roman--->";sample1＄
Print"script--->";sample1＄
FontName="modern"
Print"modern--->";sample1＄
FontSize=24
FontName="宋体"
Print"宋体--->";sample2＄
FontName="隶书"
Print"隶书--->";sample2＄
FontName="黑体"
Print"黑体--->";sample2＄
FontName="魏碑"
Print"魏碑--->";sample2＄
EndSub
P104
例5.11
SubForm_Click（）
Printer.FontName="system"
Printer.FontSize=24
Printer.FontItalic=True
Printer.FontUnderline=True
Printer.Print"MicrosoftVisualBasic"
Printer.Print"Printertest"
Printer.Print"打印机输出测试"
Printer.EndDoc
EndSub
P106
例5.12
PrivateSubForm_Click（）
FontName="Courier"
FontSize=20
CurrentX=800
CurrentY=500
Print"MicrosoftVisualBasic5.0"
FontName="宋体"
CurrentX=800
CurrentY=1000
Print"程序设计教程"
PrintForm
EndSub
P113
例6.1用Change事件改变文本框的Text属性。
PrivateSubCommand1_Click（）
Text1.Text="MicrosoftVisualBasic6.0"
EndSub
PrivateSubText1_Change（）
Text2.Text=LCase（Text1.Text）
Text3.Text=UCase（Text1.Text）
EndSub
P114
例6.2数据过滤。
SubScore_LostFocus（）
x=Val（Score.Text）
Ifx<0Orx>100Then
Beep
Score.Text=""
Score.SetFocus
Print"请重新输入"
Else
total=x
EndIf
EndSub
SubCommand1_Click（）
Printtotal
EndSub
P115
例6.3在窗体上建立一个图片框，然后分别在窗体和图片框中显示一些信息。
PrivateSubForm_Click（）
Picture1.PrintTab（10）;"Picture1Tab10test"
PrintTab（20）;"FormTab20test"
Picture1.CurrentX=1000
Picture1.CurrentY=800
CurrentX=1000
CurrentY=800
Print"FormCurrentX,CurrentYTest"
Picture1.Print"Picture1CurrentX,CurrentYtest"
PrintTab（15）;CurrentX,CurrentY
Picture1.PrintTab（15）;CurrentX,CurrentY
EndSub
P119
例6.4编写程序，交换两个图片框中的图形。
PrivateSubForm_Click（）
‘交换位图
Picture3.Picture=Picture1.Picture
Picture1.Picture=Picture2.Picture
Picture2.Picture=Picture3.Picture
‘把第三个图片框设置为空
EndSub
PrivateSubForm_Load（）
‘装入位图
Picture1.Picture=LoadPicture（"c:
＼vb98＼Graphics＼metafile＼business＼3dlrsign.wmf"）
Picture2.Picture=LoadPicture（"c:
＼vb98＼Graphics＼metafile＼business＼money.wmf"）
EndSub
P122
例6.5在窗体上显示6种可以使用的形状。
PrivateSubForm_Click（）
FontSize=12
CurrentX=350
Print"0";
Fori=1To5
Shape1（i）.Left=Shape1（i-1）.Left+1050
Shape1（i）.Shape=i
Shape1（i）.Visible=True
CurrentX=CurrentX+750
Printi;
Nexti
EndSub
P125
例6.6编写程序，模拟交通信号灯的切换。
PrivateSubForm_Load（）
Image2.Visible=False
Image3.Visible=False
EndSub
PrivateSubCommand1_Click（）
IfImage1.Visible=TrueThen
Image1.Visible=False
Image2.Visible=True
ElseIfImage2.Visible=TrueThen
Image2.Visible=False
Image3.Visible=True
Else
Image3.Visible=False
Image1.Visible=True
EndIf
EndSub
PrivateSubCommand2_Click（）
End
EndSub
P128
例6.7用复选框控制文本输入是否加“下划线”和“斜体显示”。
PrivateSubForm_Load（）
Display.FontSize=20
EndSub
PrivateSubDisplay_Change（）
IfUnderOn.Value=1Then
Display.FontUnderline=True
ElseIfItalicOn.Value=1Then
Display.FontItalic=True
EndIf
EndSub
PrivateSubItalicOn_Click（）
IfItalicOn.Value=1Then
Display.FontItalic=True
Else
Display.FontItalic=False
EndIf
EndSub
PrivateSubUnderOn_Click（）
IfUnderOn.Value=1Then
Display.FontUnderline=True
Else
Display.FontUnderline=False
EndIf
EndSub
P129
例6.8用单选按钮在文本框中显示不同的字体。
PrivateSubCourier_Click（）
Display.FontSize=18
Display.FontName="Courier"
EndSub
PrivateSubModern_Click（）
Display.FontSize=20
Display.FontName="Modern"
EndSub
P133
例6.9交换两个列表框中的项目。
PrivateSubForm_Load（）
List1.FontSize=14
List2.FontSize=14
List1.AddItem"IBM"
List1.AddItem"Compaq"
List1.AddItem"HP"
List1.AddItem"FUJI"
List1.AddItem"Digital"
List1.AddItem"长城"
List1.AddItem"联想"
List1.AddItem"Canon"
List1.AddItem"四通"
List1.AddItem"Acer"
List1.AddItem"Nec"
List1.AddItem"NCR"
EndSub
PrivateSubList1_DblClick（）
List2.AddItemList1.Text
List1.RemoveItemList1.ListIndex
EndSub
PrivateSubList2_DblClick（）
List1.AddItemList2.Text
List2.RemoveItemList2.ListIndex
EndSub
P135
例6.10从屏幕上选择微机的配置，并显示出来。
SubForm_Load（）
Combo1.AddItem"IBM"
Combo1.AddItem"Compaq"
Combo1.AddItem"方正"
Combo1.AddItem"联想"
Combo1.AddItem"HP"
Combo1.AddItem"Acer"
Combo1.AddItem"DEC"
Combo2.AddItem"奔腾3900"
Combo2.AddItem"奔腾3933"
Combo2.AddItem"奔腾31.0G"
Combo2.AddItem"奔腾41.2G"
Combo2.AddItem"奔腾41.5G"
Combo2.AddItem"奔腾41.7G"
Combo2.AddItem"奔腾42.0G"
Combo3.AddItem"64MB"
Combo3.AddItem"128MB"
Combo3.AddItem"256MB"
Combo4.AddItem"10GB"
Combo4.AddItem"20GB"
Combo4.AddItem"32GB"
Combo4.AddItem"40GB"
Combo4.AddItem"60GB"
EndSub
SubCommand1_Click（）
Debug.Print"所选择的配置为：
"
Debug.Print"机型：
";Combo1
Debug.Print"CPU：
";Combo2
Debug.Print"内存：
";Combo3
Debug.Print"硬盘：
";Combo4
EndSub
SubCommand2_Click（）
End
EndSub
P142
例6.12用计时器实现字体的放大。
PrivateSubForm_Load（）
Label1.FontName="魏碑"
Label1.Caption="字体"
Label1.Width=Width
Label1.Height=Height
Timer1.Interval=1000
EndSub
PrivateSubTimer1_Timer（）
IfLabel1.FontSize<100Then
Label1.FontSize=Label1.FontSize*1.2
Else
Label1.FontSize=10
EndIf
EndSub
P144
例6.13编写程序，通过单选按钮设置字体类型和大小。
PrivateSubForm_Load（）
Form1.Caption="框架用法示例"
Command1.Caption="确定"
Command2.Caption="结束"
Frame1.Caption="字体类型"
Frame2.Caption="字体大小"
Option1.Caption="魏碑"
Option2.Caption="幼圆"
Option3.Caption="16"
Option4.Caption="24"
Text1.Text="VisualBasic程序设计"
升级会员 