を実現するプログラム例
Private Sub CommandButton1_Click()
Rows("5:2000").Select
Selection.ClearContents
Cells(1, 1).Select
Dim a As Integer, b As Integer, c As Integer, h As Byte
h = 0
a = Cells(4, 2)
b = Cells(4, 3)
If a = 0 Or b = 0 Then
h = 1
GoTo tobi
End If
If b > a Then Call f(a, b)
c = g(a, b)
Cells(5, 1) = "上記2つの整数の最大公約数は"
Cells(5, 4) = c
Cells(5, 5) = "です。"
tobi:
If h = 1 Then Cells(5, 1) = "B4とC4の両欄に整数を入力して再度実行ボタンを押してください。"
End Sub
Sub f(a As Integer, b As Integer)
Dim w As Integer
w = a
a = b
b = w
End Sub
Function g(a As Integer, b As Integer)
a = a Mod b
If a = 0 Then
g = b
Exit Function
End If
g = g(b, a)
End Function
Private Sub CommandButton2_Click()
Rows("4:2000").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
参考ダウンロード添付ファイル
解説は次話で行います。
