Tùy chọn
module tính lũy thừa
- module tính lũy thừa
-
module tính lũy thừa
huychicharito > 19-05-12, 02:14 PM
Hôm nay cô cho mình 1 đề là tính x lũy thừa y (x^y) mà k làm như bt mà phải làm vs (for .. to) hoặc là vs do while hoặc do until. Buổi hôm đấy mình nghỉ
. Ai biết làm chỉ dùm hộ mình vs
-
RE: Hỏi về module tính lũy thừa
Noname > 20-05-12, 12:03 AM
Thì bạn vẫn để kết quả = x^y.
Đâu cần vòng lặp hay gì đâu.
Muốn làm vòng lặp thì phải hiểu x^y nghĩa là gì!
X^Y có phải = X*X.... y lần không?
Như vậy ta có thể trình bày
For i=1 to Y
ketqua=ketqua*X
Viết thành function thì nó thế này
Kiểm tra bằng cách tạo 1 nút nhấn,Mã:Function luythua(x, y)
Dim tich, i
tich = 1
For i = 1 To y
tich = tich * x
Next i
luythua = tich
End Function
trong sự kiện click của nó gọi
Mã:MsgBox luythua(2, 3)