سلام
می خواستم یک نفر این کد که یک عدد 4 رقمی را میگیرد و با هم جمع می کند طوری توضیح بده که منی که زیاد بلد نیستم بفهمم ممنون
a = Text1.Text
4 For i = 1 To
(1, b = b + Mid(a, I
Next i
B=TEXT2.TEXT
Printable View
سلام
می خواستم یک نفر این کد که یک عدد 4 رقمی را میگیرد و با هم جمع می کند طوری توضیح بده که منی که زیاد بلد نیستم بفهمم ممنون
a = Text1.Text
4 For i = 1 To
(1, b = b + Mid(a, I
Next i
B=TEXT2.TEXT
[CODE]
a = Text1.Text
4 For i = 1 To
(1, b = b + Mid(a, I
Next i
B=TEXT2.TEXT
بابا درست کدتو بنویس فکر کنم این کدو واسه کنکور می خواهی
تابع MID به اندازه کاراتر های مشخص از یه رشته جدا میکنه و بر میگردونه
اینجا از رشته ورودی (a) شروع از (i) به اندازه 1 کاراکتر بر میداره و به b اضافه میکنه ، فهمدید؟
کد:R = MID(a,b,c)
a (String) : Source
b (integer) : Start from character number "b"
c (integer) : in lenght of "c"
r (string) : the value function returns
ممنون
فقط میشه این کدها را طوری بنویسید که تابع mid به کار برده نشود؟
اگه با Mid مشکلی داری بگو!نقل قول:
ببخشید Vb الان نصب نیست ...امیدوارم درست جواب بده
کد:
sum=0,b=0
a=val(text1.text)
for i=1 to 4
b=a mod 10
a=a/10
sum=sum+b
next i
result.caption=sum
خیلی ممنون
جواب میده فقط یک مشکل داره هر چهار رقمی که میزنی یا یکی یا 3 تا به حاصل اضافه میکنه بعد نمایش میده؟
مثال
1234 بزنی میزنه 10
5632 بزنی میزنه 17
2589 بزنی میزنه 27
این خط رو :نقل قول:
اینجوری بنویسید :کد:
a=a/10
کد:
a = a \ 10
درست شد خیلی ممنون