vb.输入任意一正整数n,若每位数的平方和能被5整除,则输出yes.否则输出no

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/15 23:33:37
vb.输入任意一正整数n,若每位数的平方和能被5整除,则输出yes.否则输出novb.输入任意一正整数n,若每位数的平方和能被5整除,则输出yes.否则输出novb.输入任意一正整数n,若每位数的平方

vb.输入任意一正整数n,若每位数的平方和能被5整除,则输出yes.否则输出no
vb.输入任意一正整数n,若每位数的平方和能被5整除,则输出yes.否则输出no

vb.输入任意一正整数n,若每位数的平方和能被5整除,则输出yes.否则输出no
Private Sub Command1_Click()
Dim i As Integer,j As Integer,s As Single,n As String
n = InputBox("enter data n:")
For i = 1 To Len(n)
j = Val(Mid(n,i,1))
s = s + j ^ 2
Next i
Print s
If s Mod 5 = 0 Then
Print "yes"
Else
Print "no"
End If
End Sub

vb.输入任意一正整数n,若每位数的平方和能被5整除,则输出yes.否则输出no VB输入任意一个不超过9位的正整数,求出由该整数的全部数字组成的同样位数的一个最大正整数与一个最小数 VB求输入任意一个正整数,若该数不是一个素数,则找出一个大于它的最小素数. VB程序 利用输入对话框输入两个正整数,求最大公约数.学的VB程序,编一程序:利用输入对话框输入两个正整数,求最大公约数. VB中输入一个数n,求出n以内能被5整除的所有正整数的个数 怎么写程序输入一个数n,求出n以内能被5整除的所有正整数的个数 大神帮我看看c语言的一道题老师布置了这样一个作业,请小明验证自己的结论.任给一个整数,将整数拆开,看看每位数的乘积是否大于每位数的和.输入:任意两个正整数m、n输出:n 之间满足每 VB求输入任意一个正整数,若该数不是一个素数,则找出一个大于它的最小素数.[分析]1:在文本框Text1中输入一个正整数,并将其赋值给N.2:判断N是否是素数,若是素数,则在文本框Text2显示N是素数, 关于VB的题 输入一个正整数N,计算出N!并输出. 输入一个任意长度的正整数,求出它是几位数.C++,C语言 VB:输入一个正整数N,把它分解成质因子相乘的形式 VB编程用For循环语句VB:用输入框输入一个数n,若此数是大于0的正整数则求S=1-2/3+4/5-…2n/2n+1,否则重输数据,直到数据合理为止. 在vb中输入一个任意整数,如何实现将各个位数上的数字提取出来 VB.NET 编程 关于回文数的题目.自定义函数,编写IsH(n),对于已知正整数n,判断该数是否是回文数,函数的返回值类型为布尔型.主调程序每输入一个数,调用IsH函数过程,然后在Label标签中显示输入的 用VS2010做VB的题目“自定义函数,编写函数过程IsH(n),对于已知正整数n,判断该数是否是回文数,函数的返回值类型为布尔型.主调程序每输入一个数,调用IsH函数过程,然后在Label标签中显示输入 VB输入任意一个正整数,若该数不是一个素数,则找出一个大于它的最小素数Dim n As Integer,i As IntegerDim flg As Booleann = Text1n = n + 1For i = 2 To Sqr(n)If n Mod i = 0 Then Exit ForNext iIf i > Sqr(n) Then flg = TrueIf flg VB输任意1个不超过9位的正整数,求该整数的全部数字组成的同样位数最大正整数、最小数 结果放text中 当m是怎样的多位数时,对于任意的正整数n,m的平方的末位数字是不变的? 用vb编程 任意输入一整数,判断其奇偶性.