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

发布时间：2019-07-29 16:32:23

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)

以上问题属网友观点，不代表本站立场，仅供参考！