第１９講　ユークリッド互除法
第４話　Functionプロシージャによる改良
実行例

コード例
Private Sub CommandButton1_Click()
　　Dim a As Integer, b As Integer, w As Integer
　　a = Cells(3, 5)
　　b = Cells(3, 7)
　　　　If a <= b Then
　　　　w = a
　　　　a = b
　　　　b = w
　　End If
　　Cells(5, 3) = yk(a, b)
End Sub
Function yk(a As Integer, b As Integer)
　　a = a Mod b
　　If a = 0 Then
　　　 yk = b
　　　 Exit Function
　　End If
　　yk = yk(b, a)
End Function
Private Sub CommandButton2_Click()
　　Range("E3,G3,C5").Select
　　Selection.ClearContents
　　Range("A1").Select
End Sub

yk = yk(b, a)に互除法の神髄が現れています。
最初に手で例題を解いて、互除法の本質を掴んでいたので、
このようなコードが可能になったのです。

解説は次話で行います。

第３話へ　第５話へ

　　

VBA講義第１部へ
vc++講義へ
vb講義へ
ＶＢ講義基礎へ
初心者のための世界で一番わかりやすいVisual C++入門基礎講座へ
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ

数学研究室に戻る