二級(jí)VB等考(第一階段)

2014年3月等級(jí)考試輔導(dǎo)

二級(jí)VisualBasic開(kāi)學(xué)前上課安排上午（8:30~11:30）下午（14:30~17:30）周二明理B409思學(xué)C303周三明理B409+407思學(xué)C303周四明理B409+413周五明理B409+407明理B102周六明理B409+407明理B102QQ群的使用驗(yàn)證信息：姓名+學(xué)號(hào)網(wǎng)上答疑課件和作業(yè)下載本班QQ群號(hào)：85105099沖刺等級(jí)考試貴在持之以恒!堅(jiān)持就是勝利！課程安排第一階段基礎(chǔ)鋪墊：教材第一章到第十二章第二階段進(jìn)階提高：考點(diǎn)難點(diǎn)+重要算法+控件第三階段進(jìn)攻專(zhuān)項(xiàng)：專(zhuān)題+公共基礎(chǔ)第一講認(rèn)識(shí)VB

第1章VB開(kāi)發(fā)環(huán)境1

第2章對(duì)象及其操作2VB文件類(lèi)型Vbg工程組文件Vbp工程文件Frm窗體文件Bas標(biāo)準(zhǔn)模塊Cls類(lèi)模塊Res資源文件VB程序的運(yùn)行解釋方式（按F5鍵）編譯方式VB對(duì)象窗體Form1文本框Text1命令按鈕Command1都是對(duì)象P6-對(duì)象1.對(duì)象屬性：表示對(duì)象的狀態(tài)VB對(duì)象的考察重點(diǎn)為對(duì)象的屬性、方法、事件。Form1的Caption屬性Command1的Caption屬性Text1的Text屬性給對(duì)象屬性賦值的兩種方法：在屬性窗口進(jìn)行賦值；在代碼窗口使用賦值操作

格式為：

對(duì)象名.屬性名＝新設(shè)置的屬性值P7-對(duì)象的常見(jiàn)屬性

Name：每個(gè)對(duì)象都有的屬性，標(biāo)示對(duì)象的名稱(chēng)

Caption：大部分對(duì)象具有該屬性，標(biāo)示對(duì)象的標(biāo)題

Height、WidthTop、LeftEnabled

VisibleFont

PictureForeColorBackColor對(duì)窗體和其它大部分控件適用的屬性P6-對(duì)象2.對(duì)象事件

對(duì)象事件是由VisualBasic預(yù)先設(shè)置好的、能夠被對(duì)象識(shí)別的動(dòng)作。事件過(guò)程是響應(yīng)某個(gè)事件后所執(zhí)行的操作實(shí)現(xiàn)的一段代碼。例1PrivateSubCommand1_Click()Text1.Text="歡迎使用VisualBasic"

EndSubP7-對(duì)象3.對(duì)象方法對(duì)象所能夠使用的特殊函數(shù)和過(guò)程稱(chēng)為方法，它是對(duì)象所能執(zhí)行的特定操作。

[對(duì)象名].方法名例2Text2.SetFocus課堂練習(xí)在名稱(chēng)為Form1的窗體上畫(huà)兩個(gè)命令按鈕，其名稱(chēng)分別為C1和C2，標(biāo)題分別為“命令按鈕1”和“命令按鈕2”，通過(guò)屬性窗口設(shè)計(jì)適當(dāng)?shù)膶傩裕沟贸绦蜻\(yùn)行后，“命令按鈕2”隱藏。編寫(xiě)適當(dāng)?shù)氖录^(guò)程，使得單擊“命令按鈕1”，則“命令按鈕2”出現(xiàn)，“命令按鈕1”隱藏；而如果單擊“命令按鈕2”，則“命令按鈕1”出現(xiàn)，“命令按鈕2”隱藏。程序的運(yùn)行情況如圖所示。如何設(shè)置按鈕的Enabled屬性？上機(jī)教程P18【真題2.2】捷成第9套基本操作題第1題兩個(gè)命令按鈕分別為Command1和Command2，標(biāo)題分別為“擴(kuò)大”和“移動(dòng)”。程序運(yùn)行后，如果單擊Command1命令按鈕，則使窗體在高、寬方向上各增加0.2倍（變?yōu)樵瓉?lái)的1.2倍）；如果單擊Command2命令按鈕，則使窗體向右移動(dòng)200，向下移動(dòng)100。？移動(dòng)對(duì)象除用修改Left和Top屬性外，還可以怎么做P10-對(duì)象的常見(jiàn)方法Move方法

[對(duì)象.]Move左邊距離[,上邊距離[,寬度[,高度]]]作用：用于移動(dòng)窗體和控件，改變窗體和控件的大小。缺省“對(duì)象”為當(dāng)前窗體。單擊Command2命令按鈕，窗體向右移動(dòng)200，向下移動(dòng)100。窗體NameCaption

Height、WidthTop、LeftEnabledVisibleFont

PictureForeColorBackColorAutoRedrawBorderStyleControlBoxIconMaxButtonMinButtonWindowState對(duì)窗體和其它大部分控件適用的屬性窗體所特有的屬性Form1.Caption="一變"Me.Caption="二變"Caption="三變"VB基礎(chǔ)--窗體窗體屬性設(shè)置的三種方法窗體2.窗體事件Click（單擊）單擊鼠標(biāo)左鍵時(shí)發(fā)生。單擊窗口內(nèi)的某個(gè)位置（該位置不可以有其它的控件）時(shí)，執(zhí)行事件過(guò)程Form_Click()。Load（裝入）裝入窗體，在窗體顯示之前執(zhí)行該事件。一般在該事件中對(duì)屬性和變量進(jìn)行初始化。Unload（刪除）當(dāng)窗體從屏幕上刪除時(shí)發(fā)生。當(dāng)使用Unload語(yǔ)句或窗體右上的關(guān)閉按鈕關(guān)閉該窗體時(shí)，此事件被觸發(fā)。VB特點(diǎn)：VB采用事件驅(qū)動(dòng)的執(zhí)行機(jī)制VB程序沒(méi)有固定執(zhí)行順序？特別注意窗體對(duì)象的事件P9第5章常用標(biāo)準(zhǔn)控件(1)標(biāo)簽Label文本控件文本框TextBoxP33-標(biāo)簽Label屬性1.Caption

標(biāo)簽中顯示的文本，標(biāo)簽中的文本只能用Caption屬性來(lái)更改。2.AutoSize

為T(mén)rue時(shí)，根據(jù)Caption內(nèi)容自動(dòng)調(diào)整標(biāo)簽大?。粸镕alse時(shí)大小固定。3.BorderStyle

邊框情況，取值為0時(shí)無(wú)邊框；為1時(shí)加邊框。P33-文本框?qū)傩裕?）Text：文本框中顯示的內(nèi)容。（2）PasswordChar：把文本框設(shè)置為口令輸入框（3）MultiLine：多行顯示。（4）ScrollBars：設(shè)置文本框的滾動(dòng)條。事件和方法（1）Change事件：改變Text屬性時(shí)，觸發(fā)該事件（2）SetFocus方法：設(shè)置焦點(diǎn)上機(jī)例題捷成14-2課堂練習(xí)捷成22-2提示：輸出用Print方法課后練習(xí)：捷成4-2文本框?qū)傩裕ㄒ韵逻x擇屬性?xún)H在運(yùn)行時(shí)有效）（6）SelLength：當(dāng)前選中的字符個(gè)數(shù)。為0表示未選中任何字符。（7）SelStart：當(dāng)前選擇文本的起始位置。其值為從0開(kāi)始。（8）SelText：當(dāng)前選擇的文本字符串，沒(méi)有選擇時(shí)為空串。（9）Locked：文本框是否可被編輯。為T(mén)rue時(shí)不可編輯；為False時(shí)可編輯（默認(rèn)）。捷成53-2

