繁體中文
当前位置：首页 > 信息世界 > 程序源码 > 详细内容
『vb』查找字符
发布时间：2009/7/5  阅读次数：1789  字体大小: 【小】 【中】【大】
Private Sub Form_Click()
Dim str1 As String
Dim str2 As String
       Dim length As Integer '字符串长度
       Dim length1 As Integer
       Dim sum As Integer   '查到的个数
       Dim i As Integer
       str1 = InputBox("请输入一个字符串")
       str2 = InputBox("请输入查找的字符或字符串")
       length = Len(Trim(str1))
       length1 = Len(Trim(str2))
       i = 1
       sum = 0
       Do While i < length
               If Mid(str1, i, length1) = str2 Then
                       sum = sum + 1
               End If
               i = i + 1
       Loop
       If sum = 0 Then
               MsgBox "没有找到！"
       Else
               MsgBox "找到了" & Str(sum) & "个"
       End If
End Sub
上一篇：【建站代码】背景雨景 下一篇：『vb』菲波那契数列
我要评论
  • 匿名发表
  • [添加到收藏夹]
  • 发表评论：(匿名发表无需登录，已登录用户可直接发表。) 登录状态：未登录
最新评论
所有评论[0]
    暂无已审核评论!
本栏最新发布
本栏热门信息
 
 版权声明     关于本站      在线留言       登陆管理      个人博客   
 『辰桦网络』. All Rights Reserved
Station construction time: on April 4, 2006