VB常见20道编程代码.docVIP

20道编程代码 1.1000以内的所有完数 Private Sub Command1_Click() Dim n As Integer Dim i As Integer Dim s As Long For n = 1 To 1000 s = 1 For i = 2 To n - 1 If n Mod i = 0 Then s = s + i Next i If s = n Then Text1 = Text1 n If k Mod 5 = 0 Then Text1 = Text1 vbCrLf End If Next n End Sub Private Sub Command2_Click() End End Sub 2.百元买百鸡 Private Sub Command1_Click() Dim i As Integer Dim j As Integer For i = 0 To 20 For j = 0 To 33 If 5 * i + 3 * j + (100 - i - j) * 1 / 3 = 100 Then Text1 = Text1 买 CStr(i) 只公鸡 CStr(j) 只母鸡 CStr(100 - i - j) 只小鸡 Text1 = Text1 Chr(13) Chr(10) End If Next j Next i End Sub Private Sub Command2_Click() End End Sub 不靠边元素和 Private Sub Command1_Click() Cls Randomize Dim a(5, 5) As Integer, s% For i = 0 To 5 For j = 0 To 5 a(i, j) = Int(Rnd * 9) Print a(i, j) ,; Sum = Sum + a(i, j) Next j Print Next i k = Sum Sum = 0 For i = 0 To 5 Sum = Sum + a(i, 0) + a(i, 5) + a(0, i) + a(5, i) Next i Sum = Sum - a(0, 0) - a(5, 0) - a(5, 5) - a(0, 5) Text1 = k - Sum End Sub Private Sub Command2_Click() End End Sub 4.递归函数求斐波拉契数列 Option Explicit Private Sub Command1_Click() Dim a1, a2, b As Integer Dim i, n As Integer n = InputBox(显示数列的前N项) a1 = 1 For i = 1 To n b = a1 + a2 Text1.SelText = b a1 = a2 a2 = b Next i End Sub Private Sub Command2_Click() End End Sub 5.各位数之和 Private Sub Command1_Click() Dim i As String Dim j% Dim s% i = Text1 For j = 1 To Len(i) st = Mid(i, j, 1) s = s + Val(st) Next j Text2 = s End Sub Private Sub Command2_Click() End End Sub 回文数 Private Sub Command1_Click() Dim x$, y$, c$, i% x = Text1 For i = 1 To Len(x) c = Mid(x, i, 1) y = c + y Next i If y = x Then Text2 = x是回文数 Else Text2 = x不是回文数 End If End Sub Private Sub Command2_Click() Text1 = Text2 = End Sub Privat