I Visual Basic-programmering världen, " Om ... Else " uttalande är ett måste i nästan alla datorprogram . Den " If ... Then ... Else " uttalande är en av de mest grundläggande av alla uttalanden styrflödet . Det testar ett villkor - och om det är sant - det kommer att utföra de uppgifter som följer " Sen . " Om påståendet är falskt , så kommer det att exekvera de uttalanden efter " Else " klausul . Den " For ... Next " uttalande i Visual Basic kommer att upprepa en grupp av rapporter för ett visst antal gånger . Saker du behöver
Microsoft Visual Basic Express
Visa fler instruktioner
1
Launch Microsoft Visual Basic Express . Klicka på " Nytt projekt ... " På den vänstra rutan på din datorskärm , och klicka på " Visual Basic " nedan Installerade mallar . Klicka på " Windows Forms Application " och klicka på " OK " för att skapa ett nytt projekt .
2
Dubbelklicka på " knappen " på Toolbox rutan för att lägga till en ny knapp kontroll . Dubbelklicka på " Button1 " för att öppna Visual Basic Window , och skapa en click-händelse för knappen . Skriv följande inuti klickhändelsen att skapa fyra nya variabler :
Dim DayNum Som DAYOFWEEK = DateTime.Now.DayOfWeek
Dim timme As Integer = DateTime.Now.Hour
Dim dateString As String
Dim dayCntr As Integer
3
Skriv följande för att testa om idag är onsdag med " If ... Then " uttalande :
Om DayNum = DayOfWeek.Wednesday Sedan
p Om timme = 14 eller timme = 18 Sedan
MessageBox.Show ( " Idag är det onsdag mellan 2 och 6 PM" ) katalog
End If
p Om idag är onsdag koden också kommer att testa om en timme är mellan 2 och 6 AM.
4
Skriv in följande kod för att ta reda på den dag veckan med en " For ... Next " uttalande och en " If ... Then ... Else " uttalande :
Else
för dayCntr = 1 till 6
Om DayNum = 1 Då
dateString = " Måndag "
ElseIf DayNum = 2 Därefter
dateString = " tisdag "
ElseIf DayNum = 2 sedan
dateString = " Torsdag "
ElseIf DayNum = 2 Därefter
dateString = " fredag "
ElseIf DayNum = 2 då
dateString = " lördag "
Else
dateString = " söndag "
End If
p Om dateString < > " " Då
dayCntr = 8
End If
Nästa
p Det finns inget behov av att testa för onsdag eftersom det är testat i den första " Om ... Else " uttalande .
5
Skriv in följande kod för att visa namnet på dagens aktuell tid genom en meddelanderuta :
dateString = " idag är inte onsdag , är idag " & dateString
dateString = dateString & " . Aktuell tid är " & DateTime.Now.TimeOfDay.ToString
MessageBox.Show ( dateString ) katalog
End If
6
Tryck " F5 " för att köra programmet . Klicka " Button1 " för att köra koden .
