Kỹ thuật Sub và Function đệ quy

[truongphu]

Thủ thuật: Kỹ thuật Sub và Function đệ quy
Tác giả: truongphu
Mô tả: Kỹ thuật Sub và Function đệ quy

---

Sub Đệ quy:

Mã: [Chọn hết] [Mở rộng/Thu hẹp] [Tải về]

1. Private Sub Command1_Click()
2. List1.Clear
3. For i = 1 To 10 ' Ky thuât vòng lap
4.    List1.AddItem i * 4
5. Next
6. End Sub
7.  
8. Private Sub Command2_Click()
9. List1.Clear
10. AddListBox 9, 1 ' Ky thuât Sub Ðê Quy
11. End Sub
12.  
13. Function AddListBox(a%, b%)
14.     List1.AddItem b * 5 'truongphu
15.    If a Then AddListBox = AddListBox(a - 1, b + 1)
16. End Function

GeSHi © Codebox Plus

sub Ðê quy.rar

(1.21 KiB) Đã tải 473 lần

Function Đệ quy:

Mã: [Chọn hết] [Mở rộng/Thu hẹp] [Tải về]

1. Function DãyChuViHìnhTròn(n%, R%) As String
2. ' n là sô dãy, R là bán kính
3. Const Pi = 3.1416 ' truongphu
4.    If n Then DãyChuViHìnhTròn = DãyChuViHìnhTròn(n - 1, R + 1)
5.     DãyChuViHìnhTròn = (R + 1) ^ 2 * Pi & vbCr & DãyChuViHìnhTròn
6. End Function
7.  
8. Private Sub Command1_Click()
9. Me.Cls
10. Const Pi = 3.1416
11. Print "R thâ'p nhât = 3, 10 sô liêu vo'i R tang dâ`n R = R + 2"
12. For i = 0 To 9 ' ky thuât vòng lap
13.    Print (3 + i * 2) ^ 2 * Pi
14. Next
15. End Sub
16.  
17. Private Sub Form_Paint()
18. Print "R thâ'p nhât = 5, 10 sô liêu vo'i R tang dâ`n R = R + 1"
19. Print DãyChuViHìnhTròn(9, 5)
20. End Sub

GeSHi © Codebox Plus