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