第一篇：《面向?qū)ο蟪绦蛟O(shè)計(jì)技術(shù)》課程設(shè)計(jì)要求及進(jìn)度安排和成績評定方法

《面向?qū)ο蟪绦蛟O(shè)計(jì)技術(shù)》課程設(shè)計(jì)要求及進(jìn)度安排和成績評定方法

一、設(shè)計(jì)要求

1、設(shè)計(jì)的題目要求達(dá)到一定工作量，并具有一定的深度和難度，程序代碼不得少于200行。

2、按面向?qū)ο蟮某绦蛟O(shè)計(jì)思想對問題進(jìn)行抽象，并有相應(yīng)文檔產(chǎn)生。

3、要求設(shè)計(jì)的軟件能夠正確運(yùn)行，達(dá)到題目要求。

4、編寫出課程設(shè)計(jì)說明書（并附程序源代碼），以電子文檔方式上交教師批閱。設(shè)計(jì)說明書主要包括以下內(nèi)容：

(1)對所設(shè)計(jì)的問題進(jìn)行詳細(xì)描述。

(2)系統(tǒng)所完成的功能描述。

(3)論述所設(shè)計(jì)的問題抽象方法及設(shè)計(jì)方法。

(4)所設(shè)計(jì)軟件的測試方法、測試數(shù)據(jù)及測試結(jié)果。

(5)對所設(shè)計(jì)的軟件進(jìn)行自我評價(jià)，如創(chuàng)新點(diǎn)、未解決的問題等情況說明。

(6)附程序源代碼。

二、進(jìn)度安排

正確理解所設(shè)計(jì)的題目并進(jìn)行問題抽象，確定設(shè)計(jì)方案2天

編代碼3天

調(diào)試和測試3天

編寫設(shè)計(jì)說明書1天

系統(tǒng)驗(yàn)收及成績評定1天

三、設(shè)計(jì)成績評定

評定依據(jù):

1．問題的理解及抽象能力。

2．設(shè)計(jì)過程中獨(dú)立工作能力。

2．設(shè)計(jì)說明書﹑程序清單﹑開發(fā)的程序質(zhì)量與工作量。

4．設(shè)計(jì)題目的先進(jìn)性和實(shí)用價(jià)值。

5．創(chuàng)新能力。

評定等級:

百分制

四、設(shè)計(jì)成績評定辦法

90及以上：按時(shí)完成設(shè)計(jì)題目的全部內(nèi)容，程序結(jié)構(gòu)設(shè)計(jì)合理，功能完善，有一定的創(chuàng)造性，表現(xiàn)了較強(qiáng)的獨(dú)立工作能力。說明書文字通順準(zhǔn)確，層次清楚。

80～89：按時(shí)完成設(shè)計(jì)題目的全部內(nèi)容，程序結(jié)構(gòu)設(shè)計(jì)合理，功能較完善，有一定能力。說明書基本正確，文字通順。

70～79：按時(shí)完成設(shè)計(jì)題目的全部內(nèi)容，程序結(jié)構(gòu)設(shè)計(jì)基本合理，在解決實(shí)際問題上有一定的工作能力。說明書內(nèi)容基本正確，文字通順。

60～69：基本完成設(shè)計(jì)題目的全部內(nèi)容，程序結(jié)構(gòu)設(shè)計(jì)基本合理，功能不太完善，依靠指導(dǎo)人的幫助。獨(dú)立工作能力較差，設(shè)計(jì)中有明顯的缺點(diǎn)或錯誤，說明書基本齊全，但質(zhì)量較差。

60以下：有下列情況之一者成績?yōu)椴患案瘢?/p>

(1)獨(dú)立工作能力很差；沒有完成設(shè)計(jì)的基本要求的內(nèi)容；程序結(jié)構(gòu)不合理。

(2)在設(shè)計(jì)中有嚴(yán)重的違反紀(jì)律或抄襲他人設(shè)計(jì)和成果。

(3)無故不提交設(shè)計(jì)。

(4)設(shè)計(jì)期間有三分之一以上時(shí)間缺席者。

重慶工商大學(xué)派斯學(xué)院計(jì)算機(jī)系

2010年5月

