In der Visual Basic-Programmierung Welt, das " If ... Else" -Anweisung ist ein must-have in fast jedem Computer -Programm. Die " If ... Then ... Else " -Anweisung ist eine der grundlegendsten aller Ablaufsteuerung Aussagen . Er testet eine Bedingung - und wenn es wahr ist - es wird die Aussagen , die folgen ausführen "Dann . " Wenn die Aussage falsch ist, dann wird es die Aussagen nach dem "Else "-Klausel auszuführen. Die " For ... Next "-Anweisung in Visual Basic wird eine Gruppe von Anweisungen für eine bestimmte Anzahl von Malen wiederholen . Things You
Microsoft Visual Basic Express
brauchen anzeigen Weitere Anweisungen
1
Starten Sie Microsoft Visual Basic Express . Klicken Sie auf " Neues Projekt ... " auf der linken Seite Ihres Bildschirms , und klicken Sie auf " Visual Basic " unter Installierte Vorlagen . Klicken Sie auf " Windows Forms Application" und klicken Sie auf " OK", um ein neues Projekt zu erstellen.
2
Doppelklicken Sie auf "Button" auf der Toolbox Bereich , um eine neue Button-Steuerelement hinzuzufügen. Doppelklicken Sie auf " Button1 ", um den Visual Basic- Fenster, und erstellen Sie eine Click-Ereignis für die Schaltfläche. Geben Sie den folgenden in das Click-Ereignis zu vier neue Variablen erstellen :
Dim DayNum Wie DayOfWeek = DateTime.Now.DayOfWeek
Dim Stunden As Integer = DateTime.Now.Hour
< p > Dim dateString As String Dim
dayCntr As Integer
3
Geben Sie den folgenden zu testen, ob heute Mittwoch ist mit dem " wenn ... dann "-Anweisung :
Wenn DayNum = DayOfWeek.Wednesday Dann
Stunde = 14 oder 18 = Stunde Dann
MessageBox.Show (" Heute ist Mittwoch zwischen 2 und 6 Uhr" )
End If
Wenn heute Mittwoch ist der Code auch testen, ob die Stunde zwischen 2 und 6 Uhr.
4
Geben Sie den folgenden Code , um herauszufinden, den Tag der die Woche mit einem " For ... Next "-Anweisung und eine " If ... Then ... Else "-Anweisung :
Else
dayCntr = 1 To 6
< p> Wenn DayNum = 1 Then
dateString = " Monday"
ElseIf DayNum = 2 Dann
dateString = " Dienstag "
ElseIf DayNum = 2 Dann
dateString = "Donnerstag "
ElseIf DayNum = 2 Dann
dateString = "Freitag"
ElseIf DayNum = 2 Dann
< p > dateString = " Saturday"
Else
dateString = "Sunday"
End If
Wenn dateString < > "" Then
dayCntr = 8
End If Next
es gibt keine Notwendigkeit, für Montag testen , da es in der ersten " If ... Else "-Anweisung getestet hat .
5
Geben Sie den folgenden Code, um die Namen der heutigen Tag und die aktuelle Zeit durch eine Message-Box angezeigt :
dateString = " Heute ist nicht Mittwoch, heute ist " & dateString
dateString = dateString & " . Aktuelle Zeit ist" & DateTime.Now.TimeOfDay.ToString
MessageBox.Show ( dateString )
End If
6
Presse "F5 ", um das Programm auszuführen. Klicken Sie auf " Button1 ", um den Code auszuführen.
