計算機(jī)基礎(chǔ)vb

1、教學(xué)目的要求：教學(xué)目的要求：第四章第四章 數(shù)據(jù)的輸入與輸出數(shù)據(jù)的輸入與輸出4.1 4.1 數(shù)據(jù)的輸出數(shù)據(jù)的輸出 printprint方法方法4.2 4.2 數(shù)據(jù)輸入數(shù)據(jù)輸入inputboxinputbox函數(shù)函數(shù) 4.3 MsgBox4.3 MsgBox函數(shù)和函數(shù)和MsgBoxMsgBox語句語句4.4 4.4 字形字形 4.5 4.5 打印機(jī)輸出打印機(jī)輸出4.1.1 Print方法方法 作用：實現(xiàn)對象上的數(shù)據(jù)輸出作用：實現(xiàn)對象上的數(shù)據(jù)輸出格式：格式：1. 對象名稱對象名稱 對象名：窗體、打印機(jī)、圖片框、立即窗體等對象名：窗體、打印機(jī)、圖片框、立即窗體等省略對象名稱時，默認(rèn)為當(dāng)前窗體省略對象名

2、稱時，默認(rèn)為當(dāng)前窗體 4.1 數(shù)據(jù)的輸出數(shù)據(jù)的輸出 printprint方法方法2表達(dá)式表達(dá)式 輸出項缺省時則輸出一個空行輸出項缺省時則輸出一個空行 表達(dá)式：數(shù)值表達(dá)式或字符串表達(dá)式：數(shù)值表達(dá)式或字符串輸出計算數(shù)值表達(dá)式的值輸出計算數(shù)值表達(dá)式的值原樣輸出字符串原樣輸出字符串3 輸出多個表達(dá)式或字符串時，可以用逗號、輸出多個表達(dá)式或字符串時，可以用逗號、分號或空格分隔分號或空格分隔逗逗 號號 : 以以14個字符為單位劃分出若干個區(qū)個字符為單位劃分出若干個區(qū)段段,逗號后面的輸出項在下一個區(qū)段逗號后面的輸出項在下一個區(qū)段輸出輸出分號或空格：按緊湊格式輸出分號或空格：按緊湊格式輸出 4 print 方

3、法具有計算和輸出雙重功能，對于表方法具有計算和輸出雙重功能，對于表達(dá)式，先計算后輸出達(dá)式，先計算后輸出6 Print方法沒有賦值功能方法沒有賦值功能 如：如：Print Z = X + Y結(jié)果：表達(dá)式結(jié)果：表達(dá)式Z=X+Y的值的值輸出數(shù)值數(shù)據(jù)時，前面有一個符號位輸出數(shù)值數(shù)據(jù)時，前面有一個符號位(正號以空正號以空格表示格表示)，后面留有一個空格；輸出字符串時，后面留有一個空格；輸出字符串時，前后不留空格。前后不留空格。5 每執(zhí)行一次每執(zhí)行一次 print 方法要自動換行，若想在同方法要自動換行，若想在同一行顯示，可以在末尾加逗號或分號。一行顯示，可以在末尾加逗號或分號。例：例：Private S

4、ub Form_ClickPrivate Sub Form_Click() () a = 2 a = 2 b = VB b = VB Print 50 Print 50 * * a a 計算并輸出表達(dá)式的值計算并輸出表達(dá)式的值 Print b Print b 輸出變量的值輸出變量的值 Print Print 輸出空行輸出空行 Print The Total is Print The Total is 輸出字符串常量輸出字符串常量 End SubEnd Sub 運(yùn)行結(jié)果：運(yùn)行結(jié)果： 例：例：Private Sub Form_ClickPrivate Sub Form_Click()() a a

5、= 3: b = 4 = 3: b = 4 Print Print a, b, 4 + a, a, b, 4 + a, Print Print 2 2 * * b b Print Print a, , b a, , b Print Print a=; a, b=; b a=; a, b=; b End End Sub Sub 運(yùn)行結(jié)果運(yùn)行結(jié)果 (4)(4)若語句行末尾有分號或逗號若語句行末尾有分號或逗號, ,則輸出本行輸出項后不換行則輸出本行輸出項后不換行4.1.2 與與Print方法相關(guān)的函數(shù)方法相關(guān)的函數(shù)1. Tab函數(shù)函數(shù) 格式：格式：Tab（n）說明：說明： n為數(shù)值表達(dá)式，值為整數(shù)為

