初学VB遇到的一个程序设计题

来源：百度知道 编辑：UC知道 时间：2024/06/14 04:42:14
最近正在自学VB，遇到一个编程题，题目是这样的：
当用户单击窗体时，在标题栏显示“鼠标单击窗体”，在窗体显示“您好，欢迎使用VB”当用户双击窗体时，在标题栏显示“鼠标双击窗体”，在窗体显示“再见，谢谢使用VB”。
希望有知道的大侠们指点小弟一下，最好能把程序设计的过程写出来。
（希望大家别见笑，小弟没有任何编程经验）
我设计的程序是这样的：Private Sub Form_Click()
Form1.FontSize = 20
Form1.FontName = "黑体"
Form1.ForeColor = RGB(255, 0, 0)
Form1.Print "你好,欢迎使用VB"
Form1.Caption = 鼠标单击窗体
End Sub

Private Sub Form_DblClick()
Form1.FontSize = 20
Form1.FontName = "黑体"
Form1.ForeColor = RGB(255, 0, 0)
Form1.Print "再见,谢谢使用VB"
Form1.Caption = 鼠标双击窗体
End Sub
我运行这程序的时候标题栏显示不出来，而且双击的时候老是先触发单击事件

Private Sub Form_Click()
Cls
Form1.FontSize = 20
Form1.FontName = "黑体"
Form1.ForeColor = RGB(255, 0, 0)
Form1.Print "你好,欢迎使用VB"
Form1.Caption = "鼠标单击窗体"
End Sub

Private Sub Form_DblClick()
Cls
Form1.FontSize = 20
Form1.FontName = "黑体"
Form1.ForeColor = RGB(255, 0, 0)
Form1.Print "再见,谢谢使用VB"
Form1.Caption = "鼠标双击窗体"
End Sub

Dim isDBc As Boolean

Private Sub Form_Click()
isDBc = False
Timer1.Enabled = True
End Sub

Private Sub Form_DblClick()
isDBc = True
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Interval = 300
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
If isDBc <> True Then
Me.Print "你好,欢迎使用VB"
Me.Caption = "鼠标单击窗体"
Else
Me.Print "再见,谢谢使用VB"