Resistencias Codigo

Dim C(1 To 11) As Long 'variable para el cambio de color
Dim N(1 To 11) As Integer 'variable para cambio de objeto en la indexación

Private Sub BORRAR_Click()

Text1.Text = ""

End SubPrivate Sub calcular_Click()
Dim sVal As String 'variables de tipo privadas
Dim nVal As Double
Select Case N(1)
Case 1
sVal = sVal& "0"
Case 2
sVal = sVal & "1"
Case 3
sVal = sVal & "2"
Case 4
sVal = sVal & "3"
Case 5
sVal = sVal & "4"Case 6
sVal = sVal & "5"
Case 7
sVal = sVal & "6"
Case 8
sVal = sVal & "7"
Case 9
sVal = sVal & "8"Case 10
sVal = sVal & "9"
End Select
Select Case N(2)
Case 1
sVal = sVal & "0"
Case 2
sVal = sVal & "1"
Case 3sVal = sVal & "2"
Case 4
sVal = sVal & "3"
Case 5
sVal = sVal & "4"
Case 6
sVal = sVal & "5"Case 7
sVal = sVal & "6"
Case 8
sVal = sVal & "7"
Case 9
sVal = sVal & "8"
Case 10
sVal= sVal & "9"
End Select
Select Case N(3)
Case 1
nVal = (Val(sVal)) * 1
Case 2
nVal = (Val(sVal)) * 10
Case 3nVal = (Val(sVal)) * 100
Case 4
nVal = (Val(sVal)) * 1000
Case 5
nVal = (Val(sVal)) * 10000
Case 6
nVal = (Val(sVal)) *100000
Case 7
nVal = (Val(sVal)) * 1000000
Case 8
nVal = (Val(sVal)) * 10000000
Case 9
nVal = (Val(sVal)) * 100000000...