Private Sub Command1_Click()
Dim n As Integer, i As Integer
Dim a As Integer
Dim b As Integer
Dim c As Integer
List1.Clear
n = Val(Text1.Text)
If n >= 100 And n <= 500 Then
For i = 1 To 9
A.位置一
a = n \ 100
b = (n - 100 * a) \ 10
c = n Mod 10
B.位置二
Next i
C.位置三
Else
List1.AddItem "输入数值有误"
End If
D.位置四
End Sub