Dim rand As New Random() Dim TSrandomAge As Integer = rand.Next(10000, 99999) MsgBox(TSrandomAge)
Dim TSrandomAge As Integer = rand.Next(MinVal, MaxVal)
Dim MinVal=16 Dim MaxVal=105
Public Sub Main() Dim rand As New Random() Dim MinVal=16 Dim MaxVal=105 Dim TSrandomAge As Integer = rand.Next(MinVal, MaxVal) MsgBox(TSrandomAge) End Sub
Public Sub Main(args As IDictionary(Of String, Object))
Dim MinVal=args ("MinVal")
Dim MaxVal=args ("MaxVal")
"MinVal"と "MaxVal" は、次の手順で作成する入力パラメーターの名前です。 Public Sub Main(args As IDictionary(Of String, Object))
args ("TSrandomAge")=TSrandomAge
"TSrandomAge" は、次の手順で作成する出力パラメーターの名前です。 'MsgBox(TSrandomAge)
Public Module Main
Dim _desktop As Desktop = Agent.Desktop
Public Sub Main(args As IDictionary(Of String, Object))
Dim rand As New Random()
Dim MinVal= args("MinVal")
Dim MaxVal= args("MaxVal")
Dim TSrandomAge As Integer = rand.Next(MinVal, MaxVal)
args ("TSrandomAge")=TSrandomAge
'MsgBox(TSrandomAge)
End Sub
End Module