上機(jī)練習(xí)上機(jī)練習(xí)5-225-353-2第二講VB語(yǔ)言基礎(chǔ)

第3章數(shù)據(jù)類(lèi)型及運(yùn)算1計(jì)算的結(jié)果是多少？字符串(String,$)特點(diǎn)：放在一對(duì)雙引號(hào)中P14-數(shù)據(jù)類(lèi)型關(guān)鍵字,類(lèi)型說(shuō)明符

Text1.Text="歡迎使用VisualBasic"字符串Text屬性Text3.Text=Text1.Text+Text2.Text字符串+

字符串？P18-算術(shù)運(yùn)算符基本運(yùn)算運(yùn)算符優(yōu)先級(jí)示例乘方^92^8表示28負(fù)號(hào)-8-3表示負(fù)3乘法*7a*b表示a乘以b除號(hào)/75.2/2計(jì)算結(jié)果為2.6整除\69.5\2計(jì)算結(jié)果為5求余數(shù)Mod517mod3計(jì)算結(jié)果為2加法+4a+b表示a加b的和減法-4a-b表示a減去b的差字符串連接運(yùn)算符&“1”&“1”→“11”“1”

&11&1+→“11”→“11”“1”+“1”→“11”“1”

+11+1→2→21+1=11是因?yàn)樽址妥址B接如何實(shí)現(xiàn)1+1=2呢？將字符串轉(zhuǎn)化成數(shù)字！P14-數(shù)據(jù)類(lèi)型整型(Integer,%):表示范圍[-32768,32767]長(zhǎng)整型(Long,&):4個(gè)字節(jié)存儲(chǔ)單精度(Single,！):4個(gè)字節(jié)存儲(chǔ)雙精度(Double,#):8個(gè)字節(jié)存儲(chǔ)整數(shù)實(shí)數(shù)（帶小數(shù)的數(shù)）字符串轉(zhuǎn)化成數(shù)值的方法：1、用數(shù)值的變量存儲(chǔ)2、用函數(shù)轉(zhuǎn)換P15-變量1.變量命名規(guī)則：（1）名字由字母開(kāi)頭后跟字母、數(shù)字、下劃線；（2）不能用VisualBasic的保留字作變量名，但可以把保留字嵌入變量名中；（3）在VisualBasic中變量名不區(qū)分大小寫(xiě)，即大、小寫(xiě)是等價(jià)的。

標(biāo)識(shí)符（變量名、數(shù)組名、過(guò)程名）命名規(guī)則同上P15-變量2.變量的類(lèi)型和定義（1）用類(lèi)型說(shuō)明符來(lái)標(biāo)識(shí)：x%

（2）在定義變量時(shí)指定其類(lèi)型：

Declare變量名As類(lèi)型其中Declare可以是Dim、Static、Public、Private之一。例

Dima,bAsInteger,cAsString,d!,eAsBoolean變體類(lèi)型邏輯類(lèi)型P9-3P17-常用內(nèi)部函數(shù)字符串轉(zhuǎn)化成數(shù)值的方法：1、用數(shù)值的變量存儲(chǔ)2、用函數(shù)轉(zhuǎn)換轉(zhuǎn)換函數(shù)：ValText3.Text=Val(Text1.Text)+Val(Text2.Text)P15-常量文字常量符號(hào)常量字符串常量數(shù)值常量由除雙引號(hào)和回車(chē)符之外的字符組成整型數(shù)貨幣型數(shù)浮點(diǎn)數(shù)有3種形式，即十、八，十六進(jìn)制，其中八進(jìn)制數(shù)以&O開(kāi)頭，十六進(jìn)制數(shù)以&H開(kāi)頭也稱(chēng)定點(diǎn)數(shù)，小數(shù)位為0～28又稱(chēng)實(shí)數(shù)，分單精度和雙精度值不可變的量，定義格式為：Const常量名=表達(dá)式常量名的命名規(guī)則與變量的命名規(guī)則相同常量長(zhǎng)整型數(shù)例

ConstPI=3.14,COUNTRY$="China"P17-常用內(nèi)部函數(shù)一、數(shù)學(xué)函數(shù)

1.三角函數(shù)(了解，注意格式)

Sin(x)、Cos(x)、Tan(x)、Atn(x)2.取整函數(shù)(掌握Int)

Int(x)：求不大于x的最大整數(shù)。

Cint(x)：把x的小數(shù)部分四舍五入變?yōu)檎麛?shù)。

Fix(x)：去掉x的小數(shù)部分，保留整數(shù)部分。

3.隨機(jī)函數(shù)：Rnd(x)（參數(shù)x一般省略）產(chǎn)生[0,1)的隨機(jī)數(shù)。

4.其它數(shù)學(xué)函數(shù)平方根函數(shù)Sqr(x)、絕對(duì)值函數(shù)Abs(x)、對(duì)數(shù)函數(shù)Log(x)、符號(hào)函數(shù)Sgn(x)、指數(shù)函數(shù)Exp(x)產(chǎn)生[a,b]內(nèi)隨機(jī)數(shù)x=Int(Rnd*(b-a+1)+a)+a考點(diǎn)3常用內(nèi)部函數(shù)二、字符函數(shù)1.刪除空白字符函數(shù)

Ltrim$(字符串)：去掉“字符串”左邊的空白字符

Rtrim$(字符串)：去掉“字符串”右邊的空白字符

Trim$(字符串)：去掉“字符串”左右兩邊的空白字符2.字符串長(zhǎng)度測(cè)試函數(shù)

Len(字符串)Len(變量名)測(cè)試字符串中字符的個(gè)數(shù)測(cè)試變量所占字節(jié)大小考點(diǎn)3常用內(nèi)部函數(shù)3.大小寫(xiě)轉(zhuǎn)換函數(shù)

Lcase$(字符串)‘轉(zhuǎn)換為小寫(xiě)

Ucase$(字符串)‘轉(zhuǎn)換為大寫(xiě)4.字符串截取函數(shù)

Left$(字符串,n)

Mid$(字符串,位置[,L])Right$(字符串,n)【例】捷成44-3

