Operdores :
And (E)
Or (Ou)
Not (Não)
Mod (Resto)
<> (Diferente)
Is Nothing
&
=
Variáveis :
Dim var As Integer
Dim v1,v2 As Integer
Dim v1,v2 As Integer, v3 as Double
Dim var as Integer = 1
Vetor / Matriz :
Dim Vetor(1) As String
Vetor(0) = "um"
Vetor(1) = "dois"
Estrutura de Decisão
If Nome = "Teste" Then
MessageBox.Show ("Certo!")
Else
MessageBox.Show ("Errado!")
End If
Select Case Nome
Case "Teste"
MessageBox.Show ("Certo!")
Case "Outra"
MessageBox.Show ("Errado!")
Case Else
MessageBox.Show ("Opção Inválida")
End Select
Estrutura de Repetição
Dim i As Integer
For i = 1 to 10
MessageBox.show (Cstr(i))
Next i
Dim i As Integer = 0
Do While i<5
MessageBox.Show(Cstr(i))
i += 1
Loop
Dim Num() = {1,2,3,4,8,10}
Dim i As Integer
For Each i In Num
MessageBox.Show(Cstr(i))
Next
Opções:
i++ Executa comando depois Incrementa
i-- Executa comando depois Decrementa
++i Incrementa depois executa o comando
--+ Decrementa depois executa o comando
Procedimento / Funçoes
Function Somar ( x As Integer, y As Integer) As Integer
Dim z As Integer
z = x + y
Return z
End Function
Sub Somar(x As Integer, y As Integer)
Dim z As Integer
z = x + y
End Sub
Tratamentos de Erro
Try
Comandos
Catch
Comandos/Mensagens/Erros
Catch
Etc..
Finally
Executa mesmo após o erro.
End Try
Nenhum comentário:
Postar um comentário