第２５講　ｎ進数を10進数に翻訳する
第６話　ｎ進数を１０進数に翻訳するソフト自己再帰版その２

コード例
Dim h(100000000) As Byte
Dim m As Long, mk As Long, n As Integer
Private Sub CommandButton1_Click()
　　Dim a As Integer
　　Cells(7, 6) = ""
　　n = Cells(6, 3)
　　m = Cells(7, 3)
　　a = f(0)
　　Cells(8, 3) = g(0, a + 1)
End Sub
Function f(x As Integer)
　　h(x) = m Mod 10
　　If h(x) > n - 1 Then
　　　　Cells(7, 6) = "ｎ進数の入力が禁則に反しています。各位の数字はｎ－１以下でなければなりません。正しく入力しましょう。"
　　　　f = 1
　　　　Exit Function
　　End If
　　m = Int(m / 10)
　　If Int(m / 10) > 0 Then
　　　　f = f(x + 1)
　　Else
　　　　h(x + 1) = m Mod 10
　　　　If h(x + 1) > n - 1 Then
　　　　　　Cells(7, 6) = "ｎ進数の入力が禁則に反しています。各位の数字はｎ－１以下でなければなりません。正しく入力しましょう。"
　　　　　　f = 1
　　　　　　Exit Function
　　　　End If
　　　　f = x
　　End If
End Function
Function g(x As Integer, y As Integer)
　　If x + 1 < y Then
　　　　g = g(x + 1, y)
　　Else
　　　　g = h(x + 1)
　　End If
　　g = n * g + h(x)
End Function
Private Sub CommandButton2_Click()
　　Range("c8:c20").Select
　　Selection.ClearContents
　　Cells(7, 6) = ""
　　Range("A1").Select
End Sub


最後の課題です。ｎ進数をｍ進数に翻訳するソフトを考えましょう。

第５話へ　第７話

　　


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

数学研究室に戻る