PROGRAMACAO ESTRUTURADA NAO FUNCIONA
esqueça tudo o q vc sabe sobre estrutura ^^"
dois problemas em um unico codigo
1) atribuição de valores à  variaveis q não foram criadas ainda.
2) se a = b = c então a <> c, como?
alguem pode me dar uma explicação sólida...
Option Explicit
Private Sub Form_Load()
Dim a As Long
a = 0
If a = 0 Then
a = 7
Else
Dim b As Long
Dim c As Long
End If
b = 0
c = 0
b = c = a
MsgBox "a = " & a
MsgBox "b = " & b
MsgBox "c = " & c
Unload Me
End Sub
dois problemas em um unico codigo
1) atribuição de valores à  variaveis q não foram criadas ainda.
2) se a = b = c então a <> c, como?
alguem pode me dar uma explicação sólida...
Option Explicit
Private Sub Form_Load()
Dim a As Long
a = 0
If a = 0 Then
a = 7
Else
Dim b As Long
Dim c As Long
End If
b = 0
c = 0
b = c = a
MsgBox "a = " & a
MsgBox "b = " & b
MsgBox "c = " & c
Unload Me
End Sub
Quando se faz
a = b = c o vb faz o seguinte
a = (b = c)
que seguinifica
b é igual a c então a é True senao é false
entendeu
a = b = c o vb faz o seguinte
a = (b = c)
que seguinifica
b é igual a c então a é True senao é false
entendeu
isso sim.. valores boleanos..
mas o problema maior eh a declaração
sempre declara-se no inicio.. ou qd vai se usar.. mas nunca depois...
o vb no caso.. entende por todos os lados
mas o problema maior eh a declaração
sempre declara-se no inicio.. ou qd vai se usar.. mas nunca depois...
o vb no caso.. entende por todos os lados
Antes de executar o VB verifica todas as variaveis e tenta localizar dentro do escopo um Dim da variavel se não acha tenta achar um Dim publico.
Private Sub Command1_Click()
Dim a As Boolean
a = False
If a Then
Dim b As Byte
End If
'B sempre será byte pois o VB procura o primeiro dim que encontrar
'indepedente da condição IF for false
MsgBox TypeName(b)
End Sub
Tópico encerrado , respostas não são mais permitidas