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

Sealed (Apr 19)