VB 判断一个整数w的各位,数字平方之和能否被5整除,要VB的
问题描述：
VB 判断一个整数w的各位,数字平方之和能否被5整除,要VB的
可以被5整除则返回1 ,否则返回0
答
给你两段代码,一个是过程,一个是自定义函数.Sub abc()Dim x As Integerx = InputBox("输入一个整数")For i = 1 To Len(x)k = k + Mid(x, i, 1) ^ 2NextIf Int(k / 5) = k / 5 ThenMsgBox 1ElseMsgBox 0E...