代码实例VB小程序代码实例Word文件下载.docx
- 文档编号:16554128
- 上传时间:2022-11-24
- 格式:DOCX
- 页数:23
- 大小:22.37KB
代码实例VB小程序代码实例Word文件下载.docx
《代码实例VB小程序代码实例Word文件下载.docx》由会员分享,可在线阅读,更多相关《代码实例VB小程序代码实例Word文件下载.docx(23页珍藏版)》请在冰豆网上搜索。
打印横行序号
Forj=1To9
Printj;
打印竖行序号
Fork=1Toj
temp=j*k
PrintTab(k*6);
temp;
打印乘积
Nextk
Print'
输出一个空行
Nextj
EndSub
3.打印人员名册
打印人员名册:
PrivateSubForm_Click()
FontName="
魏碑"
FontSize=16
姓名"
Tab(8);
年龄"
Tab(16);
职务"
Tab(24);
单位"
Tab(32);
籍贯"
张得功"
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个数字后换行
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
C
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 代码 实例 VB 程序代码
![提示](https://static.bdocx.com/images/bang_tan.gif)