Dim a As String
Dim b As String
Dim c As String
Dim e As String
 
 
Private Sub Command1_Click()
 
   Let c = 4
 
    Do While e < c
 
 
        e = a ^ b
        b = b + 0.1
 
        Text1.Text = b - 0.1
 
    Loop
 
 
 
End Sub
 
Private Sub Form_Load()
 
    Let a = 2
    Let b = 0
 
End Sub

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