程序運(yùn)行時(shí)，在文本框中每輸入一個(gè)字符，則立即判斷：若是小寫(xiě)字母，則把它的大寫(xiě)形式顯示在標(biāo)簽Label1中，若是大寫(xiě)字母，則把它的小寫(xiě)形式顯示在Label1中，若是其他字符，則把該字符直接顯示在Label1中。輸入的字母總數(shù)則顯示在標(biāo)簽Label2中，如圖所示。上機(jī)真題課堂練習(xí)第3章：歷年真題和真題練習(xí)P25-Print方法Print方法可以在窗體上顯示文本字符串和表達(dá)式的值，并可在其他圖形對(duì)象或打印機(jī)上輸出信息。其一般格式為:[對(duì)象名稱(chēng).]Print[表達(dá)式表][,|;]窗體(Form)、圖片框(PictureBox)、打印機(jī)(Printer)，也可以是立即窗口（Debug），省略時(shí)默認(rèn)為當(dāng)前窗體?？梢允且话惚磉_(dá)式，也可以是常數(shù)或變量在兩個(gè)表達(dá)式之間可以加“，”、“；”或“空格”用于控制和下一Print輸出間的關(guān)系無(wú)符號(hào)表示換行加“，”表示按標(biāo)準(zhǔn)格式加“；”表示按緊湊格式Format函數(shù)將數(shù)值按指定格式輸出。Format(數(shù)值表達(dá)式，格式字符串)P26-與Print方法有關(guān)的函數(shù)2004年9月選擇題19題執(zhí)行如下兩條語(yǔ)句，窗體上顯示的是_________。

a=9.8596PrintFormat(a,"$00,00.00")（A）0,009.86（B）$9.86（C）9.86（D）$0,009.86P27-InputBox函數(shù)InputBox函數(shù)可產(chǎn)生一個(gè)對(duì)話(huà)框，這個(gè)對(duì)話(huà)框作為輸入數(shù)據(jù)的界面，等待用戶(hù)輸入數(shù)據(jù)，并返回所輸入的內(nèi)容。InputBox（prompt,[,title][,default]）對(duì)話(huà)框中顯示的提示信息對(duì)話(huà)框標(biāo)題欄顯示的信息對(duì)話(huà)框的輸入默認(rèn)值P27-InputBox函數(shù)InputBox函數(shù)可產(chǎn)生一個(gè)對(duì)話(huà)框，這個(gè)對(duì)話(huà)框作為輸入數(shù)據(jù)的界面，等待用戶(hù)輸入數(shù)據(jù)，并返回所輸入的內(nèi)容。注意：1）InputBox的返回值是字符串;2）InputBox一次只能輸入一個(gè)值，要輸入多個(gè)值時(shí)則需多次調(diào)用該函數(shù)。InputBox（prompt,[,title][,default]）P30-考點(diǎn)4MsgBox函數(shù)和MsgBox語(yǔ)句MsgBox函數(shù)1.格式2.返回值

MsgBox函數(shù)的返回值是一個(gè)整數(shù)，這個(gè)整數(shù)與所選擇的按鈕有關(guān)。

MsgBox(msg,[,type][,title][,helpfile,context])對(duì)話(huà)框中顯示的提示信息，為一個(gè)字符串對(duì)話(huà)框類(lèi)型，確定對(duì)話(huà)框的圖標(biāo)和按鈕，為一個(gè)整數(shù)值對(duì)話(huà)框標(biāo)題顯示的信息，為一字符串P30-考點(diǎn)4MsgBox函數(shù)和MsgBox語(yǔ)句二、MsgBox語(yǔ)句

MsgBoxMsg[,type][,title][,helpfile,context]

MsgBox語(yǔ)句沒(méi)有返回值，常用于較簡(jiǎn)單的信息顯示。

MsgBox函數(shù)語(yǔ)句參數(shù)有括號(hào)無(wú)括號(hào)返回值有無(wú)P9-31P10-12第三講選擇結(jié)構(gòu)

If選擇結(jié)構(gòu)2

關(guān)系和邏輯運(yùn)算符1

單選按鈕和復(fù)選框3關(guān)系運(yùn)算符

關(guān)系運(yùn)算運(yùn)算符優(yōu)先級(jí)示例大于>

3100>99結(jié)果為T(mén)rue小于<

31.2<-23結(jié)果為False大于等于>=3Sin(1)>=0結(jié)果為T(mén)rue小于等于<=3Sqr(3)<=0結(jié)果為False等于=312=13結(jié)果為False不等于<>

312<>13結(jié)果為T(mén)rue"a">"c"

結(jié)果為？關(guān)系運(yùn)算：結(jié)果為邏輯值False09年3月真題以下關(guān)系表達(dá)式中，其值為T(mén)rue的是（）（A）"XYZ">"Xyz"（B）"ViusalBasic"<>"visualbasic"（C）"the"="there"（D）"Integer"<"Int"邏輯運(yùn)算符邏輯運(yùn)算運(yùn)算符優(yōu)先級(jí)示例非（求反）Not2Not(12<>13)結(jié)果為False與（并且）And1(23>10)and(30<23)結(jié)果為False或（或者）Or0(23>10)or(30<23)結(jié)果為T(mén)rue函數(shù)運(yùn)算>算術(shù)運(yùn)算>字符串運(yùn)算>關(guān)系運(yùn)算>邏輯運(yùn)算邏輯值參與邏輯運(yùn)算，結(jié)果為邏輯值數(shù)值數(shù)據(jù)參與邏輯運(yùn)算，結(jié)果為數(shù)值（按位操作）2006年9月選擇題第13題設(shè)a=2，b=3，c=4，下列表達(dá)式的值是________。Nota<=cOr4*a=b^2

Andb<>a+c（A）-1（B）1（C）True（D）FalseNota<=cOr4*a=b^2

Andb<>a+cNotTrueOrFalseAndTrueFalseOrFalseAndTrueFalse

Or

False(2006年4月)設(shè)a=4,b=3,c=2,d=l，下列表達(dá)式的值是_____。

a>b+1Orc<dAndbModc

A)TrueB)1C)-1D)0a>b+1Orc<dAndbModcFalseOrFalseAnd1FalseOr0思考：1Or1And0=?第三講選擇結(jié)構(gòu)

If選擇結(jié)構(gòu)2

關(guān)系和邏輯運(yùn)算符1

單選按鈕和復(fù)選框3P62-IF結(jié)構(gòu)評(píng)定學(xué)生成績(jī)等級(jí)。90分及其以上為優(yōu)秀。DimxAsIntegerx=InputBox(“請(qǐng)輸入學(xué)生成績(jī)”)If

x>=90

Then

Print“優(yōu)秀”EndIf1、用變量獲得成績(jī)2、判斷變量是否滿(mǎn)足條件3、滿(mǎn)足條件的進(jìn)行輸出P62-IF結(jié)構(gòu)評(píng)定學(xué)生成績(jī)等級(jí)。90分及其以上為優(yōu)秀，其它為不優(yōu)秀。不優(yōu)秀DimxAsIntegerx=InputBox(“請(qǐng)輸入學(xué)生成績(jī)”)If

x>=90

Then

Print“優(yōu)秀”EndIfElsePrint“不優(yōu)秀”不優(yōu)秀P62-IF結(jié)構(gòu)評(píng)定學(xué)生成績(jī)等級(jí)。90分及其以上為優(yōu)秀，60分以上為合格，其它為不合格。Ifx>=90

ThenPrint“優(yōu)秀”ElsePrint“不優(yōu)秀”EndIfIfx>=60ThenPrint“合格”ElsePrint“不合格”EndifP63-IF結(jié)構(gòu)評(píng)定學(xué)生成績(jī)等級(jí)。90分及其以上為優(yōu)秀，80~90為良好，60分以上為合格，其它為不合格。Ifx>=90

