第７話 Do文による実現
をDo文で実現するプログラム例
Private Sub CommandButton1_Click()
CommandButton2_Click
Dim a As Long, b(1000) As Integer, n As Integer
n = Cells(3, 10)
Do While 1
a = Int(100000 * Rnd)
If a > 0 Then Exit Do
Loop
Cells(4, 1) = a
Call f(a, b(), n, 0)
End Sub
Sub f(a As Long, b() As Integer, n As Integer, g As Integer)
b(g) = a Mod n
a = Int(a / n)
If a > 0 Then
Call f(a, b(), n, g + 1)
Else
b(g + 1) = -1
Call h(b())
End If
End Sub
Sub h(b() As Integer)
Dim i As Integer, ik As Integer
i = 0
Do While 1
If b(i) = -1 Then
ik = i - 1
Exit Do
End If
i = i + 1
Loop
For i = ik To 0 Step -1
If b(i) < 10 Then Cells(5, 1 + ik - i) = b(i)
If b(i) = 10 Then Cells(5, 1 + ik - i) = "A"
If b(i) = 11 Then Cells(5, 1 + ik - i) = "B"
If b(i) = 12 Then Cells(5, 1 + ik - i) = "C"
If b(i) = 13 Then Cells(5, 1 + ik - i) = "D"
If b(i) = 14 Then Cells(5, 1 + ik - i) = "E"
If b(i) = 15 Then Cells(5, 1 + ik - i) = "F"
Next
End Sub
Private Sub CommandButton2_Click()
Rows("4:20000").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
参考ダウンロード添付ファイル
をWhile文で実現するプログラム例
Private Sub CommandButton1_Click()
CommandButton2_Click
Dim a As Long, b(1000) As Integer, n As Integer
n = Cells(3, 10)
Do While 1
a = Int(100000 * Rnd)
If a > 0 Then Exit Do
Loop
Cells(4, 1) = a
Call f(a, b(), n)
End Sub
Sub f(a As Long, b() As Integer, n As Integer)
Dim i As Byte, p As Byte
i = 0
p = 1
While p
b(i) = a Mod n
a = Int(a / n)
If a = 0 Then
b(i + 1) = -1
p = 0
End If
i = i + 1
Wend
Call h(b())
End Sub
Sub h(b() As Integer)
Dim i As Integer, ik As Integer
i = 0
Do While 1
If b(i) = -1 Then
ik = i - 1
Exit Do
End If
i = i + 1
Loop
For i = ik To 0 Step -1
If b(i) < 10 Then Cells(5, 1 + ik - i) = b(i)
If b(i) = 10 Then Cells(5, 1 + ik - i) = "A"
If b(i) = 11 Then Cells(5, 1 + ik - i) = "B"
If b(i) = 12 Then Cells(5, 1 + ik - i) = "C"
If b(i) = 13 Then Cells(5, 1 + ik - i) = "D"
If b(i) = 14 Then Cells(5, 1 + ik - i) = "E"
If b(i) = 15 Then Cells(5, 1 + ik - i) = "F"
Next
End Sub
Private Sub CommandButton2_Click()
Rows("4:20000").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
参考ダウンロード添付ファイル
10進数をn進数に翻訳するマクロは以上にしまして、
次講では逆にn進数を10進数に翻訳することを考えます。
