1. Fibonacci函數(shù)。
Private Sub Command1_Click() Dim n As Integer
n = Text1
Text2 = fib(n)
End Sub
Function fib(ByVal x As Integer) As Integer
If x = 1 Or x = 2 Then
fib = 1
Else
fib = fib(x - 2) + fib(x - 1) End If
End Function
Private Sub Command2_Click() Text1 = ''
Text2 = ''
Text1.SetFocus
End Sub
Private Sub Command3_Click() End
End Sub
2. 百元百雞
Private Sub cmdCalc_Click() '變量說明
Dim x As Integer
Dim y As Integer
Dim z As Integer
'窮舉法計算
For x = 1 To 20
For y = 1 To 33
z = 100 - x - y
If 5 * x + 3 * y + z / 3 = 100 Then
Text1 = Text1 & CStr(x) & Space(6) & CStr(y) & Space(6) & CStr(z) & Chr(13) & Chr(10)
End If
Next y
Next x
End Sub
3. 矩陣不靠邊元素和
For j = 1 To 5
a(i, j) = Int(Rnd * 90) + 10 Next
Next
For i = 1 To 5
For j = 1 To 5
Picture1.Print a(i, j); Next
Picture1.Print
Next
End Sub
Private Sub Command2_Click() Text1 = fun1(a)
End Sub
Function fun1(x() As Integer) As Double
Dim i As Integer, j As Integer fun1 = 0
For i = LBound(x, 1) To UBound(x, 1)
For j = LBound(x, 2) To UBound(x, 2)
If Not (i = LBound(x, 1) Or i = UBound(x, 1) Or j = LBound(x, 2) Or j = UBound(x, 2)) Then
fun1 = fun1 + x(i, j)
End If
Next
Next
End Function
Private Sub Command3_Click() Text1 = ''
Picture1.Cls
Command1.SetFocus
End Sub
Private Sub Command4_Click() End
End Sub
4. 遞歸函數(shù)
Private Sub Command1_Click() List1.Clear
Dim i As Integer
For i = 1 To 7
List1.AddItem fact(i)
Next i
End Sub
Function fact(ByVal n As Double) As Double
If n = 1 Then
fact = 1
Else
fact = n * fact(n - 1)
End If
End Function
Private Sub Command2_Click() List1.Clear
End Sub
Private Sub Command3_Click() End
End Sub
5. 回文數(shù)
Private Sub Command1_Click() Randomize
Dim i As Integer, x As Integer, min As Integer
For i = 1 To 500
x = Int(Rnd * 9000) + 1000 Text1 = Text1 & x & vbCrLf If HuiWenShu(x) Then
Text2 = Text2 & x & vbCrLf If min = 0 Then
min = x
Else
If min > x Then
min = x
End If
End If
End If
Next i
Text3 = min
End Sub
Function HuiWenShu(ByVal a As Integer) As Boolean
If StrReverse(a) = a Then HuiWenShu = True
Else
HuiWenShu = False
End If
End Function
