ايران ويج

سلام دوستان
برنامه اي به زبان ويژوال بيسيك كه حاصل تقسيم دو عدد را با استفاده از عملگر تفريق محاسبه كند.
راهنمايي(برنامه مشابه كه براي ضرب با عملگر جمع نوشتم)
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

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

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

آرمان

hamed_Arfaee

آرمان

آرمان