[填空題] 假定有如下程序代碼,程序運(yùn)行后,把鼠標(biāo)光標(biāo)移到窗體內(nèi),每單擊一次,變換一種鼠標(biāo)光標(biāo)的形狀,依次顯示鼠標(biāo)光標(biāo)的15個屬性。請在劃線處將程序補(bǔ)充完整。P
2021-07-20
[填空題] 假定有如下程序代碼,程序運(yùn)行后,把鼠標(biāo)光標(biāo)移到窗體內(nèi),每單擊一次,變換一種鼠標(biāo)光標(biāo)的形狀,依次顯示鼠標(biāo)光標(biāo)的15個屬性。請在劃線處將程序補(bǔ)充完整。Private Sub Form_ Click( ) Static x As Integer Cls Print "Mousepointer Property is now "; x Form1. 【12】 =x x=x+1 If x = 15 Then x = 0End Sub
正確答案:MousePointer
參考解析:[評析] MousePointer屬性可以通過代碼設(shè)置,也可以通過屬性窗口設(shè)置,在程序代碼中設(shè)置MousePointer屬性的一般格式為: 對象.MousePointer=設(shè)置值由于程序中使用Static關(guān)鍵字定義變量x,每次單擊窗體時x的值增加1,并且下次單擊窗體時,x能保留上次的值,這樣就能保證每次單擊窗體時看到鼠標(biāo)光標(biāo)都和上一次看到的不一樣。
詞條內(nèi)容僅供參考,如果您需要解決具體問題
(尤其在法律、醫(yī)學(xué)等領(lǐng)域),建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。