VB常见20道编程代码

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 &

买

只公鸡

只母鸡

j) &

只小鸡

Text1 = Text1 & Chr(13) & Chr(10)

End If

Next j

Next i

End Sub

Private Sub Command2_Click()

End

End Sub

3.

不靠边元素和

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

t = 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

6.

回文数

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 =

是回文数

Else

Text2 =

不是回文数

End If

End Sub

Private Sub Command2_Click()

Text1 =

Text2 =

End Sub

Private Sub Command3_Click()

End

End Sub

7.

级数求和

Private Sub Command1_Click()

Dim i As Integer, t As Long, s As Single

i = 0: s = o: t = 1

Do

s = s + 1 / t

i = i + 1

t = t * i

Loop Until 1 / t < 0.000001

Text1 = s

End Sub

Private Sub Command2_Click()

End

End Sub

8.

矩阵的转置

Option Explicit

Option Base 1

Dim i As Integer

Dim j As Integer

Dim a() As Integer

Dim n As Integer

Private Sub Command1_Click()

us

n = Val(Text3)

ReDim a(n, n) '

动态数组

For i = 1 To n

For j = 1 To n

a(i, j) = Int(10 * Rnd + 0) '

随机数

Text1 = Text1 & a(i, j) &

一行

Next j

Text1 = Text1 & Chr(13) & Chr(10) '

多行

Next i

End Sub

Private Sub Command2_Click()

Dim b() As Integer

n = Val(Text3)

ReDim b(n, n)

For i = 1 To n

For j = 1 To n

b(i, j) = a(j, i) '

转置

Text2 = Text2 & b(i, j) &

一行

Next j

Text2 = Text2 & Chr(13) & Chr(10) '

多行

Next i

End Sub

Private Sub Command3_Click()

Text1 =

Text2 =

Text3 =

清除

us

End Sub

Private Sub Command4_Click()

End '

结束

End Sub

Private Sub Form_Load()

Text1 =

Text2 =

Text3 =

清除

End Sub

9.

靠边元素和

Private Sub Command1_Click()

Cls

Randomize

Dim a(5, 5) As Integer

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

Sum = 0

For i = 0 To 5

Sum = Sum + a(i, 0) + a(i, 5) + a(0, i) + a(5, i)

Next

Sum = Sum - a(0, 0) - a(5, 0) - a(5, 5) - a(0, 5)

Text1 = Sum

End Sub

Private Sub Command2_Click()

End

End Sub

10.

冒泡排序

Option Explicit

Option Base 1

Dim a(10) As Integer

Dim i As Integer

Private Sub Command1_Click()

For i = 1 To 10

a(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 Sub

Private Sub Command2_Click()

Dim j As Integer

Dim t As Integer

For i = 1 To 9

For j = 1 To 10 - i

If a(j) < a(j + 1) Then

t = a(j)

a(j) = a(j + 1)

a(j + 1) = t

End If

Next j

Next i

For i = 1 To 10

Text2 = Text2 & Str(a(i)) &

If i Mod 5 = 0 Then Text2 = Text2 & Chr(13) & Chr(10)

Next i

End Sub

Private Sub Command3_Click()

Text1 =