Erro de sintaxe

[Édion Alberto Torres 0]

Ola amigos, qual o problema com o meu codigo??Ele simplesmente me mostraria se o compa estivesse vazio ou nao!segue o codigo!Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim altura As Double Dim peso As Double Dim imc As Double If (altura = 0) Then MsgBox("O Campo altura está em branco") Else altura = Val(altura) End If If (peso = 0) Then MsgBox("O Campo peso está em branco") Else peso = Val(peso) End If End SubEnd Class

[Graymalkin 0]

Tem um sério problema de lógica aí.

 

Aqui você declarou 'altura' como double...

Dim altura As Double

... e aqui você verifica se altura é 0... mas, antes disso, onde foi *atribuído* o valor de 'altura'???

If (altura = 0) Then

Em algum ponto entre estas duas linhas você deveria atribuir o valor de 'altura'. Supondo que ele viesse de uma caixa de texto (chamada txtAltura) seria algo assim:

 

altura = val(txtAltura.Text)

Certo? ;)

 

Graymalkin