vb错误13

Private Sub Command1_Click()
a = Text1.Text: b = Text2.Text: c = Text3.Text: d = Text4.Text: e = Text5.Text: f = Text6.Text: g = Text7.Text: h = Text8.Text: i = Text9.Text

a = (0 + d + b + d) / 4: b = (a + c + 50 + c) / 4: c = (d + f + 50 + b): d = (0 + e + c + a) / 4: e = (0 + h + f + d) / 4: f = (e + g + 50 + c) / 4: g = (h + h + 50 + f) / 4: h = (0 + i + g + e) / 4: i = (0 + 0 + h + h) / 4
Text1.Text = a: Text2.Text = b: Text3.Text = c: Text4.Text = d: Text5.Text = e: Text6.Text = f: Text7.Text = g: Text8.Text = h: Text9.Text = i

End Sub

Private Sub Form_Load()
Label1.Visible = True
Label2.Visible = False
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer

Dim f As Integer
Dim g As Integer
Dim h As Integer
Dim i As Integer
End Sub

第一次点command还行第二次就不行了

vb 错误？ VB编程错误 VB 未知错误 VB代码错误 vb 出现错误 vb 实时错误91 VB 错误424,怎么回事 ASP VB错误 VB实时错误‘91’ VB实时错误‘3705’