تولید عدد صفر به تعداد طول رشته

[m.4.r.m]

سلام دوستان برنامه نویس ؛

من میخوام اختلاف طول دو عدد رو بدست بیارم مثلا عدد اول به طول 10 و عدد دوم به طول 4 حالا اختلافشون میشه 6 عدد میخوام این 6 عدد رو 6 تا صفر تولید کنه . منظورمو فهمیدن دوستان ؟

به جای چاپ عدد 6 چاپ کنه 000000 اینطوری ممنون میشم خیلی لازمه

[SlowCode]

A=Text1.text
B=text2.text
diff=abs(A-B)
For i=1 to diff
Print "0"
Next

[m.4.r.m]

آقا محسن کارت درسته اما اینو تست کن من اینو میخوام که جواب نمیده
Dim A, B, diff, i
A = Text5.Text
B = Text6.Text
diff = Abs(A - B)
For i = 1 To diff
Text7.Text = "0"
Next

تو پرینت کار می کنه میخوام تو تکست نشون بده این صفرها رو

[SlowCode]

اینطوری بنویس:
Dim A, B, diff, i
A = Text5.Text
B = Text6.Text
diff = Abs(A - B)
For i = 1 To diff
Text7.Text = Text7.Text & "0"
Next

[Veteran]

Print String(Len(InputBox("")) - Len(InputBox("")), "0")




Text1 = String(Len(InputBox("")) - Len(InputBox("")), "0")

[SlowCode]

ممنون، این کد بهتر و کوتاه تره ولی چون ممکنه عدد دوم بزرگتر باشه قدر مطلقش رو بنویسیم بهتره.
Text1 = String(Abs(Len(Text5) - Len(Text6)), "0")


آقای Veteran (http://barnamenevis.org/member.php?160830-Veteran) نمی دونم چرا با اون inputbox کار نکرد، خالی نشون میداد.

[m.4.r.m]

اینطوری بنویس:
Dim A, B, diff, i
A = Text5.Text
B = Text6.Text
diff = Abs(A - B)
For i = 1 To diff
Text7.Text = Text7.Text & "0"
Next


دمت گرم همه کار کرده بودم الا این یکی که گفتی دستت طلا جبران می کنم برات .

[محسن واژدی]

آقای Veteran (http://barnamenevis.org/member.php?160830-Veteran) نمی دونم چرا با اون inputbox کار نکرد، خالی نشون میداد.

سلام
بدلیل وجود Len، چون با وجود این تابع تنها طول مقادیر توابع InputBox تفریق میشدن، به عبارت بهتر اگر مقادیر جعبه های InputBox، به ترتیب 10 و 5 بودند بجای 10-5 طولشان که 2-1 باشد از هم کم میشوند، اگه کد را بصورت زیر ویرایش کنیم صحیح میشود:
Text1 = String(Abs(InputBox("") - InputBox("")), "0")



موفق باشید

[Veteran]

آقای Veteran (http://barnamenevis.org/member.php?160830-Veteran) نمی دونم چرا با اون inputbox کار نکرد، خالی نشون میداد.
یعنی چی ؟
چی کار نکرد ؟ اون سورسی که با inputbox مشکل داره رو بزار بررسی کنیم.