VB 判断一个整数w的各位,数字平方之和能否被5整除,要VB的

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/16 05:24:22

VB 判断一个整数w的各位,数字平方之和能否被5整除,要VB的
可以被5整除则返回1 ,否则返回0

给你两段代码,一个是过程,一个是自定义函数.
Sub abc()
Dim x As Integer
x = InputBox("输入一个整数")
For i = 1 To Len(x)
k = k + Mid(x, i, 1) ^ 2
Next
If Int(k / 5) = k / 5 Then
MsgBox 1
Else
MsgBox 0
End If
End Sub
Function aaa(x As Integer)
For i = 1 To Len(x)
k = k + Mid(x, i, 1) ^ 2
Next
If Int(k / 5) = k / 5 Then
aaa = 1
Else
aaa = 0
End If
End Function

VB 判断一个整数w的各位,数字平方之和能否被5整除,要VB的判断一个整数w的各位数字平方之和能否被5整除, c语言判断一个整数w的各位数字平方之和能否被五整除可以被5整除的返回1,否则返回程序设计功能：判断一个整数w的各位数字平方之和能否被5整除,可以被5整除则返回1,否则返回0.急判断一个三位整数m的各位数字之和能否被7整除,可以被7整除则输出,否则显示不能被7整除 07年春的计算机vb题编制函数过程sum,用于计算一个整数的各位数字之和 vb编程编写程序找出给定范围内所有满足以下条件的整数该整数的平方数的各位数字之和为素数编写函数判断一个整数m的各位数字之和能否被7整除,可以被7整除则返回1,否则返回0.调用该函数找出100-200之间满足 vb编程 1 已知三个数abc（用随机数产生）找出其中最大值 2输入一个整数,判断它能否被3,5,7整除 VB中如何计算一个数字的各位之和直至小于10 C程：编写一个函数求一个整数的各位数字之和,输出100-200各位数字之和能被5整除的所有数. 证明:若一个整数的各位数字之和能被 9 整除,则这个整数能被 9 整除.