1. THÔNG BÁO TUYỂN ADMIN DIỄN ĐÀN 2013
    Tìm kiếm nhà trọ - Ở ghép
    THÔNG BÁO BÁN ÁO SPKT.NET CHO THÀNH VIÊN DIỄN ĐÀN


    HÃY TÌM KIẾM Ở ĐÂY TRƯỚC KHI ĐẶT CÂU HỎI
    {xen:phrase loading}

Bài tập VB (tìm số hoàn hảo từ 1 -> n)

Thảo luận trong '10118CLC' bắt đầu bởi thayanh1992, 22 Tháng ba 2011.

  1. thayanh1992 New Member

    Số bài viết: 5
    Đã được thích: 0
    Điểm thành tích: 0
    Các bạn thân mến !!! hôm nay mình post code của bài tập vb liệt kê số hoàn hảo các bạn tham khảo nhé.Ban nào có cách làm khác thì post lên chia se cho anh em nha ;)
    ........................................................................................
    Private Sub Command1_Click()
    Dim i As Integer, s As String, n As Integer
    n = Val(txt.Text)
    For i = 1 To n
    If sohoanhao(i) Then
    s = s & " " & i
    lbl.Caption = s
    End If
    Next
    End Sub
    Private Function sohoanhao(ByVal a As Integer)
    Dim b As Integer
    Dim c As Integer
    c = 0
    For b = 1 To a - 1
    If a Mod b = 0 Then
    c = c + b
    End If
    Next
    If a = c Then
    sohoanhao = True
    Else
    sohoanhao = False
    End If
    End Function
    ...................................................................
    Chúc các bạn thành công !!! :-bd
  2. vankyspk Member

    Số bài viết: 113
    Đã được thích: 0
    Điểm thành tích: 16
    khó thiệt ak, cảm ơn nha, để tụi tui thham khảo thử, không được nữa thì copy lun =))
  3. donkihote_gumiho New Member

    Số bài viết: 24
    Đã được thích: 0
    Điểm thành tích: 1
  4. cutre_kute_pro New Member

    Số bài viết: 30
    Đã được thích: 1
    Điểm thành tích: 0
  5. huavantuan New Member

    Số bài viết: 150
    Đã được thích: 0
    Điểm thành tích: 0
    cái chỗ chương tình con bạn sao dài dòng thế định nghĩa cũng không rõ ràng như này thầy trừ điểm lắm đó : mình thấy hay nên đóng góp chút ít thui nếu có sai mong bạn chỉ ra nha
    Private Function SHH(a As Integer) As Boolean
    Dim i As Integer, tong As Integer
    tong = 0
    For i = 1 To a - 1
    If a Mod i = 0 Then tong = tong + i
    Next
    If tong = a Or a = 1 Then SHH = True Else SHH = False
    End Function

Chia sẻ trang này