Thema Datum  Von Nutzer Rating
Antwort
29.04.2020 12:07:37 Thomas
NotSolved
29.04.2020 12:10:55 Gast23750
NotSolved
29.04.2020 12:48:06 Gast12819
NotSolved
Blau Kreisumfang
 29.04.2020 13:54:59 Gast98024
NotSolved

Ansicht des Beitrags:
Von:
Gast98024		 Datum:
29.04.2020 13:54:59		 Views:
582		 Rating:
     
Antwort:
  Ja
Thema:
Kreisumfang

Hallo Thomas,

ub kreisumfang()
Do
    a = InputBox("Radius eingeben", "Kreisumfang berechnen")
    Select Case a
        Case Is < 0
            MsgBox "Keine Radien kleiner null!", vbExclamation
        Case 0
            Exit Sub
        Case Else
            MsgBox "Der Umfang beträgt " & 8 * a * Atn(1)
    End Select
Loop Until a = 0
End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
29.04.2020 12:07:37 Thomas
NotSolved
29.04.2020 12:10:55 Gast23750
NotSolved
29.04.2020 12:48:06 Gast12819
NotSolved
Blau Kreisumfang
 29.04.2020 13:54:59 Gast98024
NotSolved