第3章簡(jiǎn)單vb程序設(shè)計(jì)(編輯修改稿)
2024-11-16 13:40 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 多個(gè)文本框時(shí) ， 用該方法可把光標(biāo)移到所需要的的文本框中 。 其使用格式為： 1．對(duì)象 .SetFocus 【 例 】 程序運(yùn)行后 ， 隨著用戶(hù)的輸入 ， 標(biāo)簽中同步顯示出用戶(hù)對(duì)文本框的內(nèi)容更新的次數(shù) 。 運(yùn)行效果如圖 34所示 。 2．編寫(xiě)事件過(guò)程如下： Private Sub Text1_Change（ ） Static i% i = i + 1 = i End Sub 請(qǐng)思考：標(biāo)簽中顯示的數(shù)字是文本框中顯示的字符個(gè)數(shù)嗎 ？ 賦值語(yǔ)句 賦值語(yǔ)句是 VB程序最常用 、 最基本的語(yǔ)句 ， 它能為變量提供數(shù)據(jù) 。 另外 ， 若要在程序代碼中設(shè)置對(duì)象的屬性 ， 也要使用賦值語(yǔ)句 。 賦值語(yǔ)句有兩種格式： 格式 1： 變量名 =表達(dá)式 格式 2： [對(duì)象名 .]屬性名 =表達(dá)式 賦值語(yǔ)句的作用是：首先計(jì)算“ =”右邊表達(dá)式的值，然后將該值賦給“ =”左邊的變量或?qū)ο蟮膶傩?。在格?2中，若對(duì)象名省略，則默認(rèn)對(duì)象為當(dāng)前窗體。 例如： x=2 39。 把 2賦給 x y=x*3 39。 計(jì)算 x*3的值，得 6，把 6賦給 y x=x+1 39。 計(jì)算 x+1的值，得 3，把 3賦給 x a$= Hello 39。 把“ Hello”賦給 a$ =你好！ 39。 把“你好！”賦給 Text1的 Text屬性 【 例 】 已知三角形三邊 a， b， c的長(zhǎng) ， 求三角形的面積 ， 輸出三條邊長(zhǎng)及面積 。 分析：應(yīng)用程序的界面應(yīng)該能讓用戶(hù)輸入三邊的長(zhǎng) ， 程序在接收用戶(hù)輸入的數(shù)據(jù)后 ， 利用數(shù)學(xué)公式對(duì)數(shù)據(jù)進(jìn)行計(jì)算 ， 并把結(jié)果輸出到屏幕上 。 已知三角形三邊 a， b， c的長(zhǎng) ， 求三角形的面積的公式為： 其中 p=（ a+b+c） /2。 （ 1） 界面設(shè)計(jì) 在窗體上建立 5個(gè)標(biāo)簽 、 3個(gè)文本框和 1個(gè)命令按鈕 。設(shè)置各對(duì)象的屬性 ， 如表 33所示 。 ))()(( cpbpapps ????設(shè)計(jì)完成的界面如圖 35所示。 （ 2）編寫(xiě)事件過(guò)程如下： Private Sub Command1_Click（） Dim a!， b!， c!， p!， s! a = b = c = p =（ a + b + c） / 2 s = Sqr（ p *（ p a） *（ p b） *（ p c）） = s End Sub Print方法 Print的格式及功能 格式： [對(duì)象名 .]Print [表達(dá)式列表 ] 功能：在對(duì)象上輸出表達(dá)式的值 。 說(shuō)明： （ 1） 對(duì)象名：可以是 Form（ 窗體 ） 、 Debug（ 立即窗口 ） 、 Picture（ 圖片框 ） 、 Printer（ 打印機(jī) ） 。省略此項(xiàng) ， 表示在當(dāng)前窗體上輸出 。 例如： Print 23*2=； 23*2 39。 在當(dāng)前窗體上輸出 23*2= 46 Good 39。 在圖片框 Picture1上輸出 Good Morning 39。 在打印機(jī)上輸出Morning （ 2）表達(dá)式列表：是一個(gè)或多個(gè)表達(dá)式，若為多個(gè)表達(dá)式，則各表達(dá)式之間用“，”或“；”隔開(kāi)。省略此項(xiàng)，則輸出一空行。 （ 3）用“，”分隔各表達(dá)式時(shí)，各項(xiàng)在以 14個(gè)字符位置為單位劃分出的區(qū)段中輸出，每個(gè)區(qū)段輸出一項(xiàng)；用“；”分隔各表達(dá)式時(shí)，各項(xiàng)按緊湊格式輸出。 （ 4）如果在語(yǔ)句行末尾有“；”，則下一個(gè) Print輸出的內(nèi)容，將緊跟在當(dāng)前 Print輸出內(nèi)容后面；如果在語(yǔ)句行末尾有“，”，則下一個(gè) Print輸出的內(nèi)容，將在當(dāng)前 Print輸出內(nèi)容的下一區(qū)段輸出；如果在語(yǔ)句行末尾無(wú)分隔符，則輸出完本語(yǔ)句內(nèi)容后換行，即在新的一行輸出下一個(gè) Print的內(nèi)容。例如：
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1