Перевести програмный код из Excel в Visual Basic - VB

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

нужно перевести два программных кода из экселя в вб! 1)

Private Sub CommandButton1_Click()
Dim n As Integer, x As Double, lnX As Double
n = Range("n")
x = Range("x")
lnX = fSum(x, n)
Range("lnX") = lnX
End Sub
 
'Код функции
Public Function fSum(x, n)
Dim lnX As Double
lnX = 0
For i = 1 To n
 lnX = lnX + (x - 1) ^ (i) / (i * (x) ^ (i))
Next
fSum = lnX
End Function

Sub sMain()
Dim U() As Double, k As Integer
k = Range("k")
ReDim U(1 To k)
sZVRnd U
sOutVek U, Range("c2")
sMax U
sMin U
End Sub
 
Sub sZVRnd(U)
For i = 1 To UBound(U)
 U(i) = Int(Rnd * 100) - 50
Next
End Sub
 
Sub sOutVek(U, R As Range)
For i = 1 To UBound(U)
 R.Cells(i, 1).Value = U(i)
Next
End Sub
 
Sub sMax(U)
mx = -1E+307
For i = 1 To UBound(U)
 If U(i) > mx Then mx = U(i): t = i
Next
Range("max") = mx
Range("t") = t
End Sub
 
Sub sMin(U)
nx = 1E+307
For i = 1 To UBound(U)
 If U(i) < nx Then nx = U(i): p = i
Next
Range("min") = nx
Range("p") = p

Решение задачи: «Перевести програмный код из Excel в Visual Basic»

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

                            Private Sub Command1_Click()
Dim n As Integer, x As Double, lnX As Double
n = Val(InputBox("n", , 4))
x = Val(InputBox("x", , 5))
lnX = fSum(x, n)
MsgBox "lnX = " & lnX
End Sub
 
'Код функции
Public Function fSum(x, n)
Dim lnX As Double
lnX = 0
For i = 1 To n
lnX = lnX + (x - 1) ^ (i) / (i * (x) ^ (i))
Next
fSum = lnX
End Function
                        