VB实例.docx - 冰豆网

资源描述

VB实例.docx

《VB实例.docx》由会员分享，可在线阅读，更多相关《VB实例.docx（111页珍藏版）》请在冰豆网上搜索。

VB实例.docx

VB实例

PrivateSubForm_Click（）

Fori=1To10

Forj=1Toi

Print"*";

Nextj

Nexti

EndSub

【例3-1】

PrivateSubForm_Click（）

c1$=Chr$（13）+Chr$（10）

msg1$="请输入您的名字:

msg2$="输入后按回车键"

msg3$="或单击“确定”按钮"

msg$=msg1$+c1$+msg2$+c1$+msg3$

name$=InputBox（msg$,"InputBox函数示例","张三"）

Printname$

EndSub

【例3-2】

PrivateSubForm_Click（）

Msg1$=”AreyouContinueto?

”

msg2$=”OperationDialogBox”

r=MsgBox（msg1$,34,msg2$）

Printr

EndSub

【例3-3】编写程序，用MsgBox函数判断是否继续执行。

PrivateSubForm_Click（）

msg$="请确认此数据是否正确"

Title$="数据检查对话框"

x=MsgBox（msg$,19,Title$）

Ifx=6Then

Printx*x

ElseIfx=7Then

Print"请重新输入"

EndIf

EndSub

【例3-5】

PrivateSubForm_Click（）

Print:

FontName="隶书"

FontSize=16

Print"姓名";Tab（8）;"年龄";Tab（16）;"职务";

PrintTab（24）;"单位";Tab（32）;"籍贯"

Print"吴大明";Tab（8）;25;Tab（16）;"职员";Tab（24）;"人事科";Tab（32）;"北京"

EndSub

【例3-6】

PrivateSubForm_Click（）

X=InputBox（"请输入成绩","学生成绩录入","00"）

Printx

EndSub

【例3-7】

PrivateSubForm_Click（）

DimxAsSingle,yAsSingle

x=InputBox（“请输入x的值”）

Ifx>0Theny=1ElseIfx=0Theny=0Elsey=-1

Print“x=”;x,”y=”;y

End Sub

【例3-8】

PrivateSubForm_Click（）

Dimmsg,UserInput

msg="请输入一个字母或0～9之间的数字."

UserInput=InputBox（msg） ‘输入一个字母或数字

If Not IsNumeric（UserInput） Then ‘判断是否是数字

If Len（UserInput）=1Then ‘不是数字时，判断输入的字符串长度是否为1

Select Case Asc（UserInput） ‘判断输入字母的ASCII码值

Case 60 To 90 '在60-90之间为大写字母

msg="你输入的是一个大写字母'"

msg=msg & Chr（Asc（UserInput））&"'。

Case 97 To 122 '小写字母

msg="你输入的是一个小写字母'"

msg=msg & Chr（Asc（UserInput））&"'。

CaseElse

msg="你没有输入字母或数字."

EndSelect

EndIf

Else

SelectCaseVal（UserInput） '将输入的数值型字符转换为数值

Case1,3,5,7,9 '如果是奇数

msg=UserInput&"是一个奇数。

Case0,2,4,6,8 '如果是偶数

msg=UserInput&"是一个偶数。

CaseElse '出界

msg="你输入的数字不在0～9范围内"

EndSelect

EndIf

MsgBoxmsg

EndSub

【例3-8】

PrivateSubForm_Click（）

Dimmsg,UserInput

msg="请输入一个字母或0～9之间的数字."

UserInput=InputBox（msg） ‘输入一个字母或数字

If Not IsNumeric（UserInput） Then ‘判断是否是数字

If Len（UserInput）=1Then ‘不是数字时，判断输入的字符串长度是否为1

Select Case Asc（UserInput） ‘判断输入字母的ASCII码值

Case 60 To 90 '在60-90之间为大写字母

msg="你输入的是一个大写字母'"

