【正文】 判斷是否為一個(gè)三角形 ,這里采用了 ,任意兩條邊長(zhǎng)的和大于第三條邊 39。 Time [Copy to clipboard] 這些都是可以使用的 對(duì)于位數(shù)很多的數(shù)字 ,VB 也是很聰明的 ,它還會(huì)用科學(xué)計(jì)數(shù)法將其顯示輸出 .你試試 39。這里 expression 可以為各種變量或者是表達(dá)式 ,前面那個(gè)time 的就是這樣調(diào)用的 [Copy to clipboard] 當(dāng)然 ,如果有多個(gè)表達(dá)式要同時(shí)輸出顯示出來(lái) ,每個(gè)表達(dá)式可以通過(guò)空格或分號(hào)來(lái)分隔 .下面的幾個(gè)輸出語(yǔ)句都是合法的 CODE: 1。對(duì) z進(jìn)行各種操做 End Sub 運(yùn)行后 ..嘿嘿 ,就會(huì)提示用戶(hù)輸入自己的姓名 ,對(duì)話(huà)框標(biāo)題為 test 如果用戶(hù)在輸入后 去點(diǎn)那個(gè)確定 . 則會(huì)對(duì)用戶(hù)的輸入送給一個(gè)字符串型變量 .如果用戶(hù)點(diǎn)那個(gè)取消 .則應(yīng)用程序?qū)⑷∠脩?hù)的輸入 ,相當(dāng)于沒(méi)有出現(xiàn)輸入對(duì)話(huà)框一樣 .因?yàn)樵摵瘮?shù)回返回一個(gè)字符串 ,即使用戶(hù)沒(méi)有做審核輸入 ,也會(huì)返回一個(gè)長(zhǎng)度為 0 的空字符串 ,所以必須給該函數(shù)賦給一個(gè)值 ,否則 vb 就回提示編譯錯(cuò)誤 . 無(wú)論是使用輸入對(duì)話(huà)框輸入和文本框輸入 ,得到的都是字符串型的數(shù)據(jù) .但是很多時(shí)候 ,要求用戶(hù)輸入的數(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() 其格式為 Val(string) 參數(shù) string 是任何有效的字符串表達(dá)式 val 函數(shù)總是在它不能識(shí)別為數(shù)字的第一個(gè)字符上 ,停止讀入字符串 .而那些被認(rèn)為是數(shù)值的一部分的符號(hào)和字符 .例如美元符號(hào)和逗號(hào) ,都不能被識(shí)別 ,但是函數(shù) 可以識(shí)別進(jìn)位制符號(hào) amp。 z_temp afterchange, z_temp is amp。 a * b 這樣是可以正常運(yùn)行的 ,運(yùn)行后顯示 25*100=2500 但是 ,這種數(shù)學(xué)運(yùn)算是絕對(duì)要避免的 ,這樣寫(xiě)不見(jiàn)得都能得到正確的值 ! 看看這句 a + b 是能得到正確的結(jié)果 .相反 ,它的結(jié)果為 251000 這是為什么呢 ? 實(shí) 際上 ,vb 在處理過(guò)程中是把 b 連接到 a 的后面 ,而不是將它們的值相加 . 當(dāng)然 ,我們也可以定義字符串的的長(zhǎng)度 . 我們可以這樣寫(xiě) dim a as string * 10 這樣 ,就可以表示 變量 a 的長(zhǎng)度為 10 個(gè)字節(jié) ,也就是 5 個(gè)漢字的長(zhǎng)度 ,在定義密碼框中很常見(jiàn) ~! 如果所輸入字符小于 10 它會(huì)自動(dòng)用空格補(bǔ)齊 ,如果大于 10,則多余的部分則會(huì)被截掉 ,只保留錢(qián) 10 個(gè)字符 . 這一課的第 2 個(gè)變量類(lèi)型 布爾型變量 布爾行變量有兩個(gè)值 ,True 和 False. 它可以使用邏輯運(yùn)算符來(lái)進(jìn)行組合 .邏輯運(yùn)算符有 AND . OR . XOR 和 NOT. 其中 ,使用最頻繁的是 NOT 運(yùn)算符 ,它用來(lái)改變布爾變量的值 ,假設(shè)布爾型變量 pe1 的值為 pe1=NOT pe1 這個(gè)變量的值就改為了 False 注意 ,使用邏輯運(yùn)算符進(jìn)行數(shù)學(xué)運(yùn)算 ,不會(huì)產(chǎn)生溢出錯(cuò)誤 (嘿嘿 ,不錯(cuò)吧 ~).但他們并不是返回True 或者 False,而是返回另一個(gè)組合兩個(gè)算子的匹配位 ,就是把兩個(gè)算子按照邏輯運(yùn)算符表達(dá)的關(guān)系進(jìn)行操做 . 如 :I and 3 將返回 3 , II and 2 將返回 2 本課第仨變量類(lèi)型 日期型變量 日期型變量的聲明方式 .. dim z_date as date (這些聲明方式都是大同小異 ,呵呵 !夠簡(jiǎn)單吧 ~) 日期變量在聲明后 ,可以存放日期或時(shí)間的值 ,或者兩個(gè)的組合 .如 .. dim z_date as date z_date = 01/01/2020 z_date = 2/14/2020 z_date = 21:56:10 AM z_date = 2/14/2020 22:12:41 AM z_date = 2/14/2020 12 :12:13 PM 這些都是合法的 ,日期數(shù)據(jù)類(lèi)型有一定的靈活性 ,在 vb 中 ,不需要做復(fù)雜的轉(zhuǎn)換就可以處理 日期和時(shí)間的值 . 同時(shí) ,日期數(shù)據(jù)時(shí)間也可以使用 + ,,*,/.等數(shù)學(xué)運(yùn)算 ,但對(duì)于日期而言 *和 /是沒(méi)有意義的 ! 另外 ,如果為了獲取當(dāng)前機(jī)器時(shí)間 ,我們可以用 now()函數(shù) .當(dāng)然 ,還有 year() , Month() 和Days()分別表示 ..年 ..月 ..日 . 我們可以這條語(yǔ)句來(lái)獲得當(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)在起過(guò) 3 小時(shí)的日期和時(shí)間可以表示為 now+ 第八課 , 對(duì)象型變量和變體變量 (近日電纜被盜割 ,NND) 上次講了 vb 的 ,字符串 ,布爾 ,日期型變量 . 現(xiàn)在學(xué)習(xí)一下對(duì)象型 (Object)變量 ! 這種變量主要是針對(duì) vb 中的多種控件對(duì)象來(lái)使用 .在應(yīng)用程序中 ,既可以通過(guò)默認(rèn)的控件對(duì)象名來(lái)操作控件 ,也可以將一個(gè)對(duì)象型變量與控件變量掛鉤 ,然后通過(guò)該變量來(lái)操作控件 . 聲明格式 ...和以前的一樣 , dim 變量名 as objecttype 聲明了 object 變量后 ,還需要將其與界面上的控件關(guān)聯(lián)起來(lái)才能通過(guò)它來(lái)操作對(duì)象 ,在此 ,我們可以使用 set 語(yǔ)句 : set 變量名 = objectname 這樣 ,就可以通過(guò)對(duì)象型變量來(lái)操作控件了 下面 ,我來(lái)舉個(gè)例子吧 .~ 先創(chuàng)建一個(gè) vb 工程 ,并在窗體內(nèi)添加以下控件 textbox checkbox mandbutton 這里我有個(gè)然后在窗體的 load 事件過(guò)程中添加如下代碼 : 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 = 通過(guò)對(duì)象型變量修改 caption = vbGrayed End Sub 前面 3 句聲明了 3 個(gè)對(duì)象型變量 ,中間的 3 句將各個(gè)變量與對(duì)應(yīng)的控件對(duì)象關(guān)聯(lián)起來(lái) .其余的語(yǔ)句都是修改控件屬 *的 . 對(duì)象型變量不僅僅用于對(duì)控件對(duì)象的操作 ,它也可以用于生成自己的對(duì)象 . ok, 后頭說(shuō)一下變體變量 變體變量是適用于所有數(shù)值類(lèi)型的變量 ,它是最靈活的數(shù)據(jù)類(lèi)型 ,vb 回自動(dòng)根據(jù)變量的當(dāng)前值 ,處理聲明為 variant 的變量和沒(méi)有聲明的變量 .咋看咋像隱式聲明 ?呵呵 ,接著往下面看 !) 它的聲明格式 ...如下 ........ dim variablename as variant 也可以不指定類(lèi)型 dim variablename 甚至 ,我們可以不聲明變體變量 ,就可以直接使用了 .在這種情況下 ,vb 也會(huì)把沒(méi)有聲明的變量當(dāng)作變體變量來(lái)處理 . 變體變量的值的類(lèi)型是可以變化的 . 看看這個(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。 * b 運(yùn)行后 ,在立即框中 ,就會(huì)看到正確 的值 2 500 這就足以說(shuō)明 ,vb 知道用戶(hù)希望把兩個(gè)變量當(dāng)作數(shù)字 ,就先轉(zhuǎn)換為數(shù)字 ,再進(jìn)行運(yùn)算 ,并將結(jié)果串換成正確的數(shù)據(jù)類(lèi)型 .我們也可以在同一個(gè)表達(dá)式中 ,把變量既當(dāng)作字符 ,又當(dāng)作數(shù)字 例如 ,語(yǔ)句 a amp。整形 2。 typename(a) variable b is amp。 typename(b) end sub 在運(yùn)行后 ,那個(gè) 立即 對(duì)話(huà)框就會(huì)顯示出結(jié)果的 ! 此外 ,我們還可以定義變量類(lèi)型的范圍 . 符號(hào) $ % amp。浮點(diǎn)型 3。 * amp。 m_variant2 End Sub 兩個(gè)語(yǔ)句雖然顯示一樣的結(jié)果 ,其中 ,我們用 m_variant1 + m_variant2 本意想讓兩個(gè)數(shù)相加 ,....但對(duì)于字符串 ,+和 amp。 TypeName(CDbl(z_temp)) amp。O(8 進(jìn)制 )和 amp。 2 歡迎 。 CODE: 這里有一點(diǎn)我希望大家務(wù)必要注意一下 因?yàn)?VB中的 print方法是按照字符比例進(jìn)行打印的 ,所以字符數(shù)量與字符所占用的寬度固定的列的數(shù)目無(wú)關(guān) .比如所 ,M個(gè)寬字母占據(jù)的寬度超過(guò)一個(gè)固定的列寬 ,而 i這個(gè)窄字母占據(jù)的寬度則比較小 .考慮到要使用比平均字符更寬的空間 ,表列一定要留有足夠的余地 .另外 ,也可以使用固定間距的字體 ,來(lái)確定每一字符均只占一列 (在這里我就知道一個(gè)Courier 字體 .大家要是知道還有別的字體一定要告訴我哦 ). [Copy to clipboard] ====================================================== 其實(shí)在很多時(shí)候 ,將結(jié)果顯示在那個(gè) [立即 ]框中是非常惡心的 .至少我惡心 ...顯示在那個(gè)對(duì)話(huà)框中 ..這種方式應(yīng)當(dāng)說(shuō)是在早期的編譯器中的延續(xù) ..DOS 下的顯示方式的延續(xù) ...而在 windows 環(huán)境下 .還要這個(gè)干嗎 ?vb,vb..v 是啥 ,v 是 .b 是啥 ?b 不是用來(lái)賣(mài)的 ,不是用來(lái)裝的 .那種早期的方式早就該淘汰了 .vb 中是可以將結(jié)果通過(guò)各種控件來(lái)顯示的 .程序中 比較常用的還是text...那個(gè)文本框 .輸出的時(shí)候 ,通過(guò)設(shè)定 text文本框的屬性來(lái)達(dá)到輸出的目的 . 下面我就給大家講一下怎樣用文本框來(lái)顯示結(jié)果 在編寫(xiě)的時(shí)候 .我們可以聲明一個(gè)變量 .之后 .讓 =這個(gè)變量 我們可以這樣做 ,在窗體上添加一個(gè)文本框控件 ,之后 CODE: Private Sub Form_Load() a1 = Time = a1 End Sub [Copy to clipboard] 在這里我沒(méi) 有定義變量 a1的類(lèi)型 ,這是一個(gè)隱式聲明 ,讓 VB去猜類(lèi)型去吧 ,當(dāng)這個(gè)順序結(jié)構(gòu)講完之后 ,我就要出問(wèn)題來(lái)考考大家了 ... ==================================== 下面來(lái)所說(shuō)輸出的格式 .我們?cè)谳敵龅臅r(shí)候 ,往往都會(huì)考慮輸出的格式 ,比如 ,希望顯示出來(lái)的字符居中 ,輸出的數(shù)字都想保留兩位小數(shù) .但是 ,無(wú)論你用那個(gè)print 方法輸出還是通過(guò)控件來(lái)顯示 ,反正你給它什么它就顯示什么 ,它們本身都無(wú)法控制輸出的格式 在 VB中 ,提供了幾個(gè)用于控制格式的函數(shù) ,其中最主要的是控制數(shù)字格式的函數(shù) FormatNumber() 閃亮登場(chǎng) ...哈哈哈 它的格式如下 FormatNumber (Expression[,NumDigitsAfterDecimal[,IncludeLeadingDigit[,UseParensForNegativeNumbers [,GroupDigits]]]]) 這個(gè)函數(shù)返回一個(gè)數(shù)字格式的表達(dá)式 .其意思是 Expression要被格式的表達(dá)式 NumDigitsAfterDecimal這是一個(gè)數(shù)字值 ,表示小數(shù)點(diǎn)右邊的顯示位數(shù) .缺省值為 1,表 示使用計(jì)算機(jī)區(qū)域設(shè)置值 . IncludeLeadingDigit三態(tài)常數(shù) ,表示小數(shù)點(diǎn)前面是否顯示零 ,記得很早以前 ,老師叫它們叫變態(tài)常數(shù) .哈哈 UseParensForNegativeNumber也是三態(tài)常數(shù) ,用來(lái)表示要不要把負(fù)數(shù)值放在圓括號(hào)內(nèi) GroupDigits還是三態(tài)常數(shù) ,表示設(shè)置分隔符對(duì)數(shù)組的分組 ,組分隔符在計(jì)算機(jī)的區(qū)域設(shè)置值中指定 . 上面這些參數(shù)中 ,Expression 是必須的 ,其他的是可選的 ,除了 Expression 和NumDigitsAfterDecimal,另外那三個(gè)三態(tài)常數(shù)的參數(shù) ,分別都有 3 個(gè)設(shè)置值 ,(這不是廢話(huà)嗎 ?)其值分別為 TristateTrue它的值是 1 至于含義 ...當(dāng)然是 True TristateFalse它的值是 0 和上面一樣當(dāng)然是 False TristateUseDefault它的值為 2 用計(jì)算機(jī)區(qū)域設(shè)置值中的設(shè)置值 不知道這樣給大家講大家是否能看的明白 .. 這里有一點(diǎn)需要注意 :當(dāng)忽略一個(gè)