帮忙VB简单的作业，谢谢

来源：百度知道 编辑：UC知道 时间：2024/05/29 04:27:17
单击窗体1 屏幕上显示“123”，在窗体1再单击一次就跳出窗体2 显示“234” 后面的再单击一次的代码是怎么写的啊？ 谁知道？（设置一个全局变量,当每单击一次增1,初值为1,值为1则弹出123,值为2时弹出234 我不能理解 因为我是新手 麻烦直接把代码写上 谢谢 我再去研究一下）

Dim i As Integer

Private Sub Form_Click()
If i = 1 Then Print "123"
If i = 2 Then
Form2.Show
Form2.Print "234"
End If
i = i + 1
End Sub

Private Sub Form_Load()
i = 1
End Sub

我也是初学者..如答案有误请大家见谅...

没发现这有啥作用:
所以没完全理解你的意思

Public FrmForm As Form1
Public i As Integer
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Set FrmForm = New Form1
FrmForm.Show
i = i + 1
Select Case i
Case 1
FrmForm.Label1.Caption = 123

Case 2
FrmForm.Label1.Caption = 234
Case 3
i = 0
End Select

End If
End Sub

Dim i As Integer '声明全局变量i

'------------------------------------------------------

Private Sub Form_Load() '窗体1的载入事件过程

i = 1