vb程序設計第2版第4章-資料下載頁
2025-01-12 20:28本頁面
【正文】 x=（ 4hf） /2 y=（ f2h） /2 第四章 順序結(jié)構(gòu)程序設計 39 設計界面： Command1 Text1 Text2 Label4 Label3 Label Label4的 AutoSize屬性設置為 True 第四章 順序結(jié)構(gòu)程序設計 40 代碼如下： Private Sub Command1_Click() Dim h As Integer, f As Integer, x As Integer, y As Integer h = Val() f = Val() x = (4 * h f) / 2 y = (f 2 * h) / 2 = amp。 Str(x) amp。 只 = amp。 Str(y) amp。 只 End Sub 第四章 順序結(jié)構(gòu)程序設計 41 Private Sub Text1_GotFocus() 39。 文本框 Text1獲得焦點時，選中其中的文本 = 0 = Len() End Sub Private Sub Text2_GotFocus() 39。 文本框 Text2獲得焦點時，選中其中的文本 = 0 = Len() End Sub 第四章 順序結(jié)構(gòu)程序設計 42 【 例 46】 設計如下圖所示的界面。運行時，在文本框 Text1和 Text2中輸入某一范圍后，單擊“隨機抽號”按鈕，在標簽 Label上產(chǎn)生指定范圍內(nèi)的隨機整數(shù)，實現(xiàn)在任意指定的范圍內(nèi)隨機抽取號碼。 Text1 Text2 框架 Frame1 Label4 Command1 第四章 順序結(jié)構(gòu)程序設計 43 代碼如下： Private Sub Command1_Click() Dim A As Integer, B As Integer Randomize A = Val() B = Val() 39。 產(chǎn)生 [A,B]區(qū)間的隨機整數(shù) = Str(Int(Rnd * (B A + 1) + A)) End Sub 第四章 順序結(jié)構(gòu)程序設計 44 39。 在 Text1獲得焦點時，選中其中的文本 Private Sub Text1_GotFocus() = 0 = Len() End Sub 39。 在 Text2獲得焦點時，選中其中的文本 Private Sub Text2_GotFocus() = 0 = Len() End Sub 第四章 順序結(jié)構(gòu)程序設計 45 【 例 47】 求用十進制表示 230有多少位。界面如下圖所示 。 Label3 分析： 先求 230的值，再用 Str函數(shù)將其轉(zhuǎn)換為字符串，用 Trim函數(shù)去掉該字符前的空格，然后用Len函數(shù)求字符串長度（即其位數(shù)）。 第四章 順序結(jié)構(gòu)程序設計 46 代碼如下： Private Sub Form_Load() Dim M As Long, Temp As String Show M = 2 ^ 30 Temp = Str(M) 39。 將 M轉(zhuǎn)換成字符串 = amp。 Temp 39。 定義窗體當前打印位置的 X坐標 CurrentX = 300 39。 定義窗體當前打印位置的 Y坐標 CurrentY = 800 39。 使用 Trim去除空格 Print 總共有 。 Len(Trim(Temp))。 位 End Sub 第四章 順序結(jié)構(gòu)程序設計 47 【 例 48】 對文本框中所列單詞進行相關(guān)操作。界面如下圖所示。運行時，可以對鼠標選中的單詞進行“首字母大寫”操作、“全部小寫”操作、“刪除”操作，并可以向文本框中添加新單詞。 Text1 Command1 Command2 Command3 Command4 第四章 順序結(jié)構(gòu)程序設計 48 代碼如下： 39。 將鼠標選中的單詞首字母大寫 Private Sub Command1_Click() = UCase(Left(, 1)) amp。 _ Right(, Len() 1) End Sub 39。 將鼠標選中的單詞全部改為小寫 Private Sub Command2_Click() = LCase() End Sub 第四章 順序結(jié)構(gòu)程序設計 49 39。 輸入新單詞 ,添加到文本框尾部 Private Sub Command3_Click() Dim word As String word = InputBox(請輸入新單詞 ) = amp。 word amp。 vbCrLf End Sub 39。 刪除選中的單詞 Private Sub Command4_Click() = Left(, ) amp。 _ Right(, Len() _ 1) End Sub 第四章 順序結(jié)構(gòu)程序設計 50 本章小結(jié) : 輸入 計算、處理： 輸出 賦值語句 文本框 IntputBox函數(shù) 賦值語句 標簽 文本框 Print語句 MsgBox函數(shù) 開始 輸入 計算、處理 輸出 結(jié)束 順序結(jié)構(gòu)程序：
法律信息相關(guān)推薦
鄂ICP備17016276號-1