第４話 ｎ進数のデータを２つ発生させて右揃えで表示する
を実現するプログラム例
Private Sub CommandButton1_Click()
CommandButton2_Click
Dim a(100) As Integer, b(100) As Integer, n As Integer
n = Cells(3, 10)
Call f(a(), n) 'データ発生
Call f(b(), n) 'データ発生
Call g(a(), b(), n) '表示
End Sub
Sub f(a() As Integer, n As Integer)
Dim i As Integer, o As Integer
Do While 1
o = Int(10 * Rnd)
If o > 2 Then Exit Do
Loop
For i = 0 To o - 1
a(i) = Int(n * Rnd)
Next
Do While 1
a(o) = Int(n * Rnd)
If a(o) > 0 Then
Exit Do
End If
Loop
a(o + 1) = n
End Sub
Sub g(a() As Integer, b() As Integer, n As Integer)
Dim i As Integer, ik1 As Integer, ik2 As Integer, mx As Integer
i = 0
Do While 1
If a(i) = n Then
ik1 = i
Exit Do
End If
i = i + 1
Loop
i = 0
Do While 1
If b(i) = n Then
ik2 = i
Exit Do
End If
i = i + 1
Loop
mx = ik1
If mx < ik2 Then mx = ik2
For i = 0 To ik1 - 1
Cells(4, 1 + mx - i) = a(i)
Next
For i = 0 To ik2 - 1
Cells(5, 1 + mx - i) = b(i)
Next
End Sub
Private Sub CommandButton2_Click()
Rows("4:20000").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
参考ダウンロード添付ファイル
解説
右揃え結構難しかったでしょう。
Cells(4, 1 + mx - i) = a(i)
のmxがミソです。
mxは、桁数の大きい方の桁数＋１の数です。
1回右側にmx個だけずらしてから、
左に順に進めていけばよいのです。
右揃えを実現しています。さて、それではいよいよ足し算に進みたいと思いますが、
ノーヒントでは余りにも難しい課題ですので、
次話で考え方を説明したいと思います。
