用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/06/30 11:59:57
![用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](/uploads/image/z/5170627-19-7.jpg?t=%E7%94%A8vb%E8%AF%AD%E8%A8%80%E7%BC%96%E5%86%991%5E2%2B2%5E2%2B3%5E2%2B4%5E2%2B5%5E2%2B...%2Bn%5E2%3E2000%2Cn%E8%87%B3%E5%B0%91%E4%B8%BA%E5%A4%9A%E5%B0%91%E6%97%B6%2C%E4%B8%8D%E7%AD%89%E5%BC%8F%E6%88%90%E7%AB%8B%2C%E5%B9%B6%E8%BE%93%E5%87%BAn%E7%AD%89%E4%BA%8E%E5%A4%9A%E5%B0%91%3F%E7%B3%8A%E5%BC%84%E7%9A%84%E5%88%AB%E8%BF%87%E6%9D%A5%2C%E5%8F%A6%E5%86%8D%E7%99%BE%E5%BA%A6%E4%B8%8A%E7%9C%8B%E5%88%B0Private+Sub+Command1_Click%28%29%271%5E2%2B2%5E2%2B3%5E2%2B4%5E2%2B%E2%80%A6%E2%80%A6%2Bn%5E2%3E1000+%2F%2F%E8%BF%99%E5%8F%A5%E5%8F%AF%E4%BB%A5%E7%9B%B4%E6%8E%A5%E5%87%BA%E7%8E%B0%3FDim+sum%2Cisum)
用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