6、數(shù)值表達(dá)式，值為整數(shù) 當(dāng)當(dāng)n 1時，輸出位置為第一列時，輸出位置為第一列 每個每個Tab對應(yīng)一個輸出項，各輸出項之間對應(yīng)一個輸出項，各輸出項之間 用分號分隔用分號分隔 （用逗號分隔（用逗號分隔,結(jié)果是否一致？）結(jié)果是否一致？） 例例4.1 Print Tab(2);學(xué)號學(xué)號；Tab(11);姓名姓名；Tab(21);成績成績 輸出結(jié)果是輸出結(jié)果是(1個漢字占個漢字占2個位置個位置)： 學(xué)號學(xué)號姓名姓名成績成績2. Spc函數(shù)函數(shù) 格式：格式：Spc（n） 功能：功能：可以跳過可以跳過n個空格，與個空格，與Tab功能相近，但功能相近，但Spc表示的是兩個輸出項之間的間隔。表示的是兩個輸出項之間的

7、間隔。說明：說明：n為數(shù)值表達(dá)式，其值為為數(shù)值表達(dá)式，其值為0 32767之間的整數(shù)。之間的整數(shù)。Spc函數(shù)和輸出項之間用分號間隔函數(shù)和輸出項之間用分號間隔 例如：例如： Print Print 學(xué)號學(xué)號;Spc(2);Spc(2);姓名姓名;Spc(5);Spc(5);成績成績 輸出結(jié)果輸出結(jié)果(表示空格表示空格)： 學(xué)號學(xué)號姓名姓名成績成績3. Space$函數(shù)函數(shù)格式：格式：Space$（n）功能：返回功能：返回n個空格個空格說明：說明：n為數(shù)值表達(dá)式，其值為非負(fù)數(shù)為數(shù)值表達(dá)式，其值為非負(fù)數(shù) Print 計算機(jī)學(xué)院計算機(jī)學(xué)院 + Space$(1+2) + + Space$(1+2) +

8、 網(wǎng)絡(luò)實驗室網(wǎng)絡(luò)實驗室 4.1.3 Format$函數(shù)函數(shù) 格式：格式：Format$（數(shù)值表達(dá)式，格式字符串）（數(shù)值表達(dá)式，格式字符串） 功能：根據(jù)格式字符串規(guī)定的格式輸出數(shù)值功能：根據(jù)格式字符串規(guī)定的格式輸出數(shù)值 或日期或日期說明：說明：“數(shù)值表達(dá)式數(shù)值表達(dá)式”:輸出的值輸出的值“格式字符串格式字符串”:輸出時的格式輸出時的格式字字 符符作作 用用#表示一個數(shù)字位，表示一個數(shù)字位，# 的個數(shù)決定顯示區(qū)段的長度。的個數(shù)決定顯示區(qū)段的長度。若要顯示的數(shù)值位數(shù)大于指定區(qū)段長度，則按實際若要顯示的數(shù)值位數(shù)大于指定區(qū)段長度，則按實際長度輸出；若要顯示的數(shù)值小于指定區(qū)段長度，則長度輸出；若要顯示的數(shù)值

