tìm thuật giải + code bài liệt kê số hoàn hảo từ 1-n

Mấy anh chị chỉ jup em thuật toán + code bài "liệt kê số hoàn hảo từ 1-n" trong VB" Em đang cần rất gấp mong mấy anh chị chỉ jùm. Cảm ơn mọi ng`

Đây là giải thuật trong Pascal của pác nào đó mình quên rùi. Bạn sửa lại nha.

var s,i,n:integer;
begin
for i:=1 to n-1 do (nếu ko có dk nhận lun n)
if n mod i=0 then inc(s,i);
if s=n then số trên là hoàn hảo
end.

bác cho biết hàm inc là hàm gì được không ạ ?:D

các bạn chỉ mình viết code một hóa đơn bằng VB.NET nha

'Ham kiem tra so hoan hao
Function KT(ByVal n As Integer) As Boolean
Dim i, tong As Integer
tong = 0
For i = 1 To n - 1
If n Mod i = 0 Then
tong = tong + i
End If
Next
If tong = n Then
KT = True
Else
KT = False
End If
End Function

'Thuc Hien
Private Sub Command1_Click()
Dim i, n As Integer
n = InputBox(" nhap n tu ban phim ")
For i = 1 To n
If KT(i) = True Then
MsgBox i
End If
Next
End Sub

Dao diện chỉ cần 1 command.Chúc bạn vui vẻ ^^!.

anh em ơi ai có bài lập trình bắng C# gửi lên cho nhau xem với!
tôi có bài C# kiểm tra só đó có phải là hoàn hảo ko nhưng chư có bài nhập vào n số kiểm tra có bao nhiêu số hoàn hảo

mấy anh chị ơi viết cho em code của bài nhập vào n in ra các số hoàn hảo từ 1 đến n

[=========> Bổ sung bài viết <=========]

thui em biết rùi cám ơn các anh chị nha

mấy anh chị ơi viết cho em code cua chuong trinh đó là(chương trình này chạy trong ubuntu ):
nhập vào n,kiểm tra xem n co là số nguyên tố hay không,viết chương trình in ra màn hinh các số nguyên tố từ 1 đến n.

ẹc ai đó viết trên c++ cho ae nhờ với