搜索
1.打印负数并分别计算正负数只和：有如下10个数：-2，73，82，-76，-1，24，321，-25，89，-20(也可以定位其他数值)打印出其中的每个负数，分别计算并输出正数和负数的和。程序如下：SubForm_Click()DimnumberASIntegerNegativeSum=0:PostiveSum=0Fori=1To10number=InputBox(Enterdata:)Ifnumber0ThenPrintnumber;NegativeSum=NegativeSum+numberElsePostiveSum=PostiveSum+numberEndIfNextiprintprintNegativeSum=;NegativeSumPrintPostiveSum=;PostiveSumEndSub2.打印九九表：在窗体上打印九九表：程序如下：PrintSubForm_Click()FontSize=12PrintTab(30);9*9TablePrint:Print'输出两个空行Print*;Fori=1To9PrintTab(i*6);i;'打印横行序号NextiForj=1To9Printj;;'打印竖行序号Fork=1Tojtemp=j*kPrintTab(k*6);temp;;'打印乘积NextkPrint'输出一个空行NextjEndSub3.打印人员名册打印人员名册:PrivateSubForm_Click()Print:PrintFontName=魏碑FontSize=16Print姓名;Tab(8);年龄;Tab(16);职务;Tab(24);单位;Tab(32);籍贯PrintPrint张得功;Tab(8);25;Tab(16);科长;Tab(24);劳动科;Tab(32);北京Print李德生;Tab(8);32;Tab(16);处长;Tab(24);科研处;Tab(32);上海EndSub4.单选按钮设置字体类型和大小单选按钮设置字体类型和大小:在窗体上画出两个框架，每个框架内分别画两个单选按钮，然后画两个命令按钮和一个文本框。编写时间过程如下：PtivateSubForm_Load()Form1.Caption=框架用法示例Command1.Caption=确定Command2.Caption=结束Frame1.Caption=字体类型Frame2.Caption=字体大小Option1.Caption=魏碑Option2.Caption=幼圆Option3.Caption=16Option4.Caption=24Text1.Text=VisualBasic程序设计EndSubPrivateSubCommand1.Click_()IfOptoion1ThenText1.FontName=魏碑ElseText1.FontName=幼圆EndIFIfOption3ThenText1.FontSize=16ElseText1.FontSize=24EndIfEndSubPrivateSubCommand2.Click_()EndEndSub5.计算存款利息计算存款利息:本金p为10000，年利率为0.125，每年计息一次，求10年的本利和是多少。SubForm_Click()DimpAsCurrencyp=10000:r=0.125t=1AgainIft10ThenGoTo100i=p*rp=p+it=t+1GoToAgain100PrintpEndSub说明：这里的“Again：”是标号，“100”是行号。6.交换两个列表框的项目交换两个列表框的项目。其中一个列表框的项目按字母升序排列，另一个列表框的项目按项目加入的先后顺序排列。当双击某个项目时，该项目从列表框中消失，并出现在在另一个列表框中：PrivateSubForm_Load()List1.FontSize=14List2.FontSize=14List1.AddItemIBMList1.AddItemCompadList1.AddItemHPList1.AddItemFUJIList1.AddItemDigitalList1.AddItem长城List1.AddItem联想List1.AddItemCanonList1.AddItem四通List1.AddItemAcerList1.AddItemNecList1.AddItemNCREndSubPrivateSubList1_DbClick()List2.AddItemList1.TextList1.RemoveItemList1.ListIndexEndSubPrivateSubList2_DbClick()List1.AddItemList2.TextList2.RemoveItemList2.ListIndexEndSub7.交换图片交换两个图片框中的图形：在窗体上建立三个图片框Picture1、Picture2、Picture3，其中两个在上，一个在下。PrivateSubForm_Click()'交换位图Picture3.Picture=Picture1.PicturePicture1.Picture=Picture2.PicturePicture2.Picture=Picture3.Picture'把第三个图片框设置为空Picture3.Picture=LoadPicture()EndSubPrivateSubForm_Load'装入位图Picture1.Picture=LoadPicture_(C:\DocumentsandSettings\AllUsers\Documents\MyPictures\1.jpg)'可自行改变路径Picture2.Picture=LoadPicture_(C:\DocumentsandSettings\AllUsers\Documents\MyPictures\2.jpd)'可自行改变路径EndSub8.冒泡排序从键盘上输入10个整数，用冒泡法排序（BubbleSort）法对这十个数从小到大排序：在窗体上建立一个命令按钮，并把Caption属性设置为“ClickHeretoStart”编写程序如下：SubCommand1_Click()Staticnumber(1To10)ASInteger'定义数组number为整形Msg$=EnterNumberforSort:MsgStile$=SortDemoFori%=1To10number(i%)=InputBox(Msg$,MsgTile$)Nexti%Fori%=10To2Step-1Forj%=1Toi%-1Ifnumber(j%)=number(j%+1)Thent=number(j%+1)number(j%+1)=number(j%)number(j%)=tEndIfNextj%Nexti%Fori%=1To10Printnumber(i%)Nexti%EndSub9.判断0~9数据类型--奇数或偶数判断字母大小写及0~9数据类型--奇数或偶数:SubForm_Click()DimMsg,UserInputMsg=Pleaseenteraletterornumberfrom0though9.UserInput=InputBox(Msg)IfLen(UserInput)0ThenSelectCaseAsc(UserInput)'返回ASCII码Case65To90'大写字母Msg=YouenteredtheuppercaseletterMsg=Msg&Chr(Asc(UserInput))&!Case97To122'小写字母Msg=YouenteredthelowercaseletterMsg=Msg&Chr(Asc(UserInput))&!CaseElseMsg=Youdidnotenteraletteroranumber.EndSelectElseSelectCaseCDbl(UserInput)'转换为双精度数值Case1,3,5,7,9Msg=UserInput&isanoddnumber'奇数Case0,2,4,6,8Msg=UserInput&isanoddnumber'偶数CaseElse'出界Msg=YouenteredanumberousideMsg=Msg&therequestedrangeEndSelectEndIfMsgBoxMsgEndSub10.判断100~200的所有偶数可以分解为两个素数之和判断100~200的所有偶数可以分解为两个素数之和。Functionnf(nAsInteger)AsBoolean'判断n是否为素数DimsAsBooleanDimIAsIntegers=FalseForI=2ToInt(Sqr(n))'如果能被2~Int(Sqr(n))中任何一个数整除,则不是素数,跳出For循环IfnModI=0ThenExitForEndIfNextIIfIInt(Sqr(n))Then'如果正常跳出For循环,则I跳出循环For后的值应该是N,所以满足这个条件s=True'当I是素数时s=trueEndIfnf=s'当I是素数时,nf=true,否则nf=falseEndFunctionPrivateSubform_click()DimtAsBooleanDimqAsBooleanDimIAsIntegerDimjAsIntegerDimaAsIntegerForI=100To200Step2Forj=2ToI/2'I一定可分解为一个大于它一半的数和小于它一半的数t=nf(j)'调用Funtion(函数)nf,判断i是否是素数,把nf的值(true或flase)赋值给变量tIft=TrueThen'如果t是true就往下执行,否则就执行到Endif(2)后面的nextj语句q=nf(I-j)'调用Funtion(函数)nf,判断i-j是否是素数,把nf的值(true或flase)赋值给变量qIfq=TrueThen'如果q是true(说明i-j是素数)就往下执行,否则就跳到Endif(1),继续执行j循环Printj,I-j'当q是true和t是True同时满足时,说明I的确能分解为两个素数,就打出j和I-j的值ExitFor'跳出j循环,判断下一个偶数EndIf'(1)EndIf'(2)NextjNextIEndSub11.判断是否为素数判断一个整数（=3）是否为素数：提示：如果一个（=3的）整数可以将n被2到√n（n的平方根）之间的所有整数除，如果都除不尽，则n为素数（）质数，否则n为非素数（合数）。编写程序如下：SubForm_Click()DimnAsIntegern=InputBox(请输入一个正整数（=3）:)k=Int(Spr(n))'取不大于n的平方根的最大整数i=2Swit=0Whilei=kAndSwit=0IfnModi=0ThenSwit=1Elsei=i+1EndIfWendIfSwit=0ThenPrintn;是一个素数ElsePrintn;不是素数EndIfEndSub说明：这里的Swit是一个标志变量。Swit=0标志着n未被任何一个正整数整除过；如果被整除过，则Swit=1。上述程序也可以写成：用For…….Next语句:SubForm_Click()DimIasInteger,NAsIntegerN=val(InputBox())ForI=2toint(Sqr(N))IfNModI=0ThenExitForNextIIfIint(Sqr(N))ThenPrintN&是素数ElsePrintN&不是素数EndIfEndSub用While….Wend循环:SubForm_Click()DimIAsInteger,NAsIntegerN=Val(InputBox())I=2c=Int(Sqr(N))DoWhileI=cIfNModI=0ThenExitDoI=I+1'在Fo