9、小于指定區(qū)段長度，則該數(shù)值靠區(qū)段左端輸出，多余位不補(bǔ)該數(shù)值靠區(qū)段左端輸出，多余位不補(bǔ)0。如：如：Print Format$(12345,#) 輸出結(jié)果：輸出結(jié)果：12345 Print Format$(12345,#) 輸出結(jié)果：輸出結(jié)果：123450與與# 作用相似作用相似要顯示的數(shù)值小于指定區(qū)段長度時，數(shù)值靠區(qū)段右要顯示的數(shù)值小于指定區(qū)段長度時，數(shù)值靠區(qū)段右端輸出，多余位用端輸出，多余位用0補(bǔ)齊。補(bǔ)齊。如：如：Print Format$(12345,0000000) 輸出結(jié)果：輸出結(jié)果：0012345Print Format$(12345,000) 輸出結(jié)果：輸出結(jié)果：12345格式說明字

10、符格式說明字符: .小數(shù)點(diǎn)與小數(shù)點(diǎn)與 # 和和0結(jié)合使用，可以出現(xiàn)在顯示區(qū)段的任意位結(jié)合使用，可以出現(xiàn)在顯示區(qū)段的任意位置。小數(shù)部分多余數(shù)字，四舍五入置。小數(shù)部分多余數(shù)字，四舍五入如：如：Print Format$(12.345,000.00) 輸出結(jié)果：輸出結(jié)果：012.35Print Format$(12.345,#.#) 輸出結(jié)果：輸出結(jié)果：12.35，千位分隔符，在格式字符串中插入逗號起到分位的作用。千位分隔符，在格式字符串中插入逗號起到分位的作用。對于輸出數(shù)值從小數(shù)點(diǎn)左邊一位開始每三位用一個逗號分對于輸出數(shù)值從小數(shù)點(diǎn)左邊一位開始每三位用一個逗號分開。逗號可以放在小數(shù)點(diǎn)左邊的任意位置，

11、但不能出現(xiàn)在開。逗號可以放在小數(shù)點(diǎn)左邊的任意位置，但不能出現(xiàn)在頭部，也不能緊靠小數(shù)點(diǎn)。如：頭部，也不能緊靠小數(shù)點(diǎn)。如：Print Format$(98712.65,#,#.#) 輸出結(jié)果：輸出結(jié)果：98,712.65Print Format$(98712.65,#,#.#) 輸出結(jié)果：輸出結(jié)果：98,712.65Print Format$(98712.65,#.#) 輸出結(jié)果：輸出結(jié)果：,98712.65（錯誤）（錯誤）Print Format$(98712.65,#,.#) 輸出結(jié)果：輸出結(jié)果：98.71 （錯誤）（錯誤）%用來放在格式字符串的尾部，輸出百分號。用來放在格式字符串的尾部，輸出

12、百分號。如：如：Print Format$(0.165,00.0%) 輸出結(jié)果：輸出結(jié)果：16.5%$用來作為格式字符串的起始字符，在要輸出的數(shù)值用來作為格式字符串的起始字符，在要輸出的數(shù)值前加前加$。如：如：Print Format$(165.234,$#00.00) 輸出結(jié)果：輸出結(jié)果：$165.23+、-通常放在格式字符串的首部，在要顯示的數(shù)值前面通常放在格式字符串的首部，在要顯示的數(shù)值前面加上正號或負(fù)號。加上正號或負(fù)號。如：如：Print Format$(165.234,-#00.00) 輸出結(jié)果：輸出結(jié)果：-165.23Print Format$(165.234,+#00.00) 輸

13、出結(jié)果：輸出結(jié)果：+165.23E+、E-用指數(shù)形式顯示數(shù)值，用指數(shù)形式顯示數(shù)值，E+和和E-的作用基本相同。的作用基本相同。如：如：Print Format$(1657.234,0.00E+00) 輸出結(jié)果：輸出結(jié)果：1.66E+03 Print Format$(0.0234,0.00E-00) 輸出結(jié)果：輸出結(jié)果：2.34E-02 例子例子？A)A) Print A=x+yPrint A=x+yB)B) Print “A=” ; x+yPrint “A=” ; x+yC)C) Print “A=” + Str(x+y)Print “A=” + Str(x+y)D)D) Print “A=”

14、 & x+yPrint “A=” & x+yA設(shè)設(shè)X=4X=4、y=6y=6，則以下不能在窗體上顯示處，則以下不能在窗體上顯示處“A=10”A=10”的語句是（的語句是（ ）1. Cls方法方法 作用：清除用作用：清除用Print方法顯示的文本或在圖片框顯方法顯示的文本或在圖片框顯示的圖形，光標(biāo)移到對象的左上角（示的圖形，光標(biāo)移到對象的左上角（0，0） 格式：格式：對象對象.Cls 對象可以是窗體或圖片框?qū)ο罂梢允谴绑w或圖片框 4.1.4 其他有關(guān)方法其他有關(guān)方法2.Move 方法方法 2. TextHeight方法和方法和TextWidth方法方法 用于幫助設(shè)置坐標(biāo)。用于幫助

