搜索
首页 电脑/网络 程序设计 VB

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

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

全部回答

2018-01-09

53 0

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

类似问题换一批

热度TOP

相关推荐
加载中...

热点搜索 换一换

电脑/网络
VB
程序设计
电脑装机
操作系统/系统故障
硬件
笔记本电脑
百度
互联网
反病毒
软件
程序设计
VB
数据库
C/C++
JAVA相关
C#/.NET
VC++
汇编语言
其他编程语言
VB
VB
举报
举报原因(必选):
取消确定举报