问题标题：
VB判断一个整数w的各位,数字平方之和能否被5整除,要VB的可以被5整除则返回1,否则返回0
问题描述：
VB判断一个整数w的各位,数字平方之和能否被5整除,要VB的
可以被5整除则返回1,否则返回0
费元春回答：
给你两段代码,一个是过程,一个是自定义函数.Subabc()DimxAsIntegerx=InputBox("输入一个整数")Fori=1ToLen(x)k=k+Mid(x,i,1)^2NextIfInt(k/5)=k/5ThenMsgBox1ElseMsgBox0E...
查看更多
