VB编程，设计一个程序，在文本框里输入一个三位数，单击窗体，在窗体中输出这个三位数的个位数十位数百

Dim str As String = "" Dim n As Integer Dim gewei, shiwei, baiwei As Integer n = Val(Text1.Text) gewei = n Mod 10 shiwei = (n \ 10) Mod 10 baiwei = n \ 100 str = "这个数的个位数字是 " &