VB順序結(jié)構(gòu)程序設(shè)計

1、第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/271第第4 4章章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計本章要點(diǎn)本章要點(diǎn): : 賦值語句賦值語句數(shù)據(jù)輸入數(shù)據(jù)輸入* *數(shù)據(jù)輸出數(shù)據(jù)輸出* *注釋、暫停與程序結(jié)束語句注釋、暫停與程序結(jié)束語句第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/272事件驅(qū)動事件驅(qū)動: 將代碼劃分成一些將代碼劃分成一些“子過程子過程”過程結(jié)構(gòu)過程結(jié)構(gòu): 過程內(nèi)部代碼由三種基本結(jié)構(gòu)組成過程內(nèi)部代碼由三種基本結(jié)構(gòu)組成 即即: 順序結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)順序結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)順序結(jié)構(gòu)順序結(jié)構(gòu): 執(zhí)行過程的次序從上到下執(zhí)行過程的次序從上到下,從左到右

2、從左到右例例: Private Sub Command1_Click() Const Pi = 3.14 H = Val(Text1.Text) : R = Val(Text2.Text) Text3.Text = Pi * R 2 * H End Sub第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/2734.1 賦值語句賦值語句1. 格式格式 let = 或或: .= 2. 功能功能 計算表達(dá)式的值計算表達(dá)式的值,再將此值賦給變量或?qū)ο髮傩?。再將此值賦給變量或?qū)ο髮傩浴?. 說明說明(1) : 應(yīng)符合應(yīng)符合VB變量命名約定。變量命名約定。(2) : 常量、變量、表達(dá)式、屬性。常

3、量、變量、表達(dá)式、屬性。(3) : 缺省時為當(dāng)前窗體。缺省時為當(dāng)前窗體。(4) 賦值號賦值號“=”: 與數(shù)學(xué)中的等號意義不同與數(shù)學(xué)中的等號意義不同。 例例: X=X+1第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/274(5) 賦值號左邊必須是變量或?qū)ο髮傩浴Ｙx值號左邊必須是變量或?qū)ο髮傩浴?例例: X=1 MyStr=Good Morning Command1.Caption=確定確定 X+1=X 錯誤錯誤,賦值號左邊是表達(dá)式賦值號左邊是表達(dá)式 Y=5 正確正確 5=Y 錯誤錯誤,賦值號左邊是常量賦值號左邊是常量 (6) 變量名或?qū)ο髮傩悦念愋蛻?yīng)與表達(dá)式類型變量名或?qū)ο髮傩悦?/p>

4、的類型應(yīng)與表達(dá)式類型相容。相容。 類型類型相容相容: :指變量名或?qū)ο髮傩悦軌蛘_存指變量名或?qū)ο髮傩悦軌蛘_存取賦值號右邊的表達(dá)式的值取賦值號右邊的表達(dá)式的值。第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/275例例: Dim A As Integer, B As Single Dim C As Double, S As String A = 100 將整型數(shù)將整型數(shù)100賦給整型變量賦給整型變量A S = 123.45 將字符串將字符串123.45賦給變量賦給變量S A = S 將數(shù)字字符串變量賦給整型變量將數(shù)字字符串變量賦給整型變量, 變量變量A中存放中存放123 S

5、= A S中存放字符串中存放字符串123 B = 12345.67 A = B 高單度變量賦值給整型變量高單度變量賦值給整型變量, 先四舍五入后取整先四舍五入后取整, A中存放中存放12346 C = 123456.789 B = C 高精度變量賦值給低精度變量高精度變量賦值給低精度變量, 變量變量B中存放中存放123456.8。有效數(shù)字。有效數(shù)字7位位 S = abc A = S 錯誤錯誤,類型不匹配類型不匹配第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/276(7) 變量未賦值時變量未賦值時,數(shù)值型變量值為數(shù)值型變量值為0,字符串變量值字符串變量值為空串為空串。(8) 給可變

