VB.NET コンソールアプリケーション

Module Module1

    Sub Main()
      'ここに何か書く

    End Sub

End Module

Module Module1

    Sub Main()
        Console.WriteLine("文字列を入力してください")
        Dim str As String = Console.ReadLine()
        Console.WriteLine($"入力した文字列は、「{str}」")

        Console.WriteLine("")
        Console.WriteLine("Enterキーを押して終了")
        Console.ReadLine()
    End Sub

End Module

Module Module1
    Sub Main()
        For i As Integer = 1 To 100
            If i Mod 15 = 0 Then
                Console.WriteLine($"{i}: FizzBuzz")
            ElseIf i Mod 3 = 0 Then
                Console.WriteLine($"{i}: Fizz")
            ElseIf i Mod 5 = 0 Then
                Console.WriteLine($"{i}: Buzz")
            Else
                Console.WriteLine($"{i}:")
            End If
        Next
    End Sub
End Module

Module Module1
    Sub Main()
        For i As Integer = 1 To 9
            For j As Integer = 1 To 9
                Dim num As Integer = i * j
                Console.Write("{0} ", num)
            Next
            Console.WriteLine("")
        Next
    End Sub
End Module

Module Module1
    Sub Main()
        Console.WriteLine("じゃんけん！" & Environment.NewLine)
        Console.WriteLine("さいしょはグー、じゃんけん、")
        Console.WriteLine("グー？ チョキ？ パー？（全角で入力してね）" & Environment.NewLine)

        'プレイヤーの手
        Dim PlayerHand As String = Console.ReadLine()

        'プレイヤーがグーチョキパー以外を入力したときは終了
        Dim HandList() As String = {"グー", "チョキ", "パー"}
        If Array.IndexOf(HandList, PlayerHand) = -1 Then
            Console.WriteLine("あなたはグー、チョキ、パー以外の文字を入力しました。あなたの負けです")
            Console.WriteLine(Environment.NewLine & "Enterキーを押して終了")
            Console.ReadLine()
            Return
        End If

        'コンピュータの手
        Dim RandomNumber As Random = New Random()
        Dim CpHand As String = HandList(RandomNumber.Next(0, 3))

        '双方の手を表示
        Console.WriteLine("あなたの手:{0}", PlayerHand)
        Console.WriteLine("CPの手    :{0}", CpHand)

        '勝敗判定
        If PlayerHand = CpHand Then
            Console.WriteLine("引き分け")
        ElseIf (PlayerHand = "グー" And CpHand = "チョキ") Or
            (PlayerHand = "チョキ" And CpHand = "パー") Or
            (PlayerHand = "パー" And CpHand = "グー") Then
            Console.WriteLine("あなたの勝ち！")
        Else
            Console.WriteLine("あなたの負け")
        End If

        Console.WriteLine(Environment.NewLine & "Enterキーを押して終了")
        Console.ReadLine()
    End Sub
End Module

Imports System.IO
Imports System.Net

Module Module1

    Sub Main()

        Dim url As String = "https://yesno.wtf/api"

        Dim req As HttpWebRequest = WebRequest.Create(url)
        Dim res As WebResponse = req.GetResponse()

        Dim st As Stream = res.GetResponseStream()
        Dim sr As StreamReader = New StreamReader(st)
        Dim html As String = sr.ReadToEnd()
        sr.Close()
        sr.Close()

        Console.WriteLine(html)

        Console.WriteLine(Environment.NewLine & "Enterキーを押して終了")
        Console.ReadLine()
    End Sub

End Module