70 likes | 135 Views
Sub プロシージャ A ( ) : 変数= プロシージャ B ( 引数) : End Sub. Function プロシージャ B ( 引数 As 型) As 型 : プロシージャ B =処理 : End Function. 1. 2. 3. Function プロシージャの呼び出し. 呼び出し側 呼び出される側. 呼び出し側の引数のカッコについて. 引数有の Sub プロシージャ 引数にカッコを付けない 戻り値を利用する Function プロシージャ 引数にカッコを付ける
E N D
Sub プロシージャA ( ) : 変数=プロシージャB(引数) : End Sub FunctionプロシージャB( 引数 As 型)As 型 : プロシージャB=処理 : End Function 1 2 3 Functionプロシージャの呼び出し 呼び出し側 呼び出される側
呼び出し側の引数のカッコについて • 引数有のSubプロシージャ引数にカッコを付けない • 戻り値を利用するFunctionプロシージャ引数にカッコを付ける • 戻り値を利用しないFunctionプロシージャ引数にカッコを付けない
① Private Sub CommandButton1_Click() ② Dim a As Single, b As Single, c As Single ③ a = Val(TextBox1.Text) ④ b = Val(TextBox2.Text) ⑤ c = Add(a, b) ⑥ TextBox3.Text = Str(c) ⑦ End Sub ⑧ Function Add(x As Single, y As Single) As Single ⑨ Add = x + y ⑩ End Function
① Private Sub CommandButton1_Click() ② Dim a As Single, b As Single, c As Single ③ a = Val(TextBox1.Text) ④ b = Val(TextBox2.Text) ⑤ c = Add(a, b) ⑥ TextBox3.Text = Str(c) ⑦ End Sub ⑧ Function Add(x As Single, y As Single) As Single ⑨ Add = x + y ⑩ End Function
① Private Sub CommandButton1_Click() ② Dim a As Single, b As Single, c As Single ③ a = Val(TextBox1.Text) ④ b = Val(TextBox2.Text) ⑤ c = Add(a, b) ⑥ TextBox3.Text = Str(c) ⑦ End Sub ⑧ Function Add(x As Single, y As Single) As Single ⑨ Add = x + y ⑩ End Function
① Private Sub CommandButton1_Click() ② Dim a As Single, b As Single, c As Single ③ a = Val(TextBox1.Text) ④ b = Val(TextBox2.Text) ⑤ c = Add(a, b) ⑥ TextBox3.Text = Str(c) ⑦ End Sub ⑧ Function Add(x As Single, y As Single) As Single ⑨ Add = x + y ⑩ End Function
① Private Sub CommandButton1_Click() ② Dim a As Single, b As Single, c As Single ③ a = Val(TextBox1.Text) ④ b = Val(TextBox2.Text) ⑤ c = Add(a, b) ⑥ TextBox3.Text = Str(c) ⑦ End Sub ⑧ Function Add(x As Single, y As Single) As Single ⑨ Add = x + y ⑩ End Function