ハイライトのテスト

はてなのスーパーPre記法のVBのハイライトの仕方が微妙なので、自力でハイライトしてみる。

Imports Microsoft.VisualBasic

Imports System

Imports System.Collections

Imports System.Text

Imports System.Math
Public Class CCipher

    Public Function decode(ByVal cipherText As []String[], ByVal shift As Integer) As []String[]

        Dim Res As []String[]=""

        For i As Integer=1 To Len(CipherText)

            Res+=Chr(((Asc(Mid(cipherText,i,1))-Asc("A")-Shift+26) Mod 26)+Asc("A"))

        Next

        Return Res

    End Function

End Class