6、類型的變量賦值后給可變類型的變量賦值后,變量的類型為賦值變量的類型為賦值號右邊表達(dá)式的類型。號右邊表達(dá)式的類型。例例: 執(zhí)行下列各賦值語句后執(zhí)行下列各賦值語句后,A的數(shù)據(jù)類型是什么的數(shù)據(jù)類型是什么? (設(shè)設(shè)A沒有定義數(shù)據(jù)類型沒有定義數(shù)據(jù)類型) A = 6 = 5 A = 5 + 3 A = 5+3 A = #11/26/99# A = #11/26/1999# A = Not 5 8可用可用TypeName函數(shù)顯示變量的數(shù)據(jù)類型。函數(shù)顯示變量的數(shù)據(jù)類型。如如:Print TypeName(A)第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/277【例【例4-1】設(shè)變量】設(shè)變量A中存

7、放中存放5,變量變量B中存放中存放8,交換交換兩個變量的值兩個變量的值,使變量使變量A中存放中存放8,變量變量B中存放中存放5。 代碼如下代碼如下: A = 5 B = 8 C = A A = B B = CVB4lt1:進(jìn)入進(jìn)入VB環(huán)境環(huán)境ABCC=AA=BB=C第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/2784.2 數(shù)據(jù)輸入數(shù)據(jù)輸入 把要加工的初始數(shù)據(jù)從某種外部設(shè)備（例如鍵把要加工的初始數(shù)據(jù)從某種外部設(shè)備（例如鍵盤）盤）輸入輸入到計算機(jī)中到計算機(jī)中, ,并把處理結(jié)果并把處理結(jié)果輸出輸出到指定設(shè)到指定設(shè)備（如顯示器）備（如顯示器）, ,這是程序設(shè)計語言所應(yīng)具備的基這是程序設(shè)

8、計語言所應(yīng)具備的基本部分。本部分。賦值語句；賦值語句；輸入框輸入框(InputBox)；文本框文本框(TextBox)；輸入輸入第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/2794.2.1 用輸入框用輸入框(InputBox)輸入數(shù)據(jù)輸入數(shù)據(jù)1. InputBox函數(shù)的格式函數(shù)的格式 InputBox( , , )2. 功能功能 提示一對話框提示一對話框,等待用戶輸入正文或按下按鈕等待用戶輸入正文或按下按鈕,并并返回包含文本框內(nèi)容的字符串。返回包含文本框內(nèi)容的字符串。3. 3. 說明說明 n : 字符串表達(dá)式。字符串表達(dá)式?？捎每捎肅hr(13)、Chr(10)、Chr(13)

9、 & Chr(10)、vbCrLf換行。最多可有換行。最多可有1024個字符個字符n : 字符串表達(dá)式字符串表達(dá)式,省略時默認(rèn)為應(yīng)用程序名。省略時默認(rèn)為應(yīng)用程序名。n : 字符串表達(dá)式字符串表達(dá)式,省略時默認(rèn)為空。省略時默認(rèn)為空。n返回值返回值: 字符串字符串(在對話框中單擊取消則返回在對話框中單擊取消則返回)第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/2710例例: Private Sub Form_Activate() Dim R As Single, AREA As Single R = Val(InputBox(“請輸入半徑請輸入半徑”, “計算面積計算面積”,

10、 “1”) AREA = 3.14 * R 2 Print R=; R; AREA=; AREA End Sub單擊單擊“確定確定”,返回文本框中的文本到變量返回文本框中的文本到變量R中中單擊單擊“取消取消”,返回一個零長度的字符串返回一個零長度的字符串第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/2711 用文本框輸入數(shù)據(jù)時用文本框輸入數(shù)據(jù)時,也就是將文本框的也就是將文本框的Text屬屬性的內(nèi)容賦值給某個變量。性的內(nèi)容賦值給某個變量。 例例:將文本框?qū)⑽谋究騎ext1中輸入的字符串賦給字符串中輸入的字符串賦給字符串變量變量Mystr Dim MyStr As String My

