Visual Basic - Fallo en programa

Life is soft - evento anual de software empresarial
   
Vista:

Fallo en programa

Publicado por Paco (1 intervención) el 09/03/2010 20:14:58
Buenas, estoy empezando a programar y quiero hacer un programa que haga las tablas de multiplicar del 1 al 9 y depués de cada tabla debe de decir si continúa con la siguente, no sé si me explico... lo he intentado hacer pero el programa no funciona por algún fallo...
Estoy programando en concreto en Basic, para enterarme un poco antes de meterme con Visual Basic, gracias, les pego el código a ver si ven el fallo:

m = 0
for n = 1 to 9
for c = 0 to 10
m = n * c
print n; "x"; c; "="; m
next
print
input "¿Quieres otra?(s/n): ", r$
if r$ = "s" or r$ = "S" then
next
else
end
end if
end

Saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de A.H.H

RE:Fallo en programa

Publicado por A.H.H (116 intervenciones) el 09/03/2010 22:37:38
Hola a ver si te sirve el siguiente ejemplo
en visual basic 6.0
ejemplo de:
la tabla de multiplicar del UNO: un boton (command1) y dentro este codigo

Private Sub Command1_Click()
'la tabla del uno'
Dim n
For n = 0 To 10
MsgBox "1 X " & n & " = " & 1 * n
Next
End Sub

PARA LAS SIGUIENTES TABLAS CAMBIAR LA FRASE DE CODIGO:
MsgBox "1 X " & n & " = " & 1 * n

POR:

LA DEL DOS--> MsgBox "2 X " & n & " = " & 2 * n
LA DEL TRES->MsgBox "3 X " & n & " = " & 3 * n
..........
..........
.........

salu2
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Fallo en programa

Publicado por Pedro Luis (878 intervenciones) el 10/03/2010 11:08:27
Por si te sirve en VB6 sería así

Private Sub Command1_Click()
Dim M As Integer, n As Integer, c As Integer, r As String
M = 0
For n = 1 To 9
For c = 0 To 10
M = n * c
Print n; "x"; c; "="; M
Next
Print
r = InputBox("¿Quieres otra?(s/n)")
If r <> "s" And r <> "S" Then End
Next
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar