下载

1下载券

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

上传资料

关闭

关闭

关闭

封号提示

内容

首页 vb小程序实例 VB小程序代码实例

vb小程序实例 VB小程序代码实例.doc

vb小程序实例 VB小程序代码实例

何宝旷
2017-09-27 0人阅读 举报 0 0 暂无简介

简介:本文档为《vb小程序实例 VB小程序代码实例doc》,可适用于综合领域

vb小程序实例VB小程序代码实例导读:就爱阅读网友为您分享以下“VB小程序代码实例”资讯希望对您有所帮助感谢您对tocom的支持!打印负数并分别计算正负数只和:有如下个数:(也可以定位其他数值)打印出其中的每个负数分别计算并输出正数和负数的和。程序如下:SubFormClick()DimnumberASIntegerNegativeSum=:PostiveSum=Fori=Tonumber=InputBox(“Enterdata:“)IfnumberThenPrintnumberNegativeSum=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=AgainIftThenGoToi=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=ThenExitForEndIfNextIIfIInt(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=ThenExitForNextIIfIint(Sqr(N))ThenPrintN“是素数”ElsePrintN“不是素数”EndIfEndSub用While,Wend循环:SubFormClick()DimIAsInteger,NAsIntegerN=Val(InputBox(““))

用户评价(0)

关闭

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

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

提示

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

文档小程序码

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

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/13

vb小程序实例 VB小程序代码实例

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利