【正文】 如果是三角形 ,則彈出一個(gè)對(duì)話框 ,如果不是 ,直接退出 End Sub Private Sub Form_Load() = 0 = 0 = 0 = 計(jì)算 End Sub [Copy to clipboard] 如果是三角形 ,這個(gè)程序會(huì)彈出一個(gè)對(duì)話框 ,告訴你是三角形 如果不是 ,它會(huì)直接退出 . 這一課給大家留下一個(gè)思考題 ,如果有興趣可以翻翻 是三角形 ,我也想彈出一個(gè)對(duì)話框 ,那應(yīng) 該怎么做呢 ? 下一課我會(huì)給大家介紹 if 語(yǔ)句中的判斷語(yǔ)句 ..嘿嘿 .完成這個(gè)思考題 ... 萬(wàn)惡淫為首 ,百善孝為先 [1。三條邊的長(zhǎng)度值輸入文本框 If ((a + b) c And (a + c) b And (b + c) a And (a b) c And (a c) b) Then MsgBox 這是一個(gè)三角形 End If 39。 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ì)話框中 ..這種方式應(yīng)當(dāng)說(shuō)是在早期的編譯器中的延續(xù) ..DOS 下的顯示方式的延續(xù) ...而在 windows 環(huán)境下 .還要這個(gè)干嗎 ?vb,vb..v 是啥 ,v 是 .b 是啥 ?b 不是用來(lái)賣的 ,不是用來(lái)裝的 .那種早期的方式早就該淘汰了 .vb 中是可以將結(jié)果通過(guò)各種控件來(lái)顯示的 .程序中 比較常用的還是text...那個(gè)文本框 .輸出的時(shí)候 ,通過(guò)設(shè)定 text文本框的屬性來(lái)達(dá)到輸出的目的 . 下面我就給大家講一下怎樣用文本框來(lái)顯示結(jié)果 在編寫的時(shí)候 .我們可以聲明一個(gè)變量 .之后 .讓 =這個(gè)變量 我們可以這樣做 ,在窗體上添加一個(gè)文本框控件 ,之后 CODE: Private Sub Form_Load() a1 = Time = a1 End Sub [Copy to clipboard] 在這里我沒(méi) 有定義變量 a1的類型 ,這是一個(gè)隱式聲明 ,讓 VB去猜類型去吧 ,當(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è)置值 ,(這不是廢話嗎 ?)其值分別為 TristateTrue它的值是 1 至于含義 ...當(dāng)然是 True TristateFalse它的值是 0 和上面一樣當(dāng)然是 False TristateUseDefault它的值為 2 用計(jì)算機(jī)區(qū)域設(shè)置值中的設(shè)置值 不知道這樣給大家講大家是否能看的明白 .. 這里有一點(diǎn)需要注意 :當(dāng)忽略一個(gè)或多個(gè)選項(xiàng)參數(shù)時(shí) ,被忽略的參數(shù)值由計(jì)算機(jī)的區(qū)域設(shè)置值 提供 .所有設(shè)置值信息都來(lái)自 [區(qū)域設(shè)置 ]對(duì)話框的 [數(shù)字 ]選項(xiàng)卡 . 例如 ,對(duì)于一個(gè)雙精度型數(shù)據(jù) : a1= 如果希望小數(shù)點(diǎn)后顯示的有效位數(shù)為 3,則可以采用語(yǔ)句 a1=formatnumber(a1,3,vbUseDefault ,vbUseDefault ,vbFalse ) 其輸出結(jié)果為 如果想保留小數(shù)點(diǎn)后面僅 2 位有效數(shù)字的值 .那么我們可以 a1=formatnumber(a1,2,vbTrue,vbTrue,vbTrue) FormatNumber()函數(shù)的返回值是一個(gè) 字符串 ,通常情況下要把它賦給一個(gè)字符串型變量 .因?yàn)樵摵瘮?shù)返回的各個(gè)字符都是數(shù)字字符 ,所以可以直接將其賦給一個(gè)數(shù)值型變量 以百分號(hào)的形式輸出也是數(shù)字輸出的一種重要形式 ,尤其是在做統(tǒng)計(jì)處理的時(shí)候 .這種輸出格式通過(guò)函數(shù) FormatPercent 來(lái)控制 ,他的格式為 : FormatPercent (Expression[,NumDigitsAfterDecimal[,IncludeLeadingDigit[,UseParensForNegativeNumbers [,GroupDigits]]]]) 和那個(gè) Number 函數(shù)的參數(shù)一樣 ,只是這個(gè)是來(lái)做統(tǒng)計(jì)處理的 . 該函數(shù)返回一個(gè)百分比格式 ,(乘以 100)的表達(dá)式 ,后面有 %符號(hào) .因?yàn)閹в蟹菙?shù)字的字符 ,所以返回值要賦給一個(gè)字符串型變量 .函數(shù)中的參數(shù)以及其含義和FormatNumber()的函數(shù)一致 我們看下面的這個(gè)例子 CODE: Private Sub Form_Load() Dim a1 As Double Dim p1 As String a1 = p1 = FormatPercent(a1, 4, vbFalse, vbFalse, vbFalse) p1 End Sub [Copy to clipboard] 大家編譯一下就可以看到輸出結(jié)果了 . 除了對(duì)數(shù)字型數(shù)據(jù)的格式化處理外 ,還有對(duì)字符串型數(shù)據(jù)和日期型數(shù)據(jù)的格式化整理 .日期型數(shù)據(jù)的處理一般情況很少用到 ,這里就不所那么多了 ,如果有興趣可以小窗我 一塊兒討論 . 字符串型數(shù)據(jù)的格式化處理我們將放在后面重點(diǎn)介紹 萬(wàn)惡淫為首 ,百善孝為先 [11 樓 ] | Posted: 20201019 12:42 瘋 子 級(jí)別 : 俠客 精華 : 0 發(fā)帖 : 189 威望 : 47 點(diǎn) 金錢 : 36 RMB 貢獻(xiàn)值 : 0 點(diǎn) 積分 : 0 點(diǎn) 注冊(cè)時(shí)間 :20201001 最后登錄 :20200202 瘋子的 VB 課堂 ,第 13 課 ,分支結(jié)構(gòu)程序設(shè)計(jì) 從這一課起 ,我們的 vb 課堂進(jìn)入了一個(gè)新的階段 .從這一課開始 ,我們進(jìn)入了 ,分支結(jié)構(gòu)程序設(shè)計(jì) ,我會(huì)細(xì)講結(jié)構(gòu)化程序設(shè)計(jì) .所謂分支結(jié)構(gòu) ,就是來(lái)解決程序流向問(wèn)題 ,就是在某種條件成立和不成立時(shí) ,程序應(yīng)該分別執(zhí)行哪些語(yǔ)句 . vb 中包含多種分支結(jié)構(gòu)語(yǔ)句 ,例如 ,if 和 Select 等 .. 分支結(jié)構(gòu)是結(jié)構(gòu)化程序設(shè)計(jì)的基本結(jié)構(gòu)之一 .它所要解決的是根據(jù)條件判斷的結(jié)果決 定程序執(zhí)行的流向 ,因此也被稱為判斷結(jié)構(gòu)或選擇結(jié)構(gòu) .一般來(lái)說(shuō) ,選擇是由 2 支的 ,就是說(shuō) ,條件要么是真 ,要么是假 ,沒(méi)有其他的選擇 .在執(zhí)行結(jié)構(gòu)時(shí)按照所指定的條件進(jìn)行判斷餅選擇其中一組語(yǔ)句來(lái)執(zhí)行 . 這里需要注意一點(diǎn) ,我們?cè)谑褂眠@種結(jié)構(gòu)的時(shí)候 ,可以嵌套很多選擇 ,但是分支結(jié)構(gòu)只能選擇其中之一的語(yǔ)句段 ,也就是所 .選擇結(jié)構(gòu)中兩個(gè)分支只有一個(gè)分支會(huì)被執(zhí)行 . 當(dāng)然 ,如果我們用在日常對(duì)象 ,這樣的問(wèn)題 .打個(gè)簡(jiǎn)單的比方吧 .在決定是否要給車加油的時(shí)候 ,要根據(jù)所剩的油量 ,如果所剩不到 10L我肯定會(huì)去加油的 ,否則 ,就不去 .當(dāng)然 ,這里我們也 可以嵌套多條判斷 ,比如是否外出辦事 ,是否直接回家 ,路上是否塞車等等等等 ....我們可以根據(jù)不同的選擇 ,執(zhí)行不同的任務(wù) .換到程序里就執(zhí)行不同的語(yǔ)句 ...這種多分支結(jié)構(gòu) ,就被成為分支結(jié)構(gòu)的選擇結(jié)構(gòu) . 選擇結(jié)構(gòu)中的 條件 實(shí)際上就是一個(gè)表達(dá)式 ,它可以是算術(shù)表達(dá)式和關(guān)系表達(dá)式 ,也可以是邏輯表達(dá)式等 ...程序執(zhí)行的具體流向是根據(jù)表達(dá)式的值的真還是假來(lái)決定的 . 關(guān)系運(yùn)算是邏輯運(yùn)算中比較簡(jiǎn)單的一種 ,我們所說(shuō)的 關(guān)系運(yùn)算 實(shí)際上是 比較運(yùn)算 將兩個(gè)表達(dá)式的值進(jìn)行比較 ,判斷比較的結(jié)果是否符合所給定的條件 . 例如 ab就是個(gè) 關(guān)系表達(dá)式 ,大于號(hào) 是一個(gè)關(guān)系運(yùn)算符 ,如果表達(dá)式 a的值大于表達(dá)式 b 的值 ,則此關(guān)系表達(dá)式的值為 真 就是條件滿足 ....反則為 假 下面我給大家好好嘮嘮關(guān)系運(yùn)算 關(guān)系運(yùn)算符也稱為比較運(yùn)算符 ,用來(lái)提供表達(dá)式的比較方式 .在 vb 中 ,允許使用的關(guān)系符有這些 : , = , = , , = , , 這里就不為大家過(guò)多解釋了 ,這些關(guān)系運(yùn)算符想必大家也都知道 ,這里就不再累贅 ... 各個(gè)關(guān)系運(yùn)算符的優(yōu)先級(jí)都是相同的 ,因此它們的運(yùn)算次序遵守從左到右的原則 ,如果希望改變優(yōu)先級(jí) ,可以使用圓括號(hào) ()來(lái)改變運(yùn)算的先后順序 ..(廢話 ,地球人都知道 ). 用關(guān)系運(yùn)算符將兩個(gè)表達(dá)式連接起來(lái)的試子叫做關(guān)系表達(dá)式 ,表達(dá)式 可以是數(shù)學(xué)關(guān)系表達(dá)式或者字符關(guān)系表達(dá)式 ,但要求關(guān)系運(yùn)算符兩邊的表達(dá)式的數(shù)據(jù)類型要一致 . 例如 ,下面的表達(dá)式都是合法的 : CODE: 5+410 x*y+y*xz*z a$[7:1]cc fengfengpenter z_data100 [Copy to clipboard] 而下面的這句是非法的 1t 數(shù)字類型的量不可以與字符型拿來(lái)比較的 . 我們前面的程序中提到過(guò) True和 False這里想必大家也都知道 ,兩個(gè)值 ,前面的那個(gè)為 真 ,false 為 假 對(duì)于數(shù)值量的比較規(guī)則為 :按照數(shù)值量的大小進(jìn)行比較 ..例如 :1 小于2, 7 不等于 6,等等 .....如果關(guān)系運(yùn)算符的任何一邊是由數(shù)字表達(dá)式組成 ,則會(huì)先算表達(dá)式的值 ,然后再進(jìn)行比較 .....這里再舉個(gè)例子 (nnd,頭都大了 ...呵呵 ) 關(guān)系表達(dá)式 : 123123+2^21272*11 vb 編譯中 會(huì)先計(jì)算 123123+2^2(值為 :123127)然后計(jì)算 1272*11(值為 : 804)然后再比較大小 ,很顯然 ,這個(gè)式子返回的值為 False 這里我希望大家注意一下 ...由于實(shí)數(shù)在計(jì)算機(jī)中是近似表示的 ,所以在理論上應(yīng)該不相等的量 ,在計(jì)算機(jī)中卻有可能被當(dāng)成相等的量來(lái)處理 .例如 ,表達(dá)式 : 1=10000000000000000000000000000111 在計(jì)算機(jī)中就會(huì)被認(rèn)為是兩個(gè)相等的量 .因此 ,在比較兩個(gè)有可能十分接近的數(shù)值 (比如 a 和 b)時(shí) ,最好不要使用等號(hào) =,而應(yīng)該改寫為ASB(ab)1e5.. 根據(jù)實(shí)際情況給出一個(gè)很小的值 1e5 也就是 只要兩個(gè)量的差小于此值 ,則可以認(rèn)為兩個(gè)量相等 .當(dāng)然 ,這個(gè)用于標(biāo)記的值就是用戶自己選定的 ,也可以設(shè)為 , 等等 .. 對(duì)于字符型數(shù)據(jù) ,比較的規(guī)則是根據(jù) ASCII碼的大小來(lái)進(jìn)行比較 .如果一個(gè)字符的 ASCII值大于另一個(gè)字符的 ASCII的值 ,就可以認(rèn)為前者 大于 后者 .草草的那個(gè)帖子 ,IDpk的小游戲 ,就是用 ASCII碼來(lái)比較 ID的強(qiáng)弱的 .只是算出了 md5 碼 ,用 id 的 md5 碼密文的 ASCII 的值 ..來(lái)