vb经典代码.docx

1、vb经典代码Visual basic 经典代码1.求三角形的面积代码：Option ExplicitDim a!,b!,c!r,!,s!Private Sub Command1_Click()a = InputBox(a=, 请输入a的数值)b = InputBox(b=, 请输入b的数值)c = InputBox(c=, 请输入c的数值)If a + b c And a + c b And b + c a And a 0 And b 0 And c 0 Then r = 1 / 2 * (a + b + c) s = Sqr(r * (r - a) * (r - b) * (r - c)La

2、bel1.Caption = 三角形的面积为 & sElse Label2.Caption = 输入的数据不能构成三角形End IfEnd Sub2.三个数排列代码：Option ExplicitDim x!, y!, z!, t!Private Sub Command1_Click()x = InputBox(输入第一个数 x)y = InputBox(输入第二个数 y)z = InputBox(输入第三个数 z)Print 排序前; x & & y & & zIf x y Then t = x: x = y: y = t If y z Then t = y: y = z: z = t If

3、 x = 0 Then x1 = (-b + Sqr(d) / (2 * a) x2 = (-b - Sqr(d) / (2 * a) Print 系数为 & a; b; c & 的一元二次方程的根分别为 & x1= & x1 & & x2= & x2 Else Print 此方程在实数范围内无解End IfEnd Sub4.利用Select Case语句输入年份计算属相代码：Option ExplicitPrivate Sub Command1_Click()Dim i As Integer, x As String, Y As IntegerY = InputBox(输入你的出生年份Y)i

4、 = Y Mod 12Select Case i Case Is = 0 x = 猴 Case Is = 1 x = 鸡 Case Is = 2 x = 狗 Case Is = 3 x = 猪 Case Is = 4 x = 鼠 Case Is = 5 x = 牛 Case Is = 6 x = 虎 Case Is = 7 x = 兔 Case Is = 8 x = 龙 Case Is = 9 x = 蛇 Case Is = 10 x = 马 Case Is = 11 x = 羊End SelectPrint xEnd Sub5.闰年两种判断方法的代码;方法一：Option ExplicitD

5、im y As IntegerPrivate Sub Command1_Click()y = InputBox(y=, 输入年份)If y Mod 4 = 0 Then If y Mod 100 = 0 Then If y Mod 400 = 0 Then Print 这年为闰年 Else Print 这年为平年 End If Else Print 这年为闰年 End IfElsePrint 这年为平年End IfEnd Sub方法二：Private Sub Command2_Click()y = InputBox(y=, 输入年份)If y Mod 4 = 0 And y Mod 100 =

6、 0 ThenPrint 这年为闰年ElseIf y Mod 400 = 0 ThenPrint 这年为闰年ElsePrint 这年为平年End IfEnd Sub6.三种方法计算下式 的代码：法一：Option ExplicitDim x!,y!Private Sub Command1_Click()x = InputBox(x=, 输入x的值)If x 0 Then If x = 1 Or x = 1, Is = -1 y = (1 + Sin(x) * Sin(x) - Sqr(x 2 - 1) / x Print y=; Format(y, 0.0000) Case Is 0, Is

7、-1 Print 所输入的x不在定义域End SelectEnd Sub法三：Private Sub Command3_Click()x = InputBox(x=, 输入x的值)If x = 1 Then y = (1 + Sin(x) * Sin(x) - Sqr(x 2 - 1) / x Print y=; Format(y, 0.0000)ElseIf x 0 Then Print 所输入的x不在定义域ElseIf x = 0 Then Print 除数不能为零ElseIf x = -1 And x 0 Then Print 所输入的x不在定义域ElseIf x m Then t =

8、m m = n n = t End If r = m - n If r = 0 Then Exit Do m = n n = r Loop Until r = 0 Print m1 & , & n1 & 的最大公约数是 & m Print m1 & , & n1 & 的最小公倍数是 & m1 * n1 / mEnd Sub(2)辗转相除法Private Sub Command9_Click()Dim n%, m%, r%, m1%, n1%n1 = InputBox(输入n)m1 = InputBox(输入m) If m1 n1 Then m = m1: n = n1 Else m = n1:

9、 n = m1 End If r = m Mod n Do While r 0 m = n n = r r = m Mod n Loop Print m1; ,; n1; 的最大公约数; n Print m1; ,; n1; 最小公倍数; m1 * n1 / nEnd Sub9. 输出一列“*”，一行“*”。Private Sub Command2_Click()For i = 1 To 8 Print *Next i PrintEnd SubPrivate Sub Command3_Click()For i = 1 To 8 Print *;Next i PrintEnd Sub10. 一张

10、若干大面积的纸厚0.1mm，将其对折一次厚0.2mm，再对折一次厚0.4mm，如果对折了40次，问厚度是多少？Private Sub Command4_Click()Dim s As!,ss!n = InputBox(输入的n值) For i = 1 To n s = 0.1 * 2 n ss = s * 0.001 Next iPrint ss= & Format(ss, 0.0000) & 米End Sub11. 一个球自100m处高度自由落下，每次落地后反跳到原高度一半，然后再落下。求它在第10次落地时，共经过多少m？第10次反弹多高？Private Sub Command5_Click

11、()Dim i%, s!, h! h = 50 s = 100 i = 2Do Until i 10 s = s + h * 2 h = h / 2 i = i + 1Loop Print 十次落地经过的路程s= & s; 米, 第十次落地反弹的高度h= & h; 米End Sub12. 猴子吃桃问题。猴子第一天摘下若干个桃子，当即吃了一半又多吃一个。第二天双将剩下的吃了一半，又多吃一个，以后每天都吃前一天剩下的一半零一个。到第十天只有一个桃子。问第一天共摘了多少个桃子。Private Sub Command6_Click()Dim i%, x1%, x2% x1 = 1 x2 = 0 i =

12、 1Do Until i 9 x2 = (x1 + 1) * 2 x1 = x2 i = i + 1Loop Print 总桃数为 & x2End Sub13. 利用自然对数e的近似值,近似公式为:e=1+1/1!+1/2!+1/3!+1/n!+ （1）求其误差小于0.00001时的值；（2）计算到第10项。(1)Private Sub Command7_Click()Dim s!, e!, i% i = 1 s = 1 e = 1Do Until i 9 s = s / i e = e + s i = i + 1Loop Print e= & eEnd Sub(2)Private Sub C

13、ommand8_Click()Dim i%, t&, e!i = 0e = 0t = 1Do While 1 / t 0.00001e = e + 1 / ti = i + 1t = t * iLoopPrint e=; eEnd Sub14.以单重循环及三重循环找到100到999之间所有的水仙花数；单重循环:Option ExplicitPrivate Sub Command1_Click()Dim a%, b%, c%, i%For i = 100 To 999 a = i Mod 10: b = (i Mod 100) 10: c = i 100 If i = a 3 + b 3 + c

14、 3 Then Print i End IfNext iEnd Sub三重循环:Private Sub Command2_Click()Dim a%, b%, c%For a = 1 To 9 For b = 0 To 9 For c = 0 To 9 If a 3 + b 3 + c 3 = a * 100 + b * 10 + c Then Print a * 100 + b * 10 + c End If Next c Next bNext aEnd Sub 15.在百钱买百鸡的基础上，练习兑换零钱；Option ExplicitDim a%, b%, c%, d%, e%, f%, m

15、!, n%Private Sub Command1_Click()n = 0m = 0For a = 0 To 2 For b = 0 To (100 - 50 * a) / 20 For c = 0 To (100 - 50 * a - 20 * b) 10 For d = 0 To (100 - 50 * a - 20 * b - 10 * c) 5 For e = 0 To (100 - 50 * a - 20 * b - 10 * c - 5 * d) 2 For f = 0 To 100 - 50 * a - 20 * b - 10 * c - 5 * d - 2 * e If a

16、* 50 + b * 20 + c * 10 + d * 5 + e * 2 + f = 100 Then n = n + 1 End If m = m + 1 Next f Next e Next d Next c Next bNext aLabel1.Caption = 总共有 & n & 种方法。 & & 共计算了 & m & 次。End SubPrivate Sub Command2_Click()n = 0m = 0For a = 0 To 2 For b = 0 To (100 - 50 * a) / 20 For c = 0 To (100 - 50 * a - 20 * b)

17、10 For d = 0 To (100 - 50 * a - 20 * b - 10 * c) 5 For e = 0 To (100 - 50 * a - 20 * b - 10 * c - 5 * d) 2 n = n + 1 m = m + 1 Next e Next d Next c Next bNext aLabel1.Caption = 总共有 & n & 种方法。 & & 共计算了 & m & 次。End Sub16输入一个数，判断该数是否为素数。Option ExplicitPrivate Sub Command1_Click()Dim n!, j!n = Val(Text1

18、)j = 2Do While j = Sqr(n) And n Mod j 0 j = j + 1 Loop If j Sqr(n) Then Print n; 是素数 Else Print n; 是合数 End IfEnd Sub17.求100200之间所有的素数。Option ExplicitDim i%, j%, c%Private Sub Command1_Click()For i = 101 To 199 Step 2For j = 2 To Sqr(i)If i Mod j = 0 Then Exit ForNextIf j Sqr(i) ThenPrint i;c = c + 1

19、If c Mod 5 = 0 ThenPrintEnd IfEnd IfNextEnd Sub18.输入一个偶数，验证该数符合哥德巴赫猜想。Option ExplicitPrivate Sub Command1_Click() Dim N%, N1%, N2%, I%, K1%, K2% N = Val(InputBox(输入大于6的偶数) For N1 = 3 To N 2 Step 2 K1 = Int(Sqr(N1) For I = 2 To K1 判断N1是否是素数 If N1 Mod I = 0 Then Exit For Next I If I K1 Then 如果N1为素数，将N

20、分解为N1+N2 N2 = N - N1 K2 = Int(Sqr(N2) For I = 2 To K2 判断N2是否是素数 If N2 Mod I = 0 Then Exit For Next I If I K2 Then 如果N2也为素数，则打印输出 Print N & = & N1 & + & N2 End If End If Next N1End Sub 19.验证100200之间所有的偶数符合哥德巴赫猜想。Option ExplicitPrivate Sub Command1_Click()Dim i As IntegerDim j As IntegerDim x As Integ

21、erDim y As IntegerDim z As Integerk: x = Val(InputBox(请输入一个数)If x 6 And x Mod 2 0 Then GoTo kElse Print x For y = 2 To x / 2 z = x - y For i = 2 To y - 1 If y Mod i = 0 Then Exit For Next i If i y - 1 Then For j = 2 To z - 1 If z Mod j = 0 Then Exit For Next j If j z - 1 Then Print y; +; z End If En

22、d IfNext yEnd IfEnd Sub20.输出一个5阶的杨辉三角形 Option ExplicitDim A() As IntegerDim n As Integer, i, j%Private Sub Command1_Click()ReDim A(6, 6) For i = 1 To 6 For j = 1 To j If j = 1 Or j = i Then A(i, j) = 1 Else A(i, j) = A(i - 1, j - 1) + A(i - 1, j) End If Next j, i For i = 1 To 6 For j = 1 To i - 1 Pr

23、int Tab(50 - i * 3 + j * 6); A(i, j); Spc(1); Next j Print Next iEnd Sub21.输出下面的图案CC HC H IC H I NC H I N AOption ExplicitDim A As StringDim i%, j%Private Sub Command1_Click() For j = 0 To 5 A = Mid(CHINA, 1, i) Print A i = j + 1 Next j PrintEnd Sub22.输出一个n矩阵等腰三角形，其外形如下提示：倒数第一行一个，倒数第二行3个，Option Expl

24、icitDim i!,j!,T$,x$Private Sub Command1_Click() For i = 0 To 3 x = For j = 1 To (7 - Abs(i) * 2) x = x & * Next T = Space(Abs(i) & x & Space(Abs(i) Print T NextEnd Sub23.先成一个10阶的一维随机数组，数组的每个元素值为10，50，将这个数组用选择法及冒泡法二种排序方法排序，编写该代码。Option ExplicitDim k%,i%,j%,t%,m%,n%Private Sub Command1_Click()Dim x%(1 To 5, 1 To 10)For m = 1 To 5 For n = 1 To 10 Randomize x(m, n) = Int(Rnd * 100 + 2000) 产生50个随机数 Picture3.Print Tab(6 * n - 4); x(m, n); Next n PrintNext mEnd SubPrivate Sub Command2_Click()Dim x%(1