输入一个三位整数，依次输出该数的正（负）号和百位、十位、个位数字。
高级语言程序设计。帮帮忙。很急。
参考答案:Private Sub Form_Activate()
a = InputBox("请输入一个三位整数")
If a >= 0 Then
Print "符号+" & "百位:" & Mid(a, 1, 1) & "十位：" & Mid(a, 2, 1) & "个位：" & Mid(a, 3, 1)
Else
Print "符号-" & "百位:" & Mid(a, 2, 1) & "十位：" & Mid(a, 3, 1) & "个位：" & Mid(a, 4, 1)
End If
End Sub