求助vb错误帮忙解答

来源:百度知道 编辑:UC知道 时间:2024/05/17 02:49:23
Private Sub Command1_Click()
Static i As Integer
i = i + 1
If i = 1 Then
Label1.Caption = "我想告诉你一件事"
ElseIf i = 2 Then
Label1.Caption = "我爱你"
ElseIf i > 2 Then
Label1.Caption = "你进来看看"
i = i - 3
End If
End Sub

Private Sub Form_Load()
Label1.FontSize = 16
Label1.Caption = "你进来看看"
End Sub
如果有高手的话帮忙顺便整理一下

Dim i As Integer
Private Sub Command1_Click()
i = i + 1
If i = 1 Then
Label1.Caption = "我想告诉你一件事"
ElseIf i = 2 Then
Label1.Caption = "我爱你"
ElseIf i > 2 Then
Label1.Caption = "你进来看看"
i = 0
End If
End Sub

Private Sub Form_Load()
Label1.FontSize = 16
Label1.Caption = "你进来看看"
End Sub

差不多

Static i As Integer
我虽然没用过vb
但是你一个static变量都没赋值你就给他+1能对吗?

没有错啊