Visual Basic 6の基礎 - 関数 - 版の履歴

Wiki: /* 関数の定義例 */

2025-01-23T06:41:41Z

関数の定義例

@@ 140行目: / 140行目: @@
   result = Sum(1, 2, 3, 4, 5)  ' result = 15
   </syntaxhighlight>
 <br>
   <syntaxhighlight lang="vb">
   Private m_Name As String
@@ 156行目: / 168行目: @@
   Me.Name = "Test"     ' 設定
   Debug.Print Me.Name  ' 取得
   </syntaxhighlight>
 <br><br>

Wiki: /* 基本構文 */

2025-01-23T06:35:10Z

基本構文

@@ 28行目: / 28行目: @@
      ' ...略
   End Sub
   </syntaxhighlight>
 <br><br>

Wiki: /* 概要 */

2025-01-23T06:31:11Z

概要

@@ 1行目: / 1行目: @@
 == 概要 ==
+Visual Basic 6の関数は、特定の処理を行い値を返すプログラムの一部として機能する。<br>
 <br><br>

Wiki: ページの作成:「== 概要 ==

== 基本構文 == ' 関数 [Private|Public] Function <関数名>([<引数> As <型>, ...]) [As <戻り値の型>] ' 処理関数名 = 戻り値 '戻り値の設定 End Function ' サブルーチン [Private|Public] Sub <サブルーチン名>([<引数> As <型>, ...]) ' 処理 ' ...略 End Sub

== プロパティ== Property Get <…」

2025-01-23T06:10:01Z

ページの作成:「== 概要 == == 基本構文 == <syntaxhighlight lang="vb"> ' 関数 [Private|Public] Function <関数名>([<引数> As <型>, ...]) [As <戻り値の型>] ' 処理関数名 = 戻り値 '戻り値の設定 End Function ' サブルーチン [Private|Public] Sub <サブルーチン名>([<引数> As <型>, ...]) ' 処理 ' ...略 End Sub </syntaxhighlight> == プロパティ== <syntaxhighlight lang="vb"> Property Get <…」

新規ページ

== 概要 ==

 

== 基本構文 ==
<syntaxhighlight lang="vb">
' 関数
[Private|Public] Function <関数名>([<引数> As <型>, ...]) [As <戻り値の型>]
' 処理
関数名 = 戻り値 '戻り値の設定
End Function

' サブルーチン
[Private|Public] Sub <サブルーチン名>([<引数> As <型>, ...])
' 処理
' ...略
End Sub
</syntaxhighlight>
 

== プロパティ==
<syntaxhighlight lang="vb">
Property Get <プロパティ名>() As <型>
' 取得処理
' ...略
End Property
</syntaxhighlight>
 
<syntaxhighlight lang="vb">
Property Let <プロパティ名>(<値> As <型>)
' 設定処理
End Property
</syntaxhighlight>
 

== 引数の修飾子 ==
* ByVal
*: 値渡し
* ByRef
*: 参照渡し (デフォルト)
* Optional
*: 省略可能な引数
* ParamArray
*: 可変長引数
 

== 関数の定義例 ==
==== 基本的な関数 ====
<syntaxhighlight lang="vb">
Private Function Add(ByVal x As Integer, ByVal y As Integer) As Integer
Add = x + y
End Function

' 使用例
Dim result As Integer
result = Add(5, 3) ' result = 8
</syntaxhighlight>
 
==== 参照渡しのサブルーチン ====
<syntaxhighlight lang="vb">
Private Sub Swap(ByRef a As Integer, ByRef b As Integer)
Dim temp As Integer
temp = a
a = b
b = temp
End Sub

' 使用例
Dim x As Integer, y As Integer
x = 1
y = 2
Swap x, y ' x = 2, y = 1
</syntaxhighlight>
 
==== オプション引数 ====
<syntaxhighlight lang="vb">
Private Function Multiply(ByVal x As Integer, Optional ByVal y As Integer = 1) As Integer
Multiply = x * y
End Function

' 使用例
Dim result As Integer
result = Multiply(5) ' result = 5
result = Multiply(5, 2) ' result = 10
</syntaxhighlight>
 
==== 可変長引数 ====
<syntaxhighlight lang="vb">
Private Function Sum(ParamArray numbers() As Variant) As Long
Dim total As Long
Dim i As Integer

For i = 0 To UBound(numbers)
total = total + numbers(i)
Next

Sum = total
End Function

' 使用例
Dim result As Long
result = Sum(1, 2, 3, 4, 5) ' result = 15
</syntaxhighlight>
 
==== プロパティ ====
<syntaxhighlight lang="vb">
Private m_Name As String

Property Get Name() As String
Name = m_Name
End Property

Property Let Name(ByVal value As String)
m_Name = value
End Property

' 使用例
Me.Name = "Test" ' 設定
Debug.Print Me.Name ' 取得
</syntaxhighlight>
 

{{#seo:
|title={{PAGENAME}} : Exploring Electronics and SUSE Linux | MochiuWiki
|keywords=MochiuWiki,Mochiu,Wiki,Mochiu Wiki,Electric Circuit,Electric,pcb,Mathematics,AVR,TI,STMicro,AVR,ATmega,MSP430,STM,Arduino,Xilinx,FPGA,Verilog,HDL,PinePhone,Pine Phone,Raspberry,Raspberry Pi,C,C++,C#,Qt,Qml,MFC,Shell,Bash,Zsh,Fish,SUSE,SLE,Suse Enterprise,Suse Linux,openSUSE,open SUSE,Leap,Linux,uCLnux,Podman,電気回路,電子回路,基板,プリント基板
|description={{PAGENAME}} - 電子回路とSUSE Linuxに関する情報 | This page is {{PAGENAME}} in our wiki about electronic circuits and SUSE Linux
|image=/resources/assets/MochiuLogo_Single_Blue.png
}}

__FORCETOC__
[[カテゴリ:その他]]