RosettaCodeData/Task/Boolean-values/VBScript/boolean-values.vb

7 lines
117 B
VB.net
Raw Permalink Normal View History

2019-09-12 10:33:56 -07:00
a = True
b = False
Randomize Timer
x = Int(Rnd * 2) <> 0
y = Int(Rnd * 2) = 0
MsgBox a & " " & b & " " & x & " " & y