In de Visual Basic programmeertaal ter wereld maken , de " If ... Else " statement is een must -have in bijna elke computer programma . De " If ... Then ... Else " verklaring is een van de meest fundamentele van alle control flow statements . Het test een voorwaarde - en als het waar is - het zal de verklaringen die volgen uit te voeren "Dan . " Als de verklaring vals is, dan zal de instructies worden uitgevoerd naar aanleiding van de " Else " -clausule . De "For ... Next " verklaring in Visual Basic zal een groep van uitspraken te herhalen voor een opgegeven aantal keren . Wat je nodig hebt
Microsoft Visual Basic Express
Toon Meer Aanwijzingen
1 Lancering Microsoft Visual Basic Express . Klik op " New Project ... " aan de linkerkant van uw scherm en klik op " Visual Basic " hieronder Installed sjablonen . Klik op " Windows Forms Application " en klik op "OK " om een nieuw project aan te maken .
Dubbelklik op " Button " 2 op de Toolbox deelvenster naar een nieuwe knop controle toe te voegen . Dubbelklik op " Button1 " om de Visual Basic venster te openen , en maak een click event voor de knop . Typ het volgende in de gebeurtenis click om vier nieuwe variabelen maken: Dim DayNum
Zoals DayOfWeek = DateTime.Now.DayOfWeek Dim uur
As Integer = DateTime.Now.Hour
Dim dateString als Koord Dim dayCntr
als Geheel
Type 3 de volgende om te testen of het vandaag woensdag is het gebruik van de " If ... Then " statement : < br > Als DayNum = DayOfWeek.Wednesday dan
Indien uur = 14 Or uur = 18 dan MessageBox.Show
( " Vandaag is het woensdag tussen 2 en 6:00 " ) op Twitter End If
Als het vandaag woensdag is de code ook testen of het uur tussen 2 en 6 uur.
4 Typ de volgende code om uit te vinden de dag van de week met een " For ... Next " statement en een " If ... Then ... Else " statement :
Else
dayCntr = 1 To 6
Als DayNum = 1 dan dateString
= " maandag "
ElseIf DayNum = 2 dan dateString
= " dinsdag " ElseIf DayNum
= 2 dan dateString
= " donderdag "
ElseIf DayNum = " vrijdag "
ElseIf DayNum = 2 dan
dateString
> dateString = " zaterdag " Else dateString
= " zondag " End
Als
Als dateString < > " " dan
dayCntr = End 8
Als Volgende
Er is geen noodzaak om te testen op woensdag omdat het wordt getest in de eerste " If ... Else " statement .
5 Typ de volgende code om de naam van de huidige dag en de huidige tijd door middel van een bericht wilt weergeven : dateString
= " vandaag is niet woensdag , vandaag is " & dateString < > dateString = dateString & " . huidige tijd is " & DateTime.Now.TimeOfDay.ToString
MessageBox.Show ( dateString ) Eind
Als
br 6 Druk op " F5 " om het programma uit te voeren . Klik op " Button1 " om de code uit te voeren .
|
