中所对应的特殊字符显示

《中所对应的特殊字符显示》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、这是我用VB一个一个弄出来的，大致上包括了常用的一些特殊符号，前面只弄了70个，就是ASCII码表上面的，只是我是用显示的方式把它们都弄出来了！也便于做VB小程序的时候参考一下，后面有更清晰的大图，因为大图太大了，翻页时麻烦，所以就弄了些小图在前面！这些东西发上来给大伙分享一下！算个辛苦分吧！就弄一分了，毕竞都是我亲手弄的！这是弄这个的时候，随便弄的个代码，有朋友想往后继续的话，也可以，就帖在最后面了Chr(1)Chr(2)Chr(3)Chr(4)Chr(5)Chr(6)Chr(7)Chr(8)Chr(9)Chr(10)Chr(11)Chr(12)

2、Chr(13)Chr(14)Chr(15)Chr(16)Chr(17)Chr(18)Chr(19)Chr(20)Chr(21)Chr(22)Chr(23)Chr(24)Chr(25)Chr(26)Chr(27)Chr(28)Chr(29)Chr(30)Chr(31)Chr(32)Chr(33)Chr(34)Chr(35)Chr(36)Chr(37)Chr(38)Chr(39)Chr(40)Chr(41)Chr(42)Chr(43)Chr(44)Chr(45)Chr(46)Chr(47)Chr(48)Chr(49)Chr(50)Chr(51)Chr(

3、52)Chr(53)Chr(54)Chr(55)Chr(56)Chr(57)Chr(58)Chr(59)Chr(60)Chr(61)Chr(62)Chr(63)Chr(64)Chr(65)Chr(66)Chr(67)Chr(68)Chr(69)Chr(70)。。。。。。。。。。。。。。。。。。。。。后面也不知道还有没有，我随机了几个，都没有显示，也许是没有了吧，不过，不管有没有，ASCII码是到127的，这里弄了这么多，后面的都是空的，也就不多说了！不过，有的虽然表面上看不到，但实际上却是有输出的，这个的话，看消息框的宽度就知道了！这上面的应为我把

4、错误给忽略了，所以后面又看了几个大的数字，有显示，不过，这应该是出现了数据截断！也就是程序只提取了低位的相应位数的数据，其它的给丢弃了（呵。。。我也不知道VB中这会不会出现溢出）！不过，在这里讨论这个就没意义了！代码：PrivateSubCommand1_Click()OnErrorGoToHELL‘因为输出的时候总是提示类型不匹配，所以这个必需加！（以我现在的能力的话）IfIsNumeric(Text1.Text)=FalseThenMsgBox"请输入数字！"ExitSubEndIfMsgBox"chr("&Text1.Text&")所代表的特

5、殊字符为"&Chr(Val(Text1.Text))Text1.Text=""HELL:Err.ClearEndSub‘限制数值大小的代码都会加！呵。。。就不写了！代码区弄完后，控件也就那么几个，我就不多说了，都是默认的名字，然后，为了方便，把那个按钮设Default设为True吧