VB的编程题，急！拜托各位大神🙏🏻？

Question

通过inputbox输入一个三位数，单击窗体后，
通过Msgbox打印出该数的个位数，十位数和百位数,并计算出 个位＋十位＋百位的和是多少。
例如：InputBox输入234
MsgBox显示输出个位数、十位数、百位分分别是：2,3,4，三位之和是9

Answer 1

Private Sub Form_Click()
Dim n As Integer, n1 As Integer, n2 As Integer, n3 As Integer
n = Val(InputBox("请输入一个三位数"))
n1 = n Mod 10
n2 = n \ 10 Mod 10
n3 = n \ 100
MsgBox "个位数、十位数、百位分别是：" & n1 & "," & n2 & "," & n3 & "，三位之和是" & n1 + n2 + n3
End Sub