爱问知识人 爱问教育 医院库

用VB求1到N的平方和,其中N的值由自己给定。要求使用for....next 语句

首页

用VB求1到N的平方和,其中N的值由自己给定。要求使用for....next 语句

Private Sub Command1_Click()
Cls
Dim sum(1 to n) As double, n%, i%
n = Val(Text1.Text)
sum(1) = 1
For i = 1 To n
sum(i) = sum(i) i ^ 2 - 1
Next i
MsgBox "结果是:" & sum(n)
End Sub
这是我自己写的
运行时的一个出错提示是:要求常数表达式
这应该怎么去改。
请高手指教!

提交回答

全部答案

    2018-01-09 14:02:53
  • Private Sub Command1_Click() 
    Cls
    Dim sum As double, n as integer, i as integer
    n = Val(Text1.Text)
    sum= 0
    For i = 1 To n
    sum = sum cdbl(i) ^ 2
    Next i
    MsgBox "结果是:" & sum
    End Sub

    嫣***

    2018-01-09 14:02:53

类似问题

换一换
  • VB 相关知识

  • 电脑网络技术
  • 电脑网络

相关推荐

正在加载...
最新问答 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 172-191
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):