1、第2章 VB編程入門,Visual Basic 程序設(shè)計(jì)教程,Visual Basic程序設(shè)計(jì)教程,2,本章將介紹有關(guān)VB程序的構(gòu)成和數(shù)據(jù)類型以及變量的定義和使用、表達(dá)式以及基本的輸入輸出操作。這些知識(shí)是編程的基礎(chǔ)。我們將通過(guò)簡(jiǎn)單示例的分析，幫助理解如何進(jìn)行VB編程。,Visual Basic程序設(shè)計(jì)教程,3,本章主要內(nèi)容: 確定數(shù)據(jù)的性質(zhì)：數(shù)據(jù)類型 兩種數(shù)據(jù)表達(dá)：常量和變量 算術(shù)運(yùn)算符和表達(dá)式 VB編程的開(kāi)始：使用窗體 賦值和輸入輸出,Visual Basic程序設(shè)計(jì)教程,4,所謂編程就是針對(duì)要解決的任務(wù)，設(shè)計(jì)解決問(wèn)題的步驟，使用計(jì)算機(jī)程序設(shè)計(jì)語(yǔ)言進(jìn)行描述，最后通過(guò)編碼、測(cè)試、修改等過(guò)程實(shí)現(xiàn)

2、編程的目的。 編程有兩個(gè)方面的要求: 一 需要理解編程的任務(wù)并給出算法 二 要使用特定的計(jì)算機(jī)語(yǔ)言具體地表示這些算法。,2.1 概 述,Visual Basic程序設(shè)計(jì)教程,5,1加法器界面設(shè)計(jì),2.2 一個(gè)簡(jiǎn)單的加法器程序,Visual Basic程序設(shè)計(jì)教程,6,2編寫程序代碼,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)輸入第一個(gè)數(shù)) TxtNum2

3、.Text = InputBox(請(qǐng)輸入第二個(gè)數(shù)) Temp = Val(TxtNum1) + Val(TxtNum2) TxtSum. Text = Temp End Sub Private Sub CmdExit _ Click()“退出”按鈕代碼 FrmAdder1.Hide Msg Box (加法器程序運(yùn)行結(jié)束，謝謝使用) End End Sub,Visual Basic程序設(shè)計(jì)教程,8,數(shù)據(jù)是程序處理的對(duì)象。為了更好地處理各種各樣的數(shù)據(jù)，VB定義了多種數(shù)據(jù)類型，數(shù)據(jù)類型定義了值的范圍并確定了它能夠進(jìn)行的操作。,2.3 確定數(shù)據(jù)的性質(zhì)：數(shù)據(jù)類型,Visual Basic程序設(shè)計(jì)教程,9

4、,Visual Basic程序設(shè)計(jì)教程,10,使用數(shù)值類型,1. 字節(jié)型(Byte) 字節(jié)型數(shù)可以表示無(wú)符號(hào)的整數(shù)，0255 2. 整型(Integer)和長(zhǎng)整型(Long) 不帶小數(shù)部分的數(shù)，表示正整數(shù)、負(fù)整數(shù)和零 整型數(shù): -3276832767 98、98 長(zhǎng)整型數(shù)： -21474836482147483647 45678、45678R,”面積”;Area,”周長(zhǎng)”;Perimeter輸出半徑、面積。周長(zhǎng) End Sub,Visual Basic程序設(shè)計(jì)教程,63,2.7.2 使用輸入對(duì)話框InputBox函數(shù) 【例2-4】計(jì)算半徑為R的圓面積和周長(zhǎng)，半徑值由鍵盤輸入。 Private

5、Sub Form_Click() Const PI = 3.141526 Dim R As Integer, Area As Single, Perimeter As Single R = Val(InputBox(請(qǐng)輸入圓的半徑：, 輸入) Area = PI * R * R Perimeter = 2 * PI * R Print 半徑; R, 面積; Area, 周長(zhǎng); Perimeter End Sub 這個(gè)例子中使用了InputBox函數(shù)產(chǎn)生輸入對(duì)話框。,Visual Basic程序設(shè)計(jì)教程,64,1輸入對(duì)話框的使用 InputBox函數(shù)的使用格式如下： InputBox（提示，標(biāo)題

6、，默認(rèn)值，xpos，ypox） 它們的含義如下： （1）提示信息。這是InputBox對(duì)話框所必須的信息，也可以使用空文本，即“”。 （2）標(biāo)題。這是在對(duì)話框窗口標(biāo)題欄顯示的內(nèi)容?？稍O(shè)置，也可以沒(méi)有標(biāo)題。,Visual Basic程序設(shè)計(jì)教程,65,（3）默認(rèn)值。在輸入框中的默認(rèn)輸入。系統(tǒng)默認(rèn)為空，可選。 （4）xpos和ypos為對(duì)話框的左側(cè)與屏幕左邊的距離和上邊與屏幕頂部的距離值?？蛇x。,Visual Basic程序設(shè)計(jì)教程,66,2在提示中使用多行文本 如果提示信息比較多，可以使用ASCII控制符回車Chr（13）和換行符Chr（10）產(chǎn)生另起一行。 例如：提示信息為“請(qǐng)輸入圓的半徑”

7、+ Chr（13）+ Chr（10）+“使用正整數(shù)” ， 產(chǎn)生如圖效果,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ù)，將文本類型的數(shù)據(jù)轉(zhuǎn)換為整型數(shù)以便參加運(yùn)算。 VB提供了在不同類型數(shù)據(jù)之間的轉(zhuǎn)換。,Visual Basic程序設(shè)計(jì)教程,68,2.7.3 使用Print方法輸出數(shù)據(jù) 使用Print在對(duì)象中顯示（打?。┹敵鑫谋?。 使用格式如下： 對(duì)象名.Print 表達(dá)式 ,表達(dá)式 1對(duì)象名 一

