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

题目

3.vb编写程序,输入三位整数,判断该数是否符合以下条件:它除以9的商等于它各位上
1.vb编写程序,输入三位整数,判断该数是否符合以下条件：它除以9的商等于它各位上数字的平方和.例如224,它除以9的商数为24,而2^2+2^2+4^2=24

答案

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...