- VBScriptについて必死に話し合うスレ [転載禁止]©2ch.net
510 ：桃白白 ◆9Jro6YFwm650 []：2015/10/18(日) 22:55:06.82 ID:wA8mBdX1 - COIN_FRONT = "FRONT"
COIN_BACK = "BACK"
Class clsCoin
Public Value
Private Sub Class_Initialize()
If Fix(Rnd() * 2) = 0 Then
Value = COIN_FRONT
Else
Value = COIN_BACK
End If
End Sub
Public Sub Toss()
If Fix(Rnd() * 2) = 0 Then
Value = COIN_FRONT
Else
Value = COIN_BACK
End If
End Sub
End Class
Set Coin = New clsCoin
For I = 1 To 10
Coin.Toss
WScript.Echo Coin.Value
Next
|