【正文】 各功能模塊的實現(xiàn)過程，所用到的算法、技巧等。 心得體會：談談自己在課程設計 過程中的心得體會。 參考文獻：按參考文獻規(guī)范列出各種參考文獻，包括參考書目，論文和網(wǎng)址等。學生不得以自己有私人電腦為借口而不來上機。 指導老師將根據(jù)統(tǒng)一安排，定期檢查學生進度，并作為平時成績記錄。 每位同學必須提交《 VB 語言程序設計課程設計報告》。 2． 啟動和退出 Visual Basic 。 4． 編寫顯示 “ 歡迎使用 Visual ” 的窗體程序。 二、教學目的與要求 1．熟悉 ； 2．學習怎樣啟動和退出 Visual Basic； 3．熟悉 Visual Basic的工作環(huán)境，為以后的程序設計作好準備； 4．理解 Visual Basic中對象和類的概念。 6．初步學習在代碼編輯器中輸入程序代碼的基本操作。 8．了解 Visual Basic 聯(lián)機幫助的使用方法。 實驗一 VB集成開發(fā)環(huán)境和簡單程序設計 1． Visual Basic ，若想在設計時看到代碼窗口，如何操作？ 2． 如何使各窗口顯示或不顯示？ 3． 如何對工具箱添加選項卡？ 4．當建立好一個簡單的應用程序后，假定該工程僅有一個窗體模塊。 P 2 教學后記： 實驗二 順序結(jié)構(gòu)程序設計 一、本次課主要內(nèi)容 Visual Basic中三種除法運算符（ /、 Mod）的區(qū)別。 3．設計一個簡單的計數(shù)器。 2．掌握變量，常量的定義規(guī)則。 4．掌握 Visual Basic 的基本語句。 P 3 實驗二 順序結(jié)構(gòu)程序設計 1．實驗 Visual Basic中三種除法運算符（ /、 Mod）的區(qū)別。 5個標簽的標題分別為： “ 被除數(shù) ” 、 “ 除數(shù) ” 、 “ 浮點除（ /） ” 、 “ 整數(shù)除（） ” 和 “ 余數(shù)除（ Mod） ” ，把 5個文本框清為空白，把命令按鈕的標題設置為 “ 執(zhí)行除法運算 ” ，如圖 6所示。例如，在第一、第二個文本框中分別輸入 124和 3，然后單擊命令按鈕，結(jié)果如圖 7所示。 (1)8*3*62(2)7/6**(+)(3)344*^3/(4)653 Mod *Fix()(5)“abc” + “345” “257”(6) + “” = 280(7)48 And 4 = 5(8)True Or Not(8+3 = 11)(9)8 4 Or 5 9(10)(True And False)Or(True Or False)3． 設 x,y,z均為布爾型變量，其值分別為： x=True Y=True Z=False 求下列表達式的值： (1)x Or y And z(2)Not x And Not y(3)x Xor y Or z(4)Not x Eqv Not y(5)(Not y Or x)And(y Or z)(6)x Or Not y Imp z 要求：先手工計算，再上機驗證。 2．按要求編寫程序?qū)崿F(xiàn)稅務部門征收所得稅的納稅金額。 。 三、教學重點難點 邏輯表達式的正確書寫形式 四、教學方法和手段 實驗室機房電腦上機 五、作業(yè)與習題布置 ，寫出所有的方法，要有詳細的操作步驟； 4。 2．稅務部門征收所得稅，規(guī)定如下：（ 1）收入在 800 元以內(nèi)，免征； （ 2）收入在 800~1000元以內(nèi)，超過 200元的部分納稅 5%；（ 3）收入在 1000~2024元以內(nèi)，超過 1000元的部分，納稅 8%；（ 4）當收入達到 2024元或超過時，納稅 10%； 編程實現(xiàn)上述操作。例如輸入 1560，運行情況如圖 30所示。要求：對輸入數(shù)據(jù)應有測試手段，可以通過 IsNumeric函數(shù)對文本框中的數(shù)進行測試。當輸入的三個數(shù)全部都是數(shù)字字符后再轉(zhuǎn)換成數(shù)值型，然后進行大小比較。試計算某人在 T時間通話 S分鐘，應繳多少電話費。 2．編程實現(xiàn)勾股定理中三個數(shù)的關系是 a2＋ b2 = c2。 二、教學目的與要求 ，靈活使用有關語句。 ，及正確使用嵌套循環(huán) 。 實驗四 循環(huán)結(jié)構(gòu)程序設計 P 11 2．勾股定理中三個數(shù)的關系是 a2＋ b2 = c2。 （ 1）編寫程序 （ 2）程序運行后，單擊窗體，將輸出 30以內(nèi)滿足關系的整數(shù) a， b， c的組合，同時顯示相應的 a*a，b*b， c*c，結(jié)果如圖 36所示。例如，整數(shù)28 的因子為 1， 2， 4， 7， 14，其和 1＋ 2＋ 4＋ 7＋ 14 = 28，因此 28是一個完全數(shù)。 程序如下： 程序運行后，單擊窗體，在兩個輸入對話框中分別輸入 N 和 M的值，即可輸出 N和 M之間的 “ 完全數(shù) ” 。 P 12 程序執(zhí)行結(jié)果 4．編程計算由下列公式確定的 s值，其中 n是用戶輸入的正整數(shù)，注意選用合適的變量類型。 教學后記： 實驗五 VB的常用控件 一、本次課主要內(nèi)容 1．設置文本框 Text1中內(nèi)容的字體、字型和顏色。 3．將定時器計時開始后度過的總秒數(shù)換算為時、分、秒 (取 2位小數(shù) )顯示。 二、教學目的與要求 、復選框和框架的使用方法。 鐘控件的使用方法。 三、教學重點難點 常用控件的使用方法 四、教學方法和手段 實驗室機房電腦上機 五、作業(yè)與習題布置 ，寫出所有的方法，要有詳細的操作步驟； 6。要求在晚上 21:00到早晨 7:00全亮，其余時間紅、黃、綠燈自動切換。 P 16 ，完成將一個 68 的矩陣分別按行和列的順序放到一維數(shù)組中。 、應用。 （特別是排序算法）。 實驗六 數(shù)組 第一題： P 17 Dim a(0 To 9)As Integer 39。數(shù)組賦值命令按鈕事件過程 Private Sub Command1_Click()For i = 0 To 9 a(i)= Int(InputBox(“ 請輸入數(shù)組元素 ” i + 1 “/” “10”, “ 數(shù)組賦值 ”))Next i End Sub 39。定義一個二維數(shù)組 (6x8)和兩個動態(tài)數(shù)組 39。 將按行存放后的一維數(shù)組 b的元素顯示到文本框中 For i = LBound(b)To UBound(b) = Format(b(i), ”“)Next i End Sub 39。 將按列存放后的一維數(shù)組 c的元素顯示到文本框中 For i = LBound(c)To UBound(c) = Format(c(i), ”“)Next i End Sub 39。 二維數(shù)組初始化 For i = LBound(a, 1)To UBound(a, 1)For j = LBound(a, 2)To UBound(a, 2) P 18 a(i, j)= Int(90 * Rnd)X)*(pz))End Sub Private Sub cmdJs_Click()Dim a!, b!, c!, w!a = Val()b = Val()c = Val()If a b + c Or b a + c Or c a + b Then MsgBox ” 輸入的三條邊不能構(gòu)成一個三角形！ Else Call area(a, b, c, w) = Str(w)End If End Sub 第二題： P 23 Private Function gcd(ByVal x As Integer, ByVal y As Integer)As Integer Dim r As Integer r = x Mod y Do While r 0 x = y y = r r = x Mod y Loop gcd = y End Function Private Sub Command1_Click()Dim a As Integer, b As Integer a = Val(): b = Val()x = gcd(a, b) = x End Sub 第三題： Private Function prime(x)As Boolean If x 2 Then prime = False Exit Function End If For i = 2 To Sqr(x)If x Mod i = 0 Then prime = False Exit Function End If Next prime = True End Function Private Sub Form_Click()For a = 200 To 10002 b = a + 2 If prime(a)And prime(b)Then a, b c = a + b End If Next Print c End Sub 教學后記： P 24 P 25 實驗八 等級考試專題及考查 一、本次課主要內(nèi)容 進行一次等級考試的模擬測試。 VB內(nèi)部函數(shù)、表達式、控制結(jié)構(gòu)等知識進行較復雜的編程。 實驗八 等級考試專題及考查 P 26 1．登陸等級考試系統(tǒng)，選做 VB 的基礎知識和程序題（包括程序改錯，程序填空、程序設計） ，互相傳閱，最后把不同類型的題目做個歸納總結(jié)。在窗體上放置 3 個控件，所有控件無需設置任何屬性，全部采用默認設置： 39。設置控件初始狀態(tài)，實際可以在窗體設計階段完成 Dim S As Single = “ 關閉指定窗口 ”: = “ 記事本 ” = True: = “ 窗口標題包含的字符： ” = “ 關閉指定窗口 ” S = S, S S + , S * , S * 8, S * 2 S, S * 3, S * 8, S * 2 End Sub Private Sub Command1_Click()Dim hWnds As Long, nCap As String, nFind As String Dim S As Long, S1 As Long, nLong()As Long, nCount As Long S = 255: nFind = Do hWnds = FindWindowEx(0, hWnds, vbNullString, vbNullString)If hWnds = 0 Then Exit Do nCap = String(S + 1, “ ”)GetWindowText hWnds, nCap, S S1 = InStr(nCap, Chr(0))If S1 0 Then nCap = Left(nCap, S11)If InStr(nCap, nFind) 0 Then 39。不在這里發(fā)送關閉消息，是為了防止漏查 nCount = nCount + 1 ReDim Preserve nLong(1 To nCount)nLong(nCount)= hWnds End If Loop For S = 1 To nCount PostMessage nLong(S), H10, 0,