图片看不清。
问题一可以在text1获得焦点后，判断输入的是否数字键（根据Asicc码判断），如果是，就把数字显示到text1上。
问题二－－问题五不知所云。
问题六可以用APP方法添加到下拉框

你的附件也是这张图片。所以我只能假设。
问题一、假设你的0~9的按钮名称分别为command0~command9,
代码为：
private sub command0_click()
text1=text1 & "0"
end sub
private sub command1_click()
text1=text1 & "1"
end sub
private sub command2_click()
text1=text1 & "2"
end sub
private sub command3_click()
text1=text1 & "3"
end sub
private sub command4_click()
text1=text1 & "4"
end sub
private sub command5_click()
text1=text1 & "5"
end sub
private sub command6_click()
text1=text1 & "6"
end sub
private sub command7_click()
text1=text1 & "7"
end sub
private sub command8_click()
text1=text1 & "8"
end sub
private sub command9_click()
text1=text1 & "9"
end sub
第二个问题，不知道你在哪里选择数字，要在哪里出现三位。
第三个问题，文本框，是用来输入和输出的，你真要用来从中选择？当然也可以，就是用鼠标拖黑。要在里面重新排列的话就太麻烦，不如考虑别的控件。
第四个问题，正如一楼所说，“不知所云”。
第五个问题，就等问题四解决了再说吧。
第六个问题，仍然先假定。假定你要过滤得数字在数组a里面保存；要添加的地方是list1；过滤的条件是数字满足自定义函数guolv（a）。代码如下：
for i=0 to ubound(a)
if guolv(a(i)) then list1.add a(i)
next i
至于自定义过滤函数，因为不知道你究竟是怎么过滤，我只能给出形式，而没有实质（你自己添加）：
private function guolv(x as string)as boonle'这个单词我拿不准，你自己找一下，就是布尔型
………………
end function

可以设置一个控件数组，然后单击后直接添加数组下标到Text1就行了。

3楼啊，他连单个字符都加不到文本框，你还给他建议控件数组阿？我看还是先用单个按钮算了。等他会了再说。

3楼的动画做得不错，收藏了。

这是一个简单的3d彩票组选程序，只不过是学着写，没想到有这么多好人，第一步，已经会了，会让按键在书写框显示了，谢谢
第一步还有一个问题就是输入数字不能有重复的，比如说不能输入两个一样的数字，该加入什么代码
第二步这么说吧，我在第一步下面在加入一个按钮（投注）在按钮旁边在加入一个下拉框，这时点击选择数字（1234）在点击投注，在新的输入框中显示123，124，234，111，112，113，114，122，133，144，233，244，344，223，224，443，这些数字，也就是把1234进行最大3位数的排列，并且是不重复的，最上面先前发问是没有这个投注按键和下拉框的，原以为是让他在后台进行运算的，不过大家没有明白我的意思，所以加入投注和一个新的下拉框，这回大家明白了吧，就是3d的组选，选择几个数字，然后算出这几个数字能排成多少注组选并在下拉框显示。这样上面的第三步就合并了，直接进入第四步
第四部：我设置了条件（下拉框），两大一小，两小一大，三大，三小，0-4为小数，5-9为大数，在旁边有两个可画对号的选择方框一个是保留，一个是删除，比如第一步选择了1267，那么第一步投注后就应该为126，127，267，111，116等这时进行第四步大小优化，比如选择（两大一小）（保留）或（删除）如（保留）那么点击下一步的按钮上图为（过滤），然后在最低下的下拉框显示出166，177，266，277，167，267这些将被保留，如选（删除）这些将被删除，这回大家明白了吧，谢谢，期待大家的好消息