下载

1下载券

加入VIP
  • 专属下载特权
  • 现金文档折扣购买
  • VIP免费专区
  • 千万文档免费下载

上传资料

关闭

关闭

关闭

封号提示

内容

首页 VB小程序代码

VB小程序代码.doc

VB小程序代码

qiuyihan333
2012-05-01 0人阅读 举报 0 0 暂无简介

简介:本文档为《VB小程序代码doc》,可适用于IT/计算机领域

打印负数并分别计算正负数只和:有如下个数:(也可以定位其他数值)打印出其中的每个负数分别计算并输出正数和负数的和。程序如下:SubFormClick()DimnumberASIntegerNegativeSum=:PostiveSum=Fori=Tonumber=InputBox("Enterdata:")Ifnumber<ThenPrintnumberNegativeSum=NegativeSumnumberElsePostiveSum=PostiveSumnumberEndIfNextiprintprint"NegativeSum="NegativeSumPrint"PostiveSum="PostiveSumEndSub打印九九表:在窗体上打印九九表:程序如下:PrintSubFormClick()FontSize=PrintTab()"*Table"Print:Print'输出两个空行Print"*"Fori=ToPrintTab(i*)i'打印横行序号NextiForj=ToPrintj""'打印竖行序号Fork=Tojtemp=j*kPrintTab(k*)temp""'打印乘积NextkPrint'输出一个空行NextjEndSub打印人员名册打印人员名册:PrivateSubFormClick()Print:PrintFontName="魏碑"FontSize=Print"姓名"Tab()"年龄"Tab()"职务"Tab()"单位"Tab()"籍贯"PrintPrint"张得功"Tab()""Tab()"科长"Tab()"劳动科"Tab()"北京"Print"李德生"Tab()""Tab()"处长"Tab()"科研处"Tab()"上海"EndSub单选按钮设置字体类型和大小单选按钮设置字体类型和大小:在窗体上画出两个框架每个框架内分别画两个单选按钮然后画两个命令按钮和一个文本框。编写时间过程如下:PtivateSubFormLoad()FormCaption="框架用法示例"CommandCaption="确定"CommandCaption="结束"FrameCaption="字体类型"FrameCaption="字体大小"OptionCaption="魏碑"OptionCaption="幼圆"OptionCaption=""OptionCaption=""TextText="VisualBasic程序设计"EndSubPrivateSubCommandClick()IfOptoionThenTextFontName="魏碑"ElseTextFontName="幼圆"EndIFIfOptionThenTextFontSize=ElseTextFontSize=EndIfEndSubPrivateSubCommandClick()EndEndSub计算存款利息计算存款利息:本金p为年利率为每年计息一次求年的本利和是多少。SubFormClick()DimpAsCurrencyp=:r=t=AgainIft>ThenGoToi=p*rp=pit=tGoToAgainPrintpEndSub说明:这里的“Again:”是标号“”是行号。交换两个列表框的项目交换两个列表框的项目。其中一个列表框的项目按字母升序排列另一个列表框的项目按项目加入的先后顺序排列。当双击某个项目时该项目从列表框中消失并出现在在另一个列表框中:PrivateSubFormLoad()ListFontSize=ListFontSize=ListAddItem"IBM"ListAddItem"Compad"ListAddItem"HP"ListAddItem"FUJI"ListAddItem"Digital"ListAddItem"长城"ListAddItem"联想"ListAddItem"Canon"ListAddItem"四通"ListAddItem"Acer"ListAddItem"Nec"ListAddItem"NCR"EndSubPrivateSubListDbClick()ListAddItemListTextListRemoveItemListListIndexEndSubPrivateSubListDbClick()ListAddItemListTextListRemoveItemListListIndexEndSub交换图片交换两个图片框中的图形:在窗体上建立三个图片框Picture、Picture、Picture其中两个在上一个在下。PrivateSubFormClick()'交换位图PicturePicture=PicturePicturePicturePicture=PicturePicturePicturePicture=PicturePicture'把第三个图片框设置为空PicturePicture=LoadPicture()EndSubPrivateSubFormLoad'装入位图PicturePicture=LoadPicture("C:DocumentsandSettingsAllUsersDocumentsMyPicturesjpg")'可自行改变路径PicturePicture=LoadPicture("C:DocumentsandSettingsAllUsersDocumentsMyPicturesjpd")'可自行改变路径EndSub冒泡排序从键盘上输入个整数用冒泡法排序(BubbleSort)法对这十个数从小到大排序:在窗体上建立一个命令按钮并把Caption属性设置为“ClickHeretoStart”编写程序如下:SubCommandClick()Staticnumber(To)ASInteger'定义数组number为整形Msg$="EnterNumberforSort:"MsgStile$="SortDemo"Fori=Tonumber(i)=InputBox(Msg$,MsgTile$)NextiFori=ToStepForj=ToiIfnumber(j)=number(j)Thent=number(j)number(j)=number(j)number(j)=tEndIfNextjNextiFori=ToPrintnumber(i)NextiEndSub判断~数据类型奇数或偶数判断字母大小写及~数据类型奇数或偶数:SubFormClick()DimMsg,UserInputMsg="Pleaseenteraletterornumberfromthough"UserInput=InputBox(Msg)IfLen(UserInput)<>ThenSelectCaseAsc(UserInput)'返回ASCII码CaseTo'大写字母Msg="Youenteredtheuppercaseletter"Msg=MsgChr(Asc(UserInput))"!"CaseTo'小写字母Msg="Youenteredthelowercaseletter"Msg=MsgChr(Asc(UserInput))"!"CaseElseMsg="Youdidnotenteraletteroranumber"EndSelectElseSelectCaseCDbl(UserInput)'转换为双精度数值Case,,,,Msg=UserInput"isanoddnumber"'奇数Case,,,,Msg=UserInput"isanoddnumber"'偶数CaseElse'出界Msg="Youenteredanumberouside"Msg=Msg"therequestedrange"EndSelectEndIfMsgBoxMsgEndSub判断~的所有偶数可以分解为两个素数之和判断~的所有偶数可以分解为两个素数之和。Functionnf(nAsInteger)AsBoolean'判断n是否为素数DimsAsBooleanDimIAsIntegers=FalseForI=ToInt(Sqr(n))'如果能被~Int(Sqr(n))中任何一个数整除,则不是素数,跳出For循环IfnModI=ThenExitForEndIfNextIIfI>Int(Sqr(n))Then'如果正常跳出For循环,则I跳出循环For后的值应该是N,所以满足这个条件s=True'当I是素数时s=trueEndIfnf=s'当I是素数时,nf=true,否则nf=falseEndFunctionPrivateSubformclick()DimtAsBooleanDimqAsBooleanDimIAsIntegerDimjAsIntegerDimaAsIntegerForI=ToStepForj=ToI'I一定可分解为一个大于它一半的数和小于它一半的数t=nf(j)'调用Funtion(函数)nf,判断i是否是素数,把nf的值(true或flase)赋值给变量tIft=TrueThen'如果t是true就往下执行,否则就执行到Endif()后面的nextj语句q=nf(Ij)'调用Funtion(函数)nf,判断ij是否是素数,把nf的值(true或flase)赋值给变量qIfq=TrueThen'如果q是true(说明ij是素数)就往下执行,否则就跳到Endif(),继续执行j循环Printj,Ij'当q是true和t是True同时满足时,说明I的确能分解为两个素数,就打出j和Ij的值ExitFor'跳出j循环,判断下一个偶数EndIf'()EndIf'()NextjNextIEndSub判断是否为素数判断一个整数(>=)是否为素数:提示:如果一个(>=的)整数可以将n被到√n(n的平方根)之间的所有整数除如果都除不尽则n为素数()质数否则n为非素数(合数)。编写程序如下:SubFormClick()DimnAsIntegern=InputBox("请输入一个正整数(>=):")k=Int(Spr(n))'取不大于n的平方根的最大整数i=Swit=Whilei<=kAndSwit=IfnModi=ThenSwit=Elsei=iEndIfWendIfSwit=ThenPrintn"是一个素数"ElsePrintn"不是素数"EndIfEndSub说明:这里的Swit是一个标志变量。Swit=标志着n未被任何一个正整数整除过如果被整除过则Swit=。上述程序也可以写成:用For……Next语句:SubFormClick()DimIasInteger,NAsIntegerN=val(InputBox(""))ForI=toint(Sqr(N))IfNModI=ThenExitForNextIIfI>int(Sqr(N))ThenPrintN"是素数"ElsePrintN"不是素数"EndIfEndSub用While…Wend循环:SubFormClick()DimIAsInteger,NAsIntegerN=Val(InputBox(""))I=c=Int(Sqr(N))DoWhileI<=cIfNModI=ThenExitDoI=I'在For以外的LoopIfI>cThenPrintN"是素数"ElsePrintN"不是素数"EndIfEndSub法:一个数n是素数的条件:不能被~n整除用For……Next语句SubFormClick()DimIasInteger,NAsIntegerN=val(InputBox(""))ForI=toNIfNModI=ThenExitFor'如果能被~N中任何一个数整除,则不是素数,跳出For循环NextIIfI>=NThen'如果正常跳出For循环,则I跳出循环For后的值应该是N,所以满足这个条件PrintN"是素数"ElsePrintN"不是素数"EndIfEndSub切换信号灯模拟交通信号灯的切换:在窗体上画出个图像框和两个命令按钮Command(切换信号)和Command(结束程序)。三个图像框分别装有红、绿、蓝三的信号标志的图片。编写如下事件过程:PrivateSubFormLoad()ImageVisible=FlaseImageVisible=FlaseEndSubPrivateSubCommandClick()IfImageVisible=TrueThenImageVisible=FalseImageVisible=TureElseIfImageVisible=TureThenImageVisible=FalseImageVisible=TrueElseImageVisible=FalseImageVisible=TrueEndIfEndSubPrivateSubCommdanClick()EndEndSub求N!求N的阶乘N!(N为自然数):程序如下:SubFormClick()DimNAsIntegerN=InputBox("enterN:")k=Fori=ToNk=k*iNextiPrintN"N!="kEndSub该程序也可以写成:SubFormClick()DimNAsIntegerN=InputBox("enterN:")k=:m=Fori=ToNk=k*i:m=mNextiPrintN"N!="kEndSub程序也可以这样写:PrivateSubcommandClick()DimIAsInteger,fAsDouble,nAsIntegern=InputBox("输入一个自然数:","输入提示","")f=ForI=TonStepf=f*INextITextText=fEndSubPrivateSubCommandClick()EndEndSub人口达到或超过亿所需年数假设目前世界人口约为亿如果以每年的速度增长多少年后世界人口达到亿或超过亿?程序如下:SubFormClick()DimpASDoubleDimrASSingleDimnASIntegerP=#r=n=DoUntilp>=#p=p*(r)n=nLoopPrintn"年后世界人口达到"pEndSub上述所用是“DoUntil……Loop”循环结构。该程序若改用“Do……LoopUntil”循环则程序为:SubFormClick()DimpASDoubleDimrASSingleDimnASIntegerP=#r=n=Dop=p*(r)n=nLoopUntilp>=#Printn"年后世界人口达到"pEndSub输出~之间的所有素数输出~间的所有素数:程序如下:SubFormClick()Forn=Tostepk=Int(Spr(n))'取不大于n的平方根的最大整数i=Swit=Whilei<=kAndSwit=IfnModi=ThenSwit=Elsei=iEndIfWendIfSwit=Thend=dIfdMod=Then'输出个数字后换行Printn""PrintElsePrintn""EndIfEndIfNextnEndSub水仙花数VisualBasic的"水仙花数"实现代码:说明:水仙花数是指一个n位数(n≥)它的每个位上的数字的n次幂之和等于它本身。(例如:^^^=)  三位的水仙花数共有个:  四位的水仙花数共有个:  五位的水仙花数共有个:  六位的水仙花数只有个:  七位的水仙花数共有个:  八位的水仙花数共有个:  ……  ……编写如下事件过程:PrivateSubFormClick()Dima,b,cAsInteger'a(个)b(十)c(百)Fora=ToForb=ToForc=ToIfa^b^c^=a*b*cThenMsgBox*c*ba'或写成Print*c*baEndIfNextcNextbNextaEndSub添加成员列表(枚举类型)的方法添加成员列表(枚举类型)可以用Enum语句:如:PublicEnumWorkdaysSaturdaySundayMondayTuesdayWednesdayThursdayFridayEndEnum在默认情况下枚举中的第一个常数被初始化为其后的常数则初始化为比起前面的常数大的数值。上述的枚举中常数Sunday的值为。PublicEnumWorkdaysSaturdaySunday=MondayTuesdayWednesdayThursdayFridayInvalid=EndEnum该程序的第一个元素Sunday被赋值为Saturday为第一个元素也被赋值为Tuesday的值为。显示不同形状在窗体上显示中不同是形状:PrivateSubFormClick()FontSize=CurrentX=Print""Fori=ToShape(i)Left=Shape(i)LeftShape(i)Shape=Shape(i)Visible=TrueCurrentX=CrrentXPrintiNextiEndSub写入与清屏在窗体上画一个文本框Caption属性为空再画三个命令按钮Caption属性分别为“单击此按钮输入”、“清屏”和“结束”。双击Command进入代码窗口输入以下程序代码:PrivateSubCommandClick()TextFontSize=TextText="欢迎进入VB世界"EndSubPrivateSubCommandClick()TextText=""EndSubPrivateSubCommandClick()EndEndSub选择机型并显示从窗体上选择机型并在立即窗口中显示结果:在窗体上建立四个标签Caption属性分别为:“机型”、“CPU主频”、“内存”和“硬盘”建立四个组合框Style属性分别为:、、和建立两个命令按钮Caption属性分别为:“确定”和“取消”Default属性都是True。编写如下事件过程:SubFormLoad()CombolAddItem"IBM"CombolAddItem"Compad"CombolAddItem"方正"CombolAddItem"联想"CombolAddItem"HP"CombolAddItem"Acer"CombolAddItem"DEC"CombolAddItem"奔腾"CombolAddItem"奔腾"CombolAddItem"奔腾G"CombolAddItem"奔腾G"CombolAddItem"奔腾G"、CombolAddItem"奔腾G"CombolAddItem"奔腾G"CombolAddItem"MB"CombolAddItem"MB"CombolAddItem"MB"CombolAddItem"GB"CombolAddItem"GB"CombolAddItem"GB"CombolAddItem"GB"CombolAddItem"GB"CombolAddItem"GB"EndSubSubCommandClick()DebugPrint"你所选的机型为:"DebugPrint"机型:"ComboDebugPrint"CPU:"ComboDebugPrint"内存"ComboDebugPrint"硬盘"ComboEndSubSubCommandClick()EndEndSub用单选按钮改变字体和字号用单选按钮改变文本框里的字体和字号:在窗体上建立一个文本框和三个单选按钮。单选按钮的Caption属性分别为“FontName:Roman”、“FontName:Modern”和“FontName:Courier”Name属性分别为“Roman”、“Modern”和“Courier”文本框的Name属性为“Display”。编写如下事件过程:PrivateSubCourierClick()DisplayFontSize=DisplayFontName="Couier"EndSubPrivateSubModernClick()DisplayFontSize=DisplayFontName="Modern"EndSubPrivateSubFormRoman()DisplayFontSize=DisplayFontName="TimesNewRoman"EndSub用复选框给文字加下划线和删除线用复选框控制文本输入是否“加下划线”和“斜体显示”:建立三个控件:一个文本框和两个复选框复选框的Caption属性分别为“加下划线”和“斜体显示”。编写如下事件过程:'双击窗体PrivateSubFormLoad()DisplayFontSize=EndSub'双击文本框PrivateSubDisplayChange()'把文本框的Name属性改为Display且字号为IfUnderOnVale=ThenDisplayFontUnderline=TrueElseIFItalicOnvalue=TrueThenDisplayFontItalic=TrueEndIfEndSub'双击“斜体显示”复选框PrivateSubItalicOnClick()'把复选框的Name属性改为ItalicOnIfItalicOnValue=ThenDisplayFontItalic=TrueElseDisplayFontItalic=FalseEndIfEndSub'双击“加下划线”复选框PrivateSubUnderOnClick()'把复选框的Name属性改为UnderOnIfUnderOnValue=ThenDisplayFontUnderline=TrueElseDisplayFontUnderline=FalseEndIfEndSub在标签上显示时间在标签Label上显示系统当前时间:在窗体上画出一个标签和一个计时器PrivateSubTimerTimer()LabelFontName="黑体"LabelFontSize=LabelCaption=Time$EndSub找出至之间满足该数等于两个素数之积的所有整数找出至之间满足该数等于两个素数之积的所有整数显示在列表框:PrivateSubCommandClick()Dima()Aslong,iAslong,jAslong,flagAslongDimb()Aslong,c()Aslongn=Fori=Toflag=Forj=ToiIfiModj=Thenflag=EndIfNextjIfflag=Thenn=nReDimPreserveb(n)b(n)=iEndIfNextiFori=TonForj=TonIfb(i)*b(j)>Andb(i)*b(j)<ThenListAddItemb(i)*b(j)"="b(i)"*"b(j)EndIfNextjNextiEndSub找出程序满足MN=的两个素数M和N用VB找出程序满足MN=的两个素数M和N:PrivateSubCommandClick()DimmAsInteger,nAsIntegerForm=ToForn=ToIf*m*n=Ands(m)Ands(n)ThenTextText="m="m"n="nEndIfNextnNextmEndSubPrivateSubCommandClick()TextText=""CommandSetFocusEndSubPrivateFunctions(x)AsBooleanDimiAsIntegerFori=ToSqr(x)IfxModi=oThens=FalseElse:s=TrueEndIfNextiEndFunctionPrivateSubCommandClick()EndEndSub感谢大家支持以后会有更多的代码上传。

用户评价(0)

关闭

新课改视野下建构高中语文教学实验成果报告(32KB)

抱歉,积分不足下载失败,请稍后再试!

提示

试读已结束,如需要继续阅读或者下载,敬请购买!

文档小程序码

使用微信“扫一扫”扫码寻找文档

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/18

VB小程序代码

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利