Printable View
سلام خدمت اساتید گلم
یه برنامه که یه عدد سه رقمی میگیره و مجموع ارقام اونو با هم محاسبه میکنه اینجوری:
میشه یه توضیحی راجع به برنامه بدید...:20:کد:if val(A)<100 or val(A)>999 then
msgbox "error"
end if
m=val(A)mod 10
n=val(A)\100
k=val(A) mod 100
s=k/10
print m+n+int(S
توی این برنامه m باقی مانده تقسیم بر 10 رو برمی گردونه که همون یکان میشه
n هم تقسیم صحیح عدد رو بر 100 بر میگردونه که همون صدگان میشه
و k هم دو عدد سمت راست عدد رو برمیگردونه که با دستور خط بعدش اون بر 10 تقسیم شده و با دستور int جزء صحیح اون که همون دهگان باشه برگردونده میشه
ولی چرا اینقدر برنامه رو پیچوندی؟
اینم کد همین برنامه ولی راحت تر:
کد:
m = Val(Mid(A, 1, 1))
s = Val(Mid(A, 2, 1))
n = Val(Mid(A, 3, 1))
MsgBox Val(m + s + n)
موفق باشی