8、般情況下，Print輸出到窗體或者圖片框。在本窗體中輸出，可以缺省對(duì)象名。,Visual Basic程序設(shè)計(jì)教程,69,2表達(dá)式 Print方法支持多個(gè)表達(dá)式的輸出，可輸出數(shù)字、文字字符、日期、邏輯值等。如果Print后面沒(méi)有任何表達(dá)式，則輸出空行（在顯示效果上相當(dāng)于回車換行）。,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è)字符的空間分開(kāi)顯示。實(shí)際分隔位置還與所在輸出行的寬度和分隔的數(shù)目有關(guān)。 （2）分號(hào)分隔（緊湊格式輸出）。后一個(gè)表達(dá)式的值接著前一個(gè)表達(dá)式的輸出。,Visual

9、 Basic程序設(shè)計(jì)教程,71,（3）在Print語(yǔ)句最后使用逗號(hào)或分號(hào)結(jié)束，不換行，下一個(gè)Print接著按格式輸出。 （4）使用Spc()和Tab()函數(shù)，前者控制插入空格，后者確定列位置,Visual Basic程序設(shè)計(jì)教程,72,例： Private Sub Form_click() Me.FontSize = 16 Print 空行 Print A=; 1, B=; 2 Print 1, 2; 3, 4 Print A; Spc(4); B Print Tab(10); B Print 1234567890 End Sub,Visual Basic程序設(shè)計(jì)教程,73,2.7.4 使用消

10、息對(duì)話框MsgBox函數(shù) MsgBox函數(shù)提供了一個(gè)顯示應(yīng)用程序運(yùn)行信息的標(biāo)準(zhǔn)途徑，如圖所示：,MsgBox的格式如下： 變量名 = MsgBox( 提示 , 對(duì)話框類型 , 對(duì)話框標(biāo)題 ),Visual Basic程序設(shè)計(jì)教程,74,（1）使用形式: MsgBox有兩種使用形式，注意區(qū)分，如： A = MsgBox(您確定要退出嗎？, vbOKCancel + vbDefaultButton2, 退出)和MsgBox 您確定要退出嗎？, vbOKCancel + vbDefaultButton2, 退出“ 格式1是具有返回值的使用，程序根據(jù)用戶的不同選擇把選擇結(jié)果賦值給變量A。格式2沒(méi)有返回

11、值。,Visual Basic程序設(shè)計(jì)教程,75,（2）提示 必選參數(shù)項(xiàng)。如果顯示多行，可使用Chr(13)+ Chr(10) 。 （3）對(duì)話框標(biāo)題 在對(duì)話框標(biāo)題欄顯示的信息文本。,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ì)話框類型值,Visual Basic程序設(shè)計(jì)教程,77,Visual Basic程序設(shè)計(jì)教程,78,Visual Basic程序設(shè)計(jì)教程,79,（5）返回值 使用一個(gè)變量保存MsgBox函數(shù)返回值，返回值的符號(hào)常量和有關(guān)描述如表所示。,Visual Basic程序設(shè)計(jì)教程,80,Visual Basic程序設(shè)計(jì)教程,81,（6）省略參數(shù)項(xiàng) 如果只給出提示，系統(tǒng)默認(rèn)為對(duì)話框類型參數(shù)值為0，沒(méi)有對(duì)話框標(biāo)題。如果要省略某一個(gè)參數(shù)項(xiàng)，需要加上逗號(hào)分隔符。例如：A = MsgBox ( “您確定要退出嗎？”, , “退出” ),Visual Basic程序設(shè)計(jì)教程,82,【例2-5】在窗體上設(shè)置三個(gè)命令按鈕，分別為“放大窗口”“縮小窗口”和“結(jié)束程序”。點(diǎn)擊“放大窗口”“縮小窗口”