编写一个程序，在文本框中输入任意一个五位数，然后单击命令按钮后把这个数值分解为单个数字，并在标签上

Question

编写一个程序，在文本框中输入任意一个五位数，然后单击命令按钮后把这个数值分解为单个数字，并在标签上输出每一个数字（每个数字之间用三个空格分开）。例如用户输入了423339，输出结果为： 4 2 3 3 3 9
用vb编写一个程序，在文本框中输入任意一个五位数，然后单击命令按钮后把这个数值分解为单个数字，并在标签上输出每一个数字（每个数字之间用三个空格分开）。例如用户输入了423339，输出结果为： 4 2 3 3 3 9

Answer 1

delphi编写
窗口添加TButton,TLabel,TEdit控件
按钮的单击事件：
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
Label1.Caption:='';
for i:=0 to length(edit1.text) do
begin
label1.caption:=Label1.Caption+edit1.text[i]+' ';
end;
end;

Answer 2

Option Explicit

Private Sub Command1_Click()
Label1.Caption = ""
Dim len1, i As Integer
len1 = Len(Text1.Text)
For i = 1 To len1
Label1.Caption = Label1.Caption & Mid(Text1.Text, i, 1) & " "
Next i

End Sub

Answer 3

要写清楚用什么语言实现;......追问

用vb啊