vb精简版循环结构实时错误13
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)
热门标签: