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

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

于 2022-03-18 发布 文件大小:2.38 kB
0 146
下载积分: 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求解数学问题,求两个数最大公约数
    VB6.0演示一个求解数学问题,求两个数最大公约数,这是个简单的数学问题,数学基础好,用VB很轻松就编写出本程序了。在运行的窗口中,分别输入两个整数,单击按钮,程序将显示两个数的最大公约数是多少。求解的过程代码描述如下:   If (Val(Text1.Text) = 0 Or Val(Text2.Text) = 0) Or Val(Text1.Text) > 2147483647 Or Val(Text2.Text) > 2147483647 Then    MsgBox "输入的数0或溢出,请重新输入!"    MsgBox "输入的数0或溢出,请重新输入!", vbInformation + vbOKOnly, "数据错误"    Text1.Text = ""    Text2.Text = ""    Text1.SetFocus   Else    m = Val(Text1.Text)    n = Val(Text2.Text)   If m < n Then    temp = m: m = n: n = temp   End If   Do    r = m Mod n    m = n    n = r   Loop While r 0   Label3.Caption = "两个正整数m和n的最大公约数为: " & m   End If
    2022-07-16 14:37:29下载
    积分:1
  • 分享一个VB Excel表格生成模块
    分享一个VB Excel表格生成模块,借助了模块中的ChangeToExcel.ocx组件来生成,使用时需要引入此组件。该组件中具备创建Excel文件、向Excel文件中插入内容、出错处理等功能。   Excel表格生成模块为该组件的源代码文件,你还可以通过源码对组件功能进行调整。   Demo文件夹下是使用此组件导出Excel文件的例子,单击按钮即可生成Excel文件。
    2022-11-26 13:10:03下载
    积分:1
  • 股票采集数据
    用VB编的股票采集数据源码、分享出来希望对大家有用。
    2022-07-10 11:37:10下载
    积分:1
  • VB MSChart图表控件实例:柱状图的实现
    VB 柱状图生成的例子,看看,是不是很实用的图表效果,这种图表也叫做直方图表,这是纵向的,也有横向的柱状图.本柱状图的生成是使用了Vb内置的微软图表控件MSChart控件,因此可看作是此控件的应用范例.
    2022-04-15 23:55:01下载
    积分:1
  • VB 写的拼图 用数字代表图片
    VB 写的拼图 用数字代表图片,将数字的顺序排列好,就完成了拼图,比起图片版的拼图,要简单多了。   玩法:将数字1挪动到最开始的位置,如何移动?要把占位的数字一个一个挪开,依次为1、2、3等数字让位,把整体排序好,就拼好了。
    2022-07-23 16:53:18下载
    积分:1
  • vb利用数据窗口辅助录入数据
    vb利用数据窗口辅助录入数据,也就是本程序窗口中,生成了一些数据辅助窗口,可对用户的录入工作提供一些帮助,其实就是一些供用户选择的组件之类的,用户了用户,又提升了数据录入的准确性,在VB6.0中,本源码可顺利编译成功,运行后如示例图所示。
    2023-07-26 19:20:03下载
    积分:1
  • VB6 设计带记忆的DataGrid数据录入窗口
    VB6 设计带记忆的数据录入窗口,这种记忆实际上是将DataGrid临时输入的数据存入到数据库中了,是一个数据库应用范例,本例子中的数据库采用的Access。在本例中,用户临时对任意DataGrid行列操作时输入的内容,临时保存至数据库中,使用时及时读取,模拟中了记忆功能,方便了用户操作,不过未做测试,不知道数据量较大的时候,会不会对数据库造成压力,有心者可以自行测试哦。
    2023-04-17 21:20:02下载
    积分:1
  • VB6 获取当前打开窗口数量
    VB6 获取当前打开窗口数量,如何获取当前打开窗口数量,本示例打开一个窗口后,在测试时会打开另外一个窗口,然后主窗口中会统计到这个打开的窗口,把当前打开窗口的数量填入文本框中。本程序可学习一下DoEvents()的用法。调用新窗口显示可参考以下代码:   Private Sub Command1_Click()    Form2.Show    Call Form_Activate   End Sub   Private Sub Form_Activate()    Text1.Text = DoEvents()   End Sub
    2022-07-19 06:40:19下载
    积分:1
  • VB演示 FileToSplit分割文件与合并文件
    VB演示分割文件与合并文件,这里使用到比较多的文件操作函数,比如FileToSplit、FileLen、UBound、FileCount、FileInfo等。本范例文件分割的思路:程序通过调用FreeFile函数来取得可以的文件号,以二进制的方式打开文件,根据文件的长度FilesLen和每个分割单位的比较,得出被分割之后的子文件个数,重新定义最后一个子文件的大小,将所取得的内容,分别存储到各个子文件中,将文件分割情况,存储到自定义的结构类型FileInfoFile中,最后将文件分割的情况,存入到模版文件中。   关于文件合并,则可看作是上述的逆过程,不再详述,请参见源码中的文件注释。
    2022-11-15 13:30:03下载
    积分:1
  • VB 记录鼠标行为,判断左键右键
    VB 记录鼠标行为,记录用户是单击了鼠标右键或是左键,监控鼠标被单击了哪个键,核心的代码如下:   If GetAsyncKeyState(VK_LBUTTON) = -32767 Then    Text1.Text = Text1.Text + " 鼠标左键 "   ElseIf GetAsyncKeyState(VK_RBUTTON) = -32767 Then    Text1.Text = Text1.Text + " 鼠标右键 "   End If
    2022-02-28 11:29:47下载
    积分:1
  • 696516资源总数
  • 106679会员总数
  • 14今日下载