Thema Datum  Von Nutzer Rating
Antwort
15.05.2020 09:47:25 Fabihol
NotSolved
15.05.2020 09:57:38 Gast32033
NotSolved
15.05.2020 10:02:24 Gast17882
NotSolved
15.05.2020 10:16:01 Gast28598
NotSolved
Rot Benotung
 15.05.2020 17:46:15 Gast4374
NotSolved

Ansicht des Beitrags:
Von:
Gast4374		 Datum:
15.05.2020 17:46:15		 Views:
685		 Rating:
     
Antwort:
  Ja
Thema:
Benotung

Das ganze Programm könnte zum Beispiel so ausschauen:

 

Dim noten
Dim anzahl
Dim wert


Sub notenauswertung()
ReDim noten(5)
anzahl = 1
wert = 0
For x = 1 To 5
noten(x) = 0
Next
While eingabe(anzahl) <> False
Wend
ausgabe
End Sub


Function eingabe(anz) As Boolean
ein = InputBox(anz & ". Note eingeben (0 = Ende): ")
Select Case ein
Case 0
anzahl = anzahl - 1
eingabe = False
Case 1 To 5
noten(ein) = noten(ein) + 1
anzahl = anzahl + 1
wert = wert + CInt(ein)
eingabe = True
Case Else
MsgBox "Ungültige Eingabe! Wird nicht berücksichtigt!"
eingabe = True
End Select
End Function


Function ausgabe()
notenschnitt = wert / anzahl
For x = 1 To 5
notenspiegel = notenspiegel & "Note " & x & " : " & Format(noten(x), "0") & " x" & Chr(13)
Next
MsgBox "Notendurchschnitt: " & Format(notenschnitt, "0.000") & Chr(13) & Chr(13) & notenspiegel
End Function




	 

    		
									

								

							

					
		   


                    
     
 

                        

                                

                                    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

                          		
                      

                      


15.05.2020 09:47:25
Fabihol



NotSolved




15.05.2020 09:57:38
Gast32033



NotSolved




15.05.2020 10:02:24
Gast17882



NotSolved




15.05.2020 10:16:01
Gast28598



NotSolved




Rot Benotung

15.05.2020 17:46:15
Gast4374



NotSolved