15、設(shè)置坐標(biāo)?！皩ο髮ο蟆卑ù绑w包括窗體 和圖片框和圖片框TextHeight方法返回一個文本字符串的高度值方法返回一個文本字符串的高度值TextWidth方法方法返回一個文本字符串的寬度值。返回一個文本字符串的寬度值。1函數(shù)的格式函數(shù)的格式 格式：格式：InputBox（PROMPT,TITLE,DEFAULT,XPOS,YPOS,HELPFILE,CONTEXT） 2. 函數(shù)的參數(shù)函數(shù)的參數(shù) （1）PROMPT：提示信息：提示信息 （不超過不超過1024個字符）個字符）（2）TITLE：對話框的標(biāo)題：對話框的標(biāo)題 （3）DEFAULT：作為默認(rèn)輸入值；缺省，輸入?yún)^(qū)空白：作為默認(rèn)輸入值；缺省，

16、輸入?yún)^(qū)空白 （4）XPOS,YPOS：整數(shù)，單位：整數(shù)，單位twip。 對話框在屏幕中的顯示位置對話框在屏幕中的顯示位置 XPOS：左邊距；：左邊距；YPOS：上邊距。：上邊距。 XPOS和和YPOS或者成對使用，或者都省略或者成對使用，或者都省略 缺省：對話框位于屏幕中心線向下三分之一處缺?。簩υ捒蛭挥谄聊恢行木€向下三分之一處 4.2 數(shù)據(jù)輸入數(shù)據(jù)輸入 inputboxinputbox函數(shù)函數(shù) （5）HELPFILE,CONTEXT：HELPFILE：字符串變量或字符串表達(dá)式，幫助文件：字符串變量或字符串表達(dá)式，幫助文件的名稱；的名稱；CONTEXT：數(shù)值變量或表達(dá)式，相關(guān)幫助：數(shù)值變量或表

17、達(dá)式，相關(guān)幫助主題的目錄號。主題的目錄號。使用這組參數(shù)，在對話框中將增加一個幫助按鈕。使用這組參數(shù)，在對話框中將增加一個幫助按鈕。按幫助按鈕或按幫助按鈕或F1鍵將得到相應(yīng)的幫助信息。這兩個鍵將得到相應(yīng)的幫助信息。這兩個參數(shù)或者全部使用，或者全部缺省。參數(shù)或者全部使用，或者全部缺省。 例例1例例2例例33. 說明說明 ：（1）PROMPR：系統(tǒng)可以自動換行。人為換行，需插：系統(tǒng)可以自動換行。人為換行，需插 入回車符入回車符 （2）返回值：字符串。想輸入非字符串類型信息，需要）返回值：字符串。想輸入非字符串類型信息，需要類型轉(zhuǎn)換或?qū)Ψ祷刂档念愋褪孪嚷暶黝愋娃D(zhuǎn)換或?qū)Ψ祷刂档念愋褪孪嚷暶?（3）Inp

18、utBox一次只能輸入一個值，需要多個輸入時，一次只能輸入一個值，需要多個輸入時，需要多次調(diào)用需要多次調(diào)用InputBox函數(shù)函數(shù) （4）InputBox函數(shù)也可以寫成函數(shù)也可以寫成InputBox$，兩種形式等價，兩種形式等價 ？A)A) 變量變量x x的值是數(shù)值的值是數(shù)值1010B)B) 在在inputboxinputbox對話框標(biāo)題欄中顯示的是對話框標(biāo)題欄中顯示的是“示例示例”C)C) 0 0是默認(rèn)值是默認(rèn)值D)D) 變量變量x x的值是字符串的值是字符串“10”10”D設(shè)有語句設(shè)有語句: :x=inputbox(“x=inputbox(“輸入數(shù)值輸入數(shù)值”,“0”,“,“0”,“示例示

19、例”) )程序運(yùn)行后，如果從鍵盤上輸入數(shù)值程序運(yùn)行后，如果從鍵盤上輸入數(shù)值1010并按并按回車鍵，則下列敘述中正確的是（回車鍵，則下列敘述中正確的是（ ）執(zhí)行如下語句：執(zhí)行如下語句：a=inputbox(“today”,“tomorrow”,“yesterdaa=inputbox(“today”,“tomorrow”,“yesterday”,“day before yesterday”,5)y”,“day before yesterday”,5)將顯示一個輸入將顯示一個輸入對話框，在對話框的輸入?yún)^(qū)中顯示的信息是（對話框，在對話框的輸入?yún)^(qū)中顯示的信息是（ ）A)A) todaytodayB)B)

