乱数を生成するスクリプトの作成

まず最初に、ユーザーの年齢に使用できる乱数を生成するスクリプトを作成します。

ファイル > 新規作成を選択します。
資産の新規作成ダイアログボックスが開きます。
[資産の種類] リストから .NET スクリプトを選択し、資産名テキストボックスに function_randomAge と入力して OK をクリックします。
ヒント: スクリプトに「function」と名前を付けることにより、共通して使用されるテストタスクのライブラリを整理でき、ここからすばやくタスクを選択して、ビジュアルテストに挿入することができます。
スクリプトがコードウィンドウに表示されます。

Sub Main() の下の行にカーソルを置き、以下のように入力します。

Dim rand As New Random()
Dim TSrandomAge As Integer = rand.Next(10000, 99999)
MsgBox(TSrandomAge)

ツールバーで再生をクリックします。再生ダイアログボックスが開きます。
OK をクリックします。メッセージボックスが表示され、10,000 から 99,999 の生成された乱数が表示されます。
OK をクリックします。再生完了ダイアログボックスが開きます。
.NET スクリプトへ移動をクリックします。
数値範囲パラメータの (10000, 99999) をパラメータ MinVal と MaxVal に置き換えます。これら 2 つのパラメータを使用することにより、スクリプトを開いて値を変更するのではなく、このスクリプトを再生するビジュアルテストから乱数の範囲を設定することができます。以下のように入力します。
```
Dim TSrandomAge As Integer = rand.Next(MinVal, MaxVal)
```
スクリプトが適切に動作することを確認するために、Sub Main() の直後で、以下の値をパラメータに割り当てます。
```
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
```
ツールバーで再生をクリックします。再生ダイアログボックスが開きます。
OK をクリックします。メッセージボックスが表示され、16 から 105 の生成された乱数が表示されます。
OK をクリックします。再生完了ダイアログボックスが開きます。
.NET スクリプトへ移動をクリックします。
入力パラメータを使用して MinVal および MaxVal パラメータを設定するには、以下のステップを実行します。
1. 作成する入力パラメータが含まれるように Main() sub を変更します。
```
Public Sub Main(args As IDictionary(Of String, Object))
  Dim MinVal=args ("MinVal")
  Dim MaxVal=args ("MaxVal")
```
  "MinVal"と "MaxVal" は、次の手順で作成する入力パラメーターの名前です。
2. 作成する出力パラメータが含まれるように Main() sub を変更します。
```
Public Sub Main(args As IDictionary(Of String, Object))
		    	
  args ("TSrandomAge")=TSrandomAge
```
  "TSrandomAge" は、次の手順で作成する出力パラメーターの名前です。
3. 年齢はスクリプトからビジュアルテストに渡されるため、ステートメントの先頭にアポストロフィを入力してメッセージボックスのコードをコメントにします。
```
'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
```

次に、ランダム年齢をビジュアルテストに渡すために使用するスクリプトの入力パラメータと出力パラメータを定義します。