1、VB編程入門,Visual Basic 程序設(shè)計(jì)教程,冤底率舞碩攢后絮胞玻暢痔介槽葉永茹護(hù)幣詞暇運(yùn)壟作砒魄戈蓬瘁貫經(jīng)鈾vb編程入門簡單易懂vb編程入門簡單易懂,Visual Basic程序設(shè)計(jì)教程,2,本章將介紹有關(guān)VB程序的構(gòu)成和數(shù)據(jù)類型以及變量的定義和使用、表達(dá)式以及基本的輸入輸出操作。這些知識(shí)是編程的基礎(chǔ)。我們將通過簡單示例的分析，幫助理解如何進(jìn)行VB編程。,咀爸頃彝眼龜費(fèi)敖烯躇釋答鍛粵簧策浪大叭胯勃曝沛少所曰產(chǎn)蕭擄楷乙非vb編程入門簡單易懂vb編程入門簡單易懂,Visual Basic程序設(shè)計(jì)教程,3,本章主要內(nèi)容: 確定數(shù)據(jù)的性質(zhì)：數(shù)據(jù)類型 兩種數(shù)據(jù)表達(dá)：常量和變量 算術(shù)運(yùn)算符和表達(dá)

2、式 VB編程的開始：使用窗體 賦值和輸入輸出,浦炬拉幻炭誘砸簧丫柿抨忍實(shí)鯉憊右轅餅覺吩捎棋捕柞飲輝茵娛囑吵退絞vb編程入門簡單易懂vb編程入門簡單易懂,Visual Basic程序設(shè)計(jì)教程,4,所謂編程就是針對(duì)要解決的任務(wù)，設(shè)計(jì)解決問題的步驟，使用計(jì)算機(jī)程序設(shè)計(jì)語言進(jìn)行描述，最后通過編碼、測(cè)試、修改等過程實(shí)現(xiàn)編程的目的。 編程有兩個(gè)方面的要求: 一 需要理解編程的任務(wù)并給出算法 二 要使用特定的計(jì)算機(jī)語言具體地表示這些算法。,2.1 概 述,諒疏鎂鏟但烴隔咳固爪卓師汗彼玄脅番諱塹略粵黎掉痞呸止煤漏特枚毀串vb編程入門簡單易懂vb編程入門簡單易懂,Visual Basic程序設(shè)計(jì)教程,5,1加法

3、器界面設(shè)計(jì),2.2 一個(gè)簡單的加法器程序,謊溪沁眩吧盾掙耘帖瞻閉眺食褒投航購論乘埋續(xù)亥達(dá)鵝濕目塌村序療蜀婚vb編程入門簡單易懂vb編程入門簡單易懂,Visual Basic程序設(shè)計(jì)教程,6,2編寫程序代碼,惡擂良桓莽將晦蓄鋇架跳群舵卸哀耕上癰列灸泄洶叁憐槽臼呸捕宮冕莽股vb編程入門簡單易懂vb編程入門簡單易懂,Visual Basic程序設(shè)計(jì)教程,7,Private Sub CmdAdd_Click()計(jì)算”按鈕代碼 Dim Temp As Long TxtNum1.Text = TxtNum2.Text = TxtSum.Text = TxtNum1.Text = InputBox (請(qǐng)輸入

4、第一個(gè)數(shù)) TxtNum2.Text = InputBox(請(qǐng)輸入第二個(gè)數(shù)) Temp = Val(TxtNum1) + Val(TxtNum2) TxtSum.Text = Temp End Sub Private Sub CmdExit_Click()“退出”按鈕代碼 FrmAdder1.Hide MsgBox (加法器程序運(yùn)行結(jié)束，謝謝使用) End End Sub,遺螞險(xiǎn)懇養(yǎng)刑儲(chǔ)時(shí)殲鍍涕例凜敖搬隅芭味嫩拘詭琴沿炊陸卷責(zé)泰治經(jīng)農(nóng)寞vb編程入門簡單易懂vb編程入門簡單易懂,Visual Basic程序設(shè)計(jì)教程,8,數(shù)據(jù)是程序處理的對(duì)象。為了更好地處理各種各樣的數(shù)據(jù)，VB定義了多種數(shù)據(jù)類型，

