vb鼠標(biāo)編程題目及答案以下是一些VB鼠標(biāo)編程的題目及其答案：題目1：編寫一個(gè)VB程序，當(dāng)鼠標(biāo)移動(dòng)到窗體上時(shí)，顯示鼠標(biāo)的坐標(biāo)。答案：```vbPrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Label1.Caption="鼠標(biāo)坐標(biāo)：("&X&","&Y&")"EndSub```題目2：編寫一個(gè)VB程序，當(dāng)鼠標(biāo)左鍵單擊窗體時(shí)，窗體背景色變?yōu)榧t色；當(dāng)鼠標(biāo)右鍵單擊窗體時(shí)，窗體背景色變?yōu)樗{(lán)色。答案：```vbPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1Then'鼠標(biāo)左鍵Me.BackColor=vbRedElseIfButton=2Then'鼠標(biāo)右鍵Me.BackColor=vbBlueEndIfEndSub```題目3：編寫一個(gè)VB程序，當(dāng)鼠標(biāo)在窗體上移動(dòng)時(shí)，顯示鼠標(biāo)的坐標(biāo)和鼠標(biāo)指針的形狀。答案：```vbPrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Label1.Caption="鼠標(biāo)坐標(biāo)：("&X&","&Y&")"Label2.Caption="鼠標(biāo)指針形狀："&GetCursorName(Windows.Forms.Cursor.Current)EndSubPrivateFunctionGetCursorName(ByValcursorAsWindows.Forms.Cursor)AsStringSelectCasecursor.TypeCaseWindows.Forms.Cursors.AppStartingGetCursorName="AppStarting"CaseWindows.Forms.Cursors.ArrowGetCursorName="Arrow"CaseWindows.Forms.Cursors.CrossGetCursorName="Cross"'...其他鼠標(biāo)指針形狀EndSelectEndFunction```題目4：編寫一個(gè)VB程序，當(dāng)鼠標(biāo)左鍵雙擊窗體時(shí)，彈出一個(gè)消息框顯示“雙擊事件觸發(fā)”。答案：```vbPrivateSubForm_MouseDblClick(ByValsenderAsObject,ByValeAsMouseEventArgs)HandlesMyBase.MouseDblClickMessageBox.Show("雙擊事件觸發(fā)")EndSub```題目5：編寫一個(gè)VB程序，當(dāng)鼠標(biāo)在窗體上移動(dòng)時(shí)，顯示鼠標(biāo)的坐標(biāo)和鼠標(biāo)指針是否在窗體的左半部分。答案：```vbPrivateSubForm_MouseMove(ByValsenderAsObject,ByValeAsMouseEventArgs)HandlesMyBase.MouseMoveLabel1.Text="鼠標(biāo)坐標(biāo)：("&e.X.ToString()&","&e.Y.ToString()&")"Ife.X<Me.Width/2ThenLabel2.Text="鼠標(biāo)指針在窗體左半部分"ElseLabel2.Text="鼠標(biāo)指針在窗體右半部分"EndIfEndSub```以上是一些基本的VB鼠標(biāo)編程題目及其答案。你可以根據(jù)自己的需求進(jìn)行修改和擴(kuò)展。希望這些示例對(duì)你有所幫助。題目6：編寫一個(gè)VB程序，當(dāng)鼠標(biāo)在窗體上移動(dòng)時(shí)，顯示鼠標(biāo)的坐標(biāo)和鼠標(biāo)指針是否在窗體的上半部分。答案：```vbPrivateSubForm_MouseMove(ByValsenderAsObject,ByValeAsMouseEventArgs)HandlesMyBase.MouseMoveLabel1.Text="鼠標(biāo)坐標(biāo)：("&e.X.ToString()&","&e.Y.ToString()&")"Ife.Y<Me.Height/2ThenLabel2.Text="鼠標(biāo)指針在窗體上半部分"ElseLabel2.Text="鼠標(biāo)指針在窗體下半部分"EndIfEndSub```題目7：編寫一個(gè)VB程序，當(dāng)鼠標(biāo)在窗體上移動(dòng)時(shí)，顯示鼠標(biāo)的坐標(biāo)和鼠標(biāo)指針是否在窗體的中央?yún)^(qū)域。答案：```vbPrivateSubForm_MouseMove(ByValsenderAsObject,ByValeAsMouseEventArgs)HandlesMyBase.MouseMoveLabel1.Text="鼠標(biāo)坐標(biāo)：("&e.X.ToString()&","&e.Y.ToString()&")"Ife.X>Me.Width/4Ande.X<Me.Width3/4Ande.Y>Me.Height/4Ande.Y<Me.Height3/4ThenLabel2.Text="鼠標(biāo)指針在窗體中央?yún)^(qū)域"ElseLabel2.Text="鼠標(biāo)指針不在窗體中央?yún)^(qū)域"EndIfEndSub```題目8：編寫一個(gè)VB程序，當(dāng)鼠標(biāo)左鍵單擊窗體時(shí)，窗體背景色變?yōu)殡S機(jī)顏色；當(dāng)鼠標(biāo)右鍵單擊窗體時(shí)，窗體背景色變?yōu)楹谏?。答案：```vbPrivateSubForm_MouseDown(ByValsenderAsObject,ByValeAsMouseEventArgs)HandlesMyBase.MouseDownIfe.Button=MouseButtons.LeftThen'鼠標(biāo)左鍵Me.BackColor=Color.FromArgb(CInt(Rnd()256),CInt(Rnd()256),CInt(Rnd()256))ElseIfe.Button=MouseButtons.RightThen'鼠標(biāo)右鍵Me.BackColor=Color.BlackEndIfEndSub```題目9：編寫一個(gè)VB程序，當(dāng)鼠標(biāo)在窗體上移動(dòng)時(shí)，顯示鼠標(biāo)的坐標(biāo)和鼠標(biāo)指針是否在窗體的左上角區(qū)域。答案：```vbPrivateSubForm_MouseMove(ByValsenderAsObject,ByValeAsMouseEventArgs)HandlesMyBase.MouseMoveLabel1.Text="鼠標(biāo)坐標(biāo)：("&e.X.ToString()&","&e.Y.ToString()&")"Ife.X<Me.Width/4Ande.Y<Me.Height/4ThenLabel2.Text="鼠標(biāo)指針在窗體左上角區(qū)域"ElseLabel2.Text="鼠標(biāo)指針不在窗體左上角區(qū)域"EndIfEndSub```題目10：編寫一個(gè)VB程序，當(dāng)鼠標(biāo)在窗體上移動(dòng)時(shí)，顯示鼠標(biāo)的坐標(biāo)和鼠標(biāo)指針是否在窗體的右下角區(qū)域。答案：```vbPrivateSubForm_MouseMove(ByValsenderAsObject,ByValeAsMouseEventArgs)HandlesMyBase.MouseMoveLabel1.Text="鼠標(biāo)坐標(biāo)：("&e.X.ToString()&","&e.Y.ToString()&")"Ife.X>Me.Width