第二篇：教學(xué)目標(biāo)了解面向?qū)ο蟪绦蛟O(shè)計(jì)方法的基本原理及主要特點(diǎn)——抽解析

呼倫貝爾學(xué)院—— 計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院

教學(xué)目標(biāo)：了解面向?qū)ο蟪绦蛟O(shè)計(jì)方法的基本原理及主要特點(diǎn)——抽象性、封裝性、繼承性、多態(tài)性。掌握類和對象的概念以及如何用類來解決具體問題并在類的基礎(chǔ)上如何派生出新類,以及重載的概念和作用。

教學(xué)類型：在多媒體教室直觀講授，引導(dǎo)學(xué)生進(jìn)行類的操作。教學(xué)內(nèi)容：

復(fù)習(xí)上次課

5.5類的繼承

Visual Basic.NET支持類的繼承，允許用戶定義一個(gè)類，作為其他類繼承的依據(jù)，繼承類能夠繼承，擴(kuò)充基本類的屬性和方法，繼承類也可以重載基本類的一些方法。

例如，把窗體看成一個(gè)類，在Vissal Basic.NET中用戶可以根據(jù)現(xiàn)有的窗體繼承出一個(gè)新的窗體。其中已有類叫做基類（父類），繼承的新類叫做派生類（子類）。

1、實(shí)現(xiàn)基本的繼承

下面通過例子進(jìn)一步說明為什么要使用繼承。

要描述人和雇員，對于每一個(gè)人來說都有姓名、年齡、性別等信息，對于公司雇員有以上內(nèi)容以外還有雇員的工作部門及薪水等信息。當(dāng)分開來實(shí)現(xiàn)這兩個(gè)類的時(shí)候，就會發(fā)現(xiàn)其實(shí)它們有許多相同之處。如果分開編寫這兩個(gè)類的代碼，不僅編寫效率低，而且程序代碼也難以維護(hù)，所以最好的方法就是讓它們使用一些相同的代碼，此時(shí)繼承就可以發(fā)揮作用了。使用繼承，可以創(chuàng)建一個(gè)Person類（基類），它包含了name（姓名）、age（年齡）、sex（性別）等屬性所有的共享代碼。然后再創(chuàng)建employee派生類，這個(gè)類是由person類繼承而來的，這樣它們就可以自動地獲得所有的公用代碼了。

【例5.3】建立person類及它的派生類employee類。Public Class person

Public sname, Iage, ssex

Public Property name()As String

Get

Return sname

End Get

Set(ByVal value As String)

sname = value

End Set

End Property

Public Property age()As Integer

Get

Return Iage

End Get

Set(ByVal value As Integer)

Iage = value

End Set

呼倫貝爾學(xué)院—— 計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院

End Property

Public Property sex()As String

Get

Return ssex

End Get

Set(ByVal value As String)

ssex = value

End Set

End Property End Class Public Class employee

Inherits person

Dim Ssalary As Single

Public Property salary()As Single

Get

Return Ssalary

End Get

Set(ByVal value As Single)

Ssalary = value

End Set

End Property

Sub Displayemployee()

Debug.WriteLine(“雇員的姓名：” & name)

Debug.WriteLine(“雇員的性別：” & sex)

Debug.WriteLine(“雇員的年齡：” & age)

Debug.WriteLine(“雇員的薪水：” & salary)

End Sub End Class Module Module1

Sub Main()

Dim aemployee As New employee()

aemployee.name = “王強(qiáng)”

aemployee.sex = “男”

aemployee.age = 25

aemployee.salary = 3600.0

aemployee.Displayemployee()

End Sub End Module

2、禁止繼承

在默認(rèn)狀態(tài)下，創(chuàng)建的任何類都是可以用作基類，可由這個(gè)基類創(chuàng)建其他的類。但有時(shí)需要創(chuàng)建一個(gè)不被繼承的類，這時(shí)可以在類的聲明中使用NotInheritable關(guān)鍵字。

Public NotInheritable Class Class_name …… End Class

呼倫貝爾學(xué)院—— 計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院

使用這個(gè)關(guān)鍵字后，其他代碼都不能使用Inherits關(guān)鍵字來創(chuàng)建一個(gè)由這個(gè)基類繼承二來的子類。

