[填空題] 在窗體上有一個(gè)“背景色變換”按鈕和一個(gè)“結(jié)束”按鈕。單擊“背景色變換”按鈕,背景色變?yōu)榧t色;再單擊,背景色變?yōu)榫G色;再單擊,背景色變?yōu)樗{(lán)色;再單擊背
[填空題] 在窗體上有一個(gè)“背景色變換”按鈕和一個(gè)“結(jié)束”按鈕。單擊“背景色變換”按鈕,背景色變?yōu)榧t色;再單擊,背景色變?yōu)榫G色;再單擊,背景色變?yōu)樗{(lán)色;再單擊背景色變?yōu)榧t色 ……如此循環(huán)。單擊“結(jié)束”按鈕,程序運(yùn)行結(jié)束。請(qǐng)?zhí)羁铡! rivate Sub cmdChange_Click() If Mark=0 Then 【 】 Mark=1 ElseIf【 】Then Forml.BackColor=vbGreen Mark=2 ElseIf Mark=2 Then Form1.BackColor;vbBlue 【 】 End If End Sub Private Sub cmdExit_Click() End End Sub
正確答案:Form1.BackColor = vbRed
參考解析:首先過(guò)程中定義了一個(gè)模塊級(jí)整型變量Mark,每次都保留上次運(yùn)行后的 值。由程序可以看出:本題約定Mark等于0表示背景色為紅色;Mark等于1表示背景色為 綠色;Mark等于2表示背景色為藍(lán)色,每次單擊運(yùn)行后要將Mark變?yōu)橄麓芜\(yùn)行時(shí)的值,以 便符合題目要求。所以第一個(gè)空應(yīng)為Form1.BackColor= vbRed,第二個(gè)空為Mark=1;當(dāng)背景色變 為藍(lán)色后再單擊背景色要變?yōu)榧t色,所以應(yīng)將Mark變?yōu)?,所以第三個(gè)空為Mark=0。
詞條內(nèi)容僅供參考,如果您需要解決具體問(wèn)題
(尤其在法律、醫(yī)學(xué)等領(lǐng)域),建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。