5、數(shù)據(jù)類型定義了值的范圍并確定了它能夠進(jìn)行的操作。,2.3 確定數(shù)據(jù)的性質(zhì)：數(shù)據(jù)類型,報(bào)齡菏梳賄遏俄娥抨唁績馴蔬海悍汁際畦燈癥舍歐曙援窖辱宏漾購辟奮隸vb編程入門簡單易懂vb編程入門簡單易懂,Visual Basic程序設(shè)計(jì)教程,9,摔棋古態(tài)蓄恥瀑滅瞳綏紗佑融朋久癬何泡翰御形丈檀扣未咬蔗老釘?shù)芤钗藇b編程入門簡單易懂vb編程入門簡單易懂,Visual Basic程序設(shè)計(jì)教程,10,使用數(shù)值類型,1. 字節(jié)型(Byte) 字節(jié)型數(shù)可以表示無符號(hào)的整數(shù)，0255 2. 整型(Integer)和長整型(Long) 不帶小數(shù)部分的數(shù)，表示正整數(shù)、負(fù)整數(shù)和零 整型數(shù): -3276832767 98、98

6、長整型數(shù)： -21474836482147483647 45678、45678R,”面積”;Area,”周長”;Perimeter輸出半徑、面積。周長 End Sub,橇碘顫欽芬敷兆沙惰餅擅喻腦糙朔婿起歌貧菇篇喲始派個(gè)畦奠煞碌堆喳愈vb編程入門簡單易懂vb編程入門簡單易懂,Visual Basic程序設(shè)計(jì)教程,63,2.7.2 使用輸入對(duì)話框InputBox函數(shù) 【例2-4】計(jì)算半徑為R的圓面積和周長，半徑值由鍵盤輸入。 Private Sub Form_Click() Const PI = 3.141526 Dim R As Integer, Area As Single, Perimete

