早教吧 育儿知识 作业答案 考试题库 百科 知识分享

VB程序编写求满足条件1+2+3+…+N>1000的最小N

题目详情
VB程序编写求满足条件1+2+3+…+N>1000的最小N
▼优质解答
答案和解析
Private Sub Command1_Click()
Dim n As Integer,s As Integer
n = 1
s = 0
While s < 1000
s = s + n
n = n + 1
Wend
MsgBox "最小n是:" & n - 1
End Sub