' hasstring.vb Imports System Class HashStringSample Shared Function HasString(ByVal target As String, ByVal word As String) As Boolean If word = "" Then Return False End If If target.IndexOf(word) >= 0 Then Return True Else Return False End If End Function Shared Sub Main() Dim str As String = "ろうにゃくなんにょ" Console.WriteLine(HasString(Str, "にゃく")) ' 出力:True Console.WriteLine(HasString(Str, "にゃん")) ' 出力:False Console.WriteLine(HasString(Str, "")) ' 出力:False End Sub End Class ' コンパイル方法:vbc hasstring.vb