msg=msg & Chr（Asc（UserInput））&"'。

Case 97 To 122 '小写字母

msg="你输入的是一个小写字母'"

msg=msg & Chr（Asc（UserInput））&"'。

CaseElse

msg="你没有输入字母或数字."

EndSelect

EndIf

Else

SelectCaseVal（UserInput） '将输入的数值型字符转换为数值

Case1,3,5,7,9 '如果是奇数

msg=UserInput&"是一个奇数。

Case0,2,4,6,8 '如果是偶数

msg=UserInput&"是一个偶数。

CaseElse '出界

msg="你输入的数字不在0～9范围内"

EndSelect

EndIf

MsgBoxmsg

EndSub

【例3-10】

SubForm_Click（）

Dim N As Integer

n=InputBox（"Enter N:

"） ‘输入N的值

k=1

Fori=1ToN ‘循环N次，计算出N！

k=k*I

Nexti

PrintN;”!

=”;k ‘数据输出

EndSub

【例3-12】

DimS,N

S=0:

N=0

DoWhileS<=100

N=N+1

S=S+N

Loop

PrintS,N

【例3-13】

PrivateSubForm_Click（）

DimcharAsString

Count=0

char=InputBox（"请输入一个字符"）

Whilechar<>"?

Count=Count+1

char=InputBox$（"请输入一个字符"）

Wend

Print"输入的字符数是:

";Count

EndSub

【例3-14】

PrivateSubForm_Click（）

Print"*";

Fori=1To9

PrintTab（i*6）;i;

Nexti

Forj=1To9

Printj;

Fork=1Toj

PrintTab（k*6）;j*k;"";

Nextk

Nextj

EndSub

第4章

课前体验

（1）假定用来输入数学成绩的文本框名称为Text1，该文本框的LostFocus事件过程如下：

PrivateSubText1_LostFocus（）

IfVal（Text1.Text）<0OrVal（Text1.Text）>100Then

Text1.Text=""

Text1.SetFocus

EndIf

EndSub

（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

EndSub

【例4-1】

PrivateSubCommand1_Click（） ‘在其单击事件中编程

Fori=1To6 ‘外循环，控制输出几行

Forj=1Toi ‘内循环，控制输出几列

Print"*";

Nextj

Print ‘换行

Nexti

EndSub

【例4-2】

PrivateSubText1_Change（）

Text2.Text=LCase（Text1.Text）

Text3.Text=UCase（Text1.Text）

EndSub

【例4-3】

PrivateSubCheck1_Click（）

Text1.FontUnderline=NotText1.FontUnderline

EndSub

PrivateSubCheck2_Click（）

Text1.FontItalic=NotText1.FontItalic

EndSub

PrivateSubOption1_Click（）

Text1.Font="黑体"

EndSub

PrivateSubOption2_Click（）

Text1.Font="宋体"

EndSub

【例4-4】

PrivateSubCommand1_Click（）

IfOption1Then

Text1.FontName="宋体"

Else

Text1.FontName="黑体"

EndIf

IfOption3Then

Text1.FontSize=8

Else

Text1.FontSize=10

EndIf

EndSub

PrivateSubCommand2_Click（）

End

EndSub

【例4-5】

PrivateSubForm_Load（）

‘在窗体的Load事件中输入列表框的各个项目

lstBooks.AddItem"计算机应用基础"

lstBooks.AddItem"操作系统"

lstBooks.AddItem"数据结构"

lstBooks.AddItem"网络技术基础"

EndSub

PrivateSubcmdAdd_Click（）

‘单击添加命令按钮时将文本框中输入的内容添加到列表框中

lstBooks.AddItemtxtItem

txtItem=""

EndSub

PrivateSubcmdDelete_Click（）

‘删除列表框中选中的项目

lstBooks.RemoveItemlstBooks.ListIndex

EndSub

PrivateSubcmdModify_Click（）

‘所选项目显示在文本框中，等待修改

