I Visual Basic programmering verden , den " If ... Else " statement er en må -ha i nesten hvilket som helst dataprogram . Den " If ... Then ... Else " statement er en av de mest grunnleggende av alle kontrollflytpåstander . Den tester en tilstand - og hvis det er sant - det vil utføre de setningene som følger "Da ". Hvis påstanden er usann, så vil det utføre uttalelsene etter " Else "-klausul . "For ... Next " statement i Visual Basic vil gjenta en gruppe med uttalelser for et spesifisert antall ganger. Du trenger
Microsoft Visual Basic Express
Vis flere instruksjoner
en

Launch Microsoft Visual Basic Express . Klikk "New Project ... " på ruten til venstre på skjermen , og klikk " Visual Basic " under Installerte maler . Klikk på "Windows Forms Application " og klikk " OK " for å opprette et nytt prosjekt .
2

Dobbeltklikk på " Button" på Toolbox -ruten for å legge til en ny knapp kontroll. Dobbeltklikk på " Button1 " for å åpne Visual Basic Window, og skape et klikk hendelsen for den knappen . Skriv inn følgende inne i klikkhendelsen å opprette fire nye variabler :

Dim DayNum Som dayOfWeek = DateTime.Now.DayOfWeek

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

Dim dayCntr As Integer
3

Skriv inn følgende for å teste om i dag er onsdag ved hjelp av " If ... Then " statement :
p Hvis DayNum = DayOfWeek.Wednesday Deretter
p Hvis time = 14 Eller time = 18 Da

MessageBox.Show ( "I dag er det onsdag mellom to og 18:00 ")

End If
p Hvis dag er onsdag koden vil også teste om timen er mellom 2 og 18:00 .
4

Skriv inn følgende kode for å finne ut den dagen uke ved hjelp av en "For ... Next " statement og en " If ... Then ... Else " statement : en

Else

For dayCntr = 1 til 6
< p> Hvis DayNum = 1 Deretter

dateString = " mandag "

ElseIf DayNum = 2 Så

dateString = " tirsdag "

ElseIf DayNum = 2 deretter

dateString = " Torsdag "

ElseIf DayNum = 2 så

dateString = " fredag ​​"

ElseIf DayNum = 2 så
< p > dateString = " lørdag "

Else

dateString = " søndag "

End If
p Hvis dateString < > "" Then

dayCntr = 8

End If

Neste
p Det er ikke nødvendig å teste for onsdag siden det er testet i den første " If ... Else " statement.
5

Skriv inn følgende kode for å vise navnet på dagens dag og den nåværende tid gjennom en meldingsboks : en

dateString = "I dag er ikke onsdag , er i dag " & dateString

dateString = dateString & " . tid er " & DateTime.Now.TimeOfDay.ToString

MessageBox.Show ( dateString )

End If
6

Trykk " F5 " for å kjøre programmet . Klikk " Button1 " for å utføre koden .