11、Str = Text1.Text 例例:將文本框?qū)⑽谋究騎ext1中輸入的字符串作為數(shù)據(jù)賦中輸入的字符串作為數(shù)據(jù)賦給整型變量給整型變量 Dim A As Integer A = Val(Text1.Text)4.2.2 用文本框用文本框(TextBox)輸入數(shù)據(jù)輸入數(shù)據(jù)第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/27121. 文本框控件的常用屬性文本框控件的常用屬性(1)Text屬性屬性:表示文本框中包含的內(nèi)容表示文本框中包含的內(nèi)容(2)Locked屬性屬性:決定文本框的內(nèi)容是否可編輯決定文本框的內(nèi)容是否可編輯(3)Multiline屬性屬性:為為true,可輸入多行文本可輸入

12、多行文本,默認(rèn)為默認(rèn)為false.(4)Scrollbars:決定是否有滾動條以及滾動條的顯決定是否有滾動條以及滾動條的顯示方式。默認(rèn)為不顯示。示方式。默認(rèn)為不顯示。(5)Passwordchar:顯示在文本框中的替代符顯示在文本框中的替代符,如如“*”,主要用于口令的輸入。主要用于口令的輸入。(6)Maxlength:指定顯示的字符個數(shù)指定顯示的字符個數(shù),超出部分不接超出部分不接收收,并同時發(fā)出嘟嘟聲。并同時發(fā)出嘟嘟聲。第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/27132.文本框控件的顯示文本文本框控件的顯示文本文本框顯示的文本受文本框顯示的文本受text屬性控制。屬性控制

13、。Text屬性屬性可以用以下可以用以下3種方式設(shè)置種方式設(shè)置:n設(shè)計時在屬性窗口中進(jìn)行設(shè)計時在屬性窗口中進(jìn)行;n編程時通過代碼設(shè)置編程時通過代碼設(shè)置n運(yùn)行時由用戶輸入運(yùn)行時由用戶輸入若不希望用戶更改文本若不希望用戶更改文本,可以把文本框的可以把文本框的locked 屬性設(shè)置為屬性設(shè)置為true或?qū)⒒驅(qū)nabled屬性設(shè)置為屬性設(shè)置為False以以vb4lt1為例說明為例說明第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/27143. 多行文本框多行文本框若需要在文本框中顯示多行文本若需要在文本框中顯示多行文本,可以修改文本框的可以修改文本框的multiline和和scorllba

14、rs屬性屬性,但這兩種屬性只能在屬性窗口中但這兩種屬性只能在屬性窗口中修改。修改。Multiline 屬性屬性TRUE:可以輸入和顯示多行文本可以輸入和顯示多行文本,同時具有文字處理器的同時具有文字處理器的自動換行功能自動換行功能,按按ctrl+enter組合鍵可以插入一行。組合鍵可以插入一行。Scorllbars屬性屬性當(dāng)當(dāng)multiline為為true時時,scrollbars屬性才有效。屬性才有效。0-none 1- horizontal 2-vertical 3-both若無若無horizontal滾動條滾動條,文本框的文本會自動按字換行文本框的文本會自動按字換行,當(dāng)當(dāng)加了加了hori

15、zontal以后以后,文本框的自動換行功能會自動消失文本框的自動換行功能會自動消失,只只有按有按enter鍵才能換行。舉例說明。鍵才能換行。舉例說明。第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/27151. 焦點(diǎn)焦點(diǎn) 當(dāng)前可以接收用戶輸入的對象稱為具有焦點(diǎn)。當(dāng)前可以接收用戶輸入的對象稱為具有焦點(diǎn)。 注意注意: 并非所有控件都可以接收焦點(diǎn)。而且并非所有控件都可以接收焦點(diǎn)。而且, 只有只有Enable和和Visible屬性為屬性為True時時,才可以接收焦點(diǎn)。才可以接收焦點(diǎn)。2. 事件事件 GotFocus 發(fā)生在對象得到焦點(diǎn)時發(fā)生在對象得到焦點(diǎn)時 LostFocus 發(fā)生在對象失

