vb的text中如何显示字符串

今天学习了刘金玉老师零基础VB教程的第34期，学习的主要内容是从字符串文本中分离数字字符等。

1.各种字符串类型文本的ascii码范围

0-9数字的ascii码范围是48-57

a-z小写字母的ascii码范围是97-122

A-Z大写字母的ascii码范围是65-90

2.思路：通过ASCII码值来判断，分别归类。使用字符长度函数len来统计数量。使用elseif来判断输入的字符ascii码范围。

3.范例：

①如图新建控件并设置好

②代码输入：

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii >= 48 And KeyAscii <= 57 Then

Tex = Tex & Chr(KeyAscii)

Label2.Caption = Len(Tex)

ElseIf KeyAscii >= 97 And KeyAscii <= 122 Then

Tex = Tex & Chr(KeyAscii)

Label3.Caption = Len(Tex)

ElseIf KeyAscii >= 65 And KeyAscii <= 90 Then

Tex = Tex & Chr(KeyAscii)

Label5.Caption = Len(Tex)

Else

Tex = Tex & Chr(KeyAscii)

Label8.Caption = Len(Tex)

End If

End Sub

③运行：请看前面视频

4.存在问题：一方面输入后错误内容删除后，分类统计仍然存在；另一方面，通过粘贴复制的内容无法进行分类统计。