Thema Datum  Von Nutzer Rating
Antwort
25.01.2018 15:39:34 Tony
NotSolved
25.01.2018 15:44:29 Gast39091
NotSolved
25.01.2018 15:48:35 Tony
NotSolved
Blau Schleifen
 25.01.2018 16:38:38 Gast66525
NotSolved
30.01.2018 09:18:19 Gast38023
NotSolved
30.01.2018 09:44:42 Gast1139
NotSolved

Ansicht des Beitrags:
Von:
Gast66525		 Datum:
25.01.2018 16:38:38		 Views:
811		 Rating:
     
Antwort:
  Ja
Thema:
Schleifen

Hallo,

yo ´, doch die Hausaufgaben was, seis drum, hier mal die Durchläufe, das andere probierst vielleicht mal selbst...

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
Option Explicit
 
Public Sub test()
Dim intI As Integer
Dim intSumme As Integer
Dim strText As String
 
' Schleife 1
intSumme = 0
For intI = 0 To 10
intSumme = intSumme + intI
Next
strText = "Schleife 1:  " & intI & "  Durchläufe" & vbCr
 
' Schleife 2
intSumme = 0
intI = 0
While intSumme < 55
intI = intI + 1
intSumme = intSumme + intI
Wend
strText = strText & "Schleife 2:  " & intI & "  Durchläufe" & vbCr
 
' Schleife 3
intSumme = 0
intI = 1
While intSumme < 55
intSumme = intSumme + intI
intI = intI + 1
Wend
strText = strText & "Schleife 3:  " & intI - 1 & "  Durchläufe" & vbCr
 
' Schleife 4
intSumme = 0
intI = 1
While intI < 10
intSumme = intSumme + intI
intI = intI + 1
Wend
strText = strText & "Schleife 4:  " & intI - 1 & "  Durchläufe" & vbCr
 
' Schleife 5
intSumme = 0
intI = 0
Do
intI = intI + 1
intSumme = intSumme + intI
Loop Until intSumme > 54
strText = strText & "Schleife 5:  " & intI & "  Durchläufe" & vbCr
 
' Schleife 6
intSumme = 0
intI = 0
Do
intI = intI + 1
intSumme = intSumme + intI
Loop Until intSumme < 55 '//<<< wg. Until-Prüfung nur ein Durchlauf...
strText = strText & "Schleife 6:  " & intI & "  Durchläufe" & vbCr
 
' Schleife 7 '// correct Vers.
intSumme = 0
intI = 0
Do
intI = intI + 3
intSumme = intSumme + intI
Loop Until intI >= 10
strText = strText & "Schleife 7:  " & intI \ 3 & "  Durchläufe"
 
Call MsgBox(strText)
 
' Schleife 7 '// fehlerhafte Orig.-Version
''intSumme = 0
''intI = 0
''Do
''intI = intI + 3
''intSumme = intSumme + intI
''Loop Until intI = 10  '//<<<<<< bei Prüfung auf Gleichheit wirds ein Dauer-Loop..
 
End Sub

Gruß,

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
25.01.2018 15:39:34 Tony
NotSolved
25.01.2018 15:44:29 Gast39091
NotSolved
25.01.2018 15:48:35 Tony
NotSolved
Blau Schleifen
 25.01.2018 16:38:38 Gast66525
NotSolved
30.01.2018 09:18:19 Gast38023
NotSolved
30.01.2018 09:44:42 Gast1139
NotSolved