题目
使用VB求得S>1000的最小的正数,其中S=1+2+3...+n
提问时间：2020-10-19
答案
你可以递归,也可以循环,这里给你介绍我写的一个循环的方法.vb6.0调试通过
你求得s吗
Private Sub Form_Load()
Test
End Sub
Private Function GetSum(ByVal n As Integer)
GetSum = ((1 + n) * n) / 2
End Function
Private Sub Test()
Dim s As Integer
Dim i As Integer
i = 1
s = 1000
While GetSum(i)
你求得s吗
Private Sub Form_Load()
Test
End Sub
Private Function GetSum(ByVal n As Integer)
GetSum = ((1 + n) * n) / 2
End Function
Private Sub Test()
Dim s As Integer
Dim i As Integer
i = 1
s = 1000
While GetSum(i)
举一反三
已知函数f（x）=x，g（x）=alnx，a∈R．若曲线y=f（x）与曲线y=g（x）相交，且在交点处有相同的切线，求a的值和该切线方程．
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
热门考点