水仙花

Module Module1


Sub Main()
Dim a, b As String
Console.WriteLine("輸入三位元字串") : a = Console.ReadLine()

Console.WriteLine("輸入任一字串") : b = Console.ReadLine()
Console.WriteLine(b Like "*a.Chars(0)*")
If b Like a.Chars(0) = True And b Like a.Chars(1) = True And b Like a.Chars(2) = True Then
Console.WriteLine("3個相關")
ElseIf b Like a.Chars(0) = True And b Like a.Chars(1) = True Then
Console.WriteLine("兩個相關")
ElseIf b Like a.Chars(1) = True And b Like a.Chars(2) = True Then
Console.WriteLine("兩個相關")
ElseIf b Like a.Chars(0) = True And b Like a.Chars(2) = True Then
Console.WriteLine("兩個相關")
ElseIf b Like a.Chars(0) = True Then
Console.WriteLine("1個相關")
ElseIf b Like a.Chars(1) = True Then
Console.WriteLine("1個相關")
ElseIf b Like a.Chars(2) = True Then
Console.WriteLine("1個相關")
Else
Console.WriteLine("0個相關")
End If
Console.ReadLine()

End Sub
End Module