txtItem.Text=lstBooks.Text

cmdAdd.Enabled=False

cmdDelete.Enabled=False

cmdModify.Enabled=False

cmdModify_OK.Enabled=True

EndSub

PrivateSubcmdModify_OK_Click（）

‘所选项目显示在文本框中修改完成后，按下修改确定按钮，更新列表框内容

lstBooks.List（lstBooks.ListIndex）=txtItem

cmdModify_OK.Enabled=True

cmdAdd.Enabled=True

cmdDelete.Enabled=True

cmdModify.Enabled=True

txtItem=""

EndSub

【例4-6】

PrivateSubForm_Click（）

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

EndSub

【例4-8】

PrivateTimer1_Timer（）

Labe1.Caption=Time$

EndSub

实训

PrivateSubCommand1_Click（）

Debug.Print"姓名:

";Text1.Text

Debug.Print"出生年月:

";Text2.Text

Debug.Print"籍贯:

";Text3.Text

IfOption1.ValueThenDebug.Print"性别:

";"男"

IfOption2.ValueThenDebug.Print"性别:

";"女"

Debug.Print"民族:

";Combo1.Text

IfCheck1.Value=1ThenDebug.Print"健康"ElseDebug.Print"不健康"

Debug.Print"职称:

";Combo3.Text

Debug.Print"工资:

";Text4.Text

Debug.Print"外语熟练程度";HScroll1.Value

Debug.Print"简历:

";Text5.Text

EndSub

第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相比，如果比最高分高，则保存起来

EndIf

Nexti

Print"最高分是第"&K&"个同学，其成绩是：

"&Max

EndSub

【例5-1】

OptionBase1

PrivateSubCommand1_Click（）

Dima（3）AsInteger

（1）=1:

（2）=3:

a（3）=5

Printa

（1）

Printa

（2）

Printa（3）

EndSub

【例5-2】

Fori=1To10

b（i）=InputBox（"请输入第"&i&"个数"）

Nexti

【例5-3】

Fori=1To2

Forj=1To2

b（i,j）=i+j

Nextj

Nexti

【例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 ‘换行

Nexti

【例5-5】

PrivateSubForm_Click（）

Dims（5）AsInteger '定义数组S

Constn=5

Fori=1Ton

s（i）=Val（InputBox（"请输入第"<rim$（Str$（i））&"个数",数据排序））

‘输入n个数，转换成数值后保存在数组中。

Nexti

Fori=1Ton-1 ‘进行n-1趟比较

Max=I ‘对第i遍比较时，初始假定第i个元素最小。

Forj=i+1Ton ‘在数组i～n个元素中选最小元素

Ifs（j）

Nextj

t=s（i）

s（i）=s（Max）

s（Max）=t ‘i～n个元素中选出的最小元素与第i个元素交换

Nexti

Fori=1To5

Prints（i）

Nexti

EndSub

【例5-6】

Dimb（）AsInteger

PrivateSubForm_Click（）

ReDimb

（2）

Fori=0To2

b（i）=i

Nexti

ReDimPreserveb（3）

b（3）=7

Fori=0To3

Printb（i）;

Nexti

EndSub

【例5-7】

Dima（8,8）AsInteger '定义一个二维数组

PrivateSubForm_Click（）

‘下面的二层循环语句给数组赋值

Fori=1To8

Forj=1Toi

Ifi=1Orj=1Then

a（i,j）=1 '数组中每一行第一个，最后一个数均为1

Else

a（i,j）=a（i-1,j-1）+a（i-1,j）

'数组中其余数据等于它上一行的相邻两列之和

EndIf

Nextj

Nexti

'下面的二层循环语句将数组中的值打印出来

Fori=1To8

PrintTab（20-2*i）; '定位打印位置

Forj=1Toi

Ifa（i,j）<10Then '将数组中的值转换成长度为3的字符串，可使打印数据整齐

s=""+Str（a（i,j））+"

展开阅读全文