16、去焦點(diǎn)時發(fā)生在對象失去焦點(diǎn)時3. 對象何時得到焦點(diǎn)對象何時得到焦點(diǎn)n運(yùn)行時選擇對象運(yùn)行時選擇對象(鼠標(biāo)、鼠標(biāo)、Tab鍵、訪問鍵鍵、訪問鍵)n在代碼中使用在代碼中使用SetFocus方法方法 其格式為其格式為:.setfocus4.2.3 焦點(diǎn)和焦點(diǎn)和Tab鍵序鍵序第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/27164. 對象何時失去焦點(diǎn)對象何時失去焦點(diǎn)n運(yùn)行時用運(yùn)行時用Tab鍵移動、用訪問鍵或用鼠標(biāo)單擊選鍵移動、用訪問鍵或用鼠標(biāo)單擊選擇另一個對象。擇另一個對象。n在代碼中對另一個對象使用在代碼中對另一個對象使用SetFocus方法改變焦方法改變焦點(diǎn)。點(diǎn)。5. Tab鍵序鍵序n指

17、按指按Tab鍵時焦點(diǎn)在各個控件之間移動的順序。鍵時焦點(diǎn)在各個控件之間移動的順序。n每個窗體都有自己的每個窗體都有自己的Tab鍵序。鍵序。n默認(rèn)鍵序與控件的建立次序一致。默認(rèn)鍵序與控件的建立次序一致。nTabIndex屬性屬性: 決定決定Tab鍵序鍵序 改變改變TabIndex屬性可以改變屬性可以改變Tab鍵序鍵序 nTabStop屬性屬性: 決定是否能夠使用決定是否能夠使用 TAB 鍵將焦點(diǎn)鍵將焦點(diǎn)移動到當(dāng)前對象。移動到當(dāng)前對象。第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/2717【例【例4-2】設(shè)計如下圖所示的界面】設(shè)計如下圖所示的界面,運(yùn)行時運(yùn)行時,輸入某學(xué)輸入某學(xué)生三門課

18、的成績生三門課的成績,計算平均成績。按要求編程。計算平均成績。按要求編程。要求要求:n單擊單擊“計算計算”按鈕求平均成績按鈕求平均成績;n當(dāng)輸入成績的文本框獲得焦點(diǎn)時當(dāng)輸入成績的文本框獲得焦點(diǎn)時,選中其中的文本選中其中的文本;n當(dāng)輸入成績的文本框內(nèi)容發(fā)生變化時當(dāng)輸入成績的文本框內(nèi)容發(fā)生變化時,清除平均值清除平均值;n單擊單擊“清除清除”按鈕清除所有內(nèi)容按鈕清除所有內(nèi)容,將焦點(diǎn)定位在將焦點(diǎn)定位在Text1中中;n單擊單擊“退出退出”按鈕結(jié)束程序的運(yùn)行。按鈕結(jié)束程序的運(yùn)行。Text4Text1Text2Text3Command1Command2Command3設(shè)設(shè)Text4的的Locked屬性為屬

19、性為True第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/2718單擊單擊“計算計算”按鈕求平均成績按鈕求平均成績 Private Sub Command1_Click() A = Val(Text1.Text) B = Val(Text2.Text) C = Val(Text3.Text) Text4.Text = (A + B + C) / 3 End Sub第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/2719當(dāng)輸入成績的文本框獲得焦點(diǎn)時當(dāng)輸入成績的文本框獲得焦點(diǎn)時,選中其中的文本選中其中的文本 Private Sub Text1_GotFocus() Tex

