查看: 129|回复: 2

[IT] vb写代码 数组过滤

[复制链接]

3490

主题

3490

帖子

1万

积分

论坛元老

Rank: 8Rank: 8

积分
10480
发表于 2019-7-21 17:23:41 | 显示全部楼层 |阅读模式



三个文本,一个按钮。文本1里有若干三位数,中间都用空格分开的。文本2里有多个两位数提交命令后,把三位数中凡是含有文本二中的组合就过滤掉,只剩下不包含的三位数数组,请问代码怎么写?

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?在线注册

x
回复

使用道具 举报

0

主题

1203

帖子

195

积分

注册会员

Rank: 2

积分
195
发表于 2019-7-21 17:24:08 | 显示全部楼层
Dim A() As String, b() As String
Private Sub Command1_Click()
  A = Split(Text1, " ")
  b = Split(Text2, " ")
  For i = 0 To UBound(A)
    k = 1
    For j = 0 To UBound(b)
      If InStr(A(i), Mid(b(j), 1, 1)) > 0 And InStr(A(i), Mid(b(j), 2, 1)) > 0 Then
        k = 0
        Exit For
      End If
    Next j
    If k = 1 Then Text3 = Text3 & A(i) & " "
  Next i
End Sub
Private Sub Form_Load()
  Text1 = ""
  Text2 = ""
  Text3 = ""
End Sub
Dim A() As String, b() As String
Private Sub Command1_Click()
  A = Split(Text1, " ")
  b = Split(Text2, " ")
  For i = 0 To UBound(A)
    k = 1
    For j = 0 To UBound(b)
      If InStr(A(i), Mid(b(j), 1, 1)) > 0 And InStr(A(i), Mid(b(j), 2, 1)) > 0 Then
        k = 0
        Exit For
      End If
    Next j
    If k = 1 Then Text3 = Text3 & A(i) & " "
  Next i
End Sub
Private Sub Form_Load()
  Text1 = ""
  Text2 = ""
  Text3 = ""
End Sub

[url=https://gss0.baidu.com/9vo3dSag_xI4khGko9WTAnF6hhy/zhidao/pic/item/08f790529822720ef502ef1475cb0a46f31fab14.jpg][/url]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?在线注册

x
回复 支持 反对

使用道具 举报

0

主题

1298

帖子

182

积分

注册会员

Rank: 2

积分
182
发表于 2019-7-21 17:24:23 | 显示全部楼层
其实都是for循环 数组分割的知识
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 在线注册

本版积分规则

QQ|手机版|Archiver|我要投稿|洛阳IT论坛 ( 豫ICP备18021590号 )|网站地图

GMT+8, 2020-4-7 04:14 , Processed in 0.048204 second(s), 24 queries .

Powered by 洛阳IT论坛网 X3.2

© 2018-2020 China Inc.

快速回复 返回顶部 返回列表