vb程序设四位数的各位数字平方和等于100
题目
vb程序设四位数的各位数字平方和等于100
求vb程序代码,
答案
Private Sub Command1_Click()Dim I As IntegerFor I = 1000 To 9999If (I Mod 10) ^ 2 + (I 10 Mod 10) ^ 2 + (I 100 Mod 10) ^ 2 + (I 1000) ^ 2 = 100 Then Print INextEnd Sub
举一反三
已知函数f（x）=x，g（x）=alnx，a∈R．若曲线y=f（x）与曲线y=g（x）相交，且在交点处有相同的切线，求a的值和该切线方程．
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
热门考点