20、 tomorrowtomorrowC)C) yesterdayyesterdayD)D) day before yesterdayday before yesterday？C4.3.1 MsgBox函數(shù)函數(shù) 1. 函數(shù)的格式函數(shù)的格式 MsgBox（MESSAGE，TYPE，TITLE，HELPFILE,CONTEXT)2. 函數(shù)的參數(shù)函數(shù)的參數(shù) （1）MESSAGE：不超過：不超過1024個字符的字符串。提示信息個字符的字符串。提示信息 （2）TYPE：對話框內(nèi)圖標(biāo)和按鈕的種類及數(shù)量。參數(shù)的值由表：對話框內(nèi)圖標(biāo)和按鈕的種類及數(shù)量。參數(shù)的值由表中四種類型的數(shù)值相加產(chǎn)生，通常只用前三類數(shù)值中四種

21、類型的數(shù)值相加產(chǎn)生，通常只用前三類數(shù)值 .4.3 MsgBox函數(shù)函數(shù)和和MsgBox語句語句 類類 型型符符 號號 常常 量量數(shù)數(shù) 值值功功 能能按鈕的類型按鈕的類型（確定、?。ù_定、取消、終止、消、終止、重試、忽略、重試、忽略、是、否）和是、否）和數(shù)量數(shù)量vbOKOnlyvbOKCancelvbAbortRetryIgnorevbYesNoCancelvbYesNovbRetryCancel012345只顯示只顯示“確定確定”按鈕按鈕顯示顯示“確定確定”和和“取消取消”按鈕按鈕顯示顯示“終止終止”、“重試重試”和和“忽略忽略”按鈕按鈕顯示顯示“是是”、“否否”和和“取消取消”按鈕按鈕顯示顯

22、示“是是”和和“否否”按鈕按鈕顯示顯示“重試重試”和和“取消取消”按鈕按鈕圖標(biāo)類型圖標(biāo)類型（暫停、疑（暫停、疑問、警告、問、警告、忽略）忽略）vbCriticalvbQuestionvbExclamationvbInformation16324864顯示暫停圖標(biāo)（顯示暫停圖標(biāo)（x）顯示疑問圖標(biāo)（顯示疑問圖標(biāo)（?）顯示警告圖標(biāo)（?。╋@示警告圖標(biāo)（！）顯示忽略圖標(biāo)（顯示忽略圖標(biāo)（i）應(yīng)用程序強(qiáng)制返回應(yīng)用程序強(qiáng)制返回系統(tǒng)強(qiáng)制返回系統(tǒng)強(qiáng)制返回04096VbApplicationModalvbSystemModal強(qiáng)制返回強(qiáng)制返回第一個按鈕是默認(rèn)值第一個按鈕是默認(rèn)值第二個按鈕是默認(rèn)值第二個按鈕是默認(rèn)值第

23、三個按鈕是默認(rèn)值第三個按鈕是默認(rèn)值第四個按鈕是默認(rèn)值第四個按鈕是默認(rèn)值0256512768vbDefaultButton1VbDefaultButton2VbDefaultButton3VbDefaultButton4默認(rèn)活動按鈕默認(rèn)活動按鈕功功 能能 數(shù)數(shù) 值值符符 號號 常常 量量類類 型型（3）TITLE：對話框的標(biāo)題。省略參數(shù)，工程的名稱將：對話框的標(biāo)題。省略參數(shù)，工程的名稱將作為對話框標(biāo)題；不想顯示標(biāo)題，參數(shù)設(shè)為空作為對話框標(biāo)題；不想顯示標(biāo)題，參數(shù)設(shè)為空 串串3. 函數(shù)的返回值函數(shù)的返回值 （1）返回）返回1或符號常量或符號常量vbOK，表明選擇了，表明選擇了“確定確定”按鈕按鈕（2

