May 10, 2011

ASCII

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer : Dim C As String
        Dim First As Integer : Dim last As Integer
        First = Val(TextBox1.Text)
        last = Val(TextBox2.Text)
        If First >= 0 And First <= 255 And last >= 0 And last <= 255 And First <= last Then
            For i = First To last
                MsgBox("ASCII碼" & i & "所對應字元" & Chr(i))
                C = C & Chr(i)

            Next i
            MsgBox("全部的字元" & C)
        Else
            MsgBox("請輸入開始小於結束的數字且開始.結束>=0 開始結束<=255")
        End If
    End Sub
End Class

Today's Visitors: 0 Total Visitors: 6
Personal Category: Uncategorized Articles Topic: feeling / personal / murmur
[Trackback URL]

Post A Comment









Yes No



Please input the magic number:

( Prevent the annoy garbage messages )
( What if you cannot see the numbers? )
Please input the magic number

誰來收藏
Loading ...
unlog_NVPO 0