VB实例源码Word文档下载推荐.docx
《VB实例源码Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《VB实例源码Word文档下载推荐.docx（92页珍藏版）》请在冰豆网上搜索。
EndIf
【例3-5】
Print:
Print
FontName="
隶书"
FontSize=16
姓名"
Tab（8）;
年龄"
Tab（16）;
职务"
PrintTab（24）;
单位"
Tab（32）;
籍贯"
Print
吴大明"
25;
职员"
Tab（24）;
人事科"
北京"
【例3-6】
X=InputBox（"
请输入成绩"
学生成绩录入"
00"
Printx
【例3-7】
DimxAsSingle,yAsSingle
x=InputBox（“请输入x的值”）
Ifx>
0Theny=1ElseIfx=0Theny=0Elsey=-1
Print“x=”;
x,”y=”;
y
【例3-8】
Dimmsg,UserInput
msg="
请输入一个字母或0～9之间的数字."
UserInput=InputBox（msg）‘输入一个字母或数字
IfNotIsNumeric（UserInput）Then‘判断是否是数字
IfLen（UserInput）=1Then‘不是数字时，判断输入的字符串长度是否为1
SelectCaseAsc（UserInput）‘判断输入字母的ASCII码值
Case60To90'
在60-90之间为大写字母
msg="
你输入的是一个大写字母'
"
msg=msg&
Chr（Asc（UserInput））&
'
。
Case97To122'
小写字母
你输入的是一个小写字母'
CaseElse
你没有输入字母或数字."
EndSelect
Else
SelectCaseVal（UserInput）'
将输入的数值型字符转换为数值
Case1,3,5,7,9'
如果是奇数
msg=UserInput&
是一个奇数。
Case0,2,4,6,8'
如果是偶数
是一个偶数。
CaseElse'
出界
你输入的数字不在0～9范围内"
MsgBoxmsg
【例3-10】
SubForm_Click（）
DimNAsInteger
n=InputBox（"
EnterN:
）‘输入N的值
k=1
Fori=1ToN‘循环N次，计算出N！
k=k*I
PrintN;
”!
=”;
k‘数据输出
【例3-12】
DimS,N
S=0:
N=0
DoWhileS<
=100
N=N+1
S=S+N
Loop
PrintS,N
【例3-13】
DimcharAsString
Count=0
char=InputBox（"
请输入一个字符"
Whilechar<
>
?
Count=Count+1
char=InputBox$（"
Wend
输入的字符数是:
Count
【例3-14】
*"
Fori=1To9
PrintTab（i*6）;
i;
Forj=1To9
Printj;
Fork=1Toj
PrintTab（k*6）;
j*k;
Nextk
第4章
（1）假定用来输入数学成绩的文本框名称为Text1，该文本框的LostFocus事件过程如下：
PrivateSubText1_LostFocus（）
IfVal（Text1.Text）<
0OrVal（Text1.Text）>
100Then
Text1.Text="
Text1.SetFocus
EndIf
（2）其他文本框的LostFocus事件类似。
（3）假定按钮名称为Command1，该按钮的Click事件过程如下：
PrivateSubCommand1_Click（）
IfCheck1.Value=1ThenSum=Sum+Val（Text1.Text）
IfCheck2.Value=1ThenSum=Sum+Val（Text2.Text）
IfCheck3.Value=1ThenSum=Sum+Val（Text3.Text）
IfCheck4.Value=1ThenSum=Sum+Val（Text4.Text）
IfCheck5.Value=1ThenSum=Sum+Val（Text5.Text）
Text6.Text=Sum
【例4-1】
PrivateSubCommand1_Click（）‘在其单击事件中编程
Fori=1To6‘外循环，控制输出几行
Forj=1Toi‘内循环，控制输出几列
*"
Print‘换行
【例4-2】
PrivateSubText1_Change（）
Text2.Text=LCase（Text1.Text）
Text3.Text=UCase（Text1.Text）
EndSub
【例4-3】
PrivateSubCheck1_Click（）
Text1.FontUnderline=NotText1.FontUnderline
PrivateSubCheck2_Click（）
Text1.FontItalic=NotText1.FontItalic
PrivateSubOption1_Click（）
Text1.Font="
黑体"
PrivateSubOption2_Click（）
宋体"
【例4-4】
IfOption1Then
Text1.FontName="
Else
IfOption3Then
Text1.FontSize=8
Text1.FontSize=10
PrivateSubCommand2_Click（）
End
【例4-5】
PrivateSubForm_Load（）
‘在窗体的Load事件中输入列表框的各个项目
lstBooks.AddItem"
计算机应用基础"
操作系统"
数据结构"
网络技术基础"
PrivateSubcmdAdd_Click（）
‘单击添加命令按钮时将文本框中输入的内容添加到列表框中
lstBooks.AddItemtxtItem
txtItem="
PrivateSubcmdDelete_Click（）
‘删除列表框中选中的项目
lstBooks.RemoveItemlstBooks.ListIndex
PrivateSubcmdModify_Click（）
‘所选项目显示在文本框中，等待修改
txtItem.Text=lstBooks.Text
cmdAdd.Enabled=False
cmdDelete.Enabled=False
cmdModify.Enabled=False
cmdModify_OK.Enabled=True
PrivateSubcmdModify_OK_Click（）
‘所选项目显示在文本框中修改完成后，按下修改确定按钮，更新列表框内容
lstBooks.List（lstBooks.ListIndex）=txtItem
cmdAdd.Enabled=True
cmdDelete.Enabled=True
cmdModify.Enabled=True
【例4-6】
Picture3.Picture=Picture1.Picture
Picture1.Picture=Picture2.Picture
Picture2.Picture=Picture3.Picture
Pciture3.Picture=LoadPicture（）‘把第3个图片框设置为空
Endsub
【例4-7】
PrivateSubHScroll1_Change（）
Text1.Text=HScroll1.Value
【例4-8】
PrivateTimer1_Timer（）
Labe1.Caption=Time$
实训
Debug.Print"
姓名:
Text1.Text
出生年月:
Text2.Text
籍贯:
Text3.Text
IfOption1.ValueThenDebug.Print"
性别:
男"
IfOption2.ValueThenDebug.Print"
女"
民族:
Combo1.Text
IfCheck1.Value=1ThenDebug.Print"
健康"
ElseDebug.Print"
不健康"
职称:
Combo3.Text
工资:
Text4.Text
外语熟练程度"
HScroll1.Value
简历:
Text5.Text
第5章
PrivateSubCommand6_Click（）
Constn=10‘定义常量n的值为10
Max=0:
K=0‘最高分及所在位置赋初值
Fori=1Ton
b（i）=InputBox（"
请输入第"
&
i&
个同学的成绩"
求最高分）‘输入成绩
Ifb（i）>
MaxThen
Max=b（i）
K=I‘将第i个成绩与最高分Max相比，如果比最高分高，则保存起来
Print"
最高分是第"
K&
个同学，其成绩是：
Max
【例5-1】
OptionBase1
Dima（3）AsInteger
a
（1）=1:
a
（2）=3:
a（3）=5
Printa
（1）
Printa
（2）
Printa（3）
【例5-2】
Fori=1To10
b（i）=InputBox（"
&
个数"
【例5-3】
Fori=1To2
Forj=1To2
b（i,j）=i+j
【例5-4】
DimS（3，2）AsInteger
程序如下：
Fori=0To3
PrintTab（5）;
‘输出位置定位
Forj=0To2
S（i,j）=i*2+j‘给各元素赋值
图5-4使用二维数组打印出的图形
PrintS（i,j）;
Nextj
Print‘换行
【例5-5】
Dims（5）AsInteger'
定义数组S
Constn=5
Fori=1Ton
s（i）=Val（InputBox（"
LTrim$（Str$（i））&
数据排序））
‘输入n个数，转换成数值后保存在数组中。
Fori=1Ton-1‘进行n-1趟比较
Max=I‘对第i遍比较时，初始假定第i个元素最小。
Forj=i+1Ton‘在数组i～n个元素中选最小元素
Ifs（j）<
s（Max）ThenMax=j
t=s（i）
s（i）=s（Max）
s（Max）=t‘i～n个元素中选出的最小元素与第i个元素交换
Fori=1To5
Prints（i）
【例5-6】
Dimb（）AsInteger
ReDimb
（2）
Fori=0To2
b（i）=i
Nexti
ReDimPreserveb（3）
b（3）=7
Printb（i）;
【例5-7】
Dima（8,8）AsInteger'
定义一个二维数组
‘下面的二层循环语句给数组赋值
Fori=1To8
Ifi=1Orj=1Then
a（i,j）=1'
数组中每一行第一个，最后一个数均为1
a（i,j）=a（i-1,j-1）+a（i-1,j）
数组中其余数据等于它上一行的相邻两列之和
Nextj
'
下面的二层循环语句将数组中的值打印出来
Fori=1To8
PrintTab（20-2*i）;
定位打印位置
Forj=1Toi
Ifa（i,j）<
10Then'
将数组中的值转换成长度为3的字符串，可使打印数据整齐
s="
+Str（a（i,j））+"
ElseIfa（i,j）<
+Str（a（i,j））
Prints;
Print'
换行
【例5-8】
PrivateSubOption1_Click（IndexAsInteger）
SelectCaseIndex
Case0
Label1.ForeColor=RGB（255,0,0）
Case1
Label1.ForeColor=RGB（0,255,0）
Case2
Label1.ForeColor=RGB（255,255,0）
OptionBase1‘定义数组下标从1开始
Dimarr（）‘定义动态数组arr
n=Val（InputBox（"
请输入矩阵的行数"
））‘输入矩阵行数
m=Val（InputBox（"
请输入矩阵的列数"
））‘输入矩阵列数
ReDimarr（n,m）‘重定义数组arr为n行m列的二维数组
‘下列程序段为数组输入数据
Forj=1Tom
arr（i,j）=Val（InputBox（"
请输入矩阵第"
行第"
j&
列的数据"
））
‘下列程序段在数组中找出最大值及所在位置
row=1:
col=1
Ifarr（i,j）>
arr（row,col）Then
row=i:
col=j
‘下列程序段输出矩阵及最大值及所在位置
您输入的矩阵是：
PrintTab（8）；
‘打印位置定位
Printarr（i,j）;
Nexti
矩阵中最大值为：
arr（row,col）;
其位置在第"
row&
行"
col&
列"
第6章
（2）编写窗体装载事件过程：
ForI=0To100
List1.AddItemi
（3）使用“添加过程”对话框创建出判断成绩等级的过程
PublicSubDengJi（aAsInteger）
SelectCasea
Case0To59
Label1.Caption="
不及格"
Case60To69
及格"
Case70To79
中等"
Case80To89
良好"
Case90To100
优秀"
EndSelect
4）编写列表框单击Click事件过程：
PrivateSubList1_Click（）
DimnAsInteger
N=Val（List1.Text）
CallDengJi（n）'
调用判断成绩等级的过程
（5）编写命令按钮单击Click事件过程：
升级会员 