24、）返回）返回2或符號常量或符號常量vbCancel，表明選擇了，表明選擇了“取消取消”按鈕按鈕（3）返回）返回3或符號常量或符號常量vbAbort，表明用戶選擇了，表明用戶選擇了“終止終止”按鈕按鈕（4）返回）返回4或符號常量或符號常量vbRetry，表明用戶選擇了，表明用戶選擇了“重試重試”按鈕按鈕（5）返回）返回5或符號常量或符號常量vbIgnore，表明用戶選擇了，表明用戶選擇了“忽略忽略”按鈕按鈕（6）返回）返回6或符號常量或符號常量vbYes，表明用戶選擇了，表明用戶選擇了“是是”按鈕按鈕（7）返回）返回7或符號常量或符號常量vbNo，表明用戶選擇了，表明用戶選擇了“否否”按鈕按鈕

25、共有共有7種按鈕，返回值為種按鈕，返回值為17之間的一個數(shù)，分別與之間的一個數(shù)，分別與7個個按鈕相對應(yīng)按鈕相對應(yīng)例例2例例1 5. 說明：說明：（1）信息框內(nèi)標(biāo)有虛線框的按鈕是當(dāng)前活動按鈕，鼠標(biāo)）信息框內(nèi)標(biāo)有虛線框的按鈕是當(dāng)前活動按鈕，鼠標(biāo)單擊該按鈕或按回車鍵，表示選中該按鈕單擊該按鈕或按回車鍵，表示選中該按鈕（2）提示信息（）提示信息（MESSAGE）可以按自己的要求換行，）可以按自己的要求換行，需要自行插入回車符需要自行插入回車符（3）MsgBox的返回值常作為程序繼續(xù)運(yùn)行的依據(jù)的返回值常作為程序繼續(xù)運(yùn)行的依據(jù)（4）MsgBox產(chǎn)生的對話框?qū)儆诋a(chǎn)生的對話框?qū)儆凇澳B(tài)窗口模態(tài)窗口”（Moda

26、l Window）“模態(tài)窗口模態(tài)窗口”：程序運(yùn)行時，出現(xiàn)對話框，用戶必須做：程序運(yùn)行時，出現(xiàn)對話框，用戶必須做出選擇，否則不能繼續(xù)運(yùn)行，處于等待狀態(tài)出選擇，否則不能繼續(xù)運(yùn)行，處于等待狀態(tài)4.3.2 MsgBox語句語句 MsgBox語句和語句和MsgBox函數(shù)的功能完全相同，差別函數(shù)的功能完全相同，差別僅在于僅在于MsgBox語句語句沒有返回值沒有返回值。格式：格式：MsgBox MESSAGE$,TYPE%，TITLE$ 見例見例7 ？A)A) X X的值是數(shù)值的值是數(shù)值1010B)B) 輸入對話框的標(biāo)題是輸入對話框的標(biāo)題是“輸入整數(shù)輸入整數(shù)”C)C) 信息框的標(biāo)題是信息框的標(biāo)題是“輸入數(shù)據(jù)