20、t1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub Private Sub Text2_GotFocus() Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text)End SubPrivate Sub Text3_GotFocus() Text3.SelStart = 0 Text3.SelLength = Len(Text3.Text)End Sub第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/2720當(dāng)輸入成績的文本框內(nèi)容發(fā)生變化時當(dāng)輸入成績的文本框內(nèi)容發(fā)生變化時

21、,清除平均值清除平均值 Private Sub Text1_Change() Text4.Text = End Sub Private Sub Text2_Change() Text4.Text = End SubPrivate Sub Text3_Change() Text4.Text = End Sub第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/2721單擊單擊“清除清除”按鈕清除所有文本框的內(nèi)容按鈕清除所有文本框的內(nèi)容,并將并將焦點(diǎn)定位在文本框焦點(diǎn)定位在文本框Text1中。中。 Private Sub Command2_Click() Text1.Text = Text2

22、.Text = Text3.Text = Text4.Text = Text1.SetFocus End Sub單擊單擊“退出退出”按鈕結(jié)束程序的運(yùn)行。按鈕結(jié)束程序的運(yùn)行。 Private Sub Command3_Click() End End Sub第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/27224.2.4 框架控件框架控件框架框架(frame)控件是一種容器控件。在框架控件內(nèi)控件是一種容器控件。在框架控件內(nèi)的控件可以隨框架一起移動的控件可以隨框架一起移動,并且受框架控件的某些并且受框架控件的某些屬性（屬性（visible,enabled等）的控制。等）的控制。1.使用

23、框架控件對其他控件進(jìn)行分組使用框架控件對其他控件進(jìn)行分組,可以使界面更可以使界面更清晰明了。一般不需要響應(yīng)框架控件的事件。清晰明了。一般不需要響應(yīng)框架控件的事件。2.使用框架控件將其他控件分組的方法有兩個使用框架控件將其他控件分組的方法有兩個:n先畫框架控件并激活先畫框架控件并激活,再加入其中的控件再加入其中的控件,這樣可這樣可使框架控件及其上的控件一起移動。使框架控件及其上的控件一起移動。n若要用框架控件將現(xiàn)有的控件分組若要用框架控件將現(xiàn)有的控件分組,可先選定所有可先選定所有控件控件,將它們剪切到剪貼板上將它們剪切到剪貼板上,然后選定框架控件進(jìn)然后選定框架控件進(jìn)行粘貼。以行粘貼。以vb4lt

24、2為例。為例。第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/27234.3 數(shù)據(jù)輸出數(shù)據(jù)輸出 在程序設(shè)計中對輸入的數(shù)據(jù)進(jìn)行加工后在程序設(shè)計中對輸入的數(shù)據(jù)進(jìn)行加工后,往往需往往需要將處理結(jié)果、提示信息等呈現(xiàn)給用戶要將處理結(jié)果、提示信息等呈現(xiàn)給用戶,即輸出。即輸出。輸輸出出Print方法方法消息框消息框(MsgBox) 文本框文本框標(biāo)簽標(biāo)簽第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/2724 用文本框輸出數(shù)據(jù)時用文本框輸出數(shù)據(jù)時,也就是將數(shù)據(jù)賦給文本框也就是將數(shù)據(jù)賦給文本框的的Text屬性。例如輸出一個字符串（或數(shù)值）屬性。例如輸出一個字符串（或數(shù)值）, 輸輸出多個字

25、符串（或數(shù)值）出多個字符串（或數(shù)值）例例:用文本框用文本框Text1輸出一個字符串輸出一個字符串 Text1.Text = hello例例:用文本框用文本框Text1輸出一個數(shù)值型數(shù)據(jù)輸出一個數(shù)值型數(shù)據(jù) X = 3 5 Text1.Text = Str(X) Str可以省略或用可以省略或用Format例例:用文本框用文本框Text1輸出多個數(shù)輸出多個數(shù),分多行輸出分多行輸出。 首先將文本框的首先將文本框的MultiLine設(shè)置為設(shè)置為True,必要時必要時可以進(jìn)一步設(shè)滾動條屬性可以進(jìn)一步設(shè)滾動條屬性ScrollBars。 X = 3 5: Y = 7 4 Text1.Text = Str(X)

