Sub Tansaku1()
    Dim number, i As Long
    Dim Data As Variant
    Data = Array(84, 79, 51, 29, 76, 21, 18, 26, 31, 48)
    MsgBox ("探している値を入力 ")
    number = 
    number = Val(number)
    F
        If                   Then
            MsgBox ("探している番号は" &   & "番目に")
        End If
    Next i
    If                   Then
            MsgBox ("見つかりませんでした")
    End If
End Sub
Sub Tansaku2()
    Dim number, i As Long
    Dim Data As Variant
    Data = Array(84, 79, 51, 29, 76, 21, 18, 26, 31, 48)
    MsgBox ("探している値を入力 ")
           = 0
    
    number = 
    number = 
              i < 10 And 
        If Data(i) = number Then
            MsgBox ("探している番号は" & i & "番目に")
            
        Else
            
        End If
    Loop
    If            Then
            MsgBox ("見つかりませんでした")
    End If
End Sub