ces89

Tengo el siguiente código: Private Sub Command1_Click() If Optr1ltrs Then r = 0.08206 If Optr2cc Then r = 82.06 If Optergios Then r = 83140000 Dim p As Single Dim v As Single Dim t As Single Dim n As Single p = Pres.Text v = Txtv.Count t = Txtt.Count...