Thủ thuật: Kỹ thuật Sub và Function đệ quy
Tác giả: truongphuMô tả: Kỹ thuật Sub và Function đệ quy
Sub Đệ quy:Private Sub Command1_Click()
List1.Clear
For i = 1 To 10 ' Ky thuât vòng lap
List1.AddItem i * 4
Next
End Sub
Private Sub Command2_Click()
List1.Clear
AddListBox 9, 1 ' Ky thuât Sub Ðê Quy
End Sub
Function AddListBox(a%, b%)
List1.AddItem b * 5 'truongphu
If a Then AddListBox = AddListBox(a - 1, b + 1)
End Function
Function Đệ quy:Function DãyChuViHìnhTròn(n%, R%) As String
' n là sô dãy, R là bán kính
Const Pi = 3.1416 ' truongphu
If n Then DãyChuViHìnhTròn = DãyChuViHìnhTròn(n - 1, R + 1)
DãyChuViHìnhTròn = (R + 1) ^ 2 * Pi & vbCr & DãyChuViHìnhTròn
End Function
Private Sub Command1_Click()
Me.Cls
Const Pi = 3.1416
Print "R thâ'p nhât = 3, 10 sô liêu vo'i R tang dâ`n R = R + 2"
For i = 0 To 9 ' ky thuât vòng lap
Print (3 + i * 2) ^ 2 * Pi
Next
End Sub
Private Sub Form_Paint()
Print "R thâ'p nhât = 5, 10 sô liêu vo'i R tang dâ`n R = R + 1"
Print DãyChuViHìnhTròn(9, 5)
End Sub