Thema Datum  Von Nutzer Rating
Antwort
09.01.2013 19:28:03 Student_verzweifelt
NotSolved
Blau Bitte um Hilfe bei 3 Beispielen mit Arrays!
 10.01.2013 14:40:50 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
10.01.2013 14:40:50		 Views:
856		 Rating:
     
Antwort:
  Ja
Thema:
Bitte um Hilfe bei 3 Beispielen mit Arrays!

1+2. Ich lasse möglichst viel von deinem Ansatz bestehen. Ersetze

For i = 1 To 12
Monatsumsätze(i) = InputBox(T1)
Next
For Each ausgabe In Monatsumsätze
MsgBox (T2 & i & T3 & ausgabe)
Next
MsgBox (UBound(ausgabe))

 

durch

MaxUms=0:SummeUms=0
For i = 1 To 12
Monatsumsätze(i) = InputBox(T1)
if Monatsumsätze(i)>MaxUms then
MaxUms=Monatsumsätze(i)
MaxMonat=i
SummeUms=SummeUms + Monatsumsätze(i)
next i


msgbox "Max. Umsatz von " & cstr(MaxUms) & "im " & monthname(i)+vbcrlf+ "Durchschnittlicher Umsatz: "+cstr(SummeUms/12)

3.
Redim z(5)
randomize
for i=1 to 6000000
a=int(6*rnd)
z(a)=z(a)+1
next i
b=""
for i=0 to 5
b=b+cstr(i+1)+": "+str(z(i))+vbcrlf
next i
msgbox b

 

Gruß
Holger
 

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
09.01.2013 19:28:03 Student_verzweifelt
NotSolved
Blau Bitte um Hilfe bei 3 Beispielen mit Arrays!
 10.01.2013 14:40:50 Holger
NotSolved