当前位置:编程学习 > VB >>

重复次数查询

比如我现在有个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这么实现啊···· --------------------编程问答-------------------- 这个简单吧?把text1里面内容通过空格分割为数组(split);逐个比较获取相同值的个数;根据条件输出符合条件的内容。 --------------------编程问答--------------------
Option Explicit

Private Sub Form_Load()
    Text1.Text = "123 456 789 123 456 123"
    Text2.Text = 1
End Sub

Private 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
--------------------编程问答-------------------- 谢谢··· --------------------编程问答-------------------- Split(Text1.Text, " ")是关键
--------------------编程问答-------------------- 也可以用LEFT(TEXT1,3)分别取出来 --------------------编程问答--------------------
补充:VB ,  基础类
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,