• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

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

Các mẹo vặt linh tinh khác, không thuộc nhóm nào
Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4756
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 509 time

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

Gửi bàigửi bởi truongphu » T.Bảy 19/05/2012 9:26 am

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:
  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


sub Ðê quy.rar
(1.21 KiB) Đã tải 437 lần


Function Đệ quy:

  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
Tập tin đính kèm
Dãy Chu Vi Hình Tròn.rar
(1.19 KiB) Đã tải 386 lần


o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

Quay về “[VB] Mẹo vặt khác”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.3 khách