26、 & vbCrLf & Str(Y)4.3.1 用文本框用文本框(TextBox)輸出數(shù)據(jù)輸出數(shù)據(jù)第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/2725【例例4-3】在在Text1中輸入任一英文字母中輸入任一英文字母,在在Text2中顯示該英文字母及其中顯示該英文字母及其ASCII碼值。要求在文本碼值。要求在文本框框Text2中顯示出所有輸入的英文字母及其中顯示出所有輸入的英文字母及其ASCII碼值。碼值。Text1Text2Command1第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/2726Private Sub Command1_Click()

27、 Dim Char As String * 1 Char = Trim(Text1.Text) Text2.Text = Text2.Text & Space(5) & Char & _ Space(10) & Str(Asc(Char) & vbCrLf Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End SubChr(13) & Chr(10)第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/27274.3.2 用標(biāo)簽用標(biāo)簽(Label)輸出數(shù)

28、據(jù)輸出數(shù)據(jù) 用標(biāo)簽輸出數(shù)據(jù)時用標(biāo)簽輸出數(shù)據(jù)時,也就是將數(shù)據(jù)賦給標(biāo)簽的也就是將數(shù)據(jù)賦給標(biāo)簽的Caption屬性。也可以輸出多個數(shù)據(jù)屬性。也可以輸出多個數(shù)據(jù)。例例:用標(biāo)簽用標(biāo)簽Label1輸出一個字符串輸出一個字符串 Label1.Caption = hello例例:用標(biāo)簽用標(biāo)簽Label1輸出一個數(shù)值型數(shù)據(jù)輸出一個數(shù)值型數(shù)據(jù) X = 3 5 Label1.Caption = Str(X) 例例:用標(biāo)簽用標(biāo)簽Label1輸出多個數(shù)輸出多個數(shù),分多行輸出分多行輸出。 通常要先設(shè)置標(biāo)簽的通常要先設(shè)置標(biāo)簽的AutoSize屬性和屬性和WordWrap屬性為屬性為True。 X = 3 5: y = 7

29、4 Label1.Caption = x= & Str(X) & vbCrLf _ & y= & Str(y)第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/2728【例【例4-4】已知三角形的三條邊】已知三角形的三條邊a、b、c的長度的長度,用海倫公式求三角形的面積用海倫公式求三角形的面積S。海倫公式。海倫公式:n將文本框?qū)⑽谋究騎ext1、Text2、Text3的內(nèi)容清空的內(nèi)容清空;n設(shè)置三個文本框的設(shè)置三個文本框的Alignment屬性為屬性為1-Right Justify;n設(shè)置標(biāo)簽設(shè)置標(biāo)簽Label2的的Caption屬性為空屬性為空;n設(shè)

