'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''' 引数で指定された種類のサイコロを1つ振り出た目を返す '''
''' p1 = サイコロの種類(〜面体)。1〜100のみ有効。 '''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function droll(dtype as Integer) as Integer
'サイコロ種チェック
If (dtype<1)Or(dtype>100) Then
droll = 0
Exit Function
End If
'結果の最大桁数をセット
Dim column as Integer '結果桁数
Dim roll as Integer '結果
roll = 0
If (dtype>=1)And(dtype<=9) Then
column = 1
ElseIf (dtype>=10)And(dtype<=99) Then
column = 2
ElseIf dtype=100 Then
column = 3
EndIf
'サイコロを振る
Do until (roll>=1)And(roll<=dtype)
roll = val(mid(str(rand()),2,column))
Loop
droll = roll
End Function
|