列表框、組合框復(fù)習(xí).doc

江蘇省無(wú)錫立信職教中心校教案課 題列表框、組合框復(fù)習(xí)課 型復(fù)習(xí)、練習(xí)授課日期2010.5.20授課時(shí)數(shù)2教學(xué)目標(biāo)鞏固掌握列表框、組合框添加、刪除項(xiàng)目的方法復(fù)習(xí)收集表單信息的方法教學(xué)重點(diǎn)添加、刪除項(xiàng)目的方法教學(xué)難點(diǎn)相似方法和屬性較難區(qū)分學(xué)情分析采用項(xiàng)目教學(xué)，讓學(xué)生鞏固復(fù)習(xí)前面所學(xué)知識(shí)。板書設(shè)計(jì)教師展示項(xiàng)目樣品項(xiàng)目一：籍貫調(diào)查項(xiàng)目二：課程選修1創(chuàng)建用戶界面2設(shè)置屬性3編寫代碼4調(diào)試和運(yùn)行學(xué)生練習(xí)、教師輔導(dǎo)作品點(diǎn)評(píng)、作品上傳教學(xué)后記通過(guò)復(fù)習(xí)學(xué)生整體完成情況明顯好轉(zhuǎn)。江蘇省無(wú)錫立信職教中心校備課筆記教 學(xué) 內(nèi) 容學(xué)生活動(dòng)項(xiàng)目一：籍貫調(diào)查1創(chuàng)建用戶界面2設(shè)置屬性3編寫代碼附代碼：Private Sub Form_Load()Combo1.AddItem (江蘇)Combo1.AddItem (浙江)Combo1.ListIndex = 0End Sub Private Sub Combo1_Click()Combo2.ClearSelect Case Combo1.Text Case 江蘇 Combo2.AddItem (無(wú)錫市) Combo2.AddItem (鹽城市) Combo2.AddItem (蘇州市) Case 浙江 Combo2.AddItem (杭州市) Combo2.AddItem (寧波市)End SelectCombo2.ListIndex = 0End Sub學(xué)生練習(xí)、教師輔導(dǎo)總結(jié)學(xué)生按照所示圖進(jìn)行制作學(xué)生練習(xí)江蘇省無(wú)錫立信職教中心校備課筆記教 學(xué) 內(nèi) 容學(xué)生活動(dòng)項(xiàng)目二：課程選修附圖：（運(yùn)行結(jié)果）附代碼：Private Sub Command3_Click()List1.AddItem List2.TextList2.RemoveItem List2.ListIndexEnd SubPrivate Sub Command4_Click()For i = List2.ListCount - 1 To 0 Step -1 List1.AddItem List2.List(i) List2.RemoveItem (i)NextEnd SubPrivate Sub Command5_Click()Dim str As Stringxi = Combo1.Textzy = Combo2.TextFor i = 0 To List1.ListCount - 1 kc = kc + List1.List(i) + Nextstr = 你的籍貫是： + vbCrLf + 所在?。?+ xi + vbCrLf + 所在市： + zy + vbCrLf +