用vb语言编写1^2+2^2+3^2+4^2+5^2+...+n^2>2000,n至少为多少时,不等式成立,并输出n等于多少?
问题描述：
用vb语言编写1^2+2^2+3^2+4^2+5^2+...+n^2>2000,n至少为多少时,不等式成立,并输出n等于多少?
糊弄的别过来,另再百度上看到
Private Sub Command1_Click()
'1^2+2^2+3^2+4^2+……+n^2>1000 //这句可以直接出现?
Dim sum,i
sum = 0:i = 0
Do While sum i = i + 1
sum = sum + i * i
Loop
MsgBox "最小项数:" & i
End Sub
答
1^2+2^2+3^2+4^2+……+n^2>1000这句不可以直接出现的,不符合VB语法,但在上面的代码里,这行代码前面加有单引号“'”,表示后面的为注释(在VB6.0里,注释的文字颜色默认为绿色,注释是不被执行的).Do While sum