vb順序結(jié)構(gòu)程序設(shè)計(jì)(編輯修改稿)
2025-02-09 00:59 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 B + C) / 3 End Sub 第四章 順序結(jié)構(gòu)程序設(shè)計(jì) 19 ②當(dāng)輸入成績(jī)的文本框獲得焦點(diǎn)時(shí) ,選中其中的文本 Private Sub Text1_GotFocus() = 0 = Len() End Sub Private Sub Text2_GotFocus() = 0 = Len() End Sub Private Sub Text3_GotFocus() = 0 = Len() End Sub 第四章 順序結(jié)構(gòu)程序設(shè)計(jì) 20 ③當(dāng)輸入成績(jī)的文本框內(nèi)容發(fā)生變化時(shí) ,清除平均值 Private Sub Text1_Change() = End Sub Private Sub Text2_Change() = End Sub Private Sub Text3_Change() = End Sub 第四章 順序結(jié)構(gòu)程序設(shè)計(jì) 21 ④單擊“清除”按鈕清除所有文本框的內(nèi)容，并將焦點(diǎn)定位在文本框 Text1中。 Private Sub Command2_Click() = = = = End Sub ⑤ 單擊“退出”按鈕結(jié)束程序的運(yùn)行。 Private Sub Command3_Click() End End Sub 第四章 順序結(jié)構(gòu)程序設(shè)計(jì) 22 框架控件 框架 (frame)控件是一種容器控件。在框架控件內(nèi)的控件可以隨框架一起移動(dòng)，并且受框架控件的某些屬性（ visible,enabled等）的控制。 1. 使用框架控件對(duì)其他控件進(jìn)行分組，可以使界面更清晰明了。一般不需要響應(yīng)框架控件的事件。 使用框架控件將其他控件分組的方法有兩個(gè)： ? 先畫(huà)框架控件并激活，再加入其中的控件，這樣可使框架控件及其上的控件一起移動(dòng)。 ? 若要用框架控件將現(xiàn)有的控件分組，可先選定所有控件，將它們剪切到剪貼板上，然后選定框架控件進(jìn)行粘貼。以 vb4lt2為例。 第四章 順序結(jié)構(gòu)程序設(shè)計(jì) 23 數(shù)據(jù)輸出 在程序設(shè)計(jì)中對(duì)輸入的數(shù)據(jù)進(jìn)行加工后，往往需要將處理結(jié)果、提示信息等呈現(xiàn)給用戶，即輸出。 輸出 Print方法 消息框 (MsgBox) 文本框 標(biāo)簽 …… 第四章 順序結(jié)構(gòu)程序設(shè)計(jì) 24 用文本框輸出數(shù)據(jù)時(shí)，也就是將數(shù)據(jù)賦給文本框的 Text屬性。例如輸出一個(gè)字符串（或數(shù)值） , 輸出多個(gè)字符串（或數(shù)值） 例：用文本框 Text1輸出一個(gè)字符串 = hello 例：用文本框 Text1輸出一個(gè)數(shù)值型數(shù)據(jù) X = 3 ^ 5 = Str(X) ? Str可以省略或用 Format 例：用文本框 Text1輸出多個(gè)數(shù)，分多行輸出 。 首先將文本框的 MultiLine設(shè)置為 True， 必要時(shí)可以進(jìn)一步設(shè)滾動(dòng)條屬性 ScrollBars。 X = 3 ^ 5: Y = 7 ^ 4 = Str(X) amp。 vbCrLf amp。 Str(Y) 用文本框 (TextBox)輸出數(shù)據(jù) 第四章 順序結(jié)構(gòu)程序設(shè)計(jì) 25 【例 43】在 Text1中輸入任一英文字母，在 Text2中顯示該英文字母及其 ASCII碼值。要求在文本框 Text2中顯示出所有輸入的英文字母及其 ASCII碼值。 Text1 Text2 Command1 第四章 順序結(jié)構(gòu)程序設(shè)計(jì) 26 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)程序設(shè)計(jì) 27 用標(biāo)簽 (Label)輸出數(shù)據(jù) 用標(biāo)簽輸出數(shù)據(jù)時(shí)，也就是將數(shù)據(jù)賦給標(biāo)簽的Caption屬性。也可以輸出多個(gè)數(shù)據(jù) 。 例：用標(biāo)簽 Label1輸出一個(gè)字符串 = hello 例：用標(biāo)簽 Label1輸出一個(gè)數(shù)值型數(shù)據(jù) X = 3 ^ 5 = Str(X) 例：用標(biāo)簽 Label1輸出多個(gè)數(shù)，分多行輸出 。 通常要先設(shè)置標(biāo)簽的 AutoSize屬性和 WordWrap屬性為 True。 X = 3 ^ 5: y = 7 ^ 4 = x= amp。 Str(X) amp。 vbCrLf _ amp。 y= amp。 Str(y) 第四章 順序結(jié)構(gòu)程序設(shè)計(jì) 28 【例 44】已知三角形的三條邊 a、 b、 c的長(zhǎng)度，用海倫公式求三角形的面積 S。海倫公式 : ?將文本框 Text Text
教學(xué)教案相關(guān)推薦
鄂ICP備17016276號(hào)-1