ThenPrint“優(yōu)秀”ElseIfx>=80ThenPrint“良好”ElseIfx>=60ThenPrint“合格”ElsePrint“不合格”EndIfP63-IF結(jié)構(gòu)X>＝90X>＝80X>＝60優(yōu)秀良好合格不合格FFFTTTIfThenElseIfElseIfThenThenElse課堂練習(xí)筆試教程P73，選擇題1-6第三講選擇結(jié)構(gòu)

If選擇結(jié)構(gòu)2

關(guān)系和邏輯運(yùn)算符1

單選按鈕和復(fù)選框3P37-單選按鈕OptionButton屬性CaptionEnabledValue事件ClickValue值True為選中False為不選?條件Option1.Value=True還可以寫(xiě)成那些形式P37-復(fù)選框CheckBox屬性CaptionValue事件ClickValue屬性值：1-checked為選中0-Unchecked為不選2-Grayed為禁止操作（灰色）捷成34-3補(bǔ)充幾個(gè)屬性字體屬性FontName字號(hào)屬性FontSize下劃線FontUnderline加粗FontBold傾斜FontItalic課堂練習(xí)筆試教程P46，選擇題23-26上機(jī)教程28-33P59-考點(diǎn)2SelectCase語(yǔ)句Case后的表達(dá)式形式一組枚舉表達(dá)式：Case2,5,8表達(dá)式1To

表達(dá)式2

：Case10To20比較范圍：CaseIs<10SelectCasexCase90to100y="優(yōu)秀"Case80to89y=“良好“

Case60to79y=“合格"CaseElsey="不合格"EndSelectSelectCasexCaseIS>=90y="優(yōu)秀"CaseIS>=80y=“良好“

CaseIS>=60y=“合格"CaseElsey="不合格"EndSelect思考：某班學(xué)生成績(jī)：90分以上優(yōu)秀，80分以上良好，

60分上合格，60分以下不合格。P73選擇題21以下Case語(yǔ)句中錯(cuò)誤的是______。（A）Case0To10（B）CaseIs>10（C）CaseIs>10AndIs<50（D）Case3,5,Is>10注意：1、SelectCase后不能跟多個(gè)變量2、不能在條件中出現(xiàn)變量3、不能在條件中出現(xiàn)邏輯表達(dá)形式P59例32006年4月選擇題20題在窗體上畫(huà)1個(gè)命令按鈕和1個(gè)文本框PrivateSubCommandl_lick()x=Val(Text1.Text)SelectCasex Case1,3 y=x*x CaseIs>=10,Is<=-10 y=x Case-10To10 y=-xEndSelectEndSub程序運(yùn)行后，在文本框中輸入3，然后單擊命令按鈕，則以下敘述中正確的是

B）執(zhí)行y=-xC）先執(zhí)行y=x*x，再執(zhí)行y=-xD）程序出錯(cuò)Select從前往后判定，當(dāng)出現(xiàn)第1個(gè)滿(mǎn)足的條件，執(zhí)行該部分語(yǔ)句，并且Select結(jié)構(gòu)結(jié)束A）執(zhí)行y=x*x上機(jī)教程P27【上機(jī)真題3.3】捷成48-4已知出租車(chē)行駛不超過(guò)4公里時(shí)一律收費(fèi)10元。超過(guò)4公里時(shí)分段處理，具體處理方式為：15公里以?xún)?nèi)每公里加收1.2元，15公里以上每公里收1.8元。SelectCase判斷課堂練習(xí)筆試教程P74，選擇題7、8、9上機(jī)練習(xí)上機(jī)教材P22-3315-414-419-467-350-3評(píng)講P30-2P46-23上機(jī)14-4VB中存在多種解釋的符號(hào)1、+字符串連接：字符串+字符串算術(shù)加：其他情況2、&Long類(lèi)型：與前一數(shù)據(jù)（常量或變量）連寫(xiě)字符串連接：與前后數(shù)據(jù)隔開(kāi)3、=賦值：=為獨(dú)立語(yǔ)句關(guān)系運(yùn)算：為其他某語(yǔ)句的一部分第四講循環(huán)結(jié)構(gòu)

For循環(huán)1

列表框2

其它循環(huán)結(jié)構(gòu)3For

循環(huán)變量=初值To

終值[step

步長(zhǎng)]

循環(huán)語(yǔ)句塊

[ExitFor]Next[循環(huán)變量]P65-For循環(huán)控制結(jié)構(gòu)For循環(huán)的應(yīng)用累加階乘sum=0Fori=1To100

sum=sum+iNextifact=1Fori=1To100

fact=fact*iNexti累加和變量置初值0可省略累乘積變量置初值1不可省1+1!+2!+3!+…+100!1+1/1!+1/2!+1/3!+…+1/100!2005年4月選擇題第23題[真題]執(zhí)行以下程序段:DimiAsInteger,xAsInteger

x=0

Fori=20To1Step-2

x=x+i\5

NextPrintx后，x的值為_(kāi)_____。（A）16（B）17（C）18（D）19在窗體上畫(huà)一個(gè)名稱(chēng)為T(mén)ext1的文本框和一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：PrivateSubCommand1_Click() Fori=0To50 i=i+3 n=n+1 Ifi>10ThenExitFor Next Text1.Text=Str(n)EndSub程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是（）（A）5（B）4 （D）22006年9月選擇題第19題（C）3在窗體上畫(huà)一個(gè)命令按鈕，其名稱(chēng)為Command1，然后編寫(xiě)如下事件過(guò)程：PrivateSubCommand1_Click()

DimiAsInteger,xAsInteger

Fori=1To6

Ifi=1Thenx=1

Ifi<=4Then

x=x+1

Else

x=x+2

EndIf

Nexti

Printx

EndSub程序運(yùn)行后，單擊命令按鈕，其輸出結(jié)果為_(kāi)_____。（A）92005年4月選擇題第21題（B）6（C）12（D）15課堂練習(xí)P76選擇題12、14、15、16P83選擇題34~40P86填空題1~5、11第四講循環(huán)結(jié)構(gòu)

For循環(huán)1

列表框2

其它循環(huán)結(jié)構(gòu)3P38-列表框ListBox常用屬性List：列出表項(xiàng)的內(nèi)容ListCount：讀出列表框中表項(xiàng)的總數(shù)

ListIndex：設(shè)置/讀出被選中表項(xiàng)的序號(hào)Text：選中表項(xiàng)的文本P38-列表框ListBox常用屬性（多選）MultiSelect：設(shè)置多選屬性。Selected：列出表項(xiàng)的選擇狀態(tài)。SelCount：讀出被選中表項(xiàng)的總數(shù)。上機(jī)教程P95-練習(xí)7.3捷成15-4程序運(yùn)行后，如果多次單擊列表框中的項(xiàng)，則可同時(shí)選擇這些項(xiàng)。而如果單擊“顯示”按鈕，則在窗體上輸出所有選中的列表框（如圖所示）。事件和方法含義Click/DbClick列表框的單擊/雙擊事件AddItem向列表框插入一行文本Clear清除列表框中所有項(xiàng)目RemoveItem用于清除指定表項(xiàng)內(nèi)容列表框名.AddItem字符串[,下標(biāo)]列表框名.Clear列表框名.RemoveItem下標(biāo)P38-列表框ListBox上機(jī)教程P86-真題7.1【例】捷成26-3

