用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,isum
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/20 08:10:28
用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,isum
用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 < 1000# //这是小于没错?还有sum可以直接使用?
i = i + 1
sum = sum + i * i
Loop
MsgBox "最小项数:" & i
End Sub
用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,isum
1^2+2^2+3^2+4^2+……+n^2>1000
这句不可以直接出现的,不符合VB语法,但在上面的代码里,这行代码前面加有单引号“'”,表示后面的为注释(在VB6.0里,注释的文字颜色默认为绿色,注释是不被执行的).
Do While sum < 1000#
这是小于没错的,sum是变量,这个变量在前面已经声明了(“Dim sum, i”这句是声明 sum 和 i 这两个变量的代码),可以直接使用.
“Do While sum < 1000#”我觉得这句写成“Do While sum