Составить программу получения из числа 1 числа 100 за наименьшее количество операций

msgbox(1*100) '1 вариант
msgbox(1+99) ' 2 вариант

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox(GetV(100))
    End Sub
 
    Function GetV(ByVal V As Integer, Optional ByVal S As String = "") As String
        If V = 1 Then
            Return StrReverse(S)
        Else
            GetV = IIf(V Mod 2 = 0, GetV(V / 2, S & StrReverse(V) & " = 2 * " & StrReverse(V / 2) & vbCrLf), GetV(V - 1, S & StrReverse(V) & " = 1 + " & StrReverse(V - 1) & vbCrLf))
        End If
    End Function

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox(GetV(1000))
    End Sub
 
    Function GetV(ByVal V As Integer, Optional ByVal S As String = "") As String
        If V = 1 Then
            Return StrReverse(S)
        Else
            If V Mod 2 = 0 Then
                GetV = GetV(V / 2, S & StrReverse(V) & " = 2 * " & StrReverse(V / 2) & vbCrLf)
            Else
                GetV = GetV(V - 1, S & StrReverse(V) & " = 1 + " & StrReverse(V - 1) & vbCrLf)
            End If
        End If
    End Function
End Class