Nwlapcug.com


Come creare un programma di Visual Basic utilizzando il se altro & per ciclo

Come creare un programma di Visual Basic utilizzando il se altro & per ciclo


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 Integer3

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 If6

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