А я сейчас сижу на информатике и постигаю Visual Basic
Вот, постаралась
here!Public Function Maximumbestimmung()
Dim weiter As String
Dim Zahl As Integer, zaehler As Integer
Dim Maximum As Integer
Maximum = InputBox("Bitte Zahl eingeben")
zaheler = 1
weiter = InputBox("Weitere Zahl? J/N")
While weiter = "J"
Zahl = InputBox("Bitte Zahl eingeben")
If Zahl > Maximum Then
Maximum = Zahl
End If
zaehler = zaehler + 1
weiter = InputBox("weitere Zahl?")
Wend
MsgBox ("Die größte von " & zaehler & " Zahlen ist" & Maximum)
End Function
Кто бы мне раньше сказал: что я программки писать буду - убила бы тапком.
Но - "жить захочешь - не так раскорячишься"