[填空題] 以下所列程序的功能是：在窗體上有一個文本框控件，程序運行后，用戶可以利用鼠標左鍵來拖動該文本框控件(注意：拖動時，文本框移動的距離和方向由鼠標指針移動的距離和方向來確定)，按下鼠標右鍵則可以在文本框中顯示出當前文本控件的位置。 Public yx As Integer Public yy As Integer Private Sub Form_ MouseMove(Button AS Integer，Shift As Integer，_ X As Single，Y As Single) If Button=1 Then Text1．Left= 【11】 Text1．Top= 【12】 End If End Sub Private Sub Form_ MouseDown (Button As Integer，Shift As Integer，_ X As Single，Y As Single) If 【13】 Then yx=Text1．Left-X yy=Text1．Top-Y End If If Button=2 Then Text1．Text=“X坐標：”+Str(Text1．Left)+“Y坐標：”+Str(Text1．Top) End If End Sub

[11]X+yx [12]Y+yy [13]Button＝1

在按下鼠標的時候，也即在Form_MouseDown事件過程中，首先應該要區(qū)分按下的是鼠標的左鍵還是右鍵，如果按下的是鼠標右鍵，則應該在文本框中顯示當前文本框的位置，即當參數(shù)Button＝2時，應該執(zhí)行語句Text1.Text＝"X坐標：”+Str(Text1.Left)+"Y坐標："+Str(Text1.Top)。因為題目要求文本框移動的距離和方向都由鼠標指針的移動距離和方向來確定，所以按下鼠標左鍵，在移動之前有必要記下當前文本框與鼠標指針間的相對距離(見語句yx=Text1．Left-X和yy＝Text1.Top-Y)，所以其前面的條件語句中的條件應該是參數(shù)Button=1。開始移動鼠標指針后，得到的X和Y的值都是當前鼠標指針所在的位置，要使得文本框相對于鼠標指針的位置不變，所以，應該給X和Y的值都加上在按下鼠標左鍵時鼠標指針與文本框的相對位置。