27、：輸入數(shù)據(jù)：10”10”D)D) 信息框中顯示的是信息框中顯示的是“輸入的數(shù)據(jù)是：輸入的數(shù)據(jù)是：”假定有如下的命令按鈕（名稱為假定有如下的命令按鈕（名稱為command1command1）事件過程事件過程 Private Sub Command1_Click()Private Sub Command1_Click() x = InputBox( x = InputBox(輸入：輸入：, , 輸入整數(shù)輸入整數(shù)) MsgBox MsgBox 輸入的數(shù)據(jù)是：輸入的數(shù)據(jù)是：, , , , 輸入數(shù)據(jù)：輸入數(shù)據(jù)： + x + x End Sub End Sub程序運(yùn)行后，單擊命令按鈕，如果從鍵盤上輸入整數(shù)

28、程序運(yùn)行后，單擊命令按鈕，如果從鍵盤上輸入整數(shù)1010，則以下敘述中錯誤，則以下敘述中錯誤的是（的是（ ）A4.4.1 字體類型和大小字體類型和大小 FontName：對象：對象.FontName=字體類型字體類型FontSize ：對象：對象.FontSize=點(diǎn)數(shù)點(diǎn)數(shù)1. 格式格式2. 參數(shù)參數(shù) a. 字體類型：字體類型：VB中使用的英文和中文字體，中中使用的英文和中文字體，中 文字體用的數(shù)量取決于操作系統(tǒng)的文字體用的數(shù)量取決于操作系統(tǒng)的漢字環(huán)境漢字環(huán)境 b. 點(diǎn)數(shù)：設(shè)定字體大小，默認(rèn)值，點(diǎn)數(shù)：設(shè)定字體大小，默認(rèn)值，9 見例見例8 4.4 字字 形形 4.4.2 其他屬性其他屬性 1. 粗

29、體字粗體字 格式：對象格式：對象.FontBold =True|FalseTrue：設(shè)為粗體；：設(shè)為粗體；Flase：取消粗體。默認(rèn)值：取消粗體。默認(rèn)值：False2. 斜體字斜體字 格式：對象格式：對象. FontItalic =True|FalseTrue：設(shè)為斜體；：設(shè)為斜體；Flase：取消斜體。默認(rèn)值：取消斜體。默認(rèn)值：False 3. 下劃線下劃線 格式：對象格式：對象.FontUnderline =True|FalseTrue：加下劃線；：加下劃線；Flase：取消下劃線。默認(rèn)值：取消下劃線。默認(rèn)值：False4. 加刪除線加刪除線 格式：對象格式：對象. FontStriket

30、hru =True|False True：添加刪除線；：添加刪除線；Flase：取消刪除線。默認(rèn)值：取消刪除線。默認(rèn)值：False 5. 重疊顯示重疊顯示 格式：對象格式：對象. FontTransparent =True|FalseTrue：前景和背景重疊顯示；：前景和背景重疊顯示；False：背景被前景覆蓋。：背景被前景覆蓋。默認(rèn)值：默認(rèn)值：True 見例見例8-1 6TextHeight和和TextWidth方法方法格式：對象格式：對象. TextHeight（字符串）（字符串） 對象對象. TextWidth（字符串）（字符串） 返回文本的高度和寬度（單位：返回文本的高度和寬度（單位：

31、twip）字形和大小不同時，返回值也不同字形和大小不同時，返回值也不同見例見例9格式：格式：Printer.Print 輸出項輸出項 參數(shù)參數(shù)“輸出項輸出項”的含義同的含義同Print方法完全相同方法完全相同1. Page屬性屬性 作用：設(shè)置頁號，作用：設(shè)置頁號， Page初值為初值為1，每打印一頁，自動加，每打印一頁，自動加1格式：格式：Printer.Page如：如：Printer.Print “Page”; Printer.Page打印時，打印時， Printer.Page被設(shè)為當(dāng)前頁碼被設(shè)為當(dāng)前頁碼 4.5.1 直接輸出直接輸出 4.5 打印機(jī)輸出打印機(jī)輸出3. EndDoc方法方法作

32、用：結(jié)束文件打印，同時，向打印機(jī)管理程作用：結(jié)束文件打印，同時，向打印機(jī)管理程 序發(fā)出最后一頁的退出信息，并將序發(fā)出最后一頁的退出信息，并將Page 置置1.格式：格式：Printer.EndDoc2. NewPage方法方法 作用：強(qiáng)制實現(xiàn)打印機(jī)換頁，作用：強(qiáng)制實現(xiàn)打印機(jī)換頁，Page值自動加值自動加1 格式：格式：Printer.NewPagePrivate Sub Form_Click ( ) Dim Header, i, Y 聲明變量。聲明變量。 Print Now printing. 在窗體上放置注意信息。在窗體上放置注意信息。 Header = Printing Demo - Page 設(shè)置頁眉字符串。設(shè)置頁眉字符串。 For i = 1 To 3 Printer.Print Header; 打印頁眉。打印頁眉。 Printer.Print Printer.Page 打印頁號。打印頁號。 Y = Printer.CurrentY + 10 設(shè)置行位置。設(shè)置行位置。 畫一條跨頁橫線。畫一條跨頁橫線。 Printer.Line (0, Y) - (Printer.