Gorsel Programlama

 iki sayının toplanması 

Private Sub Command1_Click()
Dim sayı1, sayı2, sonuç As Integer
sayı1 = Val(InputBox("1.sayıyı gir"))
sayı2 = Val(InputBox("2.sayıyı gir"))
sonuc = sayı1 + sayı2
MsgBox ("sayıların toplamı=" & sonuc)
End Sub

projeyi İNDİR