Visual Basic .NETで湯婆婆を実装してみる（𠮷田さん対応）

はじめに

@Nemesisさんの投稿された記事『Javaで湯婆婆を実装してみる』のコメント欄に Visual Basic .NET 版は投稿していたのですが、ベタ移植で特長的なものもなく記事化するのもどうかと思っておりました。その後@okazukiさんの書かれた記事『C# で湯婆婆を実装してみる（𠮷田さんにも対応）』を拝見し、こいつもパクって一本まとめるかあ、という感じのやつです。

コード

Imports System

Public Class Yubaba
    Public Shared Sub Main()
        Console.WriteLine("契約書だよ。そこに名前を書きな。")

        Dim name As String = Console.ReadLine()

        Console.WriteLine("フーン。" & name & "というのかい。贅沢な名だね。")

        Dim nameInfo As New Globalization.StringInfo(name)
        Dim newNameIndex As Integer = int(rnd() * nameInfo.LengthInTextElements)
        Dim newName As String = nameInfo.SubstringByTextElements(newNameIndex, 1)

        Console.WriteLine("今からお前の名は" & newName & "だ。いいかい、" & newName & "だよ。分かったら返事をするんだ、" & newName & "!!")
    End Sub
End Class

paiza.ioで実行

ほぼほぼ C# まんまですね。

おわりに

おわりです。