[填空題] 以下所列程序的功能是：在窗體上有一個文本框控件，程序運行后，用戶可以利用鼠標(biāo)左鍵來拖動該文本框控件(注意：拖動時，文本框移動的距離和方向由鼠標(biāo)指針移動的距離和方向來確定)，按下鼠標(biāo)右鍵則可以在文本框中顯示出當(dāng)前文本控件的位置。 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坐標(biāo)：”+Str(Text1．Left)+“Y坐標(biāo)：”+Str(Text1．Top) End If End Sub

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

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