第4章vbnet面向?qū)ο蟪绦蛟O(shè)計(jì)(參考版)
2024-10-02 16:08本頁面
【正文】 () ) 。 7. 設(shè)計(jì)一個隊(duì)列類，要求能夠完成入隊(duì)、出隊(duì)操作（提示：隊(duì)列是在隊(duì)尾加入數(shù)據(jù)元素，即入隊(duì)；在隊(duì)頭刪除數(shù)據(jù)元素，即出隊(duì)的一種數(shù)據(jù)結(jié)構(gòu)）。然后，嘗試引人一個基類，并使用繼承來簡化設(shè)計(jì)。 5. 請給學(xué)校教務(wù)管理系統(tǒng)設(shè)計(jì)一個教師類和一個學(xué)生類。 End Function Public Sub SetAge(ByVal n As Integer) age = n End Sub End Class （ 2） Class Test Private pAge As Integer Public Property age() As Integer Get Return pAge End Get Set(ByVal value As Integer) Page = value End Set End Property End Class 2. 指出以下程序中的錯誤： (1) Class Test Private a As Integer Public Sub GetA() As Integer Return a End Sub End Class Class TestH Inherits Test Private b As Integer Public Sub Add() b = b + a End Sub End Class (2) Class Test Public Function mult(ByVal a As Double,ByVal b As Double) As Double return a * b End Function Public Function mult(ByVal x As Double , ByVal y As Double) As Integer return x * y End Function End Class (3) Class Test Private value As Double Public Sub Add(ByVal a As Double,ByVal b As Double) value = a + b End Sub Public Function GetValue() As Double Return value End Function End Class Dim a As Test (100 , 230) ( ()) 3. “通過 MyBase關(guān)鍵字可以訪問派生類的成員”，這句話是否正確？ 4. 設(shè)計(jì)一個用以完成網(wǎng)上用戶注冊功能的類，即完成收集用戶信息，并且判斷用戶是否填入所有必填項(xiàng)。 在程序中不但可以使用已有的名稱空間，還可以自定義名稱空間，以便把程序按邏輯分組。聲明的語法為： % Import Namespace=名稱空間 % 例如： % Import Namespace= % % Import Namespace=% 聲明之后就可以直接使用其中的類和對象了。包括HTTPRequest 類、 HTTPResponse 類、HTTPServerUtility 對象和用于 Cookie 操作、文件傳輸、異常信息和輸出緩存控制的類 iguration 包含用于設(shè)置 配置的類 ail 包含使您能夠使用 CDOSYS 消息組件構(gòu)造和發(fā)送消息的類 ecurity 包含用于在 Web 服務(wù)器應(yīng)用程序中實(shí)現(xiàn) 安全的類。比如，包含有數(shù)據(jù)訪問的很多類和對象。 事件處理程序 If =Yes then = = Yes =No Else = = No =Yes End IF End Sub /script HTML HEAD titleTest Class/title /HEAD BODY Form RunAt=Server TABLE width=100% bordercolor=blue border=1 TR height=25 bgcolor=blue TD align=centerfont color=white程序輸出結(jié)果/font/TD/TR TR bgcolor=whiteTD asp:Label id=label1 Text= RunAt=Server/ 39。 對于 ，其事件處理要簡單得多，只需要把事件處理程序綁定到相應(yīng)事件上即可。 使用事件 ? ( amp。 Now() End Sub End Class /script HTML HEAD titleTest Class/title/HEAD BODY TABLE width=100% bordercolor=blue border=1 TR height=25 bgcolor=blue TD align=centerfont color=white程序輸出結(jié)果 /font/TD/TR TR bgcolor=whiteTD ? % ? Dim p As ProcessTime = new ProcessTime() ? Dim t As MyTime = new MyTime() ? AddHandler , AddressOf 39。 事件處理 mTime =s amp。 聲明事件 public event Timer1 As TimeEventHandler public Sub OnTimer(ByVal s as string) RaiseEvent Timer(s) 39。 事件 動手做： [例 48]()使用事件，用于產(chǎn)生一個當(dāng)前的時間 % Import Namespace=% %page LANGUAGE = vb% script language=vb runat =server public delegate Sub TimeEventHandler(ByVal s as string) 39。 事件聲明的具體格式為： 屬性集 修飾符 event 委托類型 事件名 事件在 Windows應(yīng)用程序中，是一個非常重要的概念。所需要的是在發(fā)送方和接收方之間用一個紐帶來聯(lián)系。捕獲事件并對其做出響應(yīng)的對象叫做事件接收方。 委托調(diào)用，相當(dāng)于調(diào)用方法 HelloTime () % /TD /TR /TABLE /BODY /HTML 程序輸出如圖 45所示： 對象之間的交互是通過消息傳遞來實(shí)現(xiàn)的 ,而事件就是對象發(fā)送的消息，以發(fā)信號通知操作的發(fā)生。 Now() End Sub End Class /script HTML HEAD titleTest Class/title /HEAD BODY
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1