（1） 求1-1000以内所有完全平方数..
题目
（1） 求1-1000以内所有完全平方数..
1 求1-1000以内所有完全平方数.
2 从键盘输入若干个数,以0结束,统计正数和负数的个数.
答案
Private Sub Command1_Click()Dim i%,k%For i = 1 To 1000If Int(Sqr(i)) = Sqr(i) Then Print i,:k = k + 1If k Mod 5 = 4 Then Print:k = 0NextEnd SubPrivate Sub Command2_Click()Dim OS%,JS%,m$m = InputBox("...
举一反三
已知函数f（x）=x，g（x）=alnx，a∈R．若曲线y=f（x）与曲线y=g（x）相交，且在交点处有相同的切线，求a的值和该切线方程．
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
热门考点