30、置標(biāo)簽設(shè)置標(biāo)簽Label2的的BorderStyle屬性為屬性為1 Fixed Single。Text1 Text2 Text3Label2Command1)(21, )()(cbapcpbpappS 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/2729代碼如下代碼如下:Private Sub Command1_Click() Dim A As Single, B As Single, C As Single Dim P As Single, S As Single A = Val(Text1.Text) B = Val(Text2.Text) C = Val(Text3.Te

31、xt) P = (A + B + C) / 2 S = Sqr(P * (P - A) * (P - B) * (P - C) 顯示時保留兩位小數(shù)顯示時保留兩位小數(shù) Label2.Caption = Format(S, 0.00) End Sub第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/2730 消息框常用于在屏幕上顯示一個對話框消息框常用于在屏幕上顯示一個對話框,給出給出一些提示或警告信息一些提示或警告信息,并允許用戶進(jìn)行選擇。程序并允許用戶進(jìn)行選擇。程序可根據(jù)該選擇確定進(jìn)一步的操作?？筛鶕?jù)該選擇確定進(jìn)一步的操作。1. MsgBox函數(shù)的格式函數(shù)的格式 =MsgBox( ,

32、 , ) 或或: MsgBox , , 4.3.3 用消息框用消息框(MsgBox)輸出數(shù)據(jù)輸出數(shù)據(jù)圖標(biāo)標(biāo)題提示信息命令按鈕第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/27312. 功能功能 在對話框中顯示消息在對話框中顯示消息,等待用戶單擊按鈕等待用戶單擊按鈕,并返回并返回一個整數(shù)告訴用戶單擊了哪個按鈕。一個整數(shù)告訴用戶單擊了哪個按鈕。3.3.說明說明 (1) “標(biāo)題標(biāo)題”和和“提示提示”與與InputBox函數(shù)中對應(yīng)的參數(shù)函數(shù)中對應(yīng)的參數(shù)相同相同; () “按鈕類型按鈕類型+圖標(biāo)類型圖標(biāo)類型+默認(rèn)按鈕默認(rèn)按鈕”是整型表達(dá)式是整型表達(dá)式,決決定信息框按鈕數(shù)目、出現(xiàn)在信息框上的

33、圖標(biāo)類型及默認(rèn)按定信息框按鈕數(shù)目、出現(xiàn)在信息框上的圖標(biāo)類型及默認(rèn)按鈕。鈕。 () 若程序中需要返回值若程序中需要返回值,則使用函數(shù)則使用函數(shù),否則可調(diào)用過程。否則可調(diào)用過程。 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/2732按鈕及圖標(biāo)值如下按鈕及圖標(biāo)值如下:根據(jù)用戶所選按鈕,函數(shù)返回17的整數(shù)值,其含義如下表:（表4-9)第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/2733例例: Private Sub Command1_Click() MsgBox 提示信息提示信息 End Sub例例: 換行換行 Private Sub Command1_Click()

34、MsgBox 第一行第一行 & Chr(13) & Chr(10) & 第二行第二行 End Sub第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/2734例例: Private Sub Command1_Click() A = MsgBox(提示信息提示信息, , 標(biāo)題內(nèi)容標(biāo)題內(nèi)容) End Sub例例: 按鈕類型按鈕類型0到到5或符號常量或符號常量 見見P65 Private Sub Command1_Click() A = MsgBox(提示信息提示信息, 1, 標(biāo)題內(nèi)容標(biāo)題內(nèi)容) End Sub第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/

35、3/2735例例: 圖標(biāo)類型圖標(biāo)類型16、32、48、64或符號常量或符號常量 見見P67 Private Sub Command1_Click() A = MsgBox(提示信息提示信息, 16, 標(biāo)題內(nèi)容標(biāo)題內(nèi)容) End Sub例例: 默認(rèn)按鈕默認(rèn)按鈕0,256,512 見見P67 Private Sub Command1_Click() a = MsgBox(提示信息提示信息, 2 + 256, 標(biāo)題內(nèi)容標(biāo)題內(nèi)容) Print a End Sub按回車打印按回車打印4第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/27364.3.4 用用Print方法輸出數(shù)據(jù)方法輸出數(shù)據(jù)1

36、. Print方法方法 格式格式: . Print ; | , : 窗體窗體 如如 Form1.Print Hello 圖片框圖片框 如如 Picture1.Print Hello 打印機(jī)打印機(jī) 如如 Printer.Print Hello 立即窗口立即窗口 如如 Debug .Print Hello 省略省略: 默認(rèn)為當(dāng)前窗體。默認(rèn)為當(dāng)前窗體。 : 多個表達(dá)式多個表達(dá)式使用逗號或分號隔開。使用逗號或分號隔開。 逗號逗號: 以以14個字符位置為單位把一個輸出行個字符位置為單位把一個輸出行分成若干區(qū)段。分成若干區(qū)段。 分號分號: 后一項(xiàng)緊跟前一項(xiàng)輸出。后一項(xiàng)緊跟前一項(xiàng)輸出。第四章第四章 順序結(jié)構(gòu)

