Question

vb text显示数字问题。有图参考。

如图：按按钮后，将检测text控件里面出现的数字，1到10的数字，将显示的数字从1到10中排出，然后将排出后的数字显示在最底下的text控件里面

Answer 1

最好用控件数组，方便处理，假定上面的五个文本框是Text1(0)-Text1(4)，下面的五个文本框是Text2(0)-Text2(4)：

Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer
For i = 1 To 10
For j = 0 To 4
If Val(Text1(j).Text) = i Then Exit For
Next
If j = 5 Then
Text2(k).Text = i
k = k + 1
If k > 4 Then Exit For
End If
Next
End Sub

追问

怎么不起作用呢？ 假如不是1到10 ，而是1到33呢？ 主要功能就是下面的text不显示上面text的数字

Answer 2

奇了怪了,我测试上面的代码完全正常

追问

还是没有弄明白，我是初学者

追答

呵呵,人都有点自私,你等书生来回答你的追问,就说你快点来帮我解释一下,我想采纳你
另外怎么又1-33了呢?岂不是要画33个文本框啊,依着我就画两个文本框就够了,第一个文本框列出从1到10的5个随机数,第二个文本框则显示从1到10的剩余数

追问

不是这个意思，你看看图片上面的，主要要的就是那个功能，第一排的文本框里面的数字（1-10）可以改动，当你在第一排文本框里面填好数字时候按命令按钮，第二排就显示剩下的数字，就是这样。

追答

是啊,书生的代码可以啊我晕,你等他来给你解释一下

追问

那么我复制进去，提示text1呢？

追答

创建控件数组
方法是先画一个文本框,调整好大小和位置,在窗体的这个文本框点右键,选择复制,再粘贴四个
然后再画一个,注意不是粘贴,是再画一个文本框,按照上面的方法再粘贴四个就好了