vb程序設計第2版第4章(編輯修改稿)
2025-02-08 20:28 本頁面
【文章內(nèi)容簡介】 首先將文本框的 MultiLine設置為 True， 必要時可以進一步設滾動條屬性 ScrollBars。 X = 3 ^ 5: Y = 7 ^ 4 = Str(X) amp。 vbCrLf amp。 Str(Y) 用 TextBox控件輸出數(shù)據(jù) 第四章 順序結(jié)構(gòu)程序設計 21 【例 43】在 Text1中輸入任一英文字母，在 Text2中顯示該英文字母及其 ASCII碼值。要求在文本框 Text2中顯示出所有輸入的英文字母及其 ASCII碼值。 Text1 Text2 Command1 第四章 順序結(jié)構(gòu)程序設計 22 Private Sub Command1_Click() Dim Char As String * 1 Char = Trim() = amp。 Space(5) amp。 Char amp。 _ Space(10) amp。 Str(Asc(Char)) amp。 vbCrLf = 0 = Len() End Sub Chr(13) amp。 Chr(10) 第四章 順序結(jié)構(gòu)程序設計 23 用 Label控件輸出數(shù)據(jù) 用標簽輸出數(shù)據(jù)時，也就是將數(shù)據(jù)賦給標簽的Caption屬性。也可以輸出多個數(shù)據(jù) 。 例：用標簽 Label1輸出一個字符串 = hello 例：用標簽 Label1輸出一個數(shù)值型數(shù)據(jù) X = 3 ^ 5 = Str(X) 例：用標簽 Label1輸出多個數(shù)，分多行輸出 。 通常要先設置標簽的 AutoSize屬性和 WordWrap屬性為 True。 X = 3 ^ 5: y = 7 ^ 4 = x= amp。 Str(X) amp。 vbCrLf _ amp。 y= amp。 Str(y) 第四章 順序結(jié)構(gòu)程序設計 24 【例 44】已知三角形的三條邊 a、 b、 c的長度，用海倫公式求三角形的面積 S。海倫公式 : ?將文本框 Text Text Text3的內(nèi)容清空 。 ?設置三個文本框的 Alignment屬性為 1Right Justify。 ?設置標簽 Label2的 Caption屬性為空 。 ?設置標簽 Label2的 BorderStyle屬性為 1 – Fixed Single。 Text1 Text2 Text3 Label2 Command1 )(21,))()(( cbapcpbpappS ???????第四章 順序結(jié)構(gòu)程序設計 25 代碼如下： Private Sub Command1_Click() Dim A As Single, B As Single, C As Single Dim P As Single, S As Single A = Val() B = Val() C = Val() P = (A + B + C) / 2 S = Sqr(P * (P A) * (P B) * (P C)) 39。 顯示時保留兩位小數(shù) = Format(S, ) End Sub 第四章 順序結(jié)構(gòu)程序設計 26 消息框常用于在屏幕上顯示一個對話框，給出一些提示或警告信息，并允許用戶進行選擇。程序可根據(jù)該選擇確定進一步的操作。 1. MsgBox函數(shù)的格式 變量 =MsgBox(提示信息 [,按鈕類型 ][,標題 ]) 或： MsgBox 提示信息 [,按鈕類型 ][,標題 ] 2. 功能 在對話框中顯示消息，等待用戶單擊按鈕，并返回一個整數(shù)告訴用戶單擊了哪個按鈕。 提示信息 : 字符串表達式。可用換行符換行。 按鈕類型 : 按鈕類型 +圖標類型 +默認按鈕 。 P67 標題 : 字符串表達式。 返回值 : 由在對話框中按下哪種按鈕決定。見 P67 用 MsgBox函數(shù)輸出數(shù)據(jù) 第四章 順序結(jié)構(gòu)程序設計 27 例 : 提示信息 Private Sub Command1_Click() MsgBox 提示信息 End Sub 例 : 提示信息 換行 Private Sub Command1_Click() MsgBox 第一行 amp。 Chr(13) amp。 第二行 End Sub 第四章 順序結(jié)構(gòu)程序設計 28 例 : 對話框標題 Private Sub Command1_Click() A = MsgBox(提示信息 , , 標題內(nèi)容 ) End Sub 例 : 按鈕類型 —0到 5或符號常量 見 P65 Private Sub Command1_Click() A = MsgBox(提示信息 , 1, 標題內(nèi)容 ) End Sub 第四章 順序結(jié)構(gòu)程序設計 29 例 : 圖標類型 —1 3 4 64或符號常量 見 P65 Private Sub Command1_Click() A = MsgBox(提示信息 , 16, 標題內(nèi)容 ) End Sub 例 : 默認按鈕 —0,256,512 見 P58 Private Sub Command1_Click() a = MsgBox(提示信息 , 2 + 256, 標題內(nèi)容 ) Print a
法律信息相關推薦
鄂ICP備17016276號-1