Hallo ihr!
Ich muss den Flächeninhalt eines Kreises mittels VBA berechnen. Ich habe bereits etwas programmiert, aber ich hab da irgendwo einen Denkfehler. Kann mir vl jmd sagen, was mein Fehler ist:
'Berechnen Sie den Flaecheninhalt eines Kreises.
'PI soll als Konstante definiert werden (3.14159).
'Der Radius soll vom Programm abgefragt werden.
'Geben Sie das Ergebnis mittels einer Msgbox aus!
Option Explicit
Sub FlaecheKreis()
Const PI = 3.14159
Dim radius As Double
Dim flaeche As Double
radius = CInt(InputBox("Bitte geben sie den Radius des Kreises ein"))
flaeche = (radius * radius) * PI
MsgBox "Die Kreisflaeche betraegt " & flaeche, vbExclamation
End Sub
|