第17講 n進数を10進数に翻訳するマクロ
第３話 ｎ進数翻訳マクロ例
Private Sub CommandButton1_Click()
CommandButton2_Click
Dim a(100) As Byte, n As Integer
Call f(a(), n) 'データ発生
Cells(5, 1) = g(a(), n) '10進数への翻訳
Cells(5, 1) = g(a(), n)
End Sub
Sub f(a() As Byte, n As Integer)
Dim i As Byte, o As Byte
Do While 1
o = Int(10 * Rnd)
If o > 2 Then Exit Do
Loop
Do While 1
a(0) = Int(n * Rnd)
If a(0) > 0 Then
Cells(4, 1 + i) = a(i)
Exit Do
End If
Loop
For i = 1 To o
a(i) = Int(n * Rnd)
Cells(4, 1 + i) = a(i)
Next
a(o + 1) = n
End Sub
Function g(a() As Byte, n As Integer)
Dim b As Long, i As Byte
b = 0
i = 0
Do While 1
If a(i) = n Then Exit Do
b = b * n
b = b + a(i)
i = i + 1
Loop
g = b
End Function
Private Sub CommandButton2_Click()
Rows("4:20000").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
参考ダウンロード添付ファイル
解説
今回は、Dim a(100) As Byteと配列をByte型にしていますので、
a(o + 1) = -1 ではなく a(o + 1) = n としています。
ｎ進数ですから、並ぶ数字はｎ未満でなければなりませんね。
ですから、ｎとなればそれは正常なデータではないということになります。
というわけで、終わりの記号の役割を果たすことが出来ます。
もちろん、a(o + 1) = n + 1 等でもよいわけです。
a(o + 1) = n + 1 としたときは、
If a(i) = n Then Exit Do
は
If a(i) = n + 1 Then Exit Do
としなければなりませんね。
今回はDo文で実現しましたが、
プロシージャの再帰的使用でも可能です。
考えて下さい。
eclipse c++ 入門
魔方陣 数独で学ぶ VBA 入門
数独のシンプルな解き方・簡単な解法の研究
vc++講義へ
excel 2013 2010 2007 vba入門へ
ＶＢ講義基礎へ
初心者のための世界で一番わかりやすいVisual C++入門基礎講座へ
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ
専門用語なしの C言語 C++ 入門（Visual C++ 2010で学ぶ C言語 C++ 入門）
専門用語なしの excel vba マクロ 入門 2013 2010 2007 対応講義 第1部
eclipse java 入門へ
excel 2016 vba 入門へ
小学生からエンジニアまでのRuby入門へ
本サイトトップへ
