Copyright © 2017 Grzegorz Linkiewicz
www.linkiewicz.edu.pl
1 z 1
Visual Basic .Net
Porównywanie liczb - funkcje R OZWIĄZANIE ZADANIA
Formularz Przygotuj formularz
zaprezentowany na rysunku obok. Zadbaj o to, aby właściwości poszczególnych obiektów znajdujących się na formularzu miały wartości dokładnie takie jak pokazano to na rysunku.
Kod źródłowy Public Class Form1
Function PorownajLiczby(ByVal liczbaLewa As String, ByVal liczbaPrawa As String) As String If IsNumeric(liczbaLewa) = False Or IsNumeric(liczbaPrawa) = False Then
PorownajLiczby = "???"
ElseIf CSng(liczbaLewa) < CSng(liczbaPrawa) Then PorownajLiczby = "<"
ElseIf CSng(liczbaLewa) > CSng(liczbaPrawa) Then PorownajLiczby = ">"
Else
PorownajLiczby = "="
End If End Function
Private Sub btnPorownaj_Click(sender As Object, e As EventArgs) Handles btnPorownaj.Click lblWyn1.Text = PorownajLiczby(txtL1.Text, txtL2.Text)
lblWyn2.Text = PorownajLiczby(txtL3.Text, txtL4.Text) lblWyn3.Text = PorownajLiczby(txtL5.Text, txtL6.Text) lblWyn4.Text = PorownajLiczby(txtL7.Text, txtL8.Text) lblWyn5.Text = PorownajLiczby(txtL9.Text, txtL10.Text) End Sub
End Class