vb text控件里面需要8位数值，不够的自动用0填充。

并且最好要求只能输入数值

Private Sub Text1_Change()
Dim a As Integer
Dim v As String
v = Text1.Text
a = Len(v)
If a >= 8 Then
v = Mid(v, a - 7, 8)
Else
v = String(8 - a, "0") & v
End If
Text1.Text = v
Text1.SelStart = 8
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii > 47 And KeyAscii < 58 Then Exit Sub Else KeyAscii = 0
End Sub

Dim a a = "123" '输入的值 Text1.Text = String(8 - Len(a), "0") & a  '00000123 Text1.Text = a & String(8 - Len(a), "0")  '12300000 Text1.Text = Format(a, "00000000")        '00000123

在代码中写：text.text=a 这行代码的一时是将a的值赋值给text控件的text属性。 根据你叙述的目的，我写了一下代码： 试验目的：实现定义a＝3，单击command1控件后，text控件中显示该数值。 所需要的控件：text控件1个，command控件1个，不用重命名，控件名字分别为text1、command1。 具体代码：（单引号后面为注释部分，不用在代码中写） 在command控件代码中加入：（双击command控件，然后输入以下部分。） dim a as integer '定义integer型变量a a=3 '将3赋值给a，也就是说a的值是3 text1.text＝a 然后，你运行一下，当你单击command控件后，你就可以但见你想要的了。 另外，你也在学习vb吗？我对vb也比较感兴趣，但只是略知一二，有兴趣探讨一下吗？qq：272147596