上 機 報 告課程名稱 計算機程序設計基礎(VB) 專業班級姓 名學 號上機題目單選按鈕、復選框、框架、列表框和組合框控件實驗實 驗 室機房同組人數1實驗時間年 月 日成 績指導教師一、實驗目的1．掌握單選按鈕、復選框、框架、列表框和組合框控件的屬性、事件和方法。2．掌握單選按鈕、復選框、框架、列表框和組合框控件的基本編程方法。二、實驗內容（均要求給出運行結果）（一）程序改錯第一題【實驗要求】給定年號與月份，判斷該年是否閏年,并根據給出的月份來判斷是什么季節和該月有多少天？（閏年的條件是：年號能被4整除但不能被100整除，或者能被400整除。）年份 月份 空 —Fixed 空 ...12 判斷 季節 春季 夏季 秋季 冬季 2. 編寫事件代碼： Sub ()Dim Year As , Month As , flag As = Val(Text1.Text)Month = Val(.Text)'**********FOUND**********If Year Mod 4 = 0 And Year Mod 100 0 And Year Mod 400 0 Then'**********FOUND**********flag = = 0End If'**********FOUND********** Case . = "該月有31天".Value = 2If flag = 1 . = "該月有29天".Value = . = "該月有28天".Value = . = "該月有31天".Value = . = "該月有30天".Value = . = "該月有31天".Value = . = "該月有30天".Value = . = "該月有31天".Value = . = "該月有31天".Value = . = "該月有30天".Value = . = "該月有31天".Value = . = "該月有30天".Value = . = "該月有31天".Value = Sub運行界面及程序清單：第二題【實驗要求】本程序功能用于將學生學過的單詞在列表框中顯示出來。
現要完成：（1）單擊“增加單詞”按鈕，將文本框Text1中的單詞添加到列表框中并顯示列表框中的單詞數；（2）單擊“刪除單詞”按鈕列表框vb實驗報告答案，刪除列表框中被選中的項并顯示列表框中的單詞數；（3）單擊“全部清除”按鈕，刪除列表框的全部選擇項并顯示列表框中的單詞數；（4）單擊“退出”按鈕，結束程序。設計及運行界面如圖6-2所示，請修正程序中存在的錯誤。 圖6-2（a）） Sub (). = "請輸入單詞". = "單詞數". = "增加單詞". = "刪除單詞". = "全部清除". = "退出"List1. "apple"List1. ""List1. "child"List1. ""List1. "park"List1. "top"Text1.Text = ""Text2.Text = CStr(Me.List1.)End Sub Sub ()List1. Text1..Text = Str(List1.)Text1 = ""End Sub Sub ()Dim sy As = List1.'**********FOUND**********If sy > 0 Then'**********FOUND**********List1..Text = Str(List1.)End IfEnd Sub Sub ()'**********FOUND**********List1..Text = CStr(List1.)End Sub Sub () Sub運行界面及程序清單：（二）程序填空第一題【實驗要求】在Text1中輸入一段字符，選中“大寫轉為小寫小寫轉為大寫”，單擊“轉換”按鈕后，Text2顯示大小寫相反的字符串；選中“全部小寫”，單擊“轉換”按鈕后，Text2顯示全部小寫的字符串；選中“全部大寫”，單擊“轉換”按鈕后列表框vb實驗報告答案，Text2顯示全部大寫的字符串。
大寫轉為小寫小寫轉為大寫全部大寫全部小寫 Sub ()Dim n As , k As , ch As , a As '**********SPACE**********n = Len(【?】)ch = ""For k = 1 To n '**********SPACE********** a = Mid(Text1.Text,【?】,1 ) If .Value = True a >= "a" And a = "A" And a
