|
| |

VB.NET - Ein- und Umsteiger| Re: Jahreszahlen in Array einlesen, an Funktion umleiten, berechnen und ausgeben | |  | | Autor: Sloorg | | Datum: 22.06.14 20:31 |
| OK, hab jetzt etwas weggelassen, jetzt is nur noch ein Fehler - bei If - da heioßt's Ausdruck erwartet...
Imports System.Console
Module Module1
Sub Main()
Dim jahre(4) As Integer
Dim i As Integer
For i = 0 To 4
Write("Bitte geben Sie die {0}. Jahreszahl ein: ", i + 1)
Integer.TryParse(ReadLine, jahre(i))
Next
WriteLine()
WriteLine("Es wurden die Jahre {0} eingegeben.")
For i = 0 To 4
WriteLine("Das Jahr {0} ist {1}ein Schaltjahr", jahre(i), If( _
IstSchaltjahr(jahre(i)), "", "k"))
Next
Warten()
End Sub
Private Function IstSchaltjahr(ByVal jahr As Integer) As Boolean
If jahr < 0 Then Return False
If jahr Mod 4 = 0 Then
If jahr Mod 100 = 0 Then
Return jahr Mod 400 = 0
Else
Return True
End If
Else
Return False
End If
End Function
Sub Warten()
Write("Bitte EINGABE drücken: ")
ReadLine()
End Sub
End Module
Gruß, Sloorg. Ö.Ö |  |
 Jahreszahlen in Array einlesen, an Funktion umleiten, berech... | 2.697 | Sloorg | 20.06.14 18:32 |   Re: Jahreszahlen in Array einlesen, an Funktion umleiten, be... | 2.023 | Kuno60 | 21.06.14 01:21 |    Re: Jahreszahlen in Array einlesen, an Funktion umleiten, be... | 1.798 | Sloorg | 21.06.14 04:53 |     Re: Jahreszahlen in Array einlesen, an Funktion umleiten, be... | 1.799 | Kuno60 | 21.06.14 12:19 |      Re: Jahreszahlen in Array einlesen, an Funktion umleiten, be... | 1.811 | Sloorg | 22.06.14 01:44 |       Re: Jahreszahlen in Array einlesen, an Funktion umleiten, be... | 1.755 | Kuno60 | 22.06.14 11:56 |        Re: Jahreszahlen in Array einlesen, an Funktion umleiten, be... | 1.773 | Sloorg | 22.06.14 20:24 |        Re: Jahreszahlen in Array einlesen, an Funktion umleiten, be... | 1.764 | Sloorg | 22.06.14 20:31 |         Re: Jahreszahlen in Array einlesen, an Funktion umleiten, be... | 1.917 | Kuno60 | 24.06.14 16:08 |          Re: Jahreszahlen in Array einlesen, an Funktion umleiten, be... | 1.866 | GPM | 24.06.14 17:48 |           Re: Jahreszahlen in Array einlesen, an Funktion umleiten, be... | 1.832 | Kuno60 | 24.06.14 18:28 |            Re: Jahreszahlen in Array einlesen, an Funktion umleiten, be... | 1.751 | Sloorg | 26.06.14 06:45 |           Re: Jahreszahlen in Array einlesen, an Funktion umleiten, be... | 1.905 | Sloorg | 26.06.14 06:43 |          Re: Jahreszahlen in Array einlesen, an Funktion umleiten, be... | 1.736 | Sloorg | 26.06.14 06:41 |   Re: Jahreszahlen in Array einlesen, an Funktion umleiten, be... | 1.864 | sv00010 | 21.06.14 11:48 |    Re: Jahreszahlen in Array einlesen, an Funktion umleiten, be... | 1.912 | DaveS | 21.06.14 12:16 |    Re: Jahreszahlen in Array einlesen, an Funktion umleiten, be... | 1.852 | Sloorg | 22.06.14 01:46 |     Übung für SLOORG | 1.813 | Manfred X | 23.06.14 08:37 |      Re: Übung für SLOORG | 1.725 | Sloorg | 26.06.14 06:48 |       Hilfestellung | 1.766 | Manfred X | 26.06.14 07:49 |        Re: Hilfestellung | 2.127 | Sloorg | 02.07.14 00:00 |
 | Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
  |
|
vb@rchiv CD Vol.6 vb@rchiv Vol.6
Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
Online-Update-Funktion Entwickler-Vollversionen u.v.m.Jetzt zugreifen Tipp des Monats sevAniGif (VB/VBA) 
Anzeigen von animierten GIF-Dateien
Ab sofort lassen sich auch unter VB6 und VBA (Access ab Version 2000) animierte GIF-Grafiken anzeigen und abspielen, die entweder lokal auf dem System oder auf einem Webserver gespeichert sind. Weitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|