注册 登录
编程论坛 VB6论坛

[源代码分享计划](五)字符串函数操作Third

VB丶小宇 发布于 2015-04-30 16:45, 466 次点击
标题:字符串函数操作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
0 回复
1