VB常見20道編程代碼

1、哈哈哈20 道編程代碼1.1000 以內(nèi)的所有完數(shù)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()EndEn

2、d 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 jNext iEnd SubPrivate Sub Com

3、mand2_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

4、, 0) - a(5, 0) - a(5, 5) - a(0, 5)Text1 = k - SumEnd SubPrivate Sub Command2_Click()EndEnd Sub4. 遞歸函數(shù)求斐波拉契數(shù)列Option ExplicitPrivate Sub Command1_Click()Dim a1, a2, b As IntegerDim i, n As Integern = InputBox( 顯示數(shù)列的前 N 項 ) a1 = 1For i = 1 To nb = a1 + a2Text1.SelText = b & a1 = a2a2 = bNext iEnd SubPr

5、ivate Sub Command2_Click()EndEnd Sub5. 各位數(shù)之和Private Sub Command1_Click()Dim i As StringDim 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. 回文數(shù)Private Sub Command1_Click()Dim x$, y$, c$, i%x = Text1For i = 1 To Len(x)c

6、 = Mid(x, i, 1)y = c + yNext iIf y = x ThenText2 = x 是回文數(shù) ElseText2 = x 不是回文數(shù) End IfEnd SubText1 = Text2 = End SubPrivate Sub Command3_Click()EndEnd Sub7. 級數(shù)求和 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.0

7、00001Text1 = sEnd SubEnd Sub8. 矩陣的轉(zhuǎn)置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) 動態(tài)數(shù)組For i = 1 To nFor j = 1 To na(i, j) = Int(10 * Rnd + 0) 隨機數(shù)Text1 = Text1 & a(i, j) & 一行Next jTex

8、t1 = Text1 & Chr(13) & Chr(10) 多行Next iPrivate Sub Command2_Click()Dim b() As Integern = Val(Text3)ReDim b(n, n)For i = 1 To nFor j = 1 To nb(i, j) = a(j, i) 轉(zhuǎn)置一行多行Text2 = Text2 & b(i, j) & Next jText2 = Text2 & Chr(13) & Chr(10) Next iEnd SubPrivate Sub Command3_Click()Text1 = Text2 = Text3 = 清除Tex

9、t3.SetFocusEnd SubEnd 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 jPrintNext iSum = 0For i = 0 To 5Sum = Sum + a(i, 0) + a

10、(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

11、) & If i Mod 5 = 0 Then Text1 = Text1 & Chr(13) & Chr(10)Next iEnd 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 iFor i = 1 To 10Text2 = Text2 & Str(a(i) & If i Mod 5 = 0 Then

12、Text2 = Text2 & Chr(13) & Chr(10) Next iPrivate Sub Command3_Click()Text1 = Text2 = End SubPrivate Sub Command4_Click()EndEnd Sub11. 逆序數(shù)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 + s Next iText2 = sPrivate Sub Command2_Click(

13、)EndEnd Sub12. 判斷素數(shù)Private Sub Command1_Click()Dim n As IntegerDim i As Integern = Val(Text1)If n = 1 ThenMsgBox (CStr(n) & 是素數(shù) )ElseFor i = 2 To n - 1If n Mod i = 0 Then Exit ForNext iIf i = n ThenMsgBox (CStr(n) & 是素數(shù) )Else不是素數(shù) )MsgBox (CStr(n) & End IfEnd SubPrivate Sub Command2_Click()Text1 = En

14、d SubPrivate Sub Command3_Click()EndEnd Sub13. 求階乘(遞歸)Private Function f(ByVal n As Long) As LongDim i As Integerf = 1If n = 0 Or n = 1 Thenf = 1ElseFor i = 1 To n f = f * iNext iEnd IfEnd FunctionPrivate Sub Command1_Click()Dim n As Longn = Val(Text1)Text2 = f(n)End SubPrivate Sub Command2_Click()T

15、ext1 = Text2 = End SubPrivate Sub Command3_Click()EndEnd Sub14. 求質(zhì)因子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 ForNext mIf m = i ThenPicture1.Print i,End IfPicture1.PrintEnd IfEnd

16、IfNext iEnd SubPrivate Sub Command2_Click()Text1 = Picture1.ClsEnd SubPrivate Sub Command3_Click()EndEnd Sub15. 水仙花數(shù)Private Sub Command1_Click()Dim a, b, c As IntegerFor a = 0 To 9For b = 0 To 9For c = 1 To 9If a A 3 + b A 3 + c A 3 = a + 10 * b + 100 * c The nMsgBox 100 * c + 10 * b + aEnd IfNext c

17、Next 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 iEnd SubPrivate Sub C

18、ommand2_Click()Dim x As Integerx = Val(Text2)If a(i) = x Then Exit ForNext i個位置 If i k Then k = a(i)Next iText2 = kl = a(1)If a(i) = a And m = z Thenn = n + 1End IfNext iText2 = nEnd SubPrivate Sub Command2_Click()EndEnd Sub19. 最大公約數(shù)Private Sub Command1_Click()Dim m As IntegerDim n As IntegerDim k As Integerm = Val(Text1)n = Val(Text2)Dok = m Mod n m = nn = kLoop Until k = 0Text3 = CStr(m)End SubPrivate Sub Command2_Click()Text1 = Text2 = Text3 = End SubPrivate Sub Command3_Click()EndEnd Sub2