VB小程序代码实例Word文档下载推荐.docx
《VB小程序代码实例Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《VB小程序代码实例Word文档下载推荐.docx（26页珍藏版）》请在冰豆网上搜索。
NegativeSum
Print"
PostiveSum="
PostiveSum
EndSub
2.打印九九表：
在窗体上打印九九表：
程序如下：
PrintSubForm_Click（）
FontSize=12
PrintTab（30）;
"
9*9Table"
Print:
Print'
输出两个空行
*"
Fori=1To9
PrintTab（i*6）;
i;
'
打印横行序号
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
升级会员 