| `YÖNTEM 1
Private Sub Command1_Click()
Dim A, B, C
A = Val(Text1)
B = Val(Text2)
C = A + B
Text3 = C
End Sub
`YÖNTEM 2
Private Sub Command2_Click()
Dim A, B, C
A = CDbl(Text1)
B = CDbl(Text2)
C = A + B
Text3 = C
End Sub
Devamını Görmek İçin Üye Girişi Yapmanız Gerekmektedir. |
