VB重点代码

VB常见20道编程代码哈哈哈20道编程代码1.1000以内的所有完数Private Sub Command1_Click()Dim n As IntegerDim i As IntegerDim s As LongFor n = 1 To 1000s = 1For i = 2 To n - 1If n Mod i = 0 Then s = s + iNext iIf s = n ThenText1 = Text1 & n & " "If k Mod 5 = 0 Then Text1 = Text1 & vbCrLfEnd IfNext nEnd SubPrivate Sub Command2_Click()EndEnd Sub2.百元买百鸡Private Sub Command1_Click()Dim i As IntegerDim j As IntegerFor i = 0 To 20For j = 0 To 33If 5 * i + 3 * j + (100 - i - j) * 1 / 3 = 100 ThenText1 = Text1 & "买" & CStr(i) & "只公鸡" & CStr(j) & "只母鸡" & CStr(100 - i - j) & "只⼩鸡" Text1 = Text1 & Chr(13) & Chr(10)End IfNext jPrivate Sub Command2_Click()EndEnd Sub3.不靠边元素和Private Sub Command1_Click()ClsRandomizeDim a(5, 5) As Integer, s%For i = 0 To 5For j = 0 To 5a(i, j) = Int(Rnd * 9)Print a(i, j) & ",";Sum = Sum + a(i, j)Next jPrintNext ik = SumSum = 0For i = 0 To 5Sum = Sum + a(i, 0) + a(i, 5) + a(0, i) + a(5, i) Next iSum = Sum - a(0, 0) - a(5, 0) - a(5, 5) - a(0, 5) Text1 = k - Sum End SubPrivate Sub Command2_Click()EndEnd Sub4.递归函数求斐波拉契数列Option ExplicitPrivate Sub Command1_Click()Dim a1, a2, b As IntegerDim i, n As Integern = InputBox("显⽰数列的前N项")a1 = 1For i = 1 To na2 = bNext iEnd SubPrivate Sub Command2_Click() EndEnd Sub5.各位数之和Private Sub Command1_Click() Dim i As String Dim j%Dim s%i = Text1For j = 1 To Len(i)st = Mid(i, j, 1)s = s + Val(st)Next jText2 = sEnd SubPrivate Sub Command2_Click() EndEnd Sub6.回⽂数Private Sub Command1_Click() Dim x$, y$, c$, i% x = Text1For i = 1 To Len(x)c = Mid(x, i, 1)y = c + yNext iIf y = x ThenText2 = "x是回⽂数"ElseText2 = "x不是回⽂数"End IfEnd SubPrivate Sub Command2_Click()Private Sub Command3_Click()EndEnd Sub7.级数求和Private Sub Command1_Click() Dim i As Integer, t As Long, s As Singlei = 0: s = o: t = 1Dos = s + 1 / ti = i + 1t = t * iLoop Until 1 / t < 0.000001Text1 = sEnd SubPrivate Sub Command2_Click()EndEnd Sub8.矩阵的转置Option ExplicitOption Base 1Dim i As IntegerDim j As IntegerDim a() As IntegerDim n As IntegerPrivate Sub Command1_Click()Text3.SetFocusn = Val(Text3)ReDim a(n, n) '动态数组For i = 1 To nFor j = 1 To na(i, j) = Int(10 * Rnd + 0) '随机数Text1 = Text1 & a(i, j) & " " '⼀⾏Next jText1 = Text1 & Chr(13) & Chr(10) '多⾏Next iEnd Subn = Val(Text3)ReDim b(n, n)For i = 1 To nFor j = 1 To nb(i, j) = a(j, i) '转置Text2 = Text2 & b(i, j) & " " '⼀⾏Next jText2 = Text2 & Chr(13) & Chr(10) '多⾏Next i End SubPrivate Sub Command3_Click()Text1 = ""Text2 = ""Text3 = "" '清除Text3.SetFocusEnd SubPrivate Sub Command4_Click()End '结束End SubPrivate Sub Form_Load()Text1 = ""Text2 = ""Text3 = "" '清除End Sub9.靠边元素和Private Sub Command1_Click()ClsRandomizeDim a(5, 5) As IntegerFor i = 0 To 5For j = 0 To 5a(i, j) = Int(Rnd * 9)Print a(i, j) & ",";Sum = Sum + a(i, j)Next jSum = 0For i = 0 To 5Sum = Sum + a(i, 0) + a(i, 5) + a(0, i) + a(5, i)NextSum = Sum - a(0, 0) - a(5, 0) - a(5, 5) - a(0, 5)Text1 = SumEnd SubPrivate Sub Command2_Click()EndEnd Sub10.冒泡排序Option ExplicitOption Base 1Dim a(10) As IntegerDim i As IntegerPrivate Sub Command1_Click()For i = 1 To 10a(i) = Int(90 * Rnd + 10)Text1 = Text1 & Str(a(i)) & " "If i Mod 5 = 0 Then Text1 = Text1 & Chr(13) & Chr(10) Next i End SubPrivate Sub Command2_Click()Dim j As IntegerDim t As IntegerFor i = 1 To 9For j = 1 To 10 - iIf a(j) < a(j + 1) Thent = a(j)a(j) = a(j + 1)a(j + 1) = tEnd IfNext jNext iIf i Mod 5 = 0 Then Text2 = Text2 & Chr(13) & Chr(10) Next i End SubPrivate Sub Command3_Click()Text1 = ""Text2 = ""End SubPrivate Sub Command4_Click()EndEnd Sub11.逆序数Private Sub Command1_Click()Dim a As StringDim i%Dim s As Stringa = Text1For i = 1 To Len(a)st = Mid(a, i, 1)s = st + sNext iText2 = sEnd SubPrivate Sub Command2_Click()EndEnd Sub12.判断素数Private Sub Command1_Click()Dim n As IntegerDim i As Integern = Val(Text1)If n = 1 ThenMsgBox (CStr(n) & "是素数")ElseFor i = 2 To n - 1MsgBox (CStr(n) & "是素数")ElseMsgBox (CStr(n) & "不是素数") End IfEnd IfEnd SubPrivate Sub Command2_Click()Text1 = ""End SubPrivate Sub Command3_Click()EndEnd Sub13.求阶乘（递归）Private Function f(ByVal n As Long) As Long Dim i As Integer f = 1If n = 0 Or n = 1 Thenf = 1ElseFor i = 1 To nf = f * iNext iEnd IfEnd FunctionPrivate Sub Command1_Click()Dim n As Longn = Val(Text1)Text2 = f(n)End SubPrivate Sub Command2_Click()Text1 = ""Text2 = ""End SubPrivate Sub Command3_Click()Private Sub Command1_Click() Dim n%, i%, m%n = Val(Text1)For i = 1 To nIf i = 1 ThenPicture1.PrintElseIf n Mod i = 0 ThenFor m = 2 To i - 1If i Mod m = 0 Then Exit For Next mIf m = i ThenPicture1.Print i,End IfPicture1.PrintEnd IfEnd IfNext iEnd SubPrivate Sub Command2_Click() Text1 = ""Picture1.ClsEnd SubPrivate Sub Command3_Click() EndEnd Sub15.⽔仙花数Private Sub Command1_Click() Dim a, b, c As IntegerFor a = 0 To 9For b = 0 To 9For c = 1 To 9End IfNext cNext bNext aEnd SubPrivate Sub Command2_Click()EndEnd Sub16.顺序查找Option ExplicitOption Base 1Dim a(10) As IntegerDim i As IntegerPrivate Sub Command1_Click()For i = 1 To 10a(i) = Int(90 * Rnd + 10)Text1 = Text1 & Str(a(i))If i Mod 5 = 0 Then Text1 = Text1 & Chr(13) & Chr(10) Next i End SubPrivate Sub Command2_Click()Dim x As Integerx = Val(Text2)For i = 1 To 10If a(i) = x Then Exit ForNext iIf i <= 10 ThenText3 = Str(x) + "在第" + Str(i) + "个位置"ElseText3 = "没有找到"End IfEnd SubPrivate Sub Command3_Click()Text1 = ""Private Sub Command4_Click()EndEnd Sub17.随机10个整数最值，均值，和Dim i As Integer Dim a(10) As IntegerPrivate Sub Command1_Click() RandomizeFor i = 1 To 10a(i) = Int(90 * Rnd + 10) Next iFor i = 1 To 10Text1 = Text1 & a(i) & " " Next iEnd SubPrivate Sub Command2_Click() Dim k As Integer Dim l As IntegerDim s As Integerk = a(1)For i = 2 To 10If a(i) > k Then k = a(i)Next iText2 = kl = a(1)For i = 2 To 10If a(i) < l Then l = a(i)Next iText3 = ls = 0For i = 1 To 10s = s + a(i)Next iText5 = sText4 = s / 10End SubPrivate Sub Command3_Click() EndEnd SubPrivate Sub Form_Load()18.字符统计Private Sub Command1_Click()Dim s As String, i%, m As String, n% s = Text1 n = 0For i = 1 To Len(s)m = Mid(s, i, 1)If m >= "a" And m <= "z" Thenn = n + 1End IfNext iText2 = nEnd SubPrivate Sub Command2_Click()EndEnd Sub19.最⼤公约数Private Sub Command1_Click()Dim m As IntegerDim n As IntegerDim k As Integerm = Val(Text1)n = Val(Text2)Dok = m Mod nm = nn = kLoop Until k = 0Text3 = CStr(m)End SubPrivate Sub Command2_Click()Text1 = ""Text2 = ""Text3 = ""End SubPrivate Sub Command3_Click()EndEnd Sub20.最⼩公倍数Option ExplicitPrivate Sub Command1_Click() Dim m%, n%, k% Dim m1%, n1%Dim s%m = Val(Text1): n = Val(Text2) m1 = m: n1 = n Dok = m Mod nm = nn = kLoop Until k = 0s = m1 * n1 / mText3 = sEnd SubPrivate Sub Command2_Click() Text1 = ""Text2 = ""Text3 = ""End SubPrivate Sub Command3_Click() EndEnd Sub。

