Dim a As String
Dim b As String
Dim c As String
Dim d As String
Dim e As String
 
 
 
Private Sub Command1_Click()
 
Let c = 4
let a = 2
 
    Do While x < c
 
       'wie oben angegeben ist x = a^b
 
    b = b + 0.0001
 
    Text1.Text = b - 0.0001
 
    Loop
 
 
 
End Sub

Blumen sind die sch?nste Sprache der Welt!
Visual Basic ist die aller sch?nste