實(shí)驗(yàn)九命令按鈕標(biāo)簽和文本框答案

1、實(shí)驗(yàn)九 命令按鈕、標(biāo)簽和文本框?qū)嶒?yàn)?zāi)繕?biāo)：1. 熟練掌握命令按鈕、標(biāo)簽和文本框的使用方法2. 掌握命令按鈕、標(biāo)簽和文本框的常用屬性、事件和方法3. 熟悉事件過程的代碼編寫，建立基于圖形用戶界面的應(yīng)用程序?qū)嶒?yàn)內(nèi)容：1）將窗體文件“9-1.Frm” 和 工程文件“9-1.Vbp”上傳到老師的ftp服務(wù)器上的”周一下午” 或 ”周二下午” 或 ”周三晚上” 或 ”周六上午” 你的文件夾中。如：“30808888法學(xué)0801張三”.2）練習(xí)9-2，9-3，9-4 也同樣將窗體文件和工程文件上傳到老師的ftp服務(wù)器上?！揪毩?xí)9-1】窗體上有兩個(gè)文本框Text1、Text2和兩個(gè)標(biāo)簽框Label1、Labe

2、l2，為了實(shí)時(shí)的使Label1顯示Text1的內(nèi)容、Label2顯示Text2的內(nèi)容，也為了比較兩個(gè)事件的區(qū)別，編寫了如下的事件過程。Private Sub Text1_Change()Label1.Caption = Text1.TextEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)Label2.Caption = Text2.TextEnd Sub上機(jī)實(shí)踐調(diào)試運(yùn)行以上程序。工程運(yùn)行后，觀察結(jié)果，如果要使Label2實(shí)時(shí)顯示Text2的內(nèi)容，應(yīng)當(dāng)怎樣修改Keypress事件中的代碼？Private Sub Text2_KeyPre

3、ss(KeyAscii As Integer)Label2.Caption = Label2.Caption + Chr(KeyAscii)End Sub【練習(xí)9-2】編程，為圖片框控件加載汽車圖片，命令按鈕Command1的標(biāo)題初態(tài)為“前進(jìn)”，按該按鈕時(shí)：若標(biāo)題為“前進(jìn)”，則圖片向左移動，當(dāng)圖片移到窗體的左邊沿時(shí)，將按鈕標(biāo)題改為“倒車”；若標(biāo)題為“倒車”，則圖片向右移動，當(dāng)圖片移到窗體的右邊沿時(shí)，將按鈕標(biāo)題改為“前進(jìn)”。提示程序如下：Private Sub Command1_Click() If Command1.Caption = "倒車" Then Picture1.

4、Left = Picture1.Left + 100 Else Picture1.Left = Picture1.Left - 100 End IfIf Picture1.Left <= 0 Then Command1.Caption = "倒車" ElseIf Picture1.Left >= Form1.ScaleWidth - Picture1.Width Then Command1.Caption = "前進(jìn)" End IfEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Su

5、b Form_Load() Picture1.Picture = LoadPicture("f:car1.wmf") Command1.Caption = "前進(jìn)" Command2.Caption = "退出"End Sub上機(jī)實(shí)踐將以上程序補(bǔ)充完整并調(diào)試運(yùn)行?！揪毩?xí)9-3】界面設(shè)計(jì)如下，有四個(gè)標(biāo)簽框、四個(gè)文本框和兩個(gè)命令按鈕。1當(dāng)單擊"確定"按鈕后,首先比較"用戶名"和"原密碼"是否一致，若一致且都為"admin",則繼續(xù)執(zhí)行步驟4；否則彈出消息框,提

6、示用戶出錯,并讓用戶重新輸入；2比較“新密碼（N）”和“新密碼（S）”，若兩者一致，彈出密碼修改成功消息框，程序終止執(zhí)行。否則彈出錯誤消息，并讓用戶重新輸入。3所有消息框按Design.exe所示設(shè)計(jì)。4當(dāng)單擊“取消”按鈕時(shí),程序終止執(zhí)行。5當(dāng)按"Tab"鍵時(shí)，保證按照“用戶名”、“原密碼”、“新密碼（N）”、“新密碼（S）”、“確定”按鈕和“取消”按鈕順序訪問各控件。Private Sub Form_load() Text1.Text = "" Text2.Text = "" Text3.Text = "" Te

7、xt4.Text = "" Text1.TabIndex = 0 Text2.TabIndex = 1 Text3.TabIndex = 2 Text4.TabIndex = 3 Label1.Caption = "用戶名（&U）" Label2.Caption = "原密碼（&P）" Label3.Caption = "新密碼（&N）" Label4.Caption = "新密碼（&S）" Command1.Caption = "確定" Co

8、mmand2.Caption = "取消" Command1.TabIndex = 4 Command1.TabIndex = 5End SubPrivate Sub Command1_Click() Const password As String = "admin" Text1.SetFocus If Text1.Text <> password Or Text2.Text <> password Then MsgBox ("原密碼出錯,請重新輸入") Text1.Text = "" T

9、ext2.Text = "" Text1.SetFocus ElseIf Text3.Text = Text4.Text Then MsgBox ("密碼修改成功!") End Else MsgBox ("新密碼出錯,請重新輸入!") Text3.Text = "" Text4.Text = "" Text3.SetFocus End IfEnd SubPrivate Sub Command2_Click() EndEnd Sub上機(jī)實(shí)踐調(diào)試運(yùn)行以上程序?！揪毩?xí)9-4】界面設(shè)計(jì)如下，有三個(gè)標(biāo)簽框

10、、三個(gè)文本框和兩個(gè)命令按鈕。1三個(gè)文本框中，上面兩個(gè)分別用于輸入商品單價(jià)和商品數(shù)量，單擊“計(jì)算”，將應(yīng)付款顯示在下面一個(gè)文本框中。文本框均不接受非數(shù)字鍵。2最下面一個(gè)文本框不能直接輸入。3單擊“清空”按鈕，三個(gè)文本框內(nèi)容被清空，同時(shí)第一個(gè)文本框獲得焦點(diǎn)。Private Sub Command1_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text1.SetFocusEnd SubPrivate Sub Command2_Click() Text3.Text = Val

11、(Text1.Text) * Val(Text2.Text)End SubPrivate Sub Form_load() Label1.Caption = "商品單價(jià):" Label2.Caption = "商品數(shù)量:" Label3.Caption = "應(yīng)付款:" Command1.Caption = "清除" Command2.Caption = "計(jì)算"Text1.Text = "" Text2.Text = "" Text3.Text = "" Text3.Locked = TrueEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii >