Nel mondo della programmazione di Visual Basic , la " If ... Else" affermazione è un must-have in quasi tutti i programmi del computer . L'affermazione " If ... Then ... Else" è uno dei più fondamentali di tutte le istruzioni di controllo del flusso . Si prova una condizione - e se è vero - che eseguirà le istruzioni che seguono "Allora . " Se l' affermazione è falsa , allora sarà eseguire le istruzioni che seguono la clausola di " Else " . Il " For ... Next " dichiarazione in Visual Basic ripete un gruppo di istruzioni per un numero specificato di volte . Cose che ti serviranno
Microsoft Visual Basic Express
Mostra più istruzioni
1

lancio di Microsoft Visual Basic Express. Fare clic su "Nuovo progetto ... " nel riquadro sinistro dello schermo del computer , e fare clic su " Visual Basic " Modelli di sotto installati . Fare clic su " Applicazione Windows Form " e fare clic su "OK" per creare un nuovo progetto .

2 Fare doppio clic su "Pulsante" nel riquadro Casella degli strumenti per aggiungere un nuovo controllo pulsante . Fare doppio clic su " Button1 " per aprire la finestra di Visual Basic e creare un evento click del pulsante . Digitare il seguente all'interno del evento click di creare quattro nuove variabili :

Dim DayNum Come DayOfWeek = DateTime.Now.DayOfWeek

Dim ora As Integer = DateTime.Now.Hour
< p > Dim dateString As String Dim

dayCntr As Integer
3

Digitare il seguente comando per verificare se oggi è Mercoledì utilizzando il " se ... allora " dichiarazione: < br >

Se DayNum = DayOfWeek.Wednesday Poi

Se ora = 14 Or ora = 18 Poi

MessageBox.Show (" Oggi è Mercoledì tra 2 e 6:00 " ) per

End If

Se oggi è Mercoledì il codice sarà anche verificare se l'ora è compresa tra 2 e 6:00 .
4

Digitare il seguente codice per sapere il giorno della la settimana con un " For ... Next" dichiarazione e un " If ... Then ... Else" dichiarazione:

Else

dayCntr = 1 To 6
< p > Se DayNum = 1 Then

dateString = " Lunedi"

ElseIf DayNum = 2 Quindi

dateString = " Martedì"

ElseIf DayNum = 2 poi

dateString = " Giovedi"

ElseIf DayNum = 2 Quindi

dateString = " Venerdì"

ElseIf DayNum = 2 Quindi
< p > dateString = "Sabato "

Else

dateString = "Domenica "

End If

dateString < > "" Then

dayCntr = 8

End If

Avanti

non c'è bisogno di testare per Mercoledì poiché è testato nella prima istruzione " If ... Else" .
5

Digitare il seguente codice per visualizzare il nome del giorno di oggi e l'ora corrente attraverso una finestra di messaggio :

dateString = " oggi non è Mercoledì , oggi è" & dateString

dateString = dateString & " . ora di oggi è " & DateTime.Now.TimeOfDay.ToString

MessageBox.Show ( dateString ) per

End If
6

Premere " F5 " per eseguire il programma . Fare clic su " Button1 " per eseguire il codice .