RosettaCodeData/Task/Boolean-values/Visual-Basic/boolean-values.vb

4 lines
61 B
VB.net

Dim x As Boolean
x = IIf(Int(Rnd * 2), True, False)
MsgBox x