第４話 大小比較プログラム例
を実現するプログラム例
Private Sub CommandButton1_Click()
CommandButton2_Click
Dim a(100) As Integer, b(100) As Integer, n As Integer, i As Byte
n = Cells(3, 10)
Call f(a(), n) 'データ発生
Call f(b(), n) 'データ発生
Call g(a(), b(), n) '表示
Select Case h(a(), b(), n)
Case 2
Cells(6, 1) = "a>b"
Case 1
Cells(6, 1) = "a=b"
Case 0
Cells(6, 1) = "a<b"
End Select
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
Cells(4, 1) = "a="
For i = 0 To ik1 - 1
Cells(4, 1 + mx - i) = a(i)
Next
Cells(5, 1) = "b="
For i = 0 To ik2 - 1
Cells(5, 1 + mx - i) = b(i)
Next
End Sub
Function h(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
If ik1 > ik2 Then
h = 2
Exit Function
End If
If ik1 < ik2 Then
h = 0
Exit Function
End If
For i = ik1 - 1 To 0 Step -1
If a(i) > b(i) Then
h = 2
Exit Function
End If
If a(i) < b(i) Then
h = 0
Exit Function
End If
Next
h = 1
End Function
Private Sub CommandButton2_Click()
Rows("4:20000").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
参考ダウンロード添付ファイル
さて、大小比較が出来たところでいよいよ引き算です。
３行目と４行目は計算が正しいことを確認するために、
大きい方を上、小さい方を下にもってきています。
