VB字符串比较代码
2019-02-16 08:45
您当前的位置:粉丝网站源码创建教程(编程教程)VB技术教程
VB字符串比较代码
标签:字符串比较更新日期:2013年8月11日
在正常的字符串处理中,可能需要比较字符串。今天,有一个简单的字符串比较代码,尝试在VB6编写,可以在通常的方式运行。
运行程序的结果如下。
比较运算符与AAAABC比较运算符与AAAAAA比较运算符与AAAAAA比较运算符与AAAAAA:STRCOMP与AAAAAAAAA STRCOMP与AAAABC:不区分大小写)STRCOMP:与AAAA12
该示例的VB代码如下。
第5版。
00BeginVB。
FormForm1Caption = Form1ClientHeight = 3195ClientLeft = 60ClientTop = 345ClientWidth = 4680LinkTopic = Form1ScaleHeight = 3195ScaleWidth = 4680StartUpPosition = 3“默认窗口EndAttributeVB_Name = Form1AttributeVB_GlobalNameSpace = FalseAttributeVB_Creatable = FalseAttributeVB_PredeclaredId = TrueAttributeVB_Exposed = FalseOptionExplicitPrivateSubForm_Load()DimstrAAsString,strBAsString,strCAsStringDimstrDAsString,strEAsString,strFAsStringDimvnt1,vnt2,vnt3,vnt4,vnt5,vnt6,vnt7,vnt8strA = AAA:STRB = ABC:STRC = aaastrD = AAA:STRE = A12:STRF = AAAAAAIfstrAstrBThenvnt1 = AAAABCIfstrAstrCThenvnt2 = AAAaaaIfstrAstrDThenvnt3 = AAAaAAIfstrAstrEThenvnt4 = AAAA12IfstrAstrFThenvnt5 = AAAAAAAAAIfStrComp(STRA,STRB,vbBinaryCompare)0Then_vnt6 = vnt1IfStrComp(STRA,STRC,vbTextCompare)= 0Then_vnt7 =不管AAA AAA =(大写和小写)IfStrComp(STRA,STRE,vbBinaryCompare)0Then_vnt8 = vnt4Debug的。
Print使用比较运算符vnt1Debug。
Print使用比较运算符vnt2Debug。
Print使用比较运算符vnt3Debug。
Print使用比较运算符vnt4Debug。
Print使用比较运算符vnt5Debug。
对于打印,使用strComp,vnt6Debug。
打印使用strComp,vnt7Debug。
打印使用strComp,vnt8Form1。
Visible = FalseEndSub
在VB 6中。
在最近的窗口0,然后检查执行效果,单击编译。
阅读:本文的收藏关闭本文打印此文章打印链接