Girilen iki sayıdan büyük olanı msgboxda belirten program
[code lang=”vbnet”]
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim s1, s2 As Integer
s1 = Val(InputBox("lütfen 1.sayiyi girin"))
s2 = Val(InputBox("lütfen 2.sayiyi girin"))
If s1 > s2 Then MsgBox("1.sayi daha büyüktür")
If s2 > s1 Then MsgBox("2.sayi daha büyüktür")
End Sub
End Class
[/code]