ANGEL
01 de Febrero del 2004

soy nuevo en visual basic y estoy practicando de un libro que compre de visual la cosa es que me he encontrado con 2 problemas y no se como resolverlos si alguien puede facilitarme el codigo para estos problemas les agradeceria mucho y si pueden me lo pueden mandar a mi correo aqui el enunciado :

1.- un programa que imprima si un numero dado por teclado es entero o decimal.
2.- un programa que de como resultado la suma y la media de un conjunto de numeros introducidos por teclado.La entrada finalizara al teclear el numero 9999

kfkldsafj´lahg
01 de Febrero del 2004

Bueno no se como eres tan poco concreto.Para el primero
en el evento click de un boton

dim sCadena as String
sCadena = text1.text
if Instr(sCadena,",") then \'\' este if comprueba si aparece , \'en el numero introducido
msgbox "Numero entero"
else
msgbox "Numero decimal"
endif

Ahora para el segundo
dim nContador as integer,nSuma as integer,nMedia as integer
dim sCadena as String
while (sCadena <> "9999")
nContador = nContador + 1
nSuma = nSuma + Int(sCadena)
wend
if nContador > 0 then
nMedia = nSuma / nContador
msgbox "La suma es " & Str(nSuma)
msgbox "La media es " & Str(nMedia)
else
msgbox "No ha introducido ningun numero valido
endif