界面如下圖所示，如果單擊“添加項(xiàng)目”命令按鈕，則從鍵盤(pán)上輸入要添加到列表框中的項(xiàng)目（內(nèi)容任意，不少于三個(gè)）；如果單擊“刪除項(xiàng)目”命令按鈕，則從鍵盤(pán)上輸入要?jiǎng)h除的項(xiàng)目，將其從列表框中刪除。設(shè)在窗體中有一個(gè)名稱(chēng)為L(zhǎng)ist1

的列表框，其中有若干個(gè)項(xiàng)目（如圖）。要求選中某一項(xiàng)后單擊Command1按鈕，就刪除選中的項(xiàng)，則正確的事件過(guò)程是：

(A)Private

SubCommand1_Click()List1.ClearEnd

Sub(B)Private

Sub

Command1_Click()List1.Clear

List1.ListIndexEnd

Sub(C)Private

Sub

Command1_Click()List1.Removeltem

List1.ListIndexEnd

Sub(D)Private

Sub

Command1_Click()List1.RemoveltemEnd

Sub2007年9月選擇題第19題上機(jī)真題【例】捷成44-1在標(biāo)題為“列表框”、名稱(chēng)為Form1的窗體上畫(huà)一個(gè)名稱(chēng)為L(zhǎng)ist1列表框，通過(guò)屬性窗口輸入四個(gè)列表項(xiàng)：“數(shù)學(xué)”、“語(yǔ)文”、“歷史”、“地理”，列表項(xiàng)采用“復(fù)選框形式”，如圖所示。列表框的寬為1100，高不限。Style屬性上機(jī)練習(xí)8-326-344-134-4第四講循環(huán)結(jié)構(gòu)

For循環(huán)1

列表框2

其它循環(huán)結(jié)構(gòu)394P67-考點(diǎn)4While-Wend循環(huán)

格式：

While條件

語(yǔ)句塊

Wend

說(shuō)明條件：是布爾表達(dá)式或數(shù)值如何選擇循環(huán)結(jié)構(gòu)？問(wèn)題1求1~1000能被3整除的數(shù)的個(gè)數(shù)。問(wèn)題2求比1000小的最大三個(gè)能被3整除的數(shù)。Fori=1To1000Nexti=1000:n=0Whilen<3

i=i-1Wend為計(jì)算1+3+5+……+99的值，某人編程如下

k=1

s=0

While

k<=99

k=k+2

s=s+k

Wend

Print

s在調(diào)試時(shí)發(fā)現(xiàn)運(yùn)行結(jié)果有錯(cuò)誤，需要修改。下列錯(cuò)誤原因和修改方案中正確的是（）(A)

While

…Wend循環(huán)語(yǔ)句錯(cuò)誤，應(yīng)改為For

k=1

To

99

…Next

k(B)

循環(huán)條件錯(cuò)誤，應(yīng)改為Whlie

k<99(C)

循環(huán)前的賦值語(yǔ)句k=1錯(cuò)誤，應(yīng)改為k=0(D)

循環(huán)中兩條賦值語(yǔ)句的順序錯(cuò)誤，應(yīng)改為s=s+k

:

k=k+22007年4月選擇題27題解題思路：1.查找出錯(cuò)位置①檢查前1個(gè)數(shù)和后1個(gè)數(shù)是否參加運(yùn)算；②有無(wú)多余的數(shù)參加運(yùn)算。2.確定修改方案①直接確定法②按選項(xiàng)提示修改法P68-Do循環(huán)控制結(jié)構(gòu)2007年4月選擇題27題設(shè)有如下程序：PrivateSubCommand1_Click()DimcAsInteger,dAsIntegerc=4d=InputBox("請(qǐng)輸入一個(gè)整數(shù)")DoWhiled>0Ifd>cThenc=c+1EndIfd=InputBox("請(qǐng)輸入一個(gè)整數(shù)")LoopPrintc+dEndSub程序運(yùn)行后，單擊命令按鈕，如果在輸入對(duì)話(huà)框中依次輸入1、2、3、4、5、6、7、8、9、0，則輸出結(jié)果是______。（A）12（B）11（C）10（D）9課堂練習(xí)For：P77選擇題16、15，P86填空題1While：P78選擇題19，P87填空題6DoLoop：P79選擇題24、25，P88填空題9上機(jī)評(píng)講8-3上機(jī)真題上機(jī)教程[P153]練習(xí)11.1界面如右圖所示，運(yùn)行時(shí)，單擊“計(jì)算”按鈕，則找出小于18000的最大的素?cái)?shù)，并顯示在Text1中；單擊“存盤(pán)”按鈕，則把Text1中的計(jì)算結(jié)果存入out5.txt文件中。輸入一個(gè)數(shù)，判斷該數(shù)是否是素?cái)?shù)Fori=2Ton-1NextiIfnModi=0Thenprint“不是素?cái)?shù)”elseprintn;“是素?cái)?shù)”EndIfFori=2Ton-1NextiIfnmodi=0thenExitforEndifIf

ThenPrintn;“是素?cái)?shù)“Elseprintn;“不是素?cái)?shù)”EndIfi>n-1或i=n[2,sqr(n)][2,n\2]？上機(jī)練習(xí)1-52-5

多重循環(huán)第四講循環(huán)結(jié)構(gòu)For的循環(huán)嵌套Fori=1To5Forj=1To5

x=x+1Nextj

NextiFori=1To5Forj=1Toi

x=x+1Nextj

Nextix=1x=1考點(diǎn)6多重循環(huán)For的循環(huán)嵌套Fori=1To5Forj=1To5

x=x+1Nextj

NextiFori=1To5Forj=1Toi

x=x+1Nextj

Nextix=1x=1考點(diǎn)6多重循環(huán)For的循環(huán)嵌套Fori=1To5Forj=1To5

x=x+1Nextj

NextiFori=1To5Forj=1Toi

x=x+1Nextj

Nextiy=y+1y=y+1考點(diǎn)6多重循環(huán)課堂練習(xí)P80選擇題26-33第五講數(shù)組

數(shù)組基礎(chǔ)1

控件數(shù)組2

最大值算法3動(dòng)態(tài)數(shù)組靜態(tài)數(shù)組數(shù)組數(shù)組數(shù)組必須先定義后使用1.數(shù)組定義（1）一維數(shù)組的定義Dim數(shù)組名([下標(biāo)下界To]下標(biāo)上界)As類(lèi)型名稱(chēng)例如：

Dimarr1(1To10)AsInteger

Dimarr1%(1To10)（2）多維數(shù)組的定義Dim數(shù)組名(下標(biāo)1,下標(biāo)2[,下標(biāo)3……])As類(lèi)型名稱(chēng)例如：

Dimarr2(1To10,3To20)AsInteger

靜態(tài)數(shù)組靜態(tài)數(shù)組上下界必須是常量動(dòng)態(tài)數(shù)組1.動(dòng)態(tài)數(shù)組的定義Step1：在窗體層、標(biāo)準(zhǔn)模塊或過(guò)程中用Dim或Public聲明一個(gè)沒(méi)有下標(biāo)的數(shù)組（括號(hào)不能省略）Step2：在過(guò)程中用ReDim語(yǔ)句定義帶下標(biāo)的數(shù)組。2.ReDim語(yǔ)句的格式ReDim[Preserve]數(shù)組名(下標(biāo))[As數(shù)據(jù)類(lèi)型]例如：

