لطفا هر سوال را در تاپیک جداگانه ای مطرح کنید و در عنوان هر تاپیک موضوع سوال و زبان آنرا بنویسید.
کد:
Private Sub Form_Load()
Dim I As Long, M As Long, N As Long, P As Long
N = Val(InputBox("Please enter N :"))
M = Val(InputBox("Please enter M :"))
P = 1
For I = 1 To M
P = P * N
Next
MsgBox "N ^ M = " & CStr(P)
End Sub
لطفا هر سوال را در تاپیک جداگانه ای مطرح کنید و در عنوان هر تاپیک موضوع سوال و زبان آنرا بنویسید.
کد:
private sub form_load()
dim i as long, m as long, n as long, p as long
n = val(inputbox("please enter n :"))
m = val(inputbox("please enter m :"))
p = 1
for i = 1 to m
p = p * n
next
msgbox "n ^ m = " & cstr(p)
end sub
ساد ترین راه برای محاسبات اینچنینی (محاسباتی که داده ی مبدا و یا مقصد در غالت دیتا تایپ های زبان موجود نیست) استفاده از آرایه هاست . یعنی اینکه شما اعدادتون رو رقم به رقم توی خونه های آرایه قرار بدین و سپس محاسباتتون رو روی اونا انجام بدین . (کلیت کار همچین چیزیه که اگه ندونین کارتون با چند رقمه و بخاین فضای اشافه نگیرین مجبور میشین از لینکد-لیست و ... استفاده کنین)
که اگه بخواین شسته رفته تر کار کنین بهتره ابسترکت داشته باشین به عنوان یه نوع جدید که به اصطلاح اپراتورهای اون ابسترکت رو هم مختص همون بنویسین (انکپسولیشن داشته باشین)
