第１９講　ユークリッド互除法
第３話　ユークリッド互除法のシートとコード例
シート例

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

では、課題です。
今回ykをSubプロシージャしましたが、Functionプロシージャにして値を返し、、
最大公約数の表示はPrivate Sub CommandButton1_Click()で行うように変更しましょう。
また、aとbの交換もあったとしても１回のみですので、
それもPrivate Sub CommandButton1_Click()で行うようにしてください。
尚、コードの解説は第５話で行います。

第２話へ　第４話へ

　　

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

数学研究室に戻る