Gorsel Programlama

İki Sayının Toplanması VB 6.0

Private Sub Command1 Click()
Dim sayı1,sayı2,sonuc As integer
sayi1=val(inputbox("1. sayıyı giriniz"))
sayi2=val(inputbox("2.sayıyı giriniz"))
sonuc=sayi1+sayi2
msgbox ("sayıların toplamı=" & sonuc)
End Sub