Hallo, bin so ziemlich nen neuling was programmieren betrifft.
nun habe ich eine frage zu folgendem
und zwar würde ich gerne wissen, wie ich das ergebnis aus den funktionen nach oben unter den if befehl bringen kann um es dann mit der messagebox auszugeben...
hoffe ihr versteht mein problem und könnt mir dabei etwas weiterhelfen.
mfg
nun habe ich eine frage zu folgendem
Code:
Imports System.Windows.Forms Imports System.Math Module Module1 Sub Main() Dim eingabe As String Dim eingabezahl As Double Dim ergebniszahl As Double Dim ergebnis As String Console.Write("Bitte eine Zahl eingeben: ") Console.ReadLine() If eingabe <> 0 Then MessageBox.Show("Die Summe ist: " & ergebniszahl, "Ergebnis") MessageBox.Show("Die Fakultät ist: " & ergebniszahl, "Ergebnis") MessageBox.Show("Die Wurzel ist: " & ergebniszahl, "Ergebnis") End If Fehler() End Sub Private Sub Fehler() MessageBox.Show("Sie haben keine Zahl eingegeben", "Fehlermeldung") End Sub Function Summe(ByVal eingabezahl As Double) As Double Dim i As Integer For i = 0 To eingabezahl Next Summe += i i = ergebniszahl End Function Function Fakultaet(ByVal eingabezahl As Double) As Double Dim i As Integer For i = 1 To eingabezahl Next Fakultaet *= i End Function Function Wurzel(ByVal eingabezahl As Double) As Double Return Math.Sqrt(eingabezahl) End Function End Module
hoffe ihr versteht mein problem und könnt mir dabei etwas weiterhelfen.
mfg
Comment