重复次数查询

Question

比如我现在有个command1和3个text，分别是text1，text2，text3，我实现
在text1里面放进一堆数字 ，（我每3个为一组，每组都都已空格隔开了·例子：
123 456 789 123 456 123）然后我再text2里面输入次数比如我输0，
点一下command1那么text1里面的789就会出现再text3里面，比如我输1，那么text1里面的456就会出现再text3里面，我想请问用VB这么实现啊····

Answer 1

这个简单吧？把text1里面内容通过空格分割为数组（split）；逐个比较获取相同值的个数；根据条件输出符合条件的内容。

Answer 2

Option ExplicitPrivate Sub Form_Load()
    Text1.Text = "123 456 789 123 456 123"
    Text2.Text = 1
End SubPrivate Sub Command1_Click()
Dim i As Byte, n As Byte, s() As String
    s = Split(Text1.Text, " ")
    For i = 0 To UBound(s)
        n = UBound(Split(Text1.Text, s(i)))
        If n = Val(Text2.Text) + 1 Then Text3.Text = s(i)
    Next
End Sub

Answer 3

Split(Text1.Text, " ")是关键

Answer 4

也可以用LEFT(TEXT1,3)分别取出来

Answer 5

本帖最后由 bcrun 于 2012-03-21 17:25:26 编辑