các bạn giúp mình bài này với; xây dựng 1 hàm mới

[huu.tunnel]

với n cho trước tính giá trị của hàm số tại x=x0 cho trước
y=1/sin(x)+2/sin(x^2)+3/sin(x^3)+...+n/sin(x^n)
kiểm tra trường hợp phép chia kô thực hiện.

 

[ChanhTQ@]

Bạn kiểm xem cái ni theo đúng í chưa

Option Explicit
Function GPESum(Xx As Double, Num As Integer)
 Dim jJ As Integer, Temp As Double
 For jJ = 1 To Num
   Temp = Sin(Xx ^ jJ)
   If Temp <> 0 Then GPESum = GPESum + jJ / Temp
 Next jJ
End Function