【文章內(nèi)容簡介】 ,/.等數(shù)學(xué)運算 ,但對于日期而言 *和 /是沒有意義的 ! 另外 ,如果為了獲取當(dāng)前機器時間 ,我們可以用 now()函數(shù) .當(dāng)然 ,還有 year() , Month() 和Days()分別表示 ..年 ..月 ..日 . 我們可以這條語句來獲得當(dāng)前機器時間 , now 當(dāng)一個數(shù)字型數(shù)據(jù)向日期型數(shù)據(jù)轉(zhuǎn)換的時候 ,小數(shù)點左邊的數(shù)值將轉(zhuǎn)換為日期數(shù)據(jù) ,右邊的將轉(zhuǎn)換為時間信息 .以 1899年 12月 31日作為分界點 ,如果是一個整數(shù) ,表示的是它以后的日期 ,如果是一個小 時 ,則表示它以后的日期 .而 將被轉(zhuǎn)換成時間信息 ,轉(zhuǎn)換的時候 0 表示午夜 表示正午 .如 ,從現(xiàn)在起過 3 小時的日期和時間可以表示為 now+ 第八課 , 對象型變量和變體變量 (近日電纜被盜割 ,NND) 上次講了 vb 的 ,字符串 ,布爾 ,日期型變量 . 現(xiàn)在學(xué)習(xí)一下對象型 (Object)變量 ! 這種變量主要是針對 vb 中的多種控件對象來使用 .在應(yīng)用程序中 ,既可以通過默認的控件對象名來操作控件 ,也可以將一個對象型變量與控件變量掛鉤 ,然后通過該變量來操作控件 . 聲明格式 ...和以前的一樣 , dim 變量名 as objecttype 聲明了 object 變量后 ,還需要將其與界面上的控件關(guān)聯(lián)起來才能通過它來操作對象 ,在此 ,我們可以使用 set 語句 : set 變量名 = objectname 這樣 ,就可以通過對象型變量來操作控件了 下面 ,我來舉個例子吧 .~ 先創(chuàng)建一個 vb 工程 ,并在窗體內(nèi)添加以下控件 textbox checkbox mandbutton 這里我有個然后在窗體的 load 事件過程中添加如下代碼 : Private Sub Form_Load() Dim z_mand As CommandButton Dim z_text As TextBox Dim z_check As CheckBox Set z_mand = Command1 Set z_text = Text1 Set z_check = Check1 = 使用對象型變量 ing = False = 通過對象型變量修改 caption = vbGrayed End Sub 前面 3 句聲明了 3 個對象型變量 ,中間的 3 句將各個變量與對應(yīng)的控件對象關(guān)聯(lián)起來 .其余的語句都是修改控件屬 *的 . 對象型變量不僅僅用于對控件對象的操作 ,它也可以用于生成自己的對象 . ok, 后頭說一下變體變量 變體變量是適用于所有數(shù)值類型的變量 ,它是最靈活的數(shù)據(jù)類型 ,vb 回自動根據(jù)變量的當(dāng)前值 ,處理聲明為 variant 的變量和沒有聲明的變量 .咋看咋像隱式聲明 ?呵呵 ,接著往下面看 !) 它的聲明格式 ...如下 ........ dim variablename as variant 也可以不指定類型 dim variablename 甚至 ,我們可以不聲明變體變量 ,就可以直接使用了 .在這種情況下 ,vb 也會把沒有聲明的變量當(dāng)作變體變量來處理 . 變體變量的值的類型是可以變化的 . 看看這個例子 Private Sub Form_Load() Dim m_variant1 As Variant Dim m_variant2 As Variant m_variant1 = 30 m_variant2 = 29 m_variant1 + m_variant2 m_variant1 amp。 m_variant2 End Sub 兩個語句雖然顯示一樣的結(jié)果 ,其中 ,我們用 m_variant1 + m_variant2 本意想讓兩個數(shù)相加 ,....但對于字符串 ,+和 amp。是一樣的 ,如果希望兩個數(shù)相加 ,我們至少要對其中一個賦予數(shù)字型變量 ! 變體變量也可以用來存儲日期和時間 ,直接用 括起來就可以了 . 變量類型就算完了 ,后面再講變量類型的轉(zhuǎn)換 ... 第 9 課 該說 vb 中變量類型的轉(zhuǎn)換了 ....咳 ..~~ 有的時候 ,程序中需要將一種變量轉(zhuǎn)換成另一種變量類型 .(根據(jù)實際情況 ) 比如在科學(xué)計算的時候 ,原 來的 single 類型不能滿足需要 ,那么 ,我們就要將其轉(zhuǎn)換成 double 同樣 ,字符串和數(shù)字也可以轉(zhuǎn)換的 ... 大家看看這個表 ..函數(shù)名 ,及轉(zhuǎn)換作用 .. Str (x) 將數(shù)值數(shù)據(jù) x轉(zhuǎn)換成字符串 Val(x) 將字符串 x中的數(shù)字轉(zhuǎn)換成數(shù)值 Chr(x) 返回以 x為 ASCII 碼的字符 Asc(x) 給出字符 x的 ASCII 碼值，十進制數(shù) Cint(x) 將數(shù)值型數(shù)據(jù) x的小數(shù)部分四舍五入取整 Int(x) 取小于等于 x的最大整數(shù) Fix(x) 將數(shù)值型數(shù)據(jù) x的小數(shù)部分舍去 CBool(x) 將任何有效的數(shù)字字 符串或數(shù)值轉(zhuǎn)換成邏輯型 CByte(x) 將 0255 之間的數(shù)值轉(zhuǎn)換成字節(jié)型 CDate(x) 將有效的日期字符串轉(zhuǎn)換成日期 CCur(x) 將數(shù)值數(shù)據(jù) x轉(zhuǎn)換成貨幣型 Round(x， N) 在保留 N位小數(shù)的情況下四舍五入取整 CStr(x) 將 x轉(zhuǎn)換成字符串型 CVar(x) 將數(shù)值型數(shù)據(jù) x轉(zhuǎn)換成變體型 CSng(x) 將數(shù)值數(shù)據(jù) x轉(zhuǎn)換成單精度型 CDbl(x) 將數(shù)值數(shù)據(jù) x轉(zhuǎn)換成雙精度型 例如 ,可以使用 cdbl()函數(shù)來將變量轉(zhuǎn)換成雙精度型 .大家看看這段代碼 : Private Sub Form_Load() Dim z_temp As Integer z_temp = 20 z_temp is amp。 TypeName(z_temp) amp。 z_temp afterchange, z_temp is amp。 TypeName(CDbl(z_temp)) amp。 z_temp1 End Sub 在 vb 中 ,有時候輝自動轉(zhuǎn)換數(shù)據(jù)類型 ,例如 : Private Sub Form_Load() Dim a1 As Integer Dim a2 As Integer a1 = 2 a2 = 6 a1 / a2 End Sub 盡管我們已經(jīng)聲明了變量類型都是整數(shù)型 , 但是 , 我們 運行后看到的值卻是 .333333333333333 雙精度型數(shù)據(jù) ,如果我們已知 a1/a2僅僅是貨幣計算的話 ....那么 ,我們采用 CCur()函數(shù) : CCur(a1 / a2) 就可以了 .. 字符串和其他數(shù)據(jù)類型的轉(zhuǎn)換是最重要的 ,以后我們會說明的 .. 除了轉(zhuǎn)換外 ,我們可以用 VarType()和 TypeName()函數(shù)來檢查變量類型 . 呵呵 ,夠方便吧 ....嘿嘿 ... (不行 ...有些困 ,估計大家看到的可能不明白 ,不明白好說 ,在那個問題貼里面回帖提問 ..嘿嘿 ..去睡覺了 ....困掛了 ..) [VB 課堂 ]第十課 , 用戶定義的數(shù)據(jù)類型 內(nèi)容不多 ,還是希望大家能夠掌握 用戶定義的數(shù)據(jù)類型 以前介紹的變量都是存放在單個數(shù)據(jù)的 .而在實際應(yīng)用中 ,變量往往是大量不同數(shù)據(jù)類型的數(shù)據(jù)組合 .也就是數(shù)據(jù)庫 ....例如一個最簡單的人員檔案記錄 ,至少需要有 人員編號 ,姓名 ,出生日期 ,性別 等等 .. 每一個人的記錄都成組出現(xiàn) ,不應(yīng)該出現(xiàn)數(shù)據(jù)之間的交雜混亂 . 用戶定義的數(shù)據(jù)類型就是用于處 理上面的問題的 .. 它可以把許多相同或者不同數(shù)據(jù)類型的變量放置在一起組成一個結(jié)構(gòu) ,這種結(jié)構(gòu)也就是記錄(Record) 在 vb 中定義用戶自定義的數(shù)據(jù)類型 ,可以使用 Type 語句 格式如下 :.. Type vartype variable1 As vartype variable2 As vartype variable3 As vartype ... variablen As vartype End Type 聲明記錄類型數(shù)據(jù)后 ,在應(yīng)用程序中就可以定義具有這種數(shù)據(jù)類型的變量了 .定義改種數(shù)據(jù)類型的變量和一般變 量的定義是一樣的 .格式 : Dim VariableName As varType 例如 ,上面的人員結(jié)構(gòu)可以聲明為 Type MenRecord ID As Integer Name As String birthday As Data gender As Boolean End Type 現(xiàn)在 ,就可以使用 MenRecord 來聲明變量 : dim z_men as menrecord dim z_object as menrecord 然后就可以通過該變量來訪問記錄中的各個字段了 .訪問的規(guī)則就是變量名加小數(shù) 點加字段名 . 例如 ,要訪問人員記錄中的姓名 ,就可以使用 從這個角度上來看 ,記錄相當(dāng)于對象 ,而字段相當(dāng)于屬性 . ..... 第 11 課 , 順序結(jié)構(gòu) ....輸入語句 我們來學(xué)習(xí)結(jié)構(gòu)化程序設(shè)計 ... 嘿嘿 ....... 編寫一個程序 ,在保證運行結(jié)果正確的前提下 ,要求做到又良好的結(jié)構(gòu) .這樣的目的是使程序的閱讀和修改十分方便 .結(jié)構(gòu)化程序設(shè)計最先使荷蘭的程序員 首先提出的設(shè)計方法 . 順序結(jié)構(gòu)是我們最近的重點 ,它也是結(jié)構(gòu)化程序設(shè)計理論中的 3 個基本結(jié)構(gòu)之一 .也是最簡單的程序結(jié) 構(gòu) .. 3 個結(jié)構(gòu)分別是 順序結(jié)構(gòu) ,選擇結(jié)構(gòu) ,循環(huán)結(jié)構(gòu) . 他們的共同點是 只有 1 個入口 . 只有 1 個出口 .每一條指令均又可能被執(zhí)行 (無死語句 ).不包括死循環(huán) (無死循環(huán) ) 今天我們先理解一下 輸入語句 如果程序不允許用戶輸入數(shù)據(jù) ,那么程序就僅僅具有瀏覽的功能 ,不可能又太多的發(fā)展 .同時 ,用戶從鍵盤進行輸入的情況也是不可避免的 .如果要計算一個立方體的體積 ,則需要用戶提供長 ,寬 ,高 ,的數(shù)值 .程序不應(yīng)該只能計算一組數(shù)據(jù) ,而應(yīng)該可以讓用戶提供各種可能的數(shù)值 .當(dāng)然 ,也可以對每一組數(shù)值都修改一次程序 ,但這樣太麻煩 .如果運 行用戶提供的數(shù)據(jù) ,這個問題就可以搞定了 .. 在 vb 中 可以通過 inputbox() 函數(shù)來實現(xiàn) ,該函數(shù)的使用格式為 InputBox (prompt [, title] [, default] [, xpos] [, ypos] [, helpfile, context]) 以下是函數(shù)中各個參數(shù)的說明 prompt 作為對話框消息出現(xiàn)的字符串表達式 .prompt 的最大長度大約是 1024 個字符 , 由所用字符的寬度來決定 .如果 prompt 包含多行 ,則可在各行之間來用回車符 Chr(13) 換行符 Chr(10) 或回車和換行的組合 Chr(13)amp。Chr(10)來分隔 title 顯示對話框標(biāo)題欄中的字符串表達式 .如果省略 title ,則把應(yīng)用程序名放入標(biāo)題欄中 . default 顯示文本框中的字符串表達式 .在沒有其他輸入時作為缺省值 .如果省略 default,則文本框為空 xpos 數(shù)值表達式 ,成對出現(xiàn) ,指定對話框的左邊與屏幕的左邊的水平距離 .如果省略 ,對話框會在水平居中 ypos 和上面的差不多 ,調(diào)整對話框與屏幕的垂直距離的 ,如果省略它 ,對話框就回在屏幕垂直方向距下邊大約三分之一的距離 helpfile 字符串表達式 ,用來識別幫助文件 ,用該文件為對話框提供上下文相關(guān)的幫助 如果已提供 helpfile,也必須提供 context 它們兩個是相互依 *的一對兒 ~~ context 數(shù)值表達式 ,由幫助文件的作者指定給某個幫助主題的幫助上下文編號 ,如果以供 context 那么 helpfile 也是必不可少的哦 . 上面的參數(shù)中 ,只有參數(shù) prompt 是必須的 ,其余的都是可有可無 .但是對于大型應(yīng)用程序 ,最好能提供參數(shù) ,分清是什么窗體 ,什么情況下出現(xiàn)的輸入提示 ..例如 Private Sub Form_Load() Dim z AS String z = InputBox(請輸入你的名字 , test) 39。對 z進行各種操做 End Sub 運行后 ..嘿嘿 ,就會提示用戶輸入自己的姓名 ,對話框標(biāo)題為 test 如果用戶在輸入后 去點那個確定 . 則會對用戶的輸入送給一個字符串型變量 .如果用戶點那個取消 .則應(yīng)用程序?qū)⑷∠脩舻妮斎?,相當(dāng)于沒有出現(xiàn)輸入對話框一樣 .因為該函數(shù)回返回一個字符串 ,即使用戶沒有做審核輸入 ,也會返回一個長度為 0 的空字符串 ,所以必須給該函數(shù)賦給一個值 ,否則 vb 就回提示編譯錯誤 . 無論是使用輸入對話框輸入和文本框輸入 ,得到的都是字符串型的數(shù)據(jù) .但是很多時候 ,要求用戶輸入的數(shù)據(jù)并不是用做字符串 ,而是要當(dāng)作數(shù)字型 .日期型 .布爾型數(shù)據(jù)使用 .這時 ,需要對數(shù)據(jù)進行轉(zhuǎn)換 .在數(shù)據(jù)轉(zhuǎn)換中 ,使用最多的是將字符串轉(zhuǎn)換為數(shù)字 ,這時 ,可以使用函數(shù) Val() 其格式為 V