vb程序設(shè)計(jì)第2版第4章-在線瀏覽
2025-03-01 20:28本頁(yè)面
【正文】 A = 100 39。 將字符串 賦給變量 S A = S 39。 變量 A中存放 123 S = A 39。 先四舍五入后取整 , A中存放 12346 C = B = C 39。 變量 B中存放 。 錯(cuò)誤，類型不匹配 第四章 順序結(jié)構(gòu)程序設(shè)計(jì) 6 (7) 變量未賦值時(shí)，數(shù)值型變量值為 0，字符串變量值為空串 。 例 : 執(zhí)行下列各賦值語(yǔ)句后， A的數(shù)據(jù)類型是什么？ (設(shè) A沒(méi)有定義數(shù)據(jù)類型 ) A = 6 = 5 A = 5 + 3 A = 5+3 A = 11/26/99 A = 11/26/1999 A = Not 5 8 可用 TypeName函數(shù)顯示變量的數(shù)據(jù)類型。 A B C C=A A=B B=C 代碼如下 : A = 5 B = 8 C = A A = B B = C 第四章 順序結(jié)構(gòu)程序設(shè)計(jì) 8 數(shù)據(jù)輸入 把要加工的初始數(shù)據(jù)從某種外部設(shè)備（例如鍵盤） 輸入 到計(jì)算機(jī)中，并把處理結(jié)果 輸出 到指定設(shè)備（如顯示器），這是程序設(shè)計(jì)語(yǔ)言所應(yīng)具備的基本部分。 3. 說(shuō)明 ?提示信息 : 字符串表達(dá)式。 Chr(10)、 vbCrLf換行。 ?默認(rèn)值 : 字符串表達(dá)式 ,省略時(shí)默認(rèn)為空。 R。 AREA End Sub 單擊“確定”，返回文本框中的文本到變量 R中 單擊“取消”，返回一個(gè)零長(zhǎng)度的字符串 第四章 順序結(jié)構(gòu)程序設(shè)計(jì) 11 用文本框輸入數(shù)據(jù)時(shí)，也就是將文本框的 Text屬性的內(nèi)容賦值給某個(gè)變量。 注意 : 并非所有控件都可以接收焦點(diǎn)。 2. 事件 GotFocus 發(fā)生在對(duì)象得到焦點(diǎn)時(shí) LostFocus 發(fā)生在對(duì)象失去焦點(diǎn)時(shí) 3. 對(duì)象何時(shí)得到焦點(diǎn) ? 運(yùn)行時(shí)選擇對(duì)象 (鼠標(biāo)、 Tab鍵、訪問(wèn)鍵 ) ? 在代碼中使用 SetFocus方法 焦點(diǎn)和 Tab鍵序 第四章 順序結(jié)構(gòu)程序設(shè)計(jì) 13 4. 對(duì)象何時(shí)失去焦點(diǎn) ?運(yùn)行時(shí)用 Tab鍵移動(dòng)、用訪問(wèn)鍵或用鼠標(biāo)單擊選擇另一個(gè)對(duì)象。 5. Tab鍵序 ?指按 Tab鍵時(shí)光標(biāo)在各個(gè)控件之間移動(dòng)的順序。 ?默認(rèn)鍵序與控件的建立次序一致。 第四章 順序結(jié)構(gòu)程序設(shè)計(jì) 14 【例 42】設(shè)計(jì)如下圖所示的界面，運(yùn)行時(shí)，輸入某學(xué)生三門課的成績(jī)，計(jì)算平均成績(jī)。 要求： ? 單擊“計(jì)算”按鈕求平均成績(jī)； ? 當(dāng)輸入成績(jī)的文本框獲得焦點(diǎn)時(shí)，選中其中的文本； ? 當(dāng)輸入成績(jī)的文本框內(nèi)容發(fā)生變化時(shí)，清除平均值； ? 單擊“清除”按鈕清除所有內(nèi)容，將焦點(diǎn)定位在 Text1中； ? 單擊“退出”按鈕結(jié)束程序的運(yùn)行。 Private Sub Command2_Click() = = = = End Sub ⑤ 單擊“退出”按鈕結(jié)束程序的運(yùn)行。 輸出 Print方法 消息框 (MsgBox) 文本框 標(biāo)簽 …… 第四章 順序結(jié)構(gòu)程序設(shè)計(jì) 20 用文本框輸出數(shù)據(jù)時(shí)，也就是將數(shù)據(jù)賦給文本框的 Text屬性。 首先將文本框的 MultiLine設(shè)置為 True， 必要時(shí)可以進(jìn)一步設(shè)滾動(dòng)條屬性 ScrollBars。 vbCrLf amp。要求在文本框 Text2中顯示出所有輸入的英文字母及其 ASCII碼值。 Space(5) amp。 _ Space(10) amp。 vbCrLf = 0 = Len() End Sub Chr(13) amp。也可以輸出多個(gè)數(shù)據(jù) 。 通常要先設(shè)置標(biāo)簽的 AutoSize屬性和 WordWrap屬性為 True。 Str(X) amp。 y= amp。海倫公式 : ?將文本框 Text Text Text3的內(nèi)容清空 。 ?設(shè)置標(biāo)簽 Label2的 Caption屬性為空 。 Text1 Text2 Text3 Label2 Command1 )(21,))()(( cbapcpbpappS ???????第四章 順序結(jié)構(gòu)程序設(shè)計(jì) 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。程序可根據(jù)該選擇確定進(jìn)一步的操作。 提示信息 : 字符串表達(dá)式。 按鈕類型 : 按鈕類型 +圖標(biāo)類型 +默認(rèn)按鈕 。 返回值 : 由在對(duì)話框中按下哪種按鈕決定。 Chr(13) amp。 | , } ] 對(duì)象名 : 窗體 如 Hello 圖片框 如 Hello 打印機(jī) 如 Hello 立即窗口 如 Debug .Print Hello 省略 : 默認(rèn)為當(dāng)前窗體。 逗號(hào) : 以 14個(gè)字符位置為單位把一個(gè)輸
法律信息相關(guān)推薦
鄂ICP備17016276號(hào)-1