VB总结1、阶乘和Private Function fact(n As Integer) As Long Dim i As Integerfact = 1For i = 1 To nfact = fact * iNext iEnd FunctionPrivate Sub Command1_Click()Dim a As Integer, sum As LongDim i As Integern = Val(Text1.Text)For i = 1 To nsum = sum + fact(i)Next iText2.Text = sumEnd Sub2、逆序Private Sub reverse(s As String, s1 As String) Dim i As IntegerFor i = 1 To Len(s)s1 = Mid(s, i, 1) & s1Next iEnd SubPrivate Sub Command1_Click()Dim m As String, m1 As Stringm = Text1.TextCall reverse(m, m1)Text2.Text = m1End Sub3、最小公倍数Private Sub Command1_Click()Dim s1 As Integer, s2 As Integers1 = Val(Text1.Text)s2 = Val(Text2.Text)Text3.Text = s1 * s2 / gcd(s1, s2)End SubPrivate Function gcd(ByVal m As Integer, ByVal n As Integer) As Integer Dim r As IntegerDor = m Mod nm = nn = rLoop Until r = 0gcd = mEnd Function4、找出100-200之间的升序数Private Function ascnum(n As Integer) As BooleanDim i As IntegerFor i = 2 To Len(CStr(n))If Mid(n, i, 1) <=Mid(n, i - 1, 1) ThenExit FunctionEnd IfNext iascnum = TrueEnd FunctionPrivate Sub Command1_Click()Dim i As IntegerFor i = 100 To 200If ascnum(i) Then List1.AddItem iNext iEnd Sub5、找出100-300素数及求各个位数之和也是素数Private Function nsum(n As Integer) As IntegerDim i As IntegerFor i = 1 To Len(CStr(n))nsum = nsum + Mid(n, i, 1)Next iEnd FunctionPrivate Function prime(n As Integer) As BooleanDim i As Integerprime = FalseFor i = 2 To Sqr(n)If n Mod i = 0 Then Exit FunctionNext iprime = TrueEnd FunctionPrivate Sub Command1_Click()Dim i As IntegerFor i = 100 To 300If prime(i) And prime(nsum(i)) ThenList1.AddItem iEnd IfNext iEnd Sub6、质因子Private Sub Command1_Click()Dim n As Integern = Val(Text1.Text)Text2.Text = n & "=" & zyz(n)End SubPrivate Function zyz(ByVal n As Integer) As String Dim k As Integerzyz = " "k = 2Do Until n = 1If n Mod k = o Thenzyz = zyz & k & "*"n = n / kElsek = k + 1End IfLoopzyz = Left(zyz, Len(zyz) - 1)End Function因子和Private Sub Command1_Click()Dim n As Integern = Val(Text1.Text)Text2.Text = yz(n)End SubPrivate Function yz(ByVal n As Integer) As Integer Dim i As IntegerFor i = 1 To nIf n Mod i = o Then yz = yz + iNext iEnd Function7、生成由个位数组成的四行五列的数组Option Base 1 Private Sub Command1_Click()Dim a(4, 5) As Integer, i As Integer, j As IntegerFor i = 1 To 4For j = 1 To 5a(i, j) = Int(Rnd * 10)Print a(i, j);Next jPrintNext iEnd Sub8、由个位数组成的五行五列的矩阵，并显示下面一个三角形Option Base 1Dim a(5, 5) As Integer Private Sub Command1_Click()Dim i As Integer, j As IntegerFor i = 1 To 5For j = 1 To 5a(i, j) = Int(Rnd * 10)Picture1.Print a(i, j);Next jPicture1.PrintNext iEnd Sub Private Sub Command2_Click()Dim i As Integer, j As IntegerFor i = 1 To 5For j = 1 To iPicture2.Print a(i, j);Next jPicture2.PrintNext iEnd Sub9、由个位数组成的五行五列的矩阵，并沿主对角线对折Option Base 1Dim a(5, 5) As Integer Private Sub Command1_Click()Dim i As Integer, j As IntegerFor i = 1 To 5For j = 1 To 5a(i, j) = Int(Rnd * 10)Picture1.Print a(i, j);Next jPicture1.PrintNext iEnd Sub Private Sub Command2_Click()Dim i As Integer, j As Integer, tmp As IntegerFor i = 1 To 5For j = 1 To itmp = a(i, j)a(i, j) = a(j, i)a(j, i) = tmpNext jNext iFor i = 1 To 5For j = 1 To 5Picture2.Print a(i, j);Next jPicture2.PrintNext iEnd Sub10、生成12个二位数，并打印出最小元素和最大元素Option Base 1 Private Sub Command1_Click()Dim com(12) As Integer, i As IntegerDim max As Integer, min As Integermin = 100For i = 1 To 12com(i) = 10+Int(Rnd * 90)Print com(i);If com(i) > max Then max = com(i)If com(i) < min Then min = com(i)Next iPrintPrint "最大元素：" & maxPrint "最小元素：" & minEnd Sub11、实验教程P56Option ExplicitOption Base 1Dim a(5, 5) As IntegerPrivate Sub Command1_Click()Dim i As Integer, j As IntegerFor i = 1 To 5For j = 1 To 5a(i, j) = Int(Rnd * 90) + 10Picture1.Print a(i, j);Next jPicture1.PrintNext iEnd SubPrivate Sub Command2_Click()Dim i As Integer, j As Integer, sum As IntegerFor i = 1 To 5sum = 0For j = 1 To 5sum = sum + a(i, j)Next jText1.Text = Text1.Text & sum & vbCrLf Next iEnd SubPrivate Sub Command3_Click()Dim i As Integer, j As Integer, sum As IntegerFor j = 1 To 5sum = 0For i = 1 To 5sum = sum + a(i, j)Next iText2.Text = Text2.Text & sum & " "Next jEnd SubPrivate Sub Command4_Click()Dim i As Integer, j As Integer, sum As IntegerFor i = 1 To 5For j = 1 To 5If i = j Or i + j = 6 Then sum = sum + a(i, j) Next jNext iText3.Text = sumEnd Sub12、求任意一维数组元素之和Private Function tim(a() As Integer)Dim t As Double, i As Integert = 0For i = LBound(a) To UBound(a)t = t + a(i)Next itim = tEnd Function13、排序（升序）Option Base 1Private Sub Command1_Click()Dim i As Integer, b(10) As IntegerFor i = 1 To 10b(i) = 10 + Int(Rnd * 90)Print b(i)Next iPrintCall ascsort(b)For i = 1 To 10Print b(i)Next iEnd Sub冒泡法Private Sub ascsort(a() As Integer)Dim i As Integer, j As Integer, temp As IntegerFor i = 1 To UBound(a) - 1For j = 1 To UBound(a) - iIf a(j) > a(j + 1) Thentemp = a(j)a(j) = a(j + 1)a(j + 1) = tempEnd IfNext jNext iEnd Sub选择法Private Sub ascsort(a() As Integer)Dim i As Integer, j As Integer, temp As IntegerFor i = 1 To UBound(a)For j = i + 1 To UBound(a)If a(i) > a(j) Thentemp = a(i)a(i) = a(j)a(j) = tempEnd IfNext jNext iEnd Sub直接排序Private Sub ascsort(a() As Integer)Dim i As Integer, j As Integer, temp As Integer, pointer As Integer For i = 1 To UBound(a) - 1pointer = iFor j = i + 1 To UBound(a)If a(pointer) > a(j) Then pointer = jNext jIf i <> pointer Thentemp = a(i)a(i) = a(pointer)a(pointer) = tempEnd IfNext iEnd Sub1、I递归法阶乘：Private Function Fact(ByVal n As Integer) As LongDim i As IntegerFact = 1For i = 1 To nFact = Fact * iNext iEnd FunctionPrivate Sub Command1_Click()Dim a As Integera = Text1.TextText2.Text = Fact(a)End SubII非递归法阶乘Private Function Fact(ByVal n As Integer) As Long If n = 0 Or n = 1 ThenFact = 1ElseFact = n * Fact(n - 1)End IfEnd FunctionPrivate Sub Command1_Click()Dim a As Integera = Text1.TextText2.Text = Fact(a)End Sub2、最大公约数：Private Sub Command1_Click()Dim x As Integer, y As Integer, z As Integerx = Val(Text1.Text)y = Val(Text2.Text)z = gcd(x, y)Text3.Text = zEnd SubPrivate Function gcd(ByVal m As Integer, ByVal n As Integer) As IntegerDim r As IntegerDor = m Mod nm = nn = rLoop Until r = 0gcd = mEnd Function3、最小公倍数：Private Sub Command1_Click()Dim x As Integer, y As Integer, z As Integerx = Val(Text1.Text)y = Val(Text2.Text)z = gcd(x, y)Text3.Text = zEnd SubPrivate Function gcd(ByVal m As Integer, ByVal n As Integer) As IntegerDim r As Integer, s As Integers = m * nDor = m Mod nm = nn = rLoop Until r = 0gcd = s / mEnd Function4、逆序：Private Sub Command1_Click()Dim i As Integer, st As Stringi = Val(Text1.Text)Call prime(i, st)Text2.Text = stEnd SubPrivate Sub prime(ByVal n As Integer, st As String) Dim i As Integer, s As Strings = CStr(n)For i = 1 To Len(s)st = Mid(s, i, 1) & stNext iEnd Sub5、素数（判断素数）：Private Sub Command1_Click()Dim n As Integern = Val(Text1.Text)If ptm(n) ThenText2.Text = "该数是素数"ElseText2.Text = "该数不是素数"End IfEnd SubPrivate Function ptm(n As Integer) As Boolean Dim i As IntegerFor i = 2 To Sqr(n)If n Mod i = 0 Then Exit ForNext iIf i > Sqr(n) Thenptm = TrueEnd IfEnd Function6、素数（求素数）：Private Sub Command1_Click()Dim i As IntegerFor i = 100 To 999If Prime(i) = True Then List1.AddItem iNext iEnd SubPrivate Function Prime(n As Integer) As Boolean Dim i As IntegerFor i = 2 To n - 1If n Mod i = 0 Then Exit FunctionNext iPrime = TrueEnd Function7、数组求和Option ExplicitOption Base 1Dim a () As IntegerPrivate Sub Command1_Click()Dim i As Integer ,n As IntegerN=Val (inputBox(“请输入n的值：”))ReDim a(n)For i=1 To NA(i) =Int (Rnd*90)+10Picture 1.Print a(i)Next iEnd SubPrivate Sub total (a() As Integer,sum As Integer) Dim i As IntegerFor i =1 To UBound(a)sum=sum+a(i)Next iEnd SubPrivate Sub Command 2_Click()Dim k As Integercall total (a,k)Text1.Text=CStr(k)End Sub8、升（降）序Private Sub Command1_Click()Dim n As Integern = Val(Text1.Text)If ascnum(n) ThenText2.Text = "该数是升（降）序数"ElseText2.Text = "该数不是升（降）序数"End IfEnd SubPrivate Function ascnum(n As Integer) As Boolean Dim s As Integer, i As Integers = CStr(n)For i = 1 To Len(s) - 1If Mid(s, i, 1) >(<)= Mid(s, i + 1, 1) Then Exit For Next iIf i > Len(s) - 1 Then ascnum = TrueEnd Function9、因子和：Option ExplicitPrivate Sub Command1_Click()Dim n As Integern = Val (Text1)Text2 = cstr (yzh(n))End SubPrivate Function yzh (ByVal n As Integer) As Integer Dim i As IntegerFor i = 1 To nIf n mod i = 0 Then yzh=yzh+iNext iEnd Function。

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 Thenr = 1 / 2 * （a + b + c)s = Sqr(r ＊（r — a) * (r — b) ＊（r — c)）Label1。