Dima()AsInteger

ReDima(1To20)ReDima(1To30)AsInteger動(dòng)態(tài)數(shù)組上下界可以是常量或變量ReDimPreservea(1To30)AsInteger可以省略數(shù)組類(lèi)型，如果給定類(lèi)型，必須與前面類(lèi)型保存一致數(shù)組相關(guān)語(yǔ)句及函數(shù)OptionBasen語(yǔ)句Lbound、Ubound函數(shù)Array函數(shù)ForEach…Next語(yǔ)句n只能為0或1使用Array函數(shù)對(duì)數(shù)組初始化滿(mǎn)足以下條件：變體類(lèi)型（Variant）非靜態(tài)數(shù)組（動(dòng)態(tài)數(shù)組或數(shù)組變量）一維數(shù)組循環(huán)變量為Variant靜態(tài)數(shù)組動(dòng)態(tài)數(shù)組定義方式數(shù)組定義是否支持變量可否修改元素個(gè)數(shù)及維數(shù)課堂練習(xí)P102：1-4Dima%(1To100)Dima()AsIntegerReDima(1To100)否否Dima()AsIntegern=100ReDima(1Ton)ReDima(1Ton+2)ReDima(n,n)數(shù)組真題【筆試教程】P103，選擇題6PrivateSubCommand1_Click()Dimm(10)AsIntegerFork=1To10m(k)=12-kNextkx=8

Printm(2+m(x))EndSub選擇題7與變量相同數(shù)組真題【筆試教程】P103，選擇題5PrivateSubCommand1_Click()DimA1(4)AsInteger,A2(4)AsIntegerFork=0To2A1(k+1)=InputBox("請(qǐng)輸入一個(gè)整數(shù)")A2(3-k)=A1(k+1)NextkPrintA2(k)EndSub數(shù)組真題【筆試教程】P95，歷年真題7PrivateSubCommand1_Click()Dima(10,10)AsIntegerFori=1To3Forj=1To3a(i,j)=(i-1)*3+jPrinta(i,j);NextjPrintNextiEndSub按矩陣方式輸出P107選擇題16數(shù)組真題【筆試教程】P94，歷年真題5PrivateSubCommand1_Click()Dima(3,3)AsIntegerFori=1To3Forj=1To3a(i,j)=i*j+iNextjNextiSum=0Fori=1To3Sum=Sum+a(i,4-i)NextiPrintSumEndSub歷年真題6上機(jī)教程P52-上機(jī)真題5.1【例】捷成38-3：數(shù)組求平均值功能是產(chǎn)生20個(gè)0~1000的隨機(jī)整數(shù)，放入一個(gè)數(shù)組中，然后輸出這20個(gè)整數(shù)的平均值。程序運(yùn)行后，單擊命令按鈕（名稱(chēng)為Command1，標(biāo)題為“輸出平均值”），即可求出其平均值，并在窗體上顯示出來(lái)（如圖所示）。第五講數(shù)組

數(shù)組基礎(chǔ)1

控件數(shù)組2

最大值算法3P100-控件數(shù)組【上機(jī)真題】捷成10-3窗體上有一個(gè)單選按鈕數(shù)組，含三個(gè)單選按鈕；還有一個(gè)標(biāo)題為“顯示”的命令按鈕（如圖所示）。程序的功能是，在運(yùn)行時(shí)，如果選中一個(gè)單選按鈕并單擊“顯示”按鈕，則在窗體上顯示相應(yīng)的信息，例如若選中“小學(xué)生”，則在窗體上顯示“我是小學(xué)生”。P100-控件數(shù)組由一組相同類(lèi)型的控件組成；共用相同的控件名，即其所有元素的Name屬性相同；數(shù)組中的每個(gè)控件都有唯一的索引(Index)值，即下標(biāo)；除Name和Index屬性外其它屬性可以相同也可以不同；共享相同的事件過(guò)程，通過(guò)Index參數(shù)來(lái)進(jìn)行區(qū)分。PrivateSubOption1_Click(IndexAsInteger) …EndSub控件數(shù)組操作建立控件數(shù)組刪除控件數(shù)組第一種方法，通過(guò)改變已有控件名稱(chēng)添加控件數(shù)組元素第二種方法，通過(guò)復(fù)制現(xiàn)存控件添加數(shù)組元素改變一個(gè)控件的Name屬性值，并把Index屬性置為空(不是0)第五講數(shù)組

數(shù)組基礎(chǔ)1

控件數(shù)組2

最大值算法3上機(jī)練習(xí)4-346-432-4P96-求最值算法算法描述求最大值時(shí)，假設(shè)第一個(gè)數(shù)為最大值，然后將每個(gè)數(shù)逐個(gè)與最大值相比較，若比最大值大則將該數(shù)作為新的最大值，直到數(shù)組元素比較完。P96-最值算法Dima(1To10)AsIntegerFori=1To10a(i)=Int(Rnd*10)NextiMax=a(1)Fori=2To10Ifa(i)>MaxThenMax=a(i)EndIfNextiMin=a(1)Fori=2To10Ifa(i)<MinThenMin=a(i)EndIfNexti數(shù)組賦值最大值最小值上機(jī)教程P64-上機(jī)真題6.1【例】捷成41-3：評(píng)委打分窗體上有一個(gè)標(biāo)題為“得分”的框架，在框架中有一個(gè)名稱(chēng)為T(mén)ext1的文本框數(shù)組，含六個(gè)元素；文本框Text2用來(lái)輸入難度系數(shù)。程序運(yùn)行時(shí)，在左邊的六個(gè)文本框中輸入6個(gè)得分，輸入難度系數(shù)后，單擊“計(jì)算分?jǐn)?shù)”按鈕，則可計(jì)算出最后得分并在文本Text3中顯示（如圖所示）計(jì)算方法：去掉1個(gè)最高分和1個(gè)最低分，求剩下得分的平均分，再乘以3，再乘以難度系數(shù)。最后保留兩位小數(shù)，不四舍五入。上機(jī)評(píng)講46-4上機(jī)評(píng)講3-5第六講過(guò)程變量作用域1

Function過(guò)程2

參數(shù)傳送4Sub過(guò)程3課程引入【上機(jī)真題3.3】捷成48-4已知出租車(chē)行駛不超過(guò)4公里時(shí)一律收費(fèi)10元。超過(guò)4公里時(shí)分段處理，具體處理方式為：15公里以?xún)?nèi)每公里加收1.2元，15公里以上每公里收1.8元。P120-變量作用域名稱(chēng)作用域聲明位置使用語(yǔ)句局部變量過(guò)程過(guò)程中Dim或Static模塊變量窗體模塊或標(biāo)準(zhǔn)模塊模塊的通用聲明段Dim或Private全局變量整個(gè)應(yīng)用程序標(biāo)準(zhǔn)模塊的聲明部分Public或Global將變量聲明為靜態(tài)變量，在程序運(yùn)行中可保留變量的值2004年9月筆試真題選擇題第8題

在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：

PrivateSubCommand1_Click()

StaticxAsInteger

Cls

Fori=1To2

y=y+x

x=x+2

Next

Printx,y

EndSub