37、程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/2737輸出時輸出時,數(shù)值型數(shù)據(jù)前有一個符號位數(shù)值型數(shù)據(jù)前有一個符號位(正號不顯正號不顯),后面留后面留一個空格位一個空格位;字符串原樣輸出字符串原樣輸出,前后無空格。前后無空格。例例: Private Sub Form_Activate() Print 123456789 Print 2+4=;2 + 4, Print 2-4=; Print 2 - 4 End Sub例例: Private Sub Form_Activate() Print 123456789 Print 2+4=; 2 + 4 Print 2-4=, 2 - 4 End Sub 第四

38、章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/2738例例: Private Sub Form_Load() Form1.Show Print 123456789 Print 產(chǎn)生空行產(chǎn)生空行 Print 2+4=; 2 + 4, Print 取消上面一句末尾逗號的作用取消上面一句末尾逗號的作用 Print 2-4=; Print 2 - 4 End Sub輸入輸入Print時可用時可用?代替代替,VB將其自動轉(zhuǎn)換成將其自動轉(zhuǎn)換成Print第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/27392. 與與Print方法有關(guān)的函數(shù)方法有關(guān)的函數(shù)(1) Tab函數(shù)函數(shù) 格式格

39、式: Tab(n) 功能功能: 在指定的第在指定的第n個位置上輸出數(shù)據(jù)。個位置上輸出數(shù)據(jù)。 參數(shù)參數(shù)n: n當(dāng)前位置當(dāng)前位置: 打印位置為下一行的第打印位置為下一行的第n列列 n1: 打印位置為第打印位置為第1列列 省略省略: 打印位置為下一個打印區(qū)的起點(diǎn)打印位置為下一個打印區(qū)的起點(diǎn) (每每14個字符為一個打印區(qū)個字符為一個打印區(qū)) 當(dāng)當(dāng)n大于行的寬度時大于行的寬度時,顯示位置為顯示位置為: n mod 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/2740例例: Private Sub Form_Activate() Print 123456789 Print Hello; T

40、ab(10); World Print Hello; Tab; World Print Hello; Tab(4); World Print Tab(-5); Hello End Sub第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/2741(2) Spc函數(shù)函數(shù) 格式格式: Spc(n) 功能功能: n表示在顯示或打印下一個表達(dá)式之前表示在顯示或打印下一個表達(dá)式之前插入的空格數(shù)。表示跳過插入的空格數(shù)。表示跳過n個空格。個空格。 例例: Print HOW; Spc(3); ABOUT 結(jié)果結(jié)果: HOWABOUT注意注意: Spc函數(shù)與函數(shù)與Space函數(shù)、函數(shù)、Tab函數(shù)的區(qū)別函數(shù)的區(qū)別nSpace函數(shù)函數(shù):可以用在字符串允許出現(xiàn)的任何位置?？梢杂迷谧址试S出現(xiàn)的任何位置。nSpc函數(shù)函數(shù):只能用在打印語句中。只能用在打印語句中。nTab函數(shù)指定絕對位置函數(shù)指定絕對位置; Space函數(shù)或函數(shù)或Spc函數(shù)指定函數(shù)指定相對位置。相對位置。第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計2021/3/27423. 清除方法清除方法 Cls使用使用cls 方法可以清除方法可以清除form,picturebox中由中由print方法或圖形方法在運(yùn)行時所生成的圖形或文本方法或圖形方法在運(yùn)行時所生成的圖形或文本,清除后