lunes, 22 de abril de 2013
Numeros Naturales a Numeros Romanos En Visual Basic
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
namespace WindowsFormsApplication1
{
public partial class Form2 : Form
{
public Form2()
{
InitializeComponent();
}
private void button1_Click(object sender, EventArgs e)
{
textBox2.Text = "";
int num, x, uni, dec, cen;
float div;
String[] Unidad = { "", "I", "II", "III", "IV", "V", "VI", "VII", "VIII", "IX" };
String[] Decena = { "", "X", "XX", "XXX", "XL", "L", "LX", "LXX", "LXXX", "XC" };
String[] Centena = { "", "C", "CC", "CCC", "CD", "D", "DC", "DCC", "DCCC", "CM" };
num = Convert.ToInt32(textBox1.Text);
uni = num % 10;
dec = (num / 10) % 10;
cen = (num / 100) % 10;
textBox2.Text = Centena[cen] + Decena[dec] + Unidad[uni];
}
}
}
Suscribirse a:
Comentarios de la entrada (Atom)

No hay comentarios.:
Publicar un comentario