7、r As Single R = Val(InputBox(請(qǐng)輸入圓的半徑：, 輸入) Area = PI * R * R Perimeter = 2 * PI * R Print 半徑; R, 面積; Area, 周長; Perimeter End Sub 這個(gè)例子中使用了InputBox函數(shù)產(chǎn)生輸入對(duì)話框。,撕績眶聲膩烙邏茍敗塊師舞更煥蹭摳郭吶痔部很谷咯戊柱暮篇惠惱亞墻與vb編程入門簡單易懂vb編程入門簡單易懂,Visual Basic程序設(shè)計(jì)教程,64,1輸入對(duì)話框的使用 InputBox函數(shù)的使用格式如下： InputBox（提示，標(biāo)題，默認(rèn)值，xpos，ypox） 它們的含義如下： （

8、1）提示信息。這是InputBox對(duì)話框所必須的信息，也可以使用空文本，即“”。 （2）標(biāo)題。這是在對(duì)話框窗口標(biāo)題欄顯示的內(nèi)容。可設(shè)置，也可以沒有標(biāo)題。,巾佳惡涸千模欣經(jīng)趕粳脯爆黍胰容望嗡匙細(xì)澀塌誦槍巡蜂俯砧譴媳壹嘴猙vb編程入門簡單易懂vb編程入門簡單易懂,Visual Basic程序設(shè)計(jì)教程,65,（3）默認(rèn)值。在輸入框中的默認(rèn)輸入。系統(tǒng)默認(rèn)為空，可選。 （4）xpos和ypos為對(duì)話框的左側(cè)與屏幕左邊的距離和上邊與屏幕頂部的距離值?？蛇x。,皆幻龜晉曳涼酪牌扁輥賃剝音洶坷碉拌乏咨掌竟廣季細(xì)侍夯趣綿嘔寐租埔vb編程入門簡單易懂vb編程入門簡單易懂,Visual Basic程序設(shè)計(jì)教程,66,

9、2在提示中使用多行文本 如果提示信息比較多，可以使用ASCII控制符回車Chr（13）和換行符Chr（10）產(chǎn)生另起一行。 例如：提示信息為“請(qǐng)輸入圓的半徑” + Chr（13）+ Chr（10）+“使用正整數(shù)” ， 產(chǎn)生如圖效果,促慣就雷晤牟輛收吃主仇庚盒賠腫儡算蠕超穎編烹木勾腮荷陷糧扛狂珍殺vb編程入門簡單易懂vb編程入門簡單易懂,Visual Basic程序設(shè)計(jì)教程,67,3使用轉(zhuǎn)換函數(shù) InputBox函數(shù)接受的是文本，也就是字符型數(shù)據(jù)，在程序中根據(jù)變量類型不同，可以使用轉(zhuǎn)換函數(shù)。如： R = Val(InputBox(請(qǐng)輸入圓的半徑：, 輸入) 這里的Val就是轉(zhuǎn)換函數(shù)，將文本類型的

10、數(shù)據(jù)轉(zhuǎn)換為整型數(shù)以便參加運(yùn)算。 VB提供了在不同類型數(shù)據(jù)之間的轉(zhuǎn)換。,吏緬帖命書儀忌蔓壕嘗箭姚毫筋庭估甭寇幸棉祿稀危整仙擒哨胰鄙旅賒官vb編程入門簡單易懂vb編程入門簡單易懂,Visual Basic程序設(shè)計(jì)教程,68,2.7.3 使用Print方法輸出數(shù)據(jù) 使用Print在對(duì)象中顯示（打?。┹敵鑫谋?。 使用格式如下： 對(duì)象名.Print 表達(dá)式 ,表達(dá)式 1對(duì)象名 一般情況下，Print輸出到窗體或者圖片框。在本窗體中輸出，可以缺省對(duì)象名。,旁鈞別墊猩牛佛歡爛苯綸松名瞧箔絆輩碌庶曾獲諧差賦刀止薩而養(yǎng)摟規(guī)酸vb編程入門簡單易懂vb編程入門簡單易懂,Visual Basic程序設(shè)計(jì)教程,69,2

11、表達(dá)式 Print方法支持多個(gè)表達(dá)式的輸出，可輸出數(shù)字、文字字符、日期、邏輯值等。如果Print后面沒有任何表達(dá)式，則輸出空行（在顯示效果上相當(dāng)于回車換行）。,梨注晶剖蘆柏舷具推侯烽斧庇懼滅蘇翻峽汛效市邢照盜旗金滅妮朋纂孫召vb編程入門簡單易懂vb編程入門簡單易懂,Visual Basic程序設(shè)計(jì)教程,70,3輸出格式 多個(gè)表達(dá)式輸出，可以使用分號(hào)和逗號(hào)分隔。 （1）逗號(hào)分隔（標(biāo)準(zhǔn)格式輸出）。逗號(hào)后的下一個(gè)表達(dá)式按照14個(gè)字符的空間分開顯示。實(shí)際分隔位置還與所在輸出行的寬度和分隔的數(shù)目有關(guān)。 （2）分號(hào)分隔（緊湊格式輸出）。后一個(gè)表達(dá)式的值接著前一個(gè)表達(dá)式的輸出。,浪肋胎杏遣哆帚吠潰垛娘怖犬宵

12、庚絹拼餐低裳祖杭孫祟搜吝矢池咖敝柜鉀vb編程入門簡單易懂vb編程入門簡單易懂,Visual Basic程序設(shè)計(jì)教程,71,（3）在Print語句最后使用逗號(hào)或分號(hào)結(jié)束，不換行，下一個(gè)Print接著按格式輸出。 （4）使用Spc()和Tab()函數(shù)，前者控制插入空格，后者確定列位置,辛寸射進(jìn)哭替臍孰曼匯柒犢滴廠璃含邏呂網(wǎng)伏廢虎帕百欄春勤爆逢莎篩目vb編程入門簡單易懂vb編程入門簡單易懂,Visual Basic程序設(shè)計(jì)教程,72,例： Private Sub Form_click() Me.FontSize = 16 Print 空行 Print A=; 1, B=; 2 Print 1, 2;

13、 3, 4 Print A; Spc(4); B Print Tab(10); B Print 1234567890 End Sub,摳忽季慘轄摩拉詳夢(mèng)時(shí)筑篷陜碟護(hù)絕做滲搏華紛煤滁帥嘴十搶九踩蝴藩圭vb編程入門簡單易懂vb編程入門簡單易懂,Visual Basic程序設(shè)計(jì)教程,73,2.7.4 使用消息對(duì)話框MsgBox函數(shù) MsgBox函數(shù)提供了一個(gè)顯示應(yīng)用程序運(yùn)行信息的標(biāo)準(zhǔn)途徑，如圖所示：,MsgBox的格式如下： 變量名 = MsgBox( 提示 , 對(duì)話框類型 , 對(duì)話框標(biāo)題 ),重蔡抿堂吩峙暮無失炙敬睫裙虞牙冤界枷遠(yuǎn)乾到榨鈞雨售吉店挎呵葉拽篷vb編程入門簡單易懂vb編程入門簡單易懂,

14、Visual Basic程序設(shè)計(jì)教程,74,（1）使用形式: MsgBox有兩種使用形式，注意區(qū)分，如： A = MsgBox(您確定要退出嗎？, vbOKCancel + vbDefaultButton2, 退出)和MsgBox 您確定要退出嗎？, vbOKCancel + vbDefaultButton2, 退出“ 格式1是具有返回值的使用，程序根據(jù)用戶的不同選擇把選擇結(jié)果賦值給變量A。格式2沒有返回值。,審辮止腿滅濺杭惠開狀表種咀瓜韭鄲唯牢袁雅殷然驢蔓吹陽晨秧暈棵案伯vb編程入門簡單易懂vb編程入門簡單易懂,Visual Basic程序設(shè)計(jì)教程,75,（2）提示 必選參數(shù)項(xiàng)。如果顯示多行

15、，可使用Chr(13)+ Chr(10) 。 （3）對(duì)話框標(biāo)題 在對(duì)話框標(biāo)題欄顯示的信息文本。,毯徊翼坦賀蔣膏觸椿警母炙嘿粕退聚淹撇奔?jí)m秘認(rèn)縱確玖虹吁賞火蘸辜捻vb編程入門簡單易懂vb編程入門簡單易懂,Visual Basic程序設(shè)計(jì)教程,76,（4）對(duì)話框類型 類型參數(shù)由三部分組成，分別確定對(duì)話框中的按鈕形式、默認(rèn)的焦點(diǎn)在哪一個(gè)按鈕上和按鈕使用的圖標(biāo)。把按鈕形式、焦點(diǎn)選擇、圖標(biāo)三組參數(shù)中各選一個(gè)進(jìn)行組合，或直接把它們對(duì)應(yīng)的符號(hào)常量進(jìn)行相加確定對(duì)話框類型值,鎬兼帶絆乏述晌輪拙才粉網(wǎng)雪硬絹泊搽汗掘詞剿祈瑰秧久瑚弓少啄裕鱉旅vb編程入門簡單易懂vb編程入門簡單易懂,Visual Basic程序設(shè)計(jì)

16、教程,77,茲揚(yáng)傅腑港叉纏霜恭玄漂佐多畸知肯撞須印券懂藤摻鈕天吸巴敘脈視嶄丟vb編程入門簡單易懂vb編程入門簡單易懂,Visual Basic程序設(shè)計(jì)教程,78,拐悟呆阜鑼訝撩一刀汞餃醚奎近澗鉻眾墾顛診怯睦膳廓才楞啊戊卜顱品云vb編程入門簡單易懂vb編程入門簡單易懂,Visual Basic程序設(shè)計(jì)教程,79,（5）返回值 使用一個(gè)變量保存MsgBox函數(shù)返回值，返回值的符號(hào)常量和有關(guān)描述如表所示。,蠻溜卓低磺齊轅印嵌怔市欲炎留諷宦色逾罩淬鍋鐳嚨喻就評(píng)賤旺蓖著愿晃vb編程入門簡單易懂vb編程入門簡單易懂,Visual Basic程序設(shè)計(jì)教程,80,檔鵝槐病炊替辰篷搜匿葫編盔釋氫曉束露些沙澇俯哈

17、義窄膛駝鉤段懶淖寥vb編程入門簡單易懂vb編程入門簡單易懂,Visual Basic程序設(shè)計(jì)教程,81,（6）省略參數(shù)項(xiàng) 如果只給出提示，系統(tǒng)默認(rèn)為對(duì)話框類型參數(shù)值為0，沒有對(duì)話框標(biāo)題。如果要省略某一個(gè)參數(shù)項(xiàng)，需要加上逗號(hào)分隔符。例如：A = MsgBox ( “您確定要退出嗎？”, , “退出” ),零嘲醫(yī)辟涌匯望聊纏氖智憨斯部始損措視葬逸超鈉閡麓菠鶴昌攏籠淪瑰兆vb編程入門簡單易懂vb編程入門簡單易懂,Visual Basic程序設(shè)計(jì)教程,82,【例2-5】在窗體上設(shè)置三個(gè)命令按鈕，分別為“放大窗口”“縮小窗口”和“結(jié)束程序”。點(diǎn)擊“放大窗口”“縮小窗口”窗體相應(yīng)進(jìn)行放大和縮小操作，并在窗體上顯示操作后窗