Menghitung Hambatan Total Pada Rangkaian Seri Mengunakan Visual Basic

Private Sub Command1_Click()
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
d = (a + b + c)
Text6 = d


End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
End Sub

Private Sub Command3_Click()
End
End Sub