| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 461 人关注过本帖
标题:[求助] 新手求助 字符排序 请朋友们帮忙 谢谢大家了
只看楼主 加入收藏
xy_fdgg
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2011-3-8
结帖率:90%
收藏
已结贴  问题点数:20 回复次数:3 
[求助] 新手求助 字符排序 请朋友们帮忙 谢谢大家了
我想实现的是 当选中chk(0)的时候 过滤掉text1中 三个数字(三个数字一组)中 最大数减去最小数等于0的三个数字 就是000这组
text1“000 001 010 011 100 101 110 111 012”
chk(0)caption(0); chk(1)caption(1);chk(2)caption(2)

搜索更多相关主题的帖子: 朋友 
2011-04-17 14:28
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:20 
图片附件: 游客没有浏览图片的权限,请 登录注册

无知
2011-04-17 23:34
xy_fdgg
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2011-3-8
收藏
得分:0 
Dim hki, hkk, hko, hkp, i, j As Integer
    Dim hkgl, k, p As String
    Dim hkgl1 As String
    Dim hkgl2 As String
   
    hkgl = ""
    hkgl1 = Trim(txtjg.Text)
   
    While Len(hkgl1) > 0
   
        hkgl2 = Left(hkgl1, 3)
        hkgl1 = Mid(hkgl1, 5)
        
        For i = 0 To 9
        hki = Mid(chkkd(i).Caption, 1, 1)
        hkk = Mid(hkgl2, 1, 1)
        hko = Mid(hkgl2, 2, 1)
        hkp = Mid(hkgl2, 3, 1)
        
            
                If chkkd(i).Value = 1 Then
                    If hko > hkp Then
                        k = hkp
                        hkp = hko
                        hko = k
                    End If            
                    If hkk > hko Then      这个加粗的地方 朋友们帮我看一下 应该怎么改一下 我怎么让这hkk , hko ,hkp 三个数
                        p = hko            进行 对比 然后换位 hkp 最大  hkk 最小
                        hko = hkk
                        hkk = p
                    End If
                    
                    If Val(hkp) - Val(hkk) = hki Then
                    hkgl2 = ""
                    End If
                 
                End If
            
        Next
        If Len(hkgl2) > 0 Then
        hkgl = hkgl2 & " " & hkgl
        End If
    Wend
    txtjg.Text = hkgl
2011-04-19 09:18
lowxiong
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:27
帖 子:652
专家分:3402
注 册:2008-5-7
收藏
得分:0 
不知道理解是否正确,不过按照你的想法,当选择chk(0)的时候会显示000和111,并不仅是000,下面代码我已验证。
Dim a As String, b() As String, i As Integer, j As Integer, max As Integer, min As Integer, chek As CheckBox
b = Split(Trim(txtjg), " ")
a = ""
For i = 0 To UBound(b)
  If b(i) <> "" Then
    max = -1
    min = 10
    For j = 1 To 3
      '找到最大数放到max中,最小数放到min中
      If Val(Mid(b(i), j, 1)) > max Then max = Val(Mid(b(i), j, 1))
      If min > Val(Mid(b(i), j, 1)) Then min = Val(Mid(b(i), j, 1))
    Next
    For Each chek In chkkd
      If chek.Value = 1 Then If Val(chek.Caption) = max - min Then a = a & b(i) & " "
    Next
  End If
Next
txtjg= a
2011-04-19 23:31
快速回复:[求助] 新手求助 字符排序 请朋友们帮忙 谢谢大家了
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.047809 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved