求一道VB题的答案啊。

编程题1.在窗体上建立一个标签，当单击窗体时，在标签上显示“你单击了窗体”；当双击窗体时，在标签上显示“你双击了窗体”

Private Sub Form_Click()
Label1.Caption = "你单击了窗体"
End Sub

Private Sub Form_DblClick()
Label1.Caption = "你双击了窗体"
End Sub

2、设计应用程序，要求在窗体上输出如图13所示的简单图形，窗体不可改变大小。当单击“清屏”按钮，清除窗体上显示的图形，同时，命令按钮显示为“单击窗体退出”且移至窗体左上角改变为原大小的两倍；单击窗体后退出应用程序。

Private Sub Command1_Click()
If Command1.Caption = "清屏" Then
Me.Cls
Command1.Caption = "单击窗体退出"
Command1.Move 0, 0, Command1.Width * 2, Command1.Height * 2
End If
End Sub

Private Sub Form_Click()
Unload Me
End Sub

Private Sub Form_Load()

'在属性面板中调整：
'设置窗体的BorderStyle属性为 1或者3
'设置窗体的ControlBox属性为false

Me.AutoRedraw = True

Print Tab(2); String(4, "★"); Spc(4); String(1, "★")

Print Tab(2); String(3, "★"); Spc(4); String(2, "★")

Print Tab(2); String(2, "★"); Spc(4); String(3, "★")

Print Tab(2); String(1, "★"); Spc(4); String(4, "★")

Command1.Caption = "清屏"
End Sub