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