标题：字符串函数操作Third
适用类：可能会在进销存之类的数据库软件中用到。
编译工具：Visual Basic6.0
界面：

控件集：4个Text文本框，3个Command按钮，1个Frame框架，几个讲解性的Label标签
代码：（包括注释+讲解）

'***************************************************
'因为我个人也是一个菜鸟，所以有些代码是来自不同的教材中
'不著明版权，学习交流之用
'发布在https://bbs.bccn.net/编程论坛。
'***************************************************
Dim a As String, b As String       '定义a,b均为字符串型变量
Private Sub Command1_Click()
a = Text1.Text                   '将Text1中的文本赋值给a
MsgBox "首字符转换为ASCII码后的值为：" & Asc(a), vbOKOnly + vbInformation, "Asc函数"
Rem      输出
End Sub

Private Sub Command2_Click()
a = Text2.Text            '将Text2中的文本赋值给a
MsgBox "ASCII码转换为首字符后的值为：" & Chr(a), vbOKOnly + vbInformation, "Chr函数"
Rem      输出
End Sub

Private Sub Command3_Click()
a = Text3.Text                     '将Text3中的文本赋值给a
b = Text4.Text                     '将Text4中的文本赋值给b
MsgBox "从母字符串“" & a & "”中寻找的“" & b & "”在母字符串的第" & InStr(a, b) & "个位置", vbOKOnly + vbInformation, "InStr函数"
Rem      输出
End Sub

程序：

大家对代码有任何疑问都可以提出，能帮助大家的一定帮助。
其他相关实例：
[源代码分享计划]（一）Visual Basic文件操作程序：https://bbs.bccn.net/thread-444084-1-1.html
[源代码分享计划]（二）瑞星个人客户服务系统：https://bbs.bccn.net/thread-444553-1-1.html
[源代码分享计划]（三）字符串函数操作：https://bbs.bccn.net/thread-444642-1-1.html
[源代码分享计划]（四）字符串函数操作Second：https://bbs.bccn.net/thread-444682-1-1.html
菜鸟谈一谈Visual Basic6.0编程之路：https://bbs.bccn.net/thread-443945-1-1.html
甜橙计算软件，给VB初学者好的例子。：https://bbs.bccn.net/thread-426678-1-1.html