用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
不知道你们能不能看到上彩色的代码?