VB小程序代码-

1、1.打印负数并分别计算正负数只和:有如下10个数:-2,73,82,-76,-1,24,321,-25,89,-20(也可以定位其他数值 打印出其中的每个负数,分别计算并输出正数和负数的和。程序如下:Sub Form_Click(Dim number AS IntegerNegativeSum=0:PostiveSum=0For i=1 To 10number=InputBox("Enter data: "If number<0 ThenPrint number;NegativeSum=NegativeSum+numberElsePostiveSum=PostiveS

2、um+numberEnd IfNext iprintprint "NegativeSum="NegativeSumPrint "PostiveSum="PostiveSumEnd Sub2.打印九九表:在窗体上打印九九表:程序如下:Print Sub Form_Click(FontSize=12Print Tab(30;"9*9 Table"Print:Print '输出两个空行Print "* "For i=1 To 9Print Tab(i*6;i; '打印横行序号Next iFor j=1 T

3、o 9Print j;" " '打印竖行序号For k=1 To jtemp=j*kPrint Tab(k*6;temp;" " '打印乘积Next kPrint '输出一个空行Next jEnd Sub3.打印人员名册打印人员名册:Private Sub Form_Click(Print:PrintFontName="魏碑"FontSize=16Print "姓名"Tab(8;"年龄"Tab(16;"职务"Tab(24;"单位"T

4、ab(32;"籍贯"PrintPrint "张得功"Tab(8;"25"Tab(16;"科长"Tab(24;"劳动科"Tab(32;"北京"Print "李德生"Tab(8;"32"Tab(16;"处长"Tab(24;"科研处"Tab(32;"上海"End Sub4.单选按钮设置字体类型和大小单选按钮设置字体类型和大小:在窗体上画出两个框架,每个框架内分别画两个单选按钮,然后画

5、两个命令按钮和一个文本框。编写时间过程如下:Ptivate Sub Form_Load(Form1.Caption="框架用法示例"Command1.Caption="确定"Command2.Caption="结束"Frame1.Caption="字体类型"Frame2.Caption="字体大小"Option1.Caption="魏碑"Option2.Caption="幼圆"Option3.Caption="16"Option4.Ca

6、ption="24"Text1.Text="Visual Basic 程序设计"End SubPrivate Sub Command1.Click_(If Optoion1 ThenText1.FontName="魏碑"ElseText1.FontName="幼圆"End IFIf Option3 ThenText1.FontSize=16ElseText1.FontSize=24End IfEnd SubPrivate Sub Command2.Click_(EndEnd Sub5.计算存款利息计算存款利息:本金

7、p为10000,年利率为0.125,每年计息一次,求10年的本利和是多少。Sub Form_Click(Dim p As Currencyp=10000:r=0.125t=1AgainIf t>10 Then GoTo 100i=p*rp=p+it=t+1GoTo Again100Print pEnd Sub说明:这里的“Again:”是标号,“100”是行号。6.交换两个列表框的项目交换两个列表框的项目。其中一个列表框的项目按字母升序排列,另一个列表框的项目按项目加入的先后顺序排列。当双击某个项目时,该项目从列表框中消失,并出现在在另一个列表框中:Private Sub Form_Lo

8、ad(List1.FontSize=14List2.FontSize=14List1.AddItem "IBM"List1.AddItem "Compad"List1.AddItem "HP"List1.AddItem "FUJI"List1.AddItem "Digital"List1.AddItem "长城"List1.AddItem "联想"List1.AddItem "Canon"List1.AddItem "四通&q

9、uot;List1.AddItem "Acer"List1.AddItem "Nec"List1.AddItem "NCR"End SubPrivate Sub List1_DbClick(List2.AddItem List1.TextList1.RemoveItem List1.ListIndexEnd SubPrivate Sub List2_DbClick(List1.AddItem List2.TextList2.RemoveItem List2.ListIndexEnd Sub7.交换图片交换两个图片框中的图形:在窗体上建

10、立三个图片框Picture1、Picture2、Picture3,其中两个在上,一个在下。Private Sub Form_Click('交换位图Picture3.Picture=Picture1.PicturePicture1.Picture=Picture2.PicturePicture2.Picture=Picture3.Picture'把第三个图片框设置为空Picture3.Picture=LoadPicture(End SubPrivate Sub Form_Load'装入位图Picture1.Picture=LoadPicture _("C:Doc

11、uments and SettingsAll UsersDocumentsMy Pictures1.jpg" '可自行改变路径Picture2.Picture=LoadPicture _("C:Documents and SettingsAll UsersDocumentsMy Pictures2.jpd" '可自行改变路径End Sub8.冒泡排序从键盘上输入10个整数,用冒泡法排序(Bubble Sort法对这十个数从小到大排序:在窗体上建立一个命令按钮,并把Caption属性设置为“Click Here to Start”编写程序如下:Sub

12、 Command1_Click(Static number(1 To 10 AS Integer '定义数组number为整形Msg$="Enter Number for Sort:"MsgStile$="Sort Demo"For i%=1 To 10number(i%=InputBox(Msg$,MsgTile$Next i%For i%=10 To 2 Step -1For j%=1 To i%-1If number(j%=number(j%+1 Thent=number(j%+1number(j%+1=number(j%number(j%

13、=tEnd IfNext j%Next i%For i%=1 To 10Print number(i%Next i%End Sub9.判断09数据类型-奇数或偶数判断字母大小写及09数据类型-奇数或偶数:Sub Form_Click(Dim Msg,UserInputMsg="Please enter a letter or number from 0 though 9." UserInput=InputBox(MsgIf Len(UserInput<>0 ThenSelect Case Asc(UserInput '返回ASCII码Case 65 To

14、 90 '大写字母Msg="You entered the uppercase letter"Msg=Msg&Chr(Asc(UserInput&"!"Case 97 To 122 '小写字母Msg="You entered the lowercase letter"Msg=Msg&Chr(Asc(UserInput&"!"Case ElseMsg="You did not enter a letter or a number."End Selec

15、tElseSelect Case CDbl(UserInput '转换为双精度数值Case 1,3,5,7,9Msg=UserInput&"is an odd number" '奇数Case 0,2,4,6,8Msg=UserInput&"is an odd number" '偶数Case Else '出界Msg="You entered a number ouside"Msg=Msg&"the requested range"End SelectEnd If

16、MsgBox MsgEnd Sub10.判断100200的所有偶数可以分解为两个素数之和判断100200的所有偶数可以分解为两个素数之和。Function nf(n As Integer As Boolean '判断n是否为素数Dim s As BooleanDim I As Integers = FalseFor I = 2 To Int(Sqr(n '如果能被2 Int(Sqr(n中任何一个数整除,则不是素数,跳出For循环If n Mod I = 0 ThenExit ForEnd IfNext IIf I > Int(Sqr(n Then '如果正常跳出F

17、or循环,则I跳出循环For后的值应该是N,所以满足这个条件s = True '当I是素数时s=trueEnd Ifnf = s '当I是素数时, nf=true,否则nf=falseEnd FunctionPrivate Sub form_click(Dim t As BooleanDim q As BooleanDim I As IntegerDim j As IntegerDim a As IntegerFor I = 100 To 200 Step 2For j = 2 To I / 2 'I一定可分解为一个大于它一半的数和小于它一半的数t = nf(j 

18、9;调用Funtion(函数nf,判断i是否是素数,把nf的值(true或flase赋值给变量t If t = True Then '如果t是true 就往下执行,否则就执行到End if(2后面的next j语句q = nf(I - j '调用Funtion(函数nf,判断i-j是否是素数,把nf的值(true或flase赋值给变量qIf q = True Then '如果q是true(说明i-j是素数 就往下执行,否则就跳到End if(1,继续执行j循环Print j, I - j '当q是true和t是True同时满足时,说明I的确能分解为两个素数,就打

19、出j 和I-j 的值Exit For '跳出j循环,判断下一个偶数End If '(1End If '(2Next jNext IEnd Sub11.判断是否为素数判断一个整数(>=3是否为素数:提示:如果一个(>=3的整数可以将n被2到n(n的平方根之间的所有整数除,如果都除不尽,则n为素数(质数,否则n为非素数(合数。编写程序如下:Sub Form_Click(Dim n As Integern=InputBox("请输入一个正整数(>=3:"k=Int(Spr(n '取不大于n的平方根的最大整数i=2Swit=0Whi

20、le i<=k And Swit=0If n Mod i=0 ThenSwit=1Elsei=i+1End IfWendIf Swit=0 ThenPrint n;"是一个素数"ElsePrint n;"不是素数"End IfEnd Sub说明:这里的Swit是一个标志变量。Swit=0标志着n未被任何一个正整数整除过;如果被整除过,则Swit=1。上述程序也可以写成:用For.Next语句:Sub Form_Click(Dim I as Integer,N As IntegerN=val(InputBox(""For I=2

21、to int(Sqr(NIf N Mod I=0 Then Exit ForNext IIf I >int(Sqr(N ThenPrint N & "是素数"ElsePrint N & "不是素数"End IfEnd Sub用While.Wend循环:Sub Form_Click(Dim I As Integer, N As IntegerN = Val(InputBox(""I = 2c = Int(Sqr(NDo While I <= cIf N Mod I = 0 Then Exit DoI = I

22、+ 1 '在For以外的LoopIf I > c ThenPrint N & "是素数"ElsePrint N & "不是素数"End IfEnd Sub法2:一个数n是素数的条件:不能被2 n-1整除用For.Next语句Sub Form_Click(Dim I as Integer,N As IntegerN=val(InputBox(""For I=2 to N-1If N Mod I=0 Then Exit For '如果能被2 N-1中任何一个数整除,则不是素数,跳出For 循环Next

23、 IIf I >= N Then'如果正常跳出For循环,则I跳出循环For后的值应该是N,所以满足这个条件Print N & "是素数"ElsePrint N & "不是素数"End IfEnd Sub12.切换信号灯模拟交通信号灯的切换:在窗体上画出3个图像框和两个命令按钮Command1(切换信号和Command2(结束程序。三个图像框分别装有红、绿、蓝三的信号标志的图片。编写如下事件过程:Private Sub Form_Load(Image2.Visible=FlaseImage3.Visible=FlaseEnd

24、 SubPrivate Sub Command1_Click(If Image1.Visible=True ThenImage1.Visible=FalseImage2.Visible=TureElseIf Image2.Visible=Ture ThenImage2.Visible=FalseImage3.Visible=TrueElseImage3.Visible=FalseImage2.Visible=TrueEnd IfEnd SubPrivate Sub Commdan2_Click(EndEnd Sub13.求N!求N的阶乘N!(N为自然数:程序如下:Sub Form_Click(

25、Dim N As IntegerN=InputBox("enter N:"k=1For i=1 To Nk=k*iNext iPrint N;"N!="kEnd Sub该程序也可以写成:Sub Form_Click(Dim N As IntegerN=InputBox("enter N:"k=1:m=1For i=1 To Nk=k*i:m=m+1Next iPrint N;"N!="kEnd Sub程序也可以这样写:Private Sub command1_Click(Dim I As Integer, f As

26、 Double, n As Integern = InputBox("输入一个自然数:", "输入提示", ""f = 1For I = 1 To n Step 1f = f * I Next I Text1.Text = fEnd SubPrivate Sub Command2_Click(EndEnd Sub14.人口达到或超过70亿所需年数假设目前世界人口约为60亿,如果以每年1.4%的速度增长,多少年后世界人口达到60亿或超过60亿?程序如下:Sub Form_Click(Dim p AS DoubleDim r AS Sin

27、gleDim n AS IntegerP=6000000000#r=0.014n=0Do Until p>=7000000000#p=p*(1+rn=n+1LoopPrint n;"年后世界人口达到"pEnd Sub上述所用是“Do UntilLoop”循环结构。该程序若改用“DoLoop Until”循环,则程序为:Sub Form_Click(Dim p AS DoubleDim r AS SingleDim n AS IntegerP=6000000000#r=0.014n=0Dop=p*(1+rn=n+1Loop Until p>=7000000000#

28、Print n;"年后世界人口达到"pEnd Sub15.输出100300之间的所有素数输出100300间的所有素数:程序如下:Sub Form_Click(For n=101 To 300 step 2k=Int(Spr(n '取不大于n的平方根的最大整数i=2Swit=0While i<=k And Swit=0If n Mod i=0 ThenSwit=1Elsei=i+1End IfWendIf Swit=0 Thend=d+1If d Mod 5=0 Then '输出5个数字后换行Print n;" "PrintElseP

29、rint n;" "End IfEnd IfNext nEnd Sub16.水仙花数Visual Basic 的"水仙花数"实现代码:说明:水仙花数是指一个n 位数( n3 ,它的每个位上的数字的n 次幂之和等于它本身。(例如:13 + 53 + 33 = 153三位的水仙花数共有4个:153,370,371,407;四位的水仙花数共有3个:1634,8208,9474;五位的水仙花数共有3个:54748,92727,93084;六位的水仙花数只有1个:548834;七位的水仙花数共有4个:1741725,4210818,9800817,9926315;

30、八位的水仙花数共有3个:24678050,24678051,88593477编写如下事件过程:Private Sub Form_Click(Dim a, b, c As Integer 'a(个b(十c(百For a = 0 To 9For b = 0 To 9For c = 1 To 9If a 3 + b 3 + c 3 = a + 10 * b + 100 * c ThenMsgBox 100 * c + 10 * b + a '或写成Print 100 * c + 10 * b + aEnd IfNext cNext bNext aEnd Sub17.添加成员列表(枚举

31、类型的方法添加成员列表(枚举类型可以用Enum语句:如:Public Enum WorkdaysSaturdaySundayMondayTuesdayWednesdayThursdayFridayEnd Enum在默认情况下,枚举中的第一个常数被初始化为0,其后的常数则初始化为比起前面的常数大1的数值。上述的枚举中常数Sunday的值为0。Public Enum WorkdaysSaturdaySunday=0TuesdayWednesdayThursdayFridayInvalid=-1End Enum该程序的第一个元素Sunday被赋值为0,Saturday为第一个元素,也被赋值为0,Tu

32、esday 的值为2。18.显示不同形状在窗体上显示6中不同是形状:Private Sub Form_Click(FontSize=12CurrentX=350Print "0"For i=1 To 5Shape1(i.Left=Shape1(i-1.Left+1050Shape1(i.Shape=1Shape1(i.Visible=TrueCurrentX=CrrentX+750Print i;Next iEnd Sub19.写入与清屏在窗体上画一个文本框,Caption属性为空;再画三个命令按钮,Caption属性分别为“单击此按钮输入”、“清屏”和“结束”。双击Com

33、mand1进入代码窗口,输入以下程序代码:Private Sub Command1_Click(Text1.FontSize=20Text1.Text="欢迎进入VB世界"End SubPrivate Sub Command2_Click(Text1.Text=""End SubPrivate Sub Command13_Click(End Sub20.选择机型并显示从窗体上选择机型,并在立即窗口中显示结果:在窗体上建立四个标签,Caption属性分别为:“机型”、“CPU主频”、“内存”和“硬盘”;建立四个组合框,Style属性分别为:1、2、2和0;

34、建立两个命令按钮,Caption属性分别为:“确定”和“取消”,Default属性都是True。编写如下事件过程:Sub Form_Load(Combol1.AddItem "IBM"Combol1.AddItem "Compad"Combol1.AddItem "方正"Combol1.AddItem "联想"Combol1.AddItem "HP"Combol1.AddItem "Acer"Combol1.AddItem "DEC"Combol2.Add

35、Item "奔腾3 900"Combol2.AddItem "奔腾3 933"Combol2.AddItem "奔腾3 1.0G"Combol2.AddItem "奔腾4 1.2G"Combol2.AddItem "奔腾4 1.5G"、Combol2.AddItem "奔腾4 1.7G"Combol2.AddItem "奔腾4 2.0G"Combol3.AddItem "64MB"Combol3.AddItem "128MB&

36、quot;Combol3.AddItem "256MB"Combol4.AddItem "10GB"Combol4.AddItem "20GB"Combol4.AddItem "32GB"Combol4.AddItem "32GB"Combol4.AddItem "40GB"Combol4.AddItem "60GB"End SubSub Command1_Click(Debug.Print "你所选的机型为:"Debug.Print

37、"机型:"Combo1Debug.Print "CPU: "Combo2Debug.Print "内存"Combo3Debug.Print "硬盘"Combo4Sub Command2_Click(EndEnd Sub21.用单选按钮改变字体和字号用单选按钮改变文本框里的字体和字号:在窗体上建立一个文本框和三个单选按钮。单选按钮的Caption属性分别为“FontName:Roman”、“FontName:Modern”和“FontName:Courier”;Name属性分别为“Roman”、“Modern”和“C

38、ourier”;文本框的Name属性为“Display”。编写如下事件过程:Private Sub Courier_Click(Display.FontSize=18Display.FontName="Couier"End SubPrivate Sub Modern_Click(Display.FontSize=20Display.FontName="Modern"End SubPrivate Sub Form_Roman(Display.FontSize=24Display.FontName="Times New Roman"End

39、 Sub22.用复选框给文字加下划线和删除线用复选框控制文本输入是否“加下划线”和“斜体显示”:建立三个控件:一个文本框和两个复选框,复选框的Caption属性分别为“加下划线”和“斜体显示”。编写如下事件过程:'双击窗体Private Sub Form_Load(Display.FontSize=20End Sub'双击文本框Private Sub Display_Change( '把文本框的Name属性改为Display且字号为20If UnderOn.Vale=1 ThenDisplay.FontUnderline=TrueElseIF ItalicOn.valu

40、e=True Then Display.FontItalic=True End If End Sub '双击“斜体显示”复选框 Private Sub ItalicOn_Click( '把复选框的 Name 属性改为 ItalicOn If ItalicOn.Value=1 Then Display.FontItalic=True Else Display.FontItalic=False End If End Sub '双击“加下划线”复选框 Private Sub UnderOn_Click( '把复选框的 Name 属性改为 UnderOn If UnderOn.Value=1 Then Display.Font