VB小程序代码实例文档格式.docx
《VB小程序代码实例文档格式.docx》由会员分享，可在线阅读，更多相关《VB小程序代码实例文档格式.docx（23页珍藏版）》请在冰豆网上搜索。
打印横行序号
Forj=1To9
Printj;
打印竖行序号
Fork=1Toj
temp=j*k
PrintTab（k*6）;
temp;
打印乘积
Nextk
Print'
输出一个空行
Nextj
EndSub
3.打印人员名册
打印人员名册:
PrivateSubForm_Click（）
Print
FontName="
魏碑"
FontSize=16
姓名"
Tab（8）;
年龄"
Tab（16）;
职务"
Tab（24）;
单位"
Tab（32）;
籍贯"
Print
张得功"
25"
科长"
劳动科"
北京"
李德生"
32"
处长"
科研处"
上海"
4.单选按钮设置字体类型和大小
单选按钮设置字体类型和大小:
在窗体上画出两个框架，每个框架内分别画两个单选按钮，然后画两个命令按钮和一个文本框。
编写时间过程如下：
PtivateSubForm_Load（）
Form1.Caption="
框架用法示例"
Command1.Caption="
确定"
Command2.Caption="
结束"
Frame1.Caption="
字体类型"
Frame2.Caption="
字体大小"
Option1.Caption="
Option2.Caption="
幼圆"
Option3.Caption="
16"
Option4.Caption="
24"
Text1.Text="
VisualBasic程序设计"
PrivateSubCommand1.Click_（）
IfOptoion1Then
Text1.FontName="
Else
EndIF
IfOption3Then
Text1.FontSize=16
Text1.FontSize=24
PrivateSubCommand2.Click_（）
End
5.计算存款利息
计算存款利息:
本金p为10000，年利率为0.125，每年计息一次，求10年的本利和是多少。
DimpAsCurrency
p=10000:
r=0.125
t=1
Again
Ift>
10ThenGoTo100
i=p*r
p=p+i
t=t+1
GoToAgain
100
Printp
EndSub
说明：
这里的“Again：
”是标号，“100”是行号。
6.交换两个列表框的项目
交换两个列表框的项目。
其中一个列表框的项目按字母升序排列，另一个列表框的项目按项目加入的先后顺序排列。
当双击某个项目时，该项目从列表框中消失，并出现在在另一个列表框中：
PrivateSubForm_Load（）
List1.FontSize=14
List2.FontSize=14
List1.AddItem"
IBM"
Compad"
HP"
FUJI"
Digital"
长城"
联想"
Canon"
四通"
Acer"
Nec"
NCR"
PrivateSubList1_DbClick（）
List2.AddItemList1.Text
List1.RemoveItemList1.ListIndex
PrivateSubList2_DbClick（）
List1.AddItemList2.Text
List2.RemoveItemList2.ListIndex
7.交换图片
交换两个图片框中的图形：
在窗体上建立三个图片框Picture1、Picture2、Picture3，其中两个在上，一个在下。
交换位图
Picture3.Picture=Picture1.Picture
Picture1.Picture=Picture2.Picture
Picture2.Picture=Picture3.Picture
把第三个图片框设置为空
Picture3.Picture=LoadPicture（）
PrivateSubForm_Load
装入位图
Picture1.Picture=LoadPicture_
（"
C:
\DocumentsandSettings\AllUsers\Documents\MyPictures\1.jpg"
）'
可自行改变路径
Picture2.Picture=LoadPicture_
\DocumentsandSettings\AllUsers\Documents\MyPictures\2.jpd"
可自行改变路径
8.冒泡排序
从键盘上输入10个整数，用冒泡法排序（BubbleSort）法对这十个数从小到大排序：
在窗体上建立一个命令按钮，并把Caption属性设置为“ClickHeretoStart”
编写程序如下：
SubCommand1_Click（）
Staticnumber（1To10）ASInteger'
定义数组number为整形
Msg$="
EnterNumberforSort:
MsgStile$="
SortDemo"
Fori%=1To10
number（i%）=InputBox（Msg$,MsgTile$）
Nexti%
Fori%=10To2Step-1
Forj%=1Toi%-1
Ifnumber（j%）=number（j%+1）Then
t=number（j%+1）
number（j%+1）=number（j%）
number（j%）=t
Nextj%
Nexti%
Printnumber（i%）
9.判断0~9数据类型--奇数或偶数
判断字母大小写及0~9数据类型--奇数或偶数:
DimMsg,UserInput
Msg="
Pleaseenteraletterornumberfrom0though9."
UserInput=InputBox（Msg）
IfLen（UserInput）<
>
SelectCaseAsc（UserInput）'
返回ASCII码
Case65To90'
大写字母
Youenteredtheuppercaseletter"
Msg=Msg&
Chr（Asc（UserInput））&
!
Case97To122'
小写字母
Youenteredthelowercaseletter"
CaseElse
Youdidnotenteraletteroranumber."
EndSelect
SelectCaseCDbl（UserInput）'
转换为双精度数值
Case1,3,5,7,9
Msg=UserInput&
isanoddnumber"
奇数
Case0,2,4,6,8
偶数
CaseElse'
出界
Youenteredanumberouside"
therequestedrange"
MsgBoxMsg
EndSub
10.判断100~200的所有偶数可以分解为两个素数之和
判断100~200的所有偶数可以分解为两个素数之和。
Functionnf（nAsInteger）AsBoolean'
判断n是否为素数
DimsAsBoolean
DimIAsInteger
s=False
ForI=2ToInt（Sqr（n））'
如果能被2~Int（Sqr（n））中任何一个数整除,则不是素数,跳出For循环
IfnModI=0Then
ExitFor
NextI
IfI>
Int（Sqr（n））Then'
如果正常跳出For循环,则I跳出循环For后的值应该是N,所以满足这个条件
s=True'
当I是素数时s=true
nf=s'
当I是素数时,nf=true,否则nf=false
EndFunction
PrivateSubform_click（）
DimtAsBoolean
DimqAsBoolean
DimjAsInteger
DimaAsInteger
ForI=100To200Step2
Forj=2ToI/2'
I一定可分解为一个大于它一半的数和小于它一半的数
t=nf（j）'
调用Funtion（函数）nf,判断i是否是素数,把nf的值（true或flase）赋值给变量t
Ift=TrueThen'
如果t是true就往下执行,否则就执行到Endif
（2）后面的nextj语句
q=nf（I-j）'
调用Funtion（函数）nf,判断i-j是否是素数,把nf的值（true或flase）赋值给变量q
Ifq=TrueThen'
如果q是true（说明i-j是素数）就往下执行,否则就跳到Endif
（1）,继续执行j循环
Printj,I-j'
当q是true和t是True同时满足时,说明I的确能分解为两个素数,就打出j和I-j的值
ExitFor'
跳出j循环,判断下一个偶数
EndIf'
（1）
（2）
NextI
11.判断是否为素数
判断一个整数（>
=3）是否为素数：
提示：
如果一个（>
=3的）整数可以将n被2到√n（n的平方根）之间的所有整数除，如果都除不尽，则n为素数（）质数，否则n为非素数（合数）。
DimnAsInteger
n=InputBox（"
请输入一个正整数（>
=3）:
）
k=Int（Spr（n））'
取不大于n的平方根的最大整数
i=2
Swit=0
Whilei<
=kAndSwit=0
IfnModi=0Then
Swit=1
i=i+1
Wend
IfSwit=0Then
Printn;
是一个素数"
不是素数"
这里的Swit是一个标志变量。
Swit=0标志着n未被任何一个正整数整除过；
如果被整除过，则Swit=1。
上述程序也可以写成：
用For…….Next语句:
SubForm_Click（）
DimIasInteger,NAsInteger
N=val（InputBox（"
））
ForI=2toint（Sqr（N））
IfNModI=0ThenExitFor
int（Sqr（N））Then
PrintN&
是素数"
用While….Wend循环:
DimIAsInteger,NAsInteger
N=Val（InputBox（"
I=2
c=Int（Sqr（N））
DoWhileI<
=c
IfNModI=0ThenExitDo
I=I+1'
在For以外的
Loop
cThen
法2：
一个数n是素数的条件:
不能被2~n-1整除
用For…….Next语句
ForI=2toN-1
IfNModI=0ThenExitFor'
如果能被2~N-1中任何一个数整除,则不是素数,跳出For循环
=NThen'
12.切换信号灯
模拟交通信号灯的切换：
在窗体上画出3个图像框和两个命令按钮Command1（切换信号）和Command2（结束程序）。
三个图像框分别装有红、绿、蓝三的信号标志的图片。
编写如下事件过程：
Image2.Visible=Flase
Image3.Visible=Flase
PrivateSubCommand1_Click（）
IfImage1.Visible=TrueThen
Image1.Visible=False
Image2.Visible=Ture
ElseIfImage2.Visible=TureThen
Image2.Visible=False
Image3.Visible=True
Image3.Visible=False
Image2.Visible=True
PrivateSubCommdan2_Click（）
13.求N！
求N的阶乘N！
（N为自然数）：
DimNAsInteger
N=InputBox（"
enterN:
k=1
Fori=1ToN
k=k*i
PrintN;
N!
="
k
该程序也可以写成：
k=1:
m=1
k=k*i:
m=m+1
程序也可以这样写：
PrivateSubcommand1_Click（）
DimIAsInteger,fAsDouble,nAsInteger
n=InputBox（"
输入一个自然数：
"
输入提示"
f=1
ForI=1TonStep1
f=f*INextIText1.Text=f
PrivateSubCommand2_Click（）
End
14.人口达到或超过70亿所需年数
假设目前世界人口约为60亿，如果以每年1.4%的速度增长，多少年后世界人口达到60亿或超过60亿？
DimpASDouble
DimrASSingle
DimnASInteger
P=6000000000#
r=0.014
n=0
DoUntilp>
=7000000000#
p=p*（1+r）
n=n+1
年后世界人口达到"
p
上述所用是“DoUntil……Loop”循环结构。
该程序若改用“Do……LoopUntil”循环，则程序为：
Do
LoopUntilp>
15.输出100~300之间的所有素数
输出100~300间的所有素数：
Forn=101To300step2
d=d+1
IfdMod5=0Then'
输出5个数字后换行
Print
Nextn
16.水仙花数
VisualBasic的"
水仙花数"
实现代码：
说明：
水仙花数是指一个n位数（n≥3），它的每个位上的数字的n次幂之和等于它本身。
（例如：
1^3+5^3+3^3=153）
三位的水仙花数共有4个：
153，370，371，407；
四位的水仙花数共有3个：
1634，8208，9474；
五位的水仙花数共有3个：
54748，92727，93084；
六位的水仙花数只有1个：
548834；
七位的水仙花数共有4个：
1741725，4210818，9800817，9926315；
八位的水仙花数共有3个：
24678050，24678051，88593477
……
编写如下事件过程：
PrivateSubForm_Click（）
Dima,b,cAsInteger'
a（个）b（十）c（百）
Fora=0To9
Forb=0To9
Forc=1To9
Ifa^3+b^3+c^3=a+10*b+100*cThen
MsgBox100*c+10*b+a'
或写成Print100*c+10*b+a
EndIf
Nextc
Nextb
Nexta
17.添加成员列表（枚举类型）的方法
添加成员列表（枚举类型）可以用Enum语句：
如：
PublicEnumWorkdays
Saturday
Sunday
Monday
Tuesday
Wednesday
Thursday
Friday
EndEnum
在默认情况下，枚举中的第一个常数被初始化为0，其后的常数则初始化为比起前面的常数大1的数值。
上述的枚举中常数Sunday的值为0。
Sunday=0
Invalid=-1
该程序的第一个元素Sunday被赋值为0，Saturday为第一个元素，也被赋值为0，Tuesday的值为2。
18.显示不同形状
在窗体上显示6中不同是形状：
CurrentX=350
0"
Fori=1To5
Shape1（i）.Left=Shape1（i-1）.Left+1050
Shape1（i）.Shape=1
Shape1（i）.Visible=True
Curre
升级会员 