Question

为什么vb程序运行后点击按钮没反应

程序：Dim i As Integer
Private Sub Command1_Click()

For i = 1 To i = 3

If Checki.Value Then
Form2.Show
Label7.Caption = ""

Else

Label7.Caption = "您没有选择要入库的商品！"
End If
Next i

End Sub

Private Sub Command2_Click()

For i = 1 To i = 3
If Checki.Value Then
Form3.Show
Label7.Caption = ""

Else

Label7.Caption = "您没有选择要退货的商品！"
End If
Next i

End Sub
1 For i = 1 To i = 3

应该为 For i = 1 To 3

2 if Checki.Value Then
应该为 if Check(i).Value Then
改完后还是不能运行 提示子程序或函数未定义

Answer 1

程序错误有2处
1 For i = 1 To i = 3

应该为 For i = 1 To 3

2 if Checki.Value Then
应该为 if Check(i).Value Then