设计一个VB程序要求当用户在窗体上点击鼠标左键时,能在鼠标位置显示一个“*” 。

Question

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.CurrentX =
Form1.CurrentY =

End Sub
请填下内容

Answer 1

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.CurrentX = X
Form1.CurrentY = Y
Form1.Print "*"
End Sub本回答被提问者采纳