第二章visualbasic語(yǔ)言基礎(chǔ)-展示頁(yè)
2024-08-16 13:02本頁(yè)面
【正文】 符號(hào)常量，即用一個(gè)符號(hào)代表一個(gè)具體的常量值，該符號(hào)稱為“符號(hào)常量”。 Visual Basic中的常量分為普通常量、符號(hào)常量和系統(tǒng)常量三種。 8 Private Sub Command1_Click() Dim r As Double, c As Double, s1 As Double, s2 As Double, v As Double r = Val() 39。 7 例如，定義一個(gè)管理車輛信息的“記錄” Type car car_no As string car_brand As string car_type As string car_buytime As date car_mileage As single End Type Visual Basic程序設(shè)計(jì)教程 常量與變量 數(shù)據(jù)在程序中以常量或變量的方式被引用。把有共同特征的數(shù)據(jù)歸納為同一類型并取一個(gè)類型名，幫助計(jì)算機(jī)區(qū)別不同的數(shù)據(jù)。不同的數(shù)據(jù)有不同的存儲(chǔ)要求和處理算法。 Visual Basic程序設(shè)計(jì)教程 第二章 Visual Basic 語(yǔ) 言基 礎(chǔ) Visual Basic程序設(shè)計(jì)教程 2 Visual Basic的數(shù)據(jù)類型 主要 內(nèi) 容 1 常量與變量 2 運(yùn)算符與表達(dá)式 3 常用內(nèi)部函數(shù) 4 Visual Basic程序設(shè)計(jì)教程 3 Visual Basic的數(shù)據(jù)類型 數(shù)據(jù)是指能夠輸入到計(jì)算機(jī)中，并能夠被計(jì)算機(jī)識(shí)別和加工處理的符號(hào)的集合，是程序處理的最小對(duì)象。 Visual Basic程序設(shè)計(jì)教程 提出問(wèn)題，解決問(wèn)題 ?程序在運(yùn)行過(guò)程中可能要處理多種數(shù)據(jù)，如數(shù)值、字符、圖形、圖像和聲音等都是數(shù)據(jù)。 ?計(jì)算機(jī)怎樣區(qū)分這些數(shù)據(jù)，并根據(jù)數(shù)據(jù)的不同給出相應(yīng)的處理方法？ ?數(shù)據(jù)類型這一概念可以用來(lái)區(qū)別不同的數(shù)據(jù)。 4 Visual Basic程序設(shè)計(jì)教程 標(biāo)準(zhǔn)數(shù)據(jù)類型 標(biāo)準(zhǔn)數(shù)據(jù)類型是 Visual Basic系統(tǒng)定義的數(shù)據(jù)類型，用戶可以直接使用它們來(lái)定義常量和變量，Visual Basic中的標(biāo)準(zhǔn)數(shù)據(jù)類型如表 21 5 Visual Basic程序設(shè)計(jì)教程 標(biāo)準(zhǔn)數(shù)據(jù)類型 6 Visual Basic程序設(shè)計(jì)教程 用戶自定義數(shù)據(jù)類型 Visual Basic中的 Type語(yǔ)句可實(shí)現(xiàn)自定義類型，格式如下： Type 自定義類型名 元素名 1 As 類型名 元素名 2 As 類型名 …… 元素名 n As 類型名 End Type Type是語(yǔ)句定義符，是 Visual Basic的關(guān)鍵字；自定義類型名是要定義的數(shù)據(jù)類型的名稱，由用戶確定；end type表示該類型定義結(jié)束。 例 21 設(shè)圓和圓球的半徑均為 r， r的值從文本框中輸入，計(jì)算出圓的周長(zhǎng)和面積，圓球的表面積和體積。把文本框中的數(shù)字字符轉(zhuǎn)換成數(shù)值 c = 2 * * r: s1 = * r * r s2 = 4 * * r * r: v = 4 / 3 * * r * r * r = c: = s1 = s2: = v End Sub Visual Basic程序設(shè)計(jì)教程 常量 常量就是在程序運(yùn)行過(guò)程中，其值不能被改變的量。 整型常量、實(shí)型常量、字符串常量、邏輯常量、日期／時(shí)間常量。引入符號(hào)常量可簡(jiǎn)化程序的錄入、修改。 10 例 21的程序可改寫為 Const PI = Private Sub Command1_Click() Dim r As double, c As double,s1 as double, s2 as double,v as single r=val() c=2* PI *r: s1= PI *r*r: s2=4* PI *r*r v=4* PI *r*r*r/3 End Sub
職業(yè)教育相關(guān)推薦
鄂ICP備17016276號(hào)-1