Nel mondo della programmazione Visual Basic, il "se... Else "è un must-have in quasi qualsiasi programma per computer. Il "se... Allora... Else "è uno dei più elementari di tutte le istruzioni di controllo del flusso. Verifica una condizione..--e se è vero-- eseguirà le istruzioni che seguono "Poi". Se l'affermazione è falsa, quindi eseguirà le istruzioni che seguono la clausola "Else". Il "per... Next"istruzione in Visual Basic si ripete un gruppo di istruzioni per un numero specificato di volte.
Istruzioni
1
Avviare Microsoft Visual Basic Express. Fare clic su "Nuovo progetto..." nel riquadro sinistro dello schermo del computer e fare clic su "Visual Basic" sotto modelli installati. Fare clic su "Windows Forms Application" e fare clic su "OK" per creare un nuovo progetto.
2
Fare doppio clic sul "Pulsante" nel riquadro della casella degli strumenti per aggiungere un nuovo controllo button. Fare doppio clic su "Button1" per aprire la finestra di Visual Basic e creare un evento click per il pulsante. Digitare il comando seguente all'interno dell'evento click per creare quattro nuove variabili:
Dim DayNum As DayOfWeek = DateTime.Now.DayOfWeek
Dim hour As Integer = DateTime.Now.Hour
Dim dateString As String
Dim dayCntr As Integer
3
Digitare il comando seguente per verificare se oggi sono mercoledì, utilizzando il "se... Quindi"istruzione:
If DayNum = DayOfWeek.Wednesday Then
If hour = 14 Or hour = 18 Then
MessageBox.Show("Today is Wednesday between 2 and 6 P.M.")
End If
Se oggi è mercoledì il codice metterà alla prova anche se l'ora è compreso tra 2 e 18.
4
Digitare il seguente codice per trovare il giorno della settimana utilizzando una "per... Istruzione successiva"e un"se... Allora... Istruzione else":
Else
For dayCntr = 1 To 6
If DayNum = 1 Then
dateString = "Monday"
ElseIf DayNum = 2 Then
dateString = "Tuesday"
ElseIf DayNum = 2 Then
dateString = "Thursday"
ElseIf DayNum = 2 Then
dateString = "Friday"
ElseIf DayNum = 2 Then
dateString = "Saturday"
Else
dateString = "Sunday"
End If
If dateString <> "" Then
dayCntr = 8
End If
Next
C'è bisogno di testare per mercoledì poiché viene testato il primo "se... Istruzione else".
5
Digitare il seguente codice per visualizzare il nome del giorno odierno e l'ora corrente attraverso una finestra di messaggio:
dateString = "Today is not Wednesday, today is " & dateString
dateString = dateString & ". Current time is " & DateTime.Now.TimeOfDay.ToString
MessageBox.Show(dateString)
End If
6
Premere "F5" per eseguire il programma. Fare clic su "Button1" per eseguire il codice.