vb常用程序代码VIP

1、求出半径为r的圆的面积，并要求用户通过键盘输入半径为r的圆。程序代码：私有子表单_单击()成本pi=3. 14Dim r%Dim s！r=InputBox (请输入半径r的值： 计算圆的面积)s=PI * r * rForm1.FontSize=16Print 半径为 Str(r ) 的圆的面积为 Str(s )。日本职业足球联赛输入2、3个整数，按从小到大的顺序输出。程序代码：私有子表单_单击()a=InputBox(a )b=InputBox(b )c=InputBox(c )Print排序前： ； a、b、cIf a b Then t=a: a=b: b=tIf a c Then t=a: a=c: c=tIf b c Then t=b: b=c: c=tPrint排序后： ； a、b、c日本职业足球联赛输入3、3个整数，按大小顺序输出。程序代码：私有子表单_单击()a=InputBox(a )b=InputBox(b )c=InputBox(c )Print排序前： ； a、b、cIFA 0与x=10theny=10 2 * xMsgBox x= x y= yelse if x=20秒y=50 - xMsgBox x= x y= yElseIf x=30 Theny=30MsgBox x= x y= yElseIf x=40 Theny=60 - xMsgBox x= x y= yElseMsgBox x= x 超出统计数据范围End If日本职业足球联赛(2)、私有子命令1 _ click ()Dim x%，y%x=InputBox(x )Select Case xCase Is=10y=10 2 * xCase Is=20y=50 - xCase Is=30y=30Case Is=40y=60 - xCase ElseMsgBox 输入错误结束选择Print x=， y= y日本职业足球联赛5、编制输出指定年份某月天数的程序。程序代码：私有子命令1 _ click ()Dim year As Integer，month As Integer，每日as integeryear=CInt(Text1.Text )month=CInt(Text2.Text )选择case monthcase 1，3，5，7，8，10，12day=31case 4，6，9，11day=30Case 2ifyearmod4=0andyearmod 100 oryearmod 400=0thenday=29Elseday=28End IfCase Elseday=0结束选择If day 0 ThenMsgBox year 年 month 月 day 日ElseMsgBox 输入的月份不符合实际！ End If日本职业足球联赛6、s=123求出. 100的累积和。程序代码：(1)，For.Next循环私有子命令1 _ click ()Dim i%，s%s=0For i=1 To 100s=s i下一步Print s=； s日本职业足球联赛(二)、Do WhileLoop循环私有子命令1 _ click ()Dim i%，s%s=0: i=1Do While i=100s=s ii=i 1LoopPrint s=； s日本职业足球联赛(3)，Do Until.Loop私有子命令1 _ click ()Dim i%，s%s=0: i=1Do Until i 100s=s ii=i 1LoopPrint s=； s日本职业足球联赛7、6、累计达到1000后，立即结束循环，同时输出此时的循环变量I的值。程序代码：(1)、私有子命令1 _ click ()Dim i%，s%s=0For i=1 To 100s=s iIf s=1000 Then Exit For下一步Print s=； s， i=； I日本职业足球联赛(2)、私有子命令1 _ click ()Dim i%，s%s=0: i=0While s 1000战斗机i=i 1s=s iWendPrint s=； s， i=； I日本职业足球联赛(3)、私有子命令1 _ click ()Dim i%，s%s=0: i=1While s 1000战斗机s=s ii=i 1WendPrint s=； s， i=； i - 1战斗机日本职业足球联赛8、任意两个正整数都使用欧几里德算法(即反转相除法)来确定最大公约数。程序代码：(1)、While.Wend循环私有子命令1 _ click ()Dim M%、N%、R%M=Val(InputBox (请输入数字m ，计算最大公约数 )n=val(inputbox(n:，计算最大公约数 )R=M Mod NWhile R 0M=NN=RR=M Mod NWendPrint 最大公约数为： ； n日本职业足球联赛(二)、Do.Loop循环私有子命令1 _ click ()Dim M%、N%、R%M=Val(InputBox (请输入数字m ，计算最大公约数 )n=val(inputbox(n:，计算最大公约数 )R=M Mod NDo While R 0M=NN=RR=M Mod NLoopPrint 最大公约数为： ； n日本职业足球联赛9 .给出正整数n(n3 )以确定它是否是素数。程序代码：(1)、原版私有子命令1 _ click ()Dim Flag%，I%，nN=Val(InputBox (请输入整数，确定是否为素数 )Flag=0: I=2while I=n-1和flag=0If N Mod I=0 Then Flag=1 Else I=I 1WendIf Flag=0 Then Print N 的质数 Else Print N 不是质数日本职业足球联赛(二)、改良版私有子命令1 _ click ()Dim Flag%，I%，k%，nN=Val(InputBox (请输入整数，确定是否为素数 )Flag=0: I=2: k=Int(Sqr(N ) )While I=k And Flag=0If N Mod I=0 Then Flag=1I=I 1WendIf Flag=0 ThenPrint N 是质数ElsePrint N 不是质数End If日本职业足球联赛10 .查找100到200之间的所有素数。程序代码：(1)、私有子表单_单击()Dim Flag%，i%，k%，n%，d%for n=101 to 200步骤2Flag=0: i=2: k=Int(Sqr(n ) )While i=k And Flag=0If n Mod i=0 ThenFlag=1Elsei=i 1End IfWendIf Flag=0 Thend=d 1If d Mod 5=0 ThenPrint n； PrintElsePrint n； End IfEnd If下一步Print日本职业足球联赛(2)、私有子命令1 _ click ()For i=100 To 200For j=2 To Sqr(i )If i Mod j=0 Then Exit ForNext jifjsqr (I ) then text1. text=text1. text ispace (2)下一步日本职业足球联赛输出11.1n之间的所有素数。程序代码：私有子命令1 _ click ()n=Text1.Texts=0For i=3 To nFor j=2 To Sqr(i )If i Mod j=0 Then Exit ForNext jifjsqr (I ) then text2. text=text2. text ispace (2)下一步日本职业足球联赛12、输出菱形(1、3、5、7、5、3、1 )程序代码：私有子表单_单击()For i=1 To 4Print Spc(9 - i )For j=1 To 2 * i - 1Print * ；Next jPrint下一步For i=1 To 3Print Spc(5 i )For j=1 To 7 - 2 * iPrint * ；Next jPrint下一步日本职业足球联赛十三、斐波那契数列问题。假设有一对兔子。 从出生后的第三个月开始，每个月都会有一对兔子出生。 兔子第三个月又开始下一代兔子了。 如果兔子不死的话，第20个月兔子有几组？程序代码：(1)、私有子命令1 _ click ()Dim f1%、f2%、f3%、i%f1=1: f2=1For i=