Caption = "三角形的面积为" & sElseLabel2.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 = tIf y < z Thent = y: y = z: z = tIf x 〈y Thent = x：x = y: y = tEnd IfEnd IfPrint "排序后”；z & ”" ＆y & ”" ＆xEnd Sub3。

计算一元二次方程的代码：Option ExplicitDim a!，b！,c！，d！,x1！，x2！Private Sub Command1_Click（）a = InputBox（”a=”, ”请输入一元二次方程的系数a"）b = InputBox（"b=”，”请输入一元二次方程的系数b")c = InputBox(”c=”，"请输入一元二次方程的系数c”) If a = 0 ThenPrint ”因为a≠0,你输入的a＝0，请重新输入系数a" End Ifd = b ^ 2 - 4 * a * cIf d >= 0 Thenx1 = （—b + Sqr(d)）/ （2 * a）x2 = (—b - Sqr（d)) / (2 * a）Print ”系数为”＆a; b; c ＆"的一元二次方程的根分别为”& "x1=”& x1 & ”" ＆"x2=" ＆x2ElsePrint ”此方程在实数范围内无解"End IfEnd Sub4。

vb编程代码大全Visual Basic (VB) 是一种广泛用于软件开发的高级编程语言，可以用于开发 Windows 应用程序、Web 应用程序、数据库应用程序等。