3、基類成員在派生類中的作用域

通過繼承性創(chuàng)建子類時(shí)，新類將從父類獲得所有Public 和 Friend方法、屬性及變量。但在父類中聲明的Private的任何內(nèi)容都不能直接應(yīng)用于新子類的代碼中。

例如：可以在上例的person類中重寫age方法，代碼如下： Private Property age()As Integer

Get

Return Iage

End Get

Set(ByVal value As Integer)

Iage = value

End Set

End Property Age方法聲明為private，所以employee類和其他代碼都不能使用它。當(dāng)然也有一個(gè)列外，就是New方法，構(gòu)造函數(shù)方法必須在每一個(gè)子類中重新定義。

有時(shí)public和private并不夠用，需要創(chuàng)建一個(gè)可以用于子類而不能用于客戶代碼的方法，此時(shí)就可以使用protected作用域。當(dāng)某些內(nèi)容聲明為protected時(shí)，該元素就不能應(yīng)用于類以外的代碼，但可以應(yīng)用于通過繼承派生出的子類。

例如：若將person類當(dāng)中的name、age、sex屬性都聲明為 Protected Property name()As String Protected Property age()As Integer Protected Property sex()As string 那么測試程序中的下列代碼將不再有效： aemployee.name = “王強(qiáng)” aemployee.sex = “男” aemployee.age = 25 但示例中的name、age、sex屬性可以應(yīng)用于employee中的所有代碼，因?yàn)樗^承了父類。為設(shè)置屬性，可以在employee中增加一個(gè)方法setperson（）：

Public Class employee

Inherits person

Dim Ssalary As Single Public Property salary()As Single

Get

Return Ssalary

End Get

Set(ByVal value As Single)

Ssalary = value

End Set End Property Sub setperson(ByVal n As String, ByVal a As Integer, ByVal s As String, ByVal c As Single)

name = n

age = a

sex = s

呼倫貝爾學(xué)院—— 計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院

salary = c End Sub

Sub Displayemployee()

Debug.WriteLine(“雇員的姓名：” & name)

Debug.WriteLine(“雇員的性別：” & sex)

Debug.WriteLine(“雇員的年齡：” & age)

Debug.WriteLine(“雇員的薪水：” & salary)

End Sub End Class Module Module1

Sub Main()

Dim aemployee As New employee()

aemployee.setperson(“王強(qiáng)”, 25, “男”, 3600.0)

aemployee.Displayemployee()

End Sub End Module 5.6重載方法

VB.NET具有重載方法的功能，可以利用重載來實(shí)現(xiàn)多態(tài)性。重載是可以在一個(gè)類中可多次聲明相同名稱的一種方法，只要每個(gè)聲明都有不同的參數(shù)列表即可。其中參數(shù)列表不同指的是參數(shù)的數(shù)據(jù)類型不同或參數(shù)的個(gè)數(shù)不同。例如：Public Sub show(ByVal x As Integer, ByVal y As Integer)。

上面show方法的參數(shù)列表的參數(shù)的類型為（Integer, Integer）。為了重載這個(gè)方法，必須使用不同的參數(shù)列表，例如（Double，Integer）或（Integer，Double）都可以。重載不能只是通過改變函數(shù)的返回值來實(shí)現(xiàn)，而是要求實(shí)際參數(shù)的數(shù)據(jù)類型不同。

Public Class sum

Public Function add(ByVal a As Integer, ByVal b As Integer)As Integer

Return a + b

End Function

Public Function add(ByVal a As Double, ByVal b As Double)As Double

Return a + b

End Function End Class Module Module1

Sub main()

Dim NO1, NO2 As New sum

Debug.WriteLine(NO1.add(5, 6))

Debug.WriteLine(NO2.add(2.5, 3.6))

End Sub End Module

學(xué)生練習(xí)：聲明一個(gè)Shape（形狀）基類，在此基礎(chǔ)上派生出Rectangle和Circle類，（1）根據(jù)給出的矩形的左上角和右下角的坐標(biāo)計(jì)算該矩形的面積；（2）根據(jù)給出的圓心坐標(biāo)計(jì)算出圓的面積。

呼倫貝爾學(xué)院—— 計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院