程序運(yùn)行后，連續(xù)三次單擊Command1按鈕后，窗體上顯示的是

A)42C)1230D)46B)12182002年9月筆試真題選擇題26題在窗體上畫(huà)一個(gè)名稱(chēng)為Commandl的命令按鈕，然后編寫(xiě)如下程序：

PrivateSubCommand1_Click()

StaticXAsInteger

StaticYAsInteger

Cls

Y=1

Y=Y+5

X=5+X

PrintX,Y

EndSub

程序運(yùn)行時(shí)，三次單擊命令按鈕Commandl后，窗體上顯示的結(jié)果為

A)1516C)1515D)56B)156第六講過(guò)程變量作用域1

Function過(guò)程2

參數(shù)傳送4Sub過(guò)程3P124-Function過(guò)程[Static][Private|Public]Function

過(guò)程名([參數(shù)])[As數(shù)據(jù)類(lèi)型]

語(yǔ)句塊

[過(guò)程名=表達(dá)式][ExitFunction][語(yǔ)句塊]EndFunction返回結(jié)果值返回值類(lèi)型Function過(guò)程定義編寫(xiě)1個(gè)函數(shù)實(shí)現(xiàn)累加第一步：確定形式參數(shù)。Functionacc(xAsInteger)AsInteger第二步：編寫(xiě)累加算法Functionacc(xAsInteger)AsIntegersum=0Fori=1Tox

sum=sum+i

NextiEndFunction第三步：編寫(xiě)代碼“過(guò)程名=表達(dá)式”，確定返回值acc=sum形式參數(shù)Function過(guò)程調(diào)用說(shuō)明：調(diào)用Function過(guò)程要返回一個(gè)值，因此可以像內(nèi)部函數(shù)一樣在表達(dá)式中使用。

在按鈕單擊事件中調(diào)用前例中編寫(xiě)的acc過(guò)程。PrivateSubCommand1_Click()DimaAsInteger

a=Val(InputBox(“請(qǐng)輸入累加的數(shù)”))

Printacc(a)EndSub上機(jī)真題【例】捷成36-4在窗體上建立一個(gè)命令按鈕和一個(gè)文本框。程序運(yùn)行后，單擊命令按鈕，即可計(jì)算出1～1000范圍內(nèi)能被5整除或能被7整除的整數(shù)的個(gè)數(shù)，并在文本框中顯示出來(lái)。其中計(jì)算能被5整除或能被7整除的整數(shù)的個(gè)數(shù)的操作在通用過(guò)程Fun中實(shí)現(xiàn)。上機(jī)練習(xí)2-521-5第六講過(guò)程變量作用域1

Function過(guò)程2

參數(shù)傳送4Sub過(guò)程3考點(diǎn)2Sub過(guò)程一、建立Sub過(guò)程[Static][Private|Public]Sub過(guò)程名([參數(shù)表])

語(yǔ)句塊

[ExitSub]

[語(yǔ)句塊]EndSub子程序過(guò)程例建立1個(gè)Sub過(guò)程實(shí)現(xiàn)兩個(gè)數(shù)的交換第一步：確定形式參數(shù)。SubSwap(aAsInteger,bAsInteger)

第二步：編寫(xiě)功能代碼。SubSwap(aAsInteger,bAsInteger)DimtAsIntegert=a:a=b:b=tEndSubSub過(guò)程的調(diào)用由專(zhuān)門(mén)的語(yǔ)句完成Call子過(guò)程名[(實(shí)在參數(shù))]子過(guò)程名[實(shí)在參數(shù)]Sub過(guò)程的調(diào)用Callswap(x,y)swapx,y（2007年9月選擇題第30題）

下面程序的輸出結(jié)果是________。

Private

Sub

Command1_Click()

ch$=”ABCDEF”

proc

ch

Print

ch

End

Sub

Private

Sub

proc(ch

As

String)

s=""

For

k=Len(ch)

To

1

Step-1

s=s&Mid(ch,k,1)

Next

k

ch=s

End

Sub

（A）ABCDEF

（C）A

（D）F（B）FEDCBA上機(jī)教程P103-真題8.1【例】捷成37-5程序運(yùn)行后，如果單擊“讀入數(shù)據(jù)”按鈕，則調(diào)用題目所提供的ReadData1和ReadData2的過(guò)程讀入datain1.txt和datain2.txt文件中的各20個(gè)整數(shù)，分別放入Arr1和Arr2兩個(gè)數(shù)組中；如果單擊“計(jì)算”按鈕，則把兩個(gè)數(shù)組中對(duì)應(yīng)下標(biāo)的元素相減，其結(jié)果放入第三個(gè)數(shù)組中（即：第一個(gè)數(shù)組的第n個(gè)元素減去第二個(gè)數(shù)組的第n個(gè)元素，其結(jié)果作為第三個(gè)數(shù)組的第n個(gè)元素。這里的n為1、2、…、20），最后計(jì)算第三個(gè)數(shù)組各元素之和，把所求得的和在窗體上顯示出來(lái)；并調(diào)用題目中給出的WriteData過(guò)程將所得的和存入考生文件夾下的dataout.txt文件中。類(lèi)似題：19-5第六講過(guò)程變量作用域1

Function過(guò)程2

參數(shù)傳送4Sub過(guò)程3形參：過(guò)程定義時(shí)的參數(shù)實(shí)參：過(guò)程調(diào)用時(shí)的參數(shù)P126-參數(shù)傳送傳地址：①數(shù)組參數(shù)②形參ByRef聲明③形參無(wú)聲明、實(shí)參為變量傳值：①形參ByVal聲明②形參無(wú)聲明、實(shí)參為常量或表達(dá)式PrivateSubCommand1_Click()DimnAsIntegern=100Print"n=";nCallfun(n)Print"n=";nEndSubSubfun(xAsInteger)x=200EndSub100nx(傳地址)200內(nèi)存單元傳地址ByRef傳地址調(diào)用：形參改變，實(shí)參發(fā)生對(duì)應(yīng)變化形參和實(shí)參類(lèi)型必須一致2003年9月筆試真題選擇題23題

設(shè)有如下通用過(guò)程：

PublicFunctionf(xAsInteger)

DimyAsInteger

x=20

y=2

f=x*y

EndFunction

在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：

PrivateSubCommand1_Click()

StaticxAsInteger

x=10

y=5

y=f(x)

Printx;y

EndSub程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是A）105B）205D）1040C）2040PrivateSubCommand1_Click()DimnAsIntegern=100Print"n=";nCallfun(n)Print"n=";nEndSubSubfun(ByValxAsInteger)x=200EndSub傳地址ByValx(傳值)n100100200內(nèi)存單元傳值調(diào)用：形參改變，不影響實(shí)參2004年9月22題改編PrivateSubCommand1_Click()

DimxAsInteger

StaticyAsInteger

x=10

y=5

Printf1(x,y),x,y

EndSub

PrivateFunctionf1(Byvalx1AsInteger,y1AsInteger)

x1=x1+2y1=y1+2f1=x1+y1

EndFunction

程序運(yùn)行后，單擊命令按鈕，在窗體上顯示的內(nèi)容是

19

107

傳值傳地址課堂練習(xí)P133-135：10-16Functionf1()AsBooleanSubf2%()Functionf3(ByVala())Functionf4!(ByVala$,ByRefb%)下列過(guò)程定義合法的是？