在本文中，将介绍一些常用的 VB 编程代码，帮助初学者快速入门和提高编程水平。

一、基本数据类型1. 整型数据在 VB 中，整型数据可以使用 Integer 类型表示，范围为 -32,768 到32,767。

定义整型变量的代码如下：```Dim num As Integernum = 10```2. 浮点数据浮点数据可以使用 Single 或 Double 类型表示，分别表示单精度浮点数和双精度浮点数。

定义浮点变量的代码如下：```Dim num As Singlenum = 3.143. 字符串数据字符串数据可以使用 String 类型表示，可以存储文本数据。

定义字符串变量的代码如下：```Dim str As Stringstr = "Hello, World!"```二、控制流程1. If...Then...Else 语句If...Then...Else 语句用于根据条件执行不同的代码块。

例如：```Dim num As Integernum = 10If num > 0 ThenMsgBox("Num is positive.")ElseMsgBox("Num is negative.")End If2. For 循环For 循环用于重复执行一段代码。

例如：```For i = 1 To 10MsgBox(i)Next i```3. Do While 循环Do While 循环在满足条件时执行代码块。

例如：```Dim i As Integeri = 1Do While i <= 10MsgBox(i)i = i + 1Loop```三、数组1. 一维数组一维数组在 VB 中用于存储相同类型的多个元素。