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