کمک کمی تغییر تو کد vb6

[bia2download]

سلام به بچه های گل سایت

یه مشکلی واسم پیش اومده

من یه کد دارم که استاد گفته با do به جای for برنامه نویسی کن

کار این کد هم اینه که مقسوم علیه n رو چاپ کنه


اگه میشه کدو واسم عوض کنید یا راه حلشو بهم بگید




dim n as integer
dim s as string
n = inputbox("type number :")
s = "{"
for i = 1 to n - 1
if n mod i = 0 then s = s + cstr(i) + ","
next
s = s + cstr(i) + "}"
print s

[SlowCode]

بفرما:
Dim n As Integer, s As String
n = InputBox("type number :")
i = 1
s = "{"
Do While i < n
If n Mod i = 0 Then s = s + CStr(i) + ","
i = i + 1
Loop
s = s + CStr(i) + "}"
MsgBox s