试试编写提示符程式

用Visual BASIC 2015.Net随意编写一段小程式代码,然后看看网站能不能正确显示代码。

Imports System

Module Module1

    Sub Main()
        Dim Decided As Boolean
        Dim Gender As String = String.Empty
        Dim Difficult As String = String.Empty

        Console.Clear()
        ' 自助投胎系统
        Console.WriteLine("Reincarnation Self Service System")
        Console.WriteLine("---------------------------------")
        Console.WriteLine()
        ' 请选择你的性别
        Console.WriteLine("Please choose your Gender")
        ' 男性
        Console.WriteLine("1) Male")
        ' 女性
        Console.WriteLine("2) Female (50 Coin)")
        ' 你的选择
        Console.Write("Your choose? ")
        Decided = False
        Do While Not Decided
            If Console.KeyAvailable Then
                Select Case Console.ReadKey(True).Key
                    ' 按下 1 号键的时候
                    Case ConsoleKey.D1, ConsoleKey.NumPad1
                        Gender = "Male"
                        Decided = True
                    ' 按下 2 号键的时候
                    Case ConsoleKey.D2, ConsoleKey.NumPad2
                        Gender = "Female"
                        Decided = True
                End Select
            End If
        Loop
        Console.WriteLine(Gender)
        Console.WriteLine()
        ' 请选择你的生存难度
        Console.WriteLine("Please choose your living difficult Level")
        ' 容易
        Console.WriteLine("1) Easy (100,000 Coin)")
        ' 中等
        Console.WriteLine("2) Moderate (5,000 Coin)")
        ' 困难
        Console.WriteLine("3) Hard (200 Coin)")
        ' 深渊
        Console.WriteLine("4) Abyss (Free)")
        Console.Write("Your choose? ")
        Decided = False
        Do While Not Decided
            If Console.KeyAvailable Then
                Select Case Console.ReadKey(True).Key
                    ' 按下 1 号键的时候
                    Case ConsoleKey.D1, ConsoleKey.NumPad1
                        Difficult = "Easy"
                        Decided = True
                    ' 按下 2 号键的时候
                    Case ConsoleKey.D2, ConsoleKey.NumPad2
                        Difficult = "Medium"
                        Decided = True
                    ' 按下 3 号键的时候
                    Case ConsoleKey.D3, ConsoleKey.NumPad3
                        Difficult = "Hard"
                        Decided = True
                    ' 按下 4 号键的时候
                    Case ConsoleKey.D4, ConsoleKey.NumPad4
                        Difficult = "Abyss"
                        Decided = True
                End Select
            End If
        Loop
        Console.WriteLine(Difficult)
        Console.WriteLine()
        ' 你选择{1}程度做为{0}出世
        Console.WriteLine("You choose birth as {0} with living {1} level.", Gender, Difficult)
        ' 按任意键继续
        Console.Write("Press any key to continue...")
        Console.ReadKey(True)
    End Sub

End Module

不知道你们能不能看到上彩色的代码?

发表评论