I Visual Basic programmering verden, "hvis ... Else " erklæring er et must -have i næsten enhver edb-program. Den " If ... Then ... Else " erklæring er en af ​​de mest grundlæggende af alle kontrol flow udsagn. Det tester en betingelse - og hvis det er sandt - det vil udføre de erklæringer , der følger " Så ". Hvis erklæringen er falsk, så vil det udføre de erklæringer efter " Else "-klausul . "For ... Next " erklæring i Visual Basic vil gentage en gruppe af udsagn for en bestemt antal gange. Ting du skal
Microsoft Visual Basic Express
Vis Flere Instruktioner
1

Launch Microsoft Visual Basic Express . Klik på " Nyt projekt ... " på den venstre rude på din computerskærm , og klik på " Visual Basic " nedenfor Installerede skabeloner . Klik på "Windows Forms Application " og klik på "OK " for at oprette et nyt projekt.
2

Dobbeltklik på " Button " på Toolbox ruden for at tilføje en ny knap kontrol. Dobbeltklik på " Button1 " for at åbne Visual Basic vindue , og skabe et klik begivenhed for knappen. Skrive følgende inde klik begivenheden til at skabe 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 følgende for at teste om i dag, er onsdag ved hjælp af " If ... Then " erklæring : < br >

Hvis DayNum = DayOfWeek.Wednesday Så
p Hvis time = 14 Eller time = 18 Så

MessageBox.Show ( "I dag er onsdag mellem 2 og 6 PM" )

End If
p Hvis dag er onsdag den kode, vil også afprøve, om timen er mellem 2 og 6:00 .
4

Indtast følgende kode for at finde ud af den dag, ugen ved hjælp af en "For ... Next " erklæring og en " If ... Then ... Else " erklæring : Hej

Else

dayCntr = 1 til 6
< p> Hvis DayNum = 1 Så

dateString = "Monday "

EllersHvis DayNum = 2 Så

dateString = " Tuesday"

EllersHvis DayNum = 2 Så

dateString = " Thursday"

EllersHvis DayNum = 2 Så

dateString = "Friday "

EllersHvis DayNum = 2 Så
< p > dateString = "Saturday "

Else

dateString = "Sunday "

End If
p Hvis dateString < > "" Så

dayCntr = 8

End If

Næste
p Der er ingen grund til at teste for onsdag , da det er afprøvet i den første " If ... Else " erklæring .
5

Indtast følgende kode til at vise navnet på dagens dag og den aktuelle tid gennem en besked boks : Hej

dateString = "I dag er ikke onsdag i dag er" & dateString < br >

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

MessageBox.Show ( dateString )

End If
6

Tryk på " F5 " for at køre programmet. Klik på " Button1 " for at udføre koden .