vb編程技術(shù)用戶定義與枚舉類型(編輯修改稿)
2024-11-15 05:13 本頁面
【文章內(nèi)容簡介】 = Val(Text1(4).Text) .ag = Int((.ch + .en + .ma) / 3) 39。 求個人平均成績 cc = Format(.ch, @@@@@) amp。 Format(.en, @@@@@) amp。 _ 第 9章 用戶定義與枚舉類型 Format(.ma, @@@@@) amp。 Format(Str(.ag), @@@@@) Format(RTrim(.no), @@@@@@) amp。 Format(RTrim(.na), @@@) amp。 cc End With Text1(0).SetFocus End Sub “刪除 ” 按鈕 Command2的 Click事件代碼為 Private Sub Command2_Click() If = 1 Then 第 9章 用戶定義與枚舉類型 MsgBox 請選定欲刪除的項(xiàng) ！ Exit Sub End If n = + 1 For i = n To UBound(stu) 1 stu(i) = stu(i + 1) Next n 1 39。 移除項(xiàng)目 Text1(0).Text = stu(1).no Text1(1).Text = stu(1).na 第 9章 用戶定義與枚舉類型 Text1(2).Text = stu(1).ch Text1(3).Text = stu(1).en Text1(4).Text = stu(1).ma End Sub “結(jié)束 ” 按鈕 Command3的 Click事件代碼為 Private Sub Command3_Click() Unload Me End Sub 列表框 List1的 Click事件代碼為 Private Sub List1_Click() n = + 1 第 9章 用戶定義與枚舉類型 Text1(0).Text = stu(n).no Text1(1).Text = stu(n).na Text1(2).Text = stu(n).ch Text1(3).Text = stu(n).en Text1(4).Text = stu(n).ma End Sub 另外編寫文本框組的事件代碼 ， 使之方便輸入 Private Sub Text1_GotFocus(Index As Integer) Text1(Index).SelStart = 0 第 9章 用戶定義與枚舉類型 Text1(Index).SelLength = Len(Text1(Index).Text) End Sub Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then i = IIf(Index = 4, 0, Index + 1) Text1(i).SetFocus End If End Sub 程序運(yùn)行結(jié)果如圖 。 第 9章 用戶定義與枚舉類型 圖 輸入學(xué)生情況 ， 計(jì)算平均分并顯示各科成績 第 9章 用戶定義與枚舉類型 枚 舉 類 型 枚舉類型的概念 前面已經(jīng)介紹了 VB的基本數(shù)據(jù)類型，包括整型數(shù)、單精度數(shù)、浮點(diǎn)數(shù)等。在程序設(shè)計(jì)中，有些數(shù)據(jù)無法直接用整型或?qū)嵭蛿?shù)來表示，必須經(jīng)過某種轉(zhuǎn)換，把本來不是簡單地用整數(shù)來表示的問題用幾個整數(shù)去描述，從而降低了程序的可讀性。 第 9章 用戶定義與枚舉類型 定義枚舉類型 枚舉類型放在窗體模塊 、 標(biāo)準(zhǔn)模塊或共用模塊中的聲明部分 ， 通過 Enum語句來定義 。 定義枚舉類型的語法為 [ Public | Private ] Enum 〈 類型名稱 〉 〈 成員名 〉 [=〈 常數(shù)表
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1