對(duì)象參數(shù)5

可選參數(shù)6第六講過(guò)程考點(diǎn)6對(duì)象參數(shù)

對(duì)象作為參數(shù)的格式為：

Sub過(guò)程名（形參表）語(yǔ)句塊［ExitSub］

……

EndSub"形參表"中形參的類(lèi)型通常為Control或Form。注意，在調(diào)用含有對(duì)象的過(guò)程時(shí)，對(duì)象只能通過(guò)傳地址方式傳送。因此在定義過(guò)程時(shí)，不能在其參數(shù)前加關(guān)鍵字ByVal。只能是傳地址形式考點(diǎn)6對(duì)象參數(shù)一、窗體參數(shù)當(dāng)形參表中的形參的類(lèi)型為Form時(shí)，是把窗體作為函數(shù)的參數(shù)，它通常用在對(duì)一批窗體進(jìn)行相同的屬性設(shè)置。二、控件參數(shù)當(dāng)形參表中的形參的類(lèi)型為Control時(shí)，是把控件作為函數(shù)的參數(shù)，它通常用在對(duì)一批控件進(jìn)行相同的屬性設(shè)置。（2004年9月選擇題第21題）設(shè)一個(gè)工程由兩個(gè)窗體組成，其名稱(chēng)分別為Form1和Form2，在Form1上有一個(gè)名稱(chēng)為Command1的命令按鈕。窗體Form1的程序代碼如下：PrivateSubCommand1_Click()

DimaAsInteger

a=10

Callg(Form2,a)EndSubPrivateSubg(fAsForm,xAsInteger)

y=IIf(x>10,100,-100)

f.Show

f.Caption=yEndSub

運(yùn)行以上程序，正確的結(jié)果是______。（A)Form1的Caption屬性值為100（B)Form2的Caption屬性值為-100（C)Form1的Caption屬性值為-100（D）Form2的Caption屬性值為100（2006年4月選擇題第28題）窗體上有名稱(chēng)分別為T(mén)extl、Text2的2個(gè)文本框，要求文本框Textl中輸入的數(shù)據(jù)小于500，文本框Text2中輸入的數(shù)據(jù)小于1000，否則重新輸入。

PrivateSubText1_LostFocus()CallCheckInput(Text1,500)EndSubPrivateSubText2_LostFocus()CallCheckInput(Text2,1000)EndSubSubCheckInput(tAs?,xAsInteger)IfVal(t.Text)>xThenMsgBox”請(qǐng)重新輸入！"EndIfEndSub(A)Text(B)SelText(D)Form(C)Control上機(jī)教程P117-上機(jī)練習(xí)8.7捷成68-4上機(jī)教程P110-真題8.5捷成71-3窗體上有名稱(chēng)為L(zhǎng)abel1、標(biāo)題為“標(biāo)簽”控件的標(biāo)簽；有一個(gè)名稱(chēng)為Command1、標(biāo)題為“命令按鈕”的命令按鈕。單擊上述兩個(gè)控件中任一控件，則在標(biāo)簽Label2中顯示所單擊控件的標(biāo)題內(nèi)容（標(biāo)題內(nèi)容有“單擊”二字），下圖是單擊命令按鈕后的窗體外觀。

可選參數(shù)在參數(shù)名前有Optional關(guān)鍵字聲明P129-5第七講文件

順序文件1

隨機(jī)文件2P194-順序文件

順序文件特點(diǎn)：

文件中的記錄一個(gè)接一個(gè)地存放。

打開(kāi)讀/寫(xiě)關(guān)閉OpenCloseP194-順序文件的打開(kāi)例1：Open"in5.txt"ForInputAs#1例2：OpenApp.Path+"\in5.txt"ForInputAs#1√O(píng)pen文件名[For模式]As[#]文件號(hào)P194-順序文件的打開(kāi)Open文件名[For模式]As[#]文件號(hào)ForOutput：順序文件替換寫(xiě)ForInput：順序文件讀Input方式打開(kāi)，要求被讀取文件必須存在ForAppend：順序文件追加方式寫(xiě)文件號(hào)：1~511，在操作時(shí)用于指代打開(kāi)的文件P195-文件的關(guān)閉文件的關(guān)閉文件的讀寫(xiě)操作結(jié)束后，必須將文件關(guān)閉，這一操作將緩沖區(qū)的內(nèi)容寫(xiě)入文件。語(yǔ)句格式

Close[#]文件號(hào),[#]文件號(hào)……Close關(guān)閉所有已打開(kāi)的文件關(guān)閉指定編號(hào)文件P195-文件的操作語(yǔ)句和函數(shù)重要函數(shù)1．LOF(文件號(hào))

返回文件的長(zhǎng)度（字節(jié)數(shù)）2．EOF(文件號(hào))

如果當(dāng)前文件指針指向文件末尾，則返回True，否則返回False3.Seek#文件號(hào),位置定位文件指針P196-順序文件的寫(xiě)操作

Print#語(yǔ)句Print#文件號(hào),[[Spc(n)|Tab(n)][表達(dá)式表][;|,]]2005年4月選擇題第33題1．在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕和一個(gè)名稱(chēng)為T(mén)ext1的文本框，在文本框中輸入以下字符串：MicrosoftVisualBasicProgramming，然后編寫(xiě)如下事件過(guò)程：PrivateSubCommand1_Click()Open"d:\temp\outf.txt"ForOutputAs#1Fori=1ToLen(Text1.Text)c=Mid(Text1.Text,i,1)Ifc>="A"Andc<="Z"ThenPrint#1,LCase(c)EndIfNextiCloseEndSub程序運(yùn)行后，單擊命令按鈕，文件outf.txt中的內(nèi)容是__。2005年4月選擇題第33題1．在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕和一個(gè)名稱(chēng)為T(mén)ext1的文本框，在文本框中輸入以下字符串：MicrosoftVisualBasicProgramming，然后編寫(xiě)如下事件過(guò)程：PrivateSubCommand1_Click()Open"d:\temp\outf.txt"ForOutputAs#1Fori=1ToLen(Text1.Text)c=Mid(Text1.Text,i,1)Ifc>="A"Andc<="Z"ThenPrint#1,LCase(c)EndIfNextiCloseEndSub程序運(yùn)行后，單擊命令按鈕，文件outf.txt中的內(nèi)容是__。mvbp順序文件的讀操作1．Input#語(yǔ)句格式：Input#文件號(hào)，變量表功能：把讀出的每個(gè)數(shù)據(jù)項(xiàng)分別存放到所對(duì)應(yīng)的變量

Open“out.txt"ForInputAs#1

Input#1,a,b,cClose

Open“out.txt"ForInputAs#1

WhilenotEof(1)Input#1,aWendClose讀出一個(gè)或幾個(gè)記錄讀出所有記錄順序文件的讀操作2．LineInput#語(yǔ)句格式：LineInput#文件號(hào)，字符串變量功能：讀一行到變量中，主要用來(lái)讀取文本文件。

Open“out.txt"ForInputAs#1WhileNotEOF(1)LineInput#1,aWendClose順序文件的讀操作3．Input$函數(shù)格式：Input$（n，#文件號(hào)）功能：從“文件號(hào)”所指