vb精简版循环结构实时错误13

更新时间2019-06-03 05:20:29

Private Sub Form_Load()

s = 0

n = Text5.Text

For i = 1 To n

s = s + (i ^ 2 + i) / 2

Next i

Text6.Text = s

End Sub

求大神们帮忙看看这个代码哪里有问题，怎么解决

程序没有任何错，也不要修改

要改的是界面控件名字

界面上必须加两个Text,并分别命名为

Text5及Text6

并一定要将其中的Text5的Text属性改为一数值（如100）

这样程序才能正常运行（VB的程序与界面必须相配的）

VB中实时错误13一般是指 类型不匹配，试试把n转为数值：n = Val(Text1.Text)