Program vb - wartoć bezwzględna

Wartoć bezwzględna

Pokazuje wartoć bezwzględnš danej liczby.
widok etykiety programu

Private a As Single

Private Sub btnKoniec_Click()
Unload Me
End Sub

Private Sub btnOblicz_Click()
If a < 0 Then
'jeli a jest ujemne to zmień mu znak'
a = -a
'napisz w miejscu etykiety'
lblWynik.Caption = " IaI =" & Str(a)
End If
If a > 0 Then
'jeli a jest dodatnie to znak ten sam'
a = a
'napis w miejscu etykiety'
lblWynik.Caption = "IaI = " & Str(a)
End If
End Sub

Private Sub txta_Change()
a = Val(txta.Text)
End Sub

Pobierz program