Pages

viernes, 25 de enero de 2013

Determinar los múltiplos menores a 100 de un número menor a 10 Codigo Fuente en Visual Basic

Problema
Hacer un programa o algoritmo, que permita ingresar cualquier número mayor que cero y menor que diez, y luego el algoritmo deberá calcular los múltiplos menores que cien del numero ingresado.

Codigo Fuente en Visual Basic
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim N As Integer
        Dim mul As Integer = 0
        Dim i As Integer = 1
        Dim cad As String = " "
        N = TextBox1.Text
        If (N > 0 And N < 10) Then
            While (mul < (100 - N))
                mul = N * i
                i = i + 1
                cad = cad + " " + Trim(mul)
            End While
            TextBox2.Text = cad
        Else
            MsgBox("Ingresa numeros entre 1-10", MsgBoxStyle.Information)
        End If
    End Sub
End Class

1 comentarios:

Anónimo dijo...

amonimo

Publicar un comentario en la entrada