Facebook
From Mc, 2 Months ago, written in Plain Text.
Embed
Download Paste or View Raw
Hits: 35
  1. Private Sub ObwdTrojkata_Click()
  2.     Dim a As Integer
  3.     Dim b As Integer
  4.     Dim c As Integer
  5.    
  6.     a = InputBox("bok a ")
  7.     b = InputBox("bok b ")
  8.     c = InputBox("bok c ")
  9.    
  10.     Call MsgBox("wynik " & obwTrojkata(a, b, c))
  11.  
  12. End Sub