Вставить в задачу подпрограмму, делающую возведение в степень - VB

Формулировка задачи:

Вот есть программа, считающая функцию:

Private Sub CommandButton1_Click()
 Dim A As Integer, T As Integer, N As Integer, M As Integer, C As Integer, i As Integer, F As Double
 A = Val(TextBox1)
 Do
  C = Val(TextBox2)
 Loop Until C <> 0
 Do
  T = Val(TextBox3)
 Loop Until T > 0
 Do
  M = Val(TextBox4)
 Loop Until M > 0
 C = Exp(M * Log(C))  ' C в степени M
 N = Val(TextBox5)
 ReDim x(T) As Double, y(M) As Double
 F = 0
 For i = 1 To T
  x(i) = Fix(Rnd*10)
  F = F + Exp(N * Log(x(i) + A))
 Next i
 For i = 1 To M
  y(i) = Fix(Rnd*10)
  F = F + y(i) / C
 Next i
 MsgBox "F= " & F, , "Вычисленное значение"
End Sub

Нужно переделать задачу так, чтобы возведение чисел в степень происходило при помощи подпрограмм, например, "Exp(N * Log(x(i) + A))" и "C = Exp(M * Log(C))"

Решение задачи: «Вставить в задачу подпрограмму, делающую возведение в степень»

textual
                            Листинг программы 
                        

                            Private Sub CommandButton1_Click()
 Dim A As Integer, T As Integer, N As Integer
 Dim M As Integer, C As Integer, i As Integer, F As Double
 A = Val(TextBox1)
 Do
  C = Val(TextBox2)
 Loop Until C <> 0
 Do
  T = Val(TextBox3)
 Loop Until T > 0
 Do
  M = Val(TextBox4)
 Loop Until M > 0
 C = C_в_степени(C, M) ' C в степени M
 N = Val(TextBox5)
 ReDim x(T) As Double, y(M) As Double
 F = 0
 For i = 1 To T
  x(i) = Fix(Rnd * 10)
  F = FPlusExp(F, N, A, x(i))
 Next i
 For i = 1 To M
  y(i) = Fix(Rnd * 10)
  F = F + y(i) / C
 Next i
 MsgBox "F= " & F, , "Вычисленное значение"
End Sub
Function C_в_степени(ByVal C As Integer, ByVal M As Integer) As Integer
    C_в_степени = Exp(M * Log(C))  ' C в степени M
End Function
Function FPlusExp(F As Double, N As Integer, A As Integer, x As Double) As Double
     FPlusExp = F + Exp(N * Log(x + A))
End Function
                        