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

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

'***************************************************
'因为我个人也是一个菜鸟，所以有些代码是来自不同的教材中
'不著明版权，学习交流之用
'发布在https://bbs.bccn.net/编程论坛。
'***************************************************
Dim a As Variant          '定义a 为变体型

Private Sub CommandCStr_Click()
a = Text1.Text         '将Text1的值赋值给a
MsgBox "(CStr)将数值转换为字符串后为：" & CStr(a), vbOKOnly + vbInformation, "CStr函数"
Rem       '输出结果
End Sub

Private Sub CommandLCase_Click()
a = Text1.Text          '将Text1的值赋值给a
MsgBox "转换为小写后为：" & LCase(a), vbOKOnly + vbInformation, "LCase函数"
Rem       '输出结果
End Sub

Private Sub CommandLen_Click()
a = Text1.Text         '将Text1的值赋值给a
MsgBox "文本框中的字符串长度为：" & Len(a), vbOKOnly + vbInformation, "Len函数"
Rem       '输出结果
End Sub

Private Sub CommandStr_Click()
a = Text1.Text          '将Text1的值赋值给a
MsgBox "(Str)将数值转换为字符串后为：" & Str(a), vbOKOnly + vbInformation, "Str函数"
Rem       '输出结果
End Sub

Private Sub CommandUCase_Click()
a = Text1.Text           '将Text1的值赋值给a
MsgBox "转换为大写后为：" & UCase(a), vbOKOnly + vbInformation, "UCase函数"
Rem       '输出结果
End Sub

Private Sub CommandVal_Click()
a = Text1.Text            '将Text1的值赋值给a
MsgBox "将字符串转换为数值后为：" & Val(a), vbOKOnly + vbInformation, "Val函数"
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
菜鸟谈一谈Visual Basic6.0编程之路：https://bbs.bccn.net/thread-443945-1-1.html
甜橙计算软件，给VB初学者好的例子。：https://bbs.bccn.net/thread-426678-1-1.html