3.vb编写程序,输入三位整数,判断该数是否符合以下条件:它除以9的商等于它各位上

Private Sub Command1_Click()Dim a As Integer,b As Integer,c As Integer,d As Integera = Val(InputBox("输入三位整数"))b = Int(a / 100)c = Int((a - 100 * b) / 10)d = Int(a - 100 * b - 10 * c)If a / 9 = b...