No mundo de programação Visual Basic , o " If ... Else" é um must -have em quase qualquer programa de computador. O " If ... Then ... Else" é um dos mais básica de todas as demonstrações de fluxo de controle. Ele testa uma condição - e se é verdade - que irá executar as instruções que se seguem "Então ". Se a afirmação é falsa , então ele irá executar as instruções seguintes a cláusula " Else" . O " For ... Next" em Visual Basic irá repetir um grupo de instruções para um determinado número de vezes . Coisas que você precisa
Microsoft Visual Basic Express
Show Mais instruções
1
Abra o Microsoft Visual Basic Express. Clique em " New Project ... " no painel esquerdo da tela do computador , e clique em " Visual Basic" abaixo Modelos instalados . Clique em " Windows Forms Application " e clique em "OK" para criar um novo projeto.
2
Clique duas vezes em "Button" no painel de caixa de ferramentas para adicionar um novo controle de botão. Clique duas vezes em "Button1 " para abrir a janela do Visual Basic e criar um evento de clique do botão. Digite o seguinte dentro do evento clique para criar quatro novas variáveis :
Dim Daynum Como DayOfWeek = DateTime.Now.DayOfWeek
Dim hora As Integer = DateTime.Now.Hour
Dim dateString as String Dim
dayCntr as Integer
3
Digite o seguinte para testar se hoje é quarta-feira com o " If ... Then " declaração: < br >
Se Daynum = DayOfWeek.Wednesday Então
Se hora = 14 Ou hora = 18 Então
MessageBox.Show (" Hoje é quarta-feira entre 2 e 6 PM" )
End If
Se hoje é quarta-feira o código também irá testar se a hora é entre 2 e 6 AM.
4
Digite o seguinte código para descobrir o dia da a semana usando um " For ... Next" e " If ... Then ... Else" :
Else
Para dayCntr = 1 To 6
Se Daynum = 1 Então
dateString = " Monday"
ElseIf Daynum = 2 Então
dateString = " terça-feira"
ElseIf Daynum = 2 Então
dateString = " quinta-feira"
ElseIf Daynum = 2 Então
dateString = " Friday"
ElseIf Daynum = 2 Então
dateString = " sábado "
Else
dateString = "Sunday "
End If
Se dateString < > "" Then
dayCntr = 8
End If
Próxima
não há necessidade de testar para quarta-feira , uma vez que é testado no primeiro " If ... Else" .
5
Digite o seguinte código para exibir o nome do dia de hoje eo tempo atual através de uma caixa de mensagem :
dateString = " hoje não é quarta-feira, hoje é" & dateString
dateString = dateString & " . hora atual é" & DateTime.Now.TimeOfDay.ToString
MessageBox.Show ( dateString )
End If
6
Pressione " F5" para executar o programa . Clique em " Button1 " para executar o código.
