登录
首页 » VB源码 » VB6.0 Mid判断指定字符串出现的次数

VB6.0 Mid判断指定字符串出现的次数

于 2022-03-18 发布 文件大小:2.38 kB
0 168
下载积分: 2 下载次数: 2

代码说明:

VB6.0 判断指定字符串出现的次数,判断字符串A在字符串B中出现的次数,使用了VB的Mid函数来判断,如图所示的运行效果,单击按钮即可查看运行结果。代码验证判断部分,采用for循环遍历判断,代码如下:   Dim j As Integer   j = 0   For i = 1 To Len(Text1)    If Mid(Text1, i, Len(Text2)) = Text2 Then    j = j + 1    End If   Next i   Label2.Caption = "出现" & j & "次"

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • VB.net 绘制实时曲线
    VB.net 绘制实时曲线,是一个实时曲线控件的DEMO测试,使用这个控件,可以生成适时曲线 、历史曲线 、动态历史曲线。可用于流量 监控、访问量统计、员工绩效排名等众多场合中。   CEGraphControl目录中为控件的源代码,DeviceApplication1为使用此控件的示例,测试时要把CEGraphControl目录中生成的CEGraphControl.dll文件拷贝到测试源码的Bin同级目录中。
    2022-07-26 13:54:49下载
    积分:1
  • VB 使用DataGrid显示书名数据表
    VB 使用DataGrid显示书名数据表,这个例子相当简单,主要是学习在VB编程中如何使用DataGrid数据网格控件,将数据库内容读取出来,然后绑定到DataGrid表格中显示:   Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=book"   Adodc1.RecordSource = "select * from 书名"   Set DataGrid1.DataSource = Adodc1   DataGrid1.Columns(3).NumberFormat = "$0.00"   DataGrid1.Columns(4).NumberFormat = "$0.00"   End Sub
    2023-04-26 14:25:03下载
    积分:1
  • 文件夹复制VB6.0实例
    文件夹复制VB6.0实例源码,这里用了一个用户自定义函数,此函数可以出现一个对话框,并返回所选择的路径,若没有选择返回("")。模拟了Windows系统的文件夹模拟功能,看上去比较低级,只是通过这个功能,熟悉一些VB与文件操作的函数用法。
    2022-03-05 20:29:32下载
    积分:1
  • VB 6.0 对字符串进行加、减、乘、除计算
    VB 6.0 对字符串进行加、减、乘、除计算,如何对字符串进行加、减、乘、除计算呢,本示例演示了这个功能,其实就是数学表达式的计算,运算式中可以有括号,程序将按照运算规则,按照括号优先、乘除优先的原则进行运算,计算出结果并显示在Textbox中,最终运行效果如示例图所示。
    2022-03-02 02:18:41下载
    积分:1
  • vb.net 故意引发错误演示全局异常捕获处理
    本程序主要是演示vb.net全局错误异常消息的捕获处理,程序运行后故意引发错误,并弹出消息处理框,类似于在VB.NET调试器中显示的错误消息,指出错误原因、错误位置和具体代码,方便程序员对错误及时纠正处理,程序运行效果如图所示。
    2022-09-01 05:15:03下载
    积分:1
  • VB 将小写数字金额格式化为大写金额
    VB 将小写数字金额格式化为大写金额,这一个相比其它的金额数字转换,是自动转换,用户输入完小写数字金额后,程序将自动把小写数字变为大写,不过奇怪的是,在代码中并没有发现转换功能写在哪里,看到有数据库,莫非大写字符都存储于数据库吗?本例最终的运行效果如下图所示,用户在金额(大写)处输入小写的数字,可以输入小数点,然后单击其它空白处,程序会自动将小写金额转换成大写状态。
    2022-07-04 15:26:33下载
    积分:1
  • VB net 模拟考试系统 SQLSERVER版
    VB net 模拟考试系统,本考试时间为30分钟,系统会进行倒计时。你必须正确输入你所在班级、姓名和学号,交卷后不能再考,即时间未到不要急于点""交卷""!点击""确定""进入考试系统。本考试系统的窗口只允许打开一个,程序会判断窗体是否已经打开,如果已经打开,则不需要重复打开,只是显示。   程序正常运行需要SQL数据库,请在测试前附加并连接好。
    2022-02-07 21:46:47下载
    积分:1
  • VB6.0 使用列表播放midi等媒体文件
    VB6.0 使用列表播放midi等媒体文件,代码中添加了注释,了解VB如何操作MIDI文件进行播放,核心是调用了msdxm.ocx文件,如果程序不能运行,将本目录中的msdxm.ocx文件拷贝到C:WINDOWSsystem32目录下,然后,在"开始"/"运行"中键入regsvr32 C:WINDOWSsystem32msdxm.ocx, 回车再运行程序即可.
    2022-03-23 18:50:41下载
    积分:1
  • VB演示三种FileSystemObject文件操作方法
    FSO对象模型提供了三种创建和打开文件的方法:其实本示例是创建了FileSystemObject对象,然后用FSO对象的FileExists、CreateTextFile、OpenTextFile方法,对文件进行操作,演示了三种FSO对象的操作方法,对学习初级的FSO文件操作有相当好的帮助作用。
    2022-02-07 21:26:36下载
    积分:1
  • vb 6.0 排队叫号系统
    vb 排队叫号系统源代码,Cobeyond排队系统,程序分为了中心控制端、CyMobile管理系统、系统通讯端口设置、系统数据库设置、最大终端客户数设置、检查服务器名和端口号等众多子程序。本排队叫号系统可广泛应用于银行大厅排队叫号、便民服务大厅排队叫号等公共服务场所,系统涉及硬件、数据库及网络各方面的编程知识,是一套比较综合的VB管理系统。其中服务人员子程序打开后的界面如截图所示,源码包中还包括了排队叫号系统设计的流程图、网络拓扑结构图等编程资料,请下载源码包查看详情。
    2022-02-21 04:44:48下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载