汉字字符内码查询_VB小程序，字符与内码

VB小程序，关注我有更多的有趣的VB小程序

1、字符的十进制内码

控件：一个TextBox文本框，一个ListBox列表框，一个CommandButton命令按钮

界面：

代码：

Private Sub Command1_Click()

Dim s As String, ch As String

Dim i As Integer, n As Integer

s = Text1.Text

For i = 1 To Len(s)

ch = Mid(s, i, 1)

n = Asc(ch)

List1.AddItem ch & "内码为：" & Str(n)

Next i

End Sub

2、单词查询

控件：两个TextBox文本框，一个ListBox列表框，一个CommandButton命令按钮

界面：

代码：

Private Sub Command1_Click()

Dim s As String, tmp As String, c As String

Dim n As Integer, i As Integer

Dim flag As Boolean, cnt As Integer

s = Text1.Text

n = Len(s)

flag = False

List1.Clear

For i = 1 To n

c = Mid(s, i, 1)

If c >= "a" And c <= "z" Or c >= "A" And c <= "Z" Then

tmp = tmp + c

If c = Text2.Text Then flag = True: cnt = cnt + 1

Else

If flag Then List1.AddItem tmp

tmp = ""

flag = False

End If

Next i

If cnt = 0 Then

List1.AddItem "找不到合适的单词。"

End If

End Sub

Private Sub Form_Load()

Text1.Text = "请输入英文短句："

End Sub

想得到更多的VB小程序，请关注我，点击下方的广告可以更好的支持和鼓励我哦！