重复次数查询
比如我现在有个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--------------------编程问答-------------------- 谢谢··· --------------------编程问答-------------------- Split(Text1.Text, " ")是关键
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
--------------------编程问答-------------------- 也可以用LEFT(TEXT1,3)分别取出来 --------------------编程问答--------------------
补充:VB , 基础类