UC知道关于实现print打印的问题
来源：百度知道 编辑：UC知道 时间：2024/05/30 01:48:51
假如我现在有一首诗歌
白日依山近，
黄河入海流，
欲穷千里目，
更上一层楼。
我现在要求当我对窗体进行第一次单击的时候显示“白日依山近，”
第二次单击的时候显示“黄河入海流，”
第三次单击的时候显示“欲穷千里目，”
第四次单击的时候显示“更上一层楼。”
也就是说我想知道单击这个动作是第几次执行的？
请高手指点。
白日依山近，
黄河入海流，
欲穷千里目，
更上一层楼。
我现在要求当我对窗体进行第一次单击的时候显示“白日依山近，”
第二次单击的时候显示“黄河入海流，”
第三次单击的时候显示“欲穷千里目，”
第四次单击的时候显示“更上一层楼。”
也就是说我想知道单击这个动作是第几次执行的？
请高手指点。
Private Sub Form_Click()
Static i As Integer
i = i Mod 4 + 1
Select Case i
Case 1: Print "第"; i; "次单击："; "白日依山近，"
Case 2: Print "第"; i; "次单击："; "黄河入海流。"
Case 3: Print "第"; i; "次单击："; "欲穷千里目，"
Case 4: Print "第"; i; "次单击："; "更上一层楼。"
End Select
End Sub