《VB一些基本算法程序概要》由会员分享，可在线阅读，更多相关《VB一些基本算法程序概要（12页珍藏版）》请在金锄头文库上搜索。
1、八转十Private Sub Comma nd1_Click(Dim i As Long, m As Stri ngm = Val(Text1 .TextFor i = 1 To Len(mn = n * 8 + Val(Mid(m, i, 1Next iT ext2 = nEnd Sub动态数组杨辉三角形Private Sub Comma nd1_Click(Dim a( As In tegerDim i As Integer, j As Integer, n As IntegerDon = Val(lnputBox(”请输入行数(1 -15)： “Loop Un til n = 1 And
2、 n = 0.000001pi = pi + tn = n + 2s = -st = s / nLooppi = pi * 4Prin t pi=； piEnd Sub计算最大公约数Option ExplicitPrivate Sub Comma nd1_Click(Dim m As Integer, n As Integer, r As Integerm = Val(Text1.Textn = Val(Text2.Textr = m Mod nWhile r 0r = m Mod nWendLabel3.Capti on = 最大公约数为：”& nEnd SubPrivate Sub Fra
3、me1_DragDrop(Source As Con trol, X As Sin gle, Y As Sin gleEnd Sub进制转换Option ExplicitPrivate Sub Comma nd1_Click(Dim num As Integer, base As Integer, r As Integernum = Val(Text1 .TextText2.TextSelect Case TrueCase Optio n1.Value base = 2Case Opti on 2.Value base = 8End SelectDo While num 0r = num Mo
4、d base num = num baseText2.Text = LTrim(Str(r & Text2.TextLoopEnd SubPrivate Sub Comma nd2_Click(EndEnd Sub冒泡法排序Option ExplicitPrivate Sub Comma nd1_Click(Const n As In teger = 10Dim a(1 To n As In tegerDim i As In teger, j As In teger, temp As In tegerFor i = 1 To na(i = Val(lnputBox(“ 请输入数据:Pictur
5、el.Pri nt a(i;Next iFor i = 1 To n -1For j = 1 To n - 1If a(j a(j + 1 The ntemp = a(j a(j = a(j + 1a(j + 1 = tempEnd IfNext jNext iFor i = 1 To nPicture2.Pri nt a(i;Next iEnd Sub偶数的累加和Option ExplicitPrivate Sub Form_Click(Dim i As In teger, sum As In teger sum = 0For i = 2 To 100 Step 2sum = sum + i
6、Next iPrin t nsum=; sumEnd Sub判断M是否为素数判断m是否为素数Option ExplicitPrivate Sub Form_Click(Dim m As In teger, k As In teger, i As In teger m = Val(lnputBox(请输入一个正整数：k = Sqr(mFor i = 2 To kIf m Mod i = 0 Then Exit ForNext iIf i k ThenPrint mJ是素数“ElsePrint mJ不是素数”End IfEnd Sub生成图形生成图形Option ExplicitPrivate S
7、ub Comma nd1_Click(Dim ch As String, In As Integer, temp As IntegerDim i As Integer, j As Integer, n As IntegerPicturel .Cisch = UCase(Text1 .TextIn = Val(Text2.Textn = Asc(ch - Asc(HAFor i = 1 To InPicturel .Pri nt Tab(15 - i;Forj = 1 To 2 *i - 1temp = Asc(An + nIf (temp Asc(Z The nn = 0 temp = Asc
8、(“A”End IfPicturel.Print Chr(temp;n = n + 1Next jPicturel.Pri ntEnd Sub数据插入算法数据插入算法Option ExplicitPrivate Sub Form_click(Const n As In teger = 5Dim a(Dim i As In teger, num As In tegerReDim a(nFor i = 1 To na(i = i * 2Print a(i;Next iPrint num = Val(lnputBox(请输入数据：”ReDim Preserve a(n + 1For i = n To
9、 1 Step -1If num a(i Then Exit Fora(i + 1 = a(iNext ia(i + 1 = numFor i = 1 To n + 1Print a(i;Next iPrintEnd Sub顺序查找Option ExplicitPrivate Sub Form_Click(Dim a(20 As Integer, i As Integer, objnum As Integer, flage As Boolean RandomizeFor i = 1 To 20 a(i = lnt(Rnd *20 + 1Print a(i;Next iPrintobjnum = Val(lnputBox(“请输入要查找的数:flage = FalseFod = 1 To 20If objnum = a(i Then flage = True Exit For End If Next i If flage = True Then Print objnum;找到“ElsePrint objnum未找至End If End Sub
