Prueva con borland C++.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
int main ()
{
float n1,n2,n3,op;
cout << "Introduzca el primer numero" ;
cin >> n1;
cout << "Introduzca el segundo numero" ;
cin >> n2;
cout << "Introduzca el tipo de operacion: 1)Suma 2)Diferencia 3)Multiplicacion 4)Divicion" ;
cin >> op;
switch(op)
{
case 1:
n3=n1+n2;
cout << n3 endl;
break
case 2:
n3=n1-n2;
cout << n3 endl;
break
case 3:
n3=n1*n2;
cout << n3 endl;
break
case 4:
n3=n1/n2;
cout << n3 endl;
break
default
cout << Solo numeros;
}
system ("pause")
return 0
}
Private Sub Command1_Click()
Text1 = Text1 & "*"
End Sub
Private Sub Command10_Click()
Text1 = Text1 & "4"
End Sub
Private Sub Command11_Click()
Text1 = Text1 & "5"
End Sub
Private Sub Command12_Click()
Text1 = Text1 & "6"
End Sub
Private Sub Command13_Click()
Text1 = Text1 & "7"
End Sub
Private Sub Command14_Click()
Text1 = Text1 & "8"
End Sub
Private Sub Command15_Click()
Text1 = Text1 & "9"
End Sub
Private Sub Command16_Click()
Text1 = Text1 & "."
End Sub
Private Sub Command17_Click()
Text1 = Text1 & "0"
End Sub
Private Sub Command18_Click()
Text3 = Text1
End Sub
Private Sub Command2_Click(Index As Integer)
Text1 = Text1 & "+"
End Sub
Private Sub Command3_Click()
Text1 = Text1 & "-"
End Sub
Private Sub Command4_Click()
Text1 = Text1 & "/"
End Sub
Private Sub Command5_Click()
Text1 = Text1 & "1"
End Sub
Private Sub Command6_Click()
Text1 = Text1 & "2"
End Sub
Private Sub Command7_Click()
Text1 = Text1 & "3"
End Sub
Private Sub Command1_Click()
Text1 = Text1 & "*"
End Sub
Private Sub Command10_Click()
Text1 = Text1 & "4"
End Sub
Private Sub Command11_Click()
Text1 = Text1 & "5"
End Sub
Private Sub Command12_Click()
Text1 = Text1 & "6"
End Sub
Private Sub Command13_Click()
Text1 = Text1 & "7"
End Sub
Private Sub Command14_Click()
Text1 = Text1 & "8"
End Sub
Private Sub Command15_Click()
Text1 = Text1 & "9"
End Sub
Private Sub Command16_Click()
Text1 = Text1 & "."
End Sub
Private Sub Command17_Click()
Text1 = Text1 & "0"
End Sub
Private Sub Command18_Click()
Text3 = Text1
End Sub
Private Sub Command2_Click(Index As Integer)
Text1 = Text1 & "+"
End Sub
Private Sub Command3_Click()
Text1 = Text1 & "-"
End Sub
Private Sub Command4_Click()
Text1 = Text1 & "/"
End Sub
Private Sub Command5_Click()
Text1 = Text1 & "1"
End Sub
Private Sub Command6_Click()
Text1 = Text1 & "2"
End Sub
Private Sub Command7_Click()
Text1 = Text1 & "3"
End Sub