Advertisement
darkman110697

bazy programowanie

Jan 25th, 2016
68
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.12 KB | None | 0 0
  1. Publi()
  2. Dim Num As Intiger
  3. Num=InputBox ("padaj liczbe 1-12")
  4.  
  5. Select Case Num
  6. Case 1
  7. MsgBox "wybrales 1"
  8. EndSelect
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement