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