| 以下はコードフラグメントです。 <％ '電子メールが正しいかどうかを判断します 関数isvalidemail（電子メール） 薄暗い名前、名前、i、c isvalidemail = true names = split（email、 "@"） ubound（names）<> 1の場合 isvalidemail = false 出口機能 ifを終了します 名前の各名前 len（name）<= 0の場合 isvalidemail = false 出口機能 ifを終了します i = 1からlen（name）へ c = lcase（mid（name、i、1）） if strument（ "abcdefghijklmnopqrstuvwxyz_-。"、c）<= 0以下ではありません（c）then isvalidemail = false 出口機能 ifを終了します 次 左（名前、1）または右（1）= " isvalidemail = false 出口機能 ifを終了します 次 if strust（names（1）、 "。"）<= 0 then isvalidemail = false 出口機能 ifを終了します i = len（names（1））-instrrev（names（1）、 "。"） i <> 2とi <> 3の場合 isvalidemail = false 出口機能 ifを終了します If strums（email、 ".."）> 0 isvalidemail = false ifを終了します エンド関数 ％> |