| 1234567891011121314151617181920 |
- Option Explicit
- Dim Radius, Umfang, Flaeche
- Const Pi = 3.14159
- Radius = InputBox("Bitte Raduis eingeben.")
- If IsNumeric(Radius) Then
- Else
- MsgBox "Bitte nur aen eingeben.", vbcritical, "Fehler"
- End If
- If Radius > 0 Then
- Else
- MsgBox "Bitte nur positive aen eingeben.", vbcritical, "Fehler"
- End If
- Umfang = 2 * Pi * Radius
- Flaeche = Pi * Radius * Radius
- MsgBox "Umfang:" & Umfang & vbCrlf & "Fläche:" & Flaeche, vbInformation, "Ergebnis"
|
