从1到100之间随机取出一个整数,判断其是奇数还是偶数,并输出结果.画出结构流程图.

vb:
Private Sub Command1_Click()
Randomize
r = Int(Rnd() * 100) + 1
If r Mod 2 = 0 Then
Print "r=" & r & "为偶数"
Else
Print "r=" & r & "为奇数"
End If
End Su