تقسيم دو عدد با استفاده از عملگر تفريق

[آرمان]

سلام دوستان
برنامه اي به زبان ويژوال بيسيك كه حاصل تقسيم دو عدد را با استفاده از عملگر تفريق محاسبه كند.
راهنمايي(برنامه مشابه كه براي ضرب با عملگر جمع نوشتم)
Private Sub Command1_Click()
Dim a, b, c As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
c = 0
For i = 1 To b
c = c + a
Next
Text3.Text = c
End Sub

[hamed_Arfaee]

با سلام
جواب خيلي سادس :

کد:

private sub command1_click()
dim a,b,c,d as integer
a=val(text1.text)
b=val(text2.text)
d=1
c=a-b
do while c>b
c=c-b
d=d+1
loop
text3.text=d & "  Mod:  "&c
end sub

در ضمن اگه فقط يكجا تاپيك بزني به جواب سوالت مي رسي

[آرمان]

با سلام
خيلي ممنون از جوابتون
راستش تاپيك اولي رو كه زدم يادم نيست كجا بود ونتونستم پيداش كنم برا اين دوباره زدم

[آرمان]

با سلام
ببخشيد اين جواب يه مساوي كم داره يعني اينجوري ميشه
do while c >= b