窗体中有一个label类型的控件label1，用于显示运算结果。一个textbox控件，...

窗体中有一个label类型的控件label1，用于显示运算结果。一个textbox控件，用于输入一个四位正整数，button1的事件处理程序，完成对这个输入的四位数的拆分功能，并把拆分后的每一位累加，然后把累加值送给label1的适当属性中。如果输入的不是四位正整数，则用简单的对话框提示，并推出处理。

Private Sub Command1_Click()
If Len(CStr(Val(Text1))) <> 4 Or Val(Text1) - Int(Val(Text1)) <> 0 Then
MsgBox "请输入一个四位正整数"
Exit Sub
End If
Dim sum As Integer
For i = 1 To Len(CStr(Val(Text1)))
sum = sum + Mid(CStr(Val(Text1)), i, 1)
Next
Label1 = sum
End Sub