第8題:
在Form1的窗體上畫一個(gè)文本框,其名稱為Text1;再畫兩個(gè)命令按鈕,
其名稱分別為C1和C2,標(biāo)題分別為"顯示"和"退出",編寫適當(dāng)?shù)氖录?過(guò)程。程序運(yùn)行后,在窗體加載時(shí)使"退出"按鈕不可用,如果單擊"顯 示"按鈕,則在文本框中顯示"等級(jí)考試",并使"退出"按鈕可用,此 時(shí)如果單擊"退出"按鈕,則結(jié)束程序,程序運(yùn)行情況如圖所示。
解題方法:
新建一個(gè)名為Form1的窗體,點(diǎn)擊工具箱中的CommandButton控件圖標(biāo),然后在窗體上拖拉出兩個(gè)命令按鈕,通過(guò)屬性窗口分別設(shè)置其Name屬性為"C1"和"C2",Caption屬性為"顯示"和"退出"。
點(diǎn)擊工具箱中的TextBox控件圖標(biāo),然后在窗體上拖拉出一個(gè)文本框。
打開(kāi)代碼窗口,輸入如下的代碼:
Private Sub C1_Click()
C2.Enabled = True
Text1.Text = "等級(jí)考試"
End Sub
Private Sub C2_Click()
End
End Sub
第9題:
在Form1的窗體上畫一個(gè)命令按鈕,其名稱為C1,標(biāo)題為"顯示";再畫
一個(gè)文本框,其名稱為Text1,編寫適當(dāng)?shù)氖录^(guò)程。程序運(yùn)行后,在窗 體加載時(shí)使文本框不可見(jiàn),如果雙擊窗體,則文本框出現(xiàn);此時(shí)如果單擊 命令按鈕,則在文本框中顯示"等級(jí)考試"。程序運(yùn)行情況如圖所示。
解題方法:
新建一個(gè)名為Form1的窗體,點(diǎn)擊工具箱中的CommandButton控件圖標(biāo),然后在窗體上拖拉出一個(gè)命令按鈕,通過(guò)屬性窗口設(shè)置其Name屬性為"C1",Caption屬性為"顯示"。
點(diǎn)擊工具箱中的TextBox控件圖標(biāo),然后在窗體上拖拉出一個(gè)文本框。
打開(kāi)代碼窗口,輸入如下的代碼:
Private Sub C1_Click()
Text1.Text = "等級(jí)考試"
End Sub
Private Sub Form_DblClick()
Text1.Visible = True
End Sub
Private Sub Form_Load()
Text1.Visible = False
End Sub
第10題:
在窗體上畫一個(gè)文本框,其名稱為Text1,Text屬性為空白。再畫一個(gè)命 令按鈕,其名稱為C1,Visible屬性為False。編寫適當(dāng)?shù)氖录^(guò)程。程序 運(yùn)行后,如果在文本框中輸入字符,則命令按鈕出現(xiàn)。程序運(yùn)行情況如圖 所示。
解題方法:
新建一個(gè)窗體,點(diǎn)擊工具箱中的TextBox控件圖標(biāo),然后在窗體上拖拉出一個(gè)文本框,通過(guò)屬性窗口設(shè)置其Text屬性為""。
點(diǎn)擊工具箱中的CommandButton控件圖標(biāo),然后在窗體上拖拉出一個(gè)命令按鈕,通過(guò)屬性窗口設(shè)置其Name屬性為"C1",Visible屬性為False。
打開(kāi)代碼窗口,輸入如下的代碼:
Private Sub Text1_Change()
C1.Visible = True
End Sub
按要求保存文件即完成本題。