Ba galera
bom dia
Alguem pode me ajudar no codigo abaixo tche, quero que ele só deixe continuar o processo apos o usuario clicar no botão ok se ele realmente escolher uma das opções, tentei abrir um Do While e fechar com o loop mais na execução tche ele diz que existe um
loop sem um Do.
Ba galera e tb eu gostaria de se é possivel fixar o valor que deve ser colocado por exemplo no menu tem 3 opções, caso o usuario digite qualquer outro valor que seja diferente de 1, 2 ou 3 o codigo reporte que ele escolheu uma opção que não é valida e volte
para o questionamento das cores.
obrigado.
codigo tche.
On Error Resume Next
strMenu="Responda Quiz." & VbCrLf &_
" "& VbCrLf &_
"1 - Azul" & VbCrLf &_
"2 - Vermelho" & VbCrLf &_
"3 - Amarelo" & VbCrLf &_
" "
rc=InputBox(strMenu,"Qual e a sua Cor ?")
If IsNumeric(rc) Then
Select Case rc
Case 1
WScript.Echo "Obrigado por participar"
'******************************************************************************************************************************
Case 2
WScript.Echo "Obrigado por participar"
'******************************************************************************************************************************
Case 3
WScript.Echo "Obrigado por participar"
'******************************************************************************************************************************
Case Else
End Select
Else
End If
