vb編程技術(shù)用戶定義與枚舉類型-文庫(kù)吧資料
2024-10-25 05:13本頁(yè)面
【正文】 1 stu(i) = stu(i + 1) Next n 1 39。 Format(Str(.ag), ) Format(RTrim(.no), ) amp。 Format(.en, ) amp。 定義記錄數(shù)組 窗體的 Load事件代碼為 Private Sub Form_Load() ReDim stu(0) End Sub “輸入 ” 按鈕 Command1的 Click事件代碼為 Private Sub Command1_Click() n = UBound(stu) ReDim stu(n + 1) 第 9章 用戶定義與枚舉類型 With stu(n + 1) .no = Text1(0).Text .na = Text1(1).Text .ch = Val(Text1(2).Text) .en = Val(Text1(3).Text) .ma = Val(Text1(4).Text) .ag = Int((.ch + .en + .ma) / 3) 39。 數(shù)學(xué)變量定義為單精度數(shù) ag As Single 39。 語(yǔ)文變量定義為單精度數(shù) en As Single 39。 姓名變量定義為 6個(gè)字符長(zhǎng)度 no As String * 5 39。 第 9章 用戶定義與枚舉類型 圖 建立用戶界面和設(shè)計(jì)對(duì)象 第 9章 用戶定義與枚舉類型 (2) 編寫(xiě)代碼 。 第 9章 用戶定義與枚舉類型 圖 用戶定義類型數(shù)組示例 第 9章 用戶定義與枚舉類型 程序舉例 【 例 93】 輸入學(xué)生的姓名 、 學(xué)號(hào) 、 語(yǔ)文分?jǐn)?shù) 、 英語(yǔ)分?jǐn)?shù) 、 數(shù)學(xué)分?jǐn)?shù) ， 計(jì)算每名學(xué)生的平均成績(jī) ， 并顯示各科成績(jī) 。 第 9章 用戶定義與枚舉類型 首先在窗體模塊的通用段創(chuàng)建用戶定義類型： Private Type studentrec stunum As String * 7 names As String * 8 credit As Integer avg As Single End Type 第 9章 用戶定義與枚舉類型 編寫(xiě)命令按鈕的 Click事件代碼為 Private Sub Command1_Click() Dim student(1 To 40) As studentrec 39。 第 9章 用戶定義與枚舉類型 用戶定義類型數(shù)組 如果一個(gè)數(shù)組中元素的數(shù)據(jù)類型是用戶定義類型 ，則稱其為用戶定義類型數(shù)組或記錄數(shù)組 (Array of records)。 平均成績(jī)?yōu)閱尉刃? End Type 第 9章 用戶定義與枚舉類型 編寫(xiě)命令按鈕的 Click事件代碼為 Private Sub Command1_Click() Dim stu As studentrec 39。 姓名元素為 8個(gè)字符的定長(zhǎng)字符串 credit As Integer 39。 (2) 在窗體模塊的通用段創(chuàng)建用戶定義類型： 第 9章 用戶定義與枚舉類型 Private Type studentrec stunum As String * 7 39。例如 ， 定義一個(gè)擁有 20個(gè)記錄元素的數(shù)組 student： Dim student(1 To 20) As studentrec 第 9章 用戶定義與枚舉類型 2. 使用用戶定義類型變量 如果要存取用戶數(shù)據(jù)類型變量中的某個(gè)字段的數(shù)據(jù) ， 其格式如下： 〈 用戶數(shù)據(jù)類型變量名 〉 .〈 字段名 〉 第 9章 用戶定義與枚舉類型
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1