VB二級歷年真題

由關(guān)系R通過運算得到關(guān)系S,則所使用的運算為

2009年3月二級VB語言筆試真題及答案

A)選擇B)投影C)插入D)連接

一、選擇題(每題2分，共計70分)(10)將E-R圖轉(zhuǎn)換為關(guān)系模式時，實體和聯(lián)系都可以表

(1)下列敘述中正確的是示為

A)棧是先進先出的線性表A)屬性B)鍵C)關(guān)系D)域

B)隊列是"先進后出"的線性表(11)執(zhí)行語句DimX,YAsInteger后，

C)循環(huán)隊列是非線性結(jié)構(gòu)A)X和Y均被定義為整型變量

D)有序線性表即可以采用順序存儲結(jié)構(gòu)，也可以采用B)X和丫均被定義為變體類型變量

鏈?zhǔn)酱鎯Y(jié)構(gòu)C)X被定義為整型變量，丫被定義為變體變量

(2)支持子程序調(diào)用的數(shù)據(jù)結(jié)構(gòu)是D)X被定義為變體類型變量，丫被定義為整型變量

A)棧B)樹C)隊列D)二叉樹(12)以下關(guān)系表達式中，其值為True的是

(3)某二叉樹有5個讀為2的結(jié)點，則該二叉樹中的葉A)"XYZ">"XYz"

子結(jié)點數(shù)是B)"VisualBasic"<>"visualbasic"

A)10B)8C)6D)4C)"the"="there"

(4)下列排序方法中，最壞情況下比較次數(shù)最少的是D)"lnteger"<"lnt"

A)冒泡排序B)簡單選擇排(13)執(zhí)行以下程序段

序a$="VisualBasicProgramming"

C)直接插入排序D)堆排序b$="C++"

(5)軟件按功能可以分為:應(yīng)用軟件、系統(tǒng)軟件和支撐軟C$=UCase(Left$(a$,7))&b$&Right$(a$,12)

件(或工具軟件)。下列屬于應(yīng)用軟件的是后，變量C$的值為

A)編譯程序B)操作系統(tǒng)A)VisualBASICProgramming

C)教務(wù)管理系統(tǒng)D)匯編程序B)VISUALC++Programming

(6)下面敘述中錯誤的是C)VisualC++Programming

A)軟件測試的R的是發(fā)現(xiàn)錯誤并改正錯誤D)VISUALBASICProgramming

B)對被調(diào)試程序進行“錯誤定位"是程序調(diào)試的必要步14)下列敘述中正確的是

驟A)MsgBox語句的返回值是一個整數(shù)

C)程序調(diào)試也成為DebugB)執(zhí)行MsgBox語句并出現(xiàn)信息框后，不用關(guān)閉信息

D)軟件測試應(yīng)嚴(yán)格執(zhí)行測試計劃，排除測試的隨意性框即可執(zhí)行其他操作

(7)耦合性和內(nèi)聚性是對模塊獨立性度量的兩個標(biāo)準(zhǔn)。C)MsgBox語句的第個參數(shù)不能省略

卜列敘述中正確的是D)如果省略MsgBox語句的第三個參數(shù)(Title),則信息

A)提高耦合性降低內(nèi)聚性有利于提高模塊的獨、7?性框的標(biāo)題為空

B)降低耦合性提高內(nèi)聚性有利于提高模塊的獨立性15)在窗體上畫一個文本框(名稱為Textl)和?個標(biāo)簽

C)耦合性是指個模塊內(nèi)部各個元素間彼此結(jié)合的(名稱為Label。程序運行后，

緊密程度在文本框中每輸入一個字符，都會立即在標(biāo)簽中

D)內(nèi)聚性是指模塊間互相連接的緊密程度顯示文本框中字符的個數(shù)，以下可以實

(8)數(shù)據(jù)庫應(yīng)用系統(tǒng)中的核心問題是現(xiàn)上述操作的事件過程是

A)數(shù)據(jù)庫設(shè)計B)數(shù)據(jù)庫系統(tǒng)設(shè)計A)PrivateSubText1_Change()

Label1,Caption=str(Len(Text1.Text))

EndSub

B)PrivateSubTextl_Click()

Labell.Caption=str(Len(Text1.Text))

EndSub

C)PrivateSubText1_Change()

Labell.Caption=Text1.Text

EndSub

D)PrivateSubLabel1_Change()

Labell.Caption=str（Len（Text1.Text））Forj=5To1Step-1

EndSubPrinti*j

16）在窗體上畫兩個單選按鈕（名稱分別為Nextj

Option1,Option2,標(biāo)題分別為"宋體"和"黑體"），Nexti

1個復(fù)選框（名稱為Checkl,標(biāo)題為粗體）和1個文則語句Printi*j的執(zhí)行次數(shù)是

本框（名稱為Textl.Text屬性為"改變A)15B)16C)17D)18

文字字體）窗體外觀如圖所示。程序運行后，19)在窗體上畫兩個文本框(名稱分別為Textl和

要求“宋體”單選按鈕和“粗體”復(fù)選框被Text2)和一個命令按鈕(名稱為

選中，則以下能夠?qū)崿F(xiàn)上述操作的語句序列是Commandl),然后編寫如下事件過程：

For>l目回區(qū)|PrivateSubCommand1_Click()

x=0

改變文字字體DoWhilex<50

x=(x+2)*(x+3)

n=n+1

④然體「黑體廠粗體Loop

Textl.Text=Str(n)

A)Option1.Value=FalseText2.Text=Str(x)

Check1.Value=TrueEndSub

B)Option1.Value=True程序運行后，單擊命令按鈕，在兩個文本框中顯示的

Check1.Value=0值分別為

C)Option2.Value=FalseA)1和0B)2和72

Check1.Value=2C)3和50D)4和168

D)Option1.Value=True20)閱讀程序：

Check1.Value=1PrivateSubCommand1_Click()

17)在窗體上畫”個名稱為Commandl的命令按鈕，a=0

然后編寫如卜事件過程：Forj=1To15

PrivateSubCommand1_Click()a=a+jMod3

c=1234Nextj

c1=Trim(Str(c))Printa

Fori=1To4EndSub

Print____程序運行后，單擊窗體，輸出結(jié)果是

NextA)105B)1C)120D)15

EndSub

程序運行后，單擊命令按鈕，要求在窗體上顯示如下內(nèi)21）以下說法中正確的是

容：A）當(dāng)焦點在某個控件上時，按下一個字母鍵，就會執(zhí)

1行該控件的KeyPress事件過程

12B）因為窗體不接受焦點，所以窗體不存在自己的

123KeyPress事件過程

1234C）若按下的鍵相同，KeyPress事件過程中的KeyAscii

則在橫線處應(yīng)填入的內(nèi)容為參數(shù)與KeyDown事件過程中

A)Right(c1,i)的KeyCode參數(shù)的值也相同

B)Left(c1J)D）在KeyPress事件過程中，KeyAscii參數(shù)可以省略

C)Mid(c1,i,1)

D)Mid(c1,i,1)22）語句Dima（-3To4,3To6）AsInteger定義的數(shù)組

18)假定有一下程序段的元素個數(shù)是

Fori=1To3A）18B）28C）21D）32

遞，也能以傳址方式傳遞

23)在窗體上畫一個命令按鈕，其名稱為Commandl,D)如果不指明函數(shù)過程參數(shù)的類型，則該參數(shù)沒有數(shù)

然后編寫如下代碼：據(jù)類型

OptionBase1

PrivateSubCommand1_Click()27)在窗體上畫兩個標(biāo)簽按鈕和?個命令按鈕，其名稱

Dima分別為Labell、Label2和Commandl,

a=Array(1,2,3,4)然后編寫如下程序：

j=1PrivateSubfunc(LAsLabel)

Fori=4To1Step-1L.Caption="1234”

s=s+a(i)*jEndSub

j=j*10

NextiPrivateSubForm_Load()

PrintsLabell.Caption=HABCDE"

EndSubLabel2.Caption=10

程序運行后，單擊命令按鈕，其輸出結(jié)果是EndSub

A)4321B)1234C)34D)12PrivateSubCommand1_Click()

a=Val(Label2.Caption)

24)假定通過復(fù)制，粘貼操作建立了一個命令按鈕數(shù)組Callfunc(Labell)

Commandl,以下說法中錯誤的是Label2.Caption=a

A)數(shù)組中每個命令按鈕的名稱(Name屬性)均為EndSub

Commandl程序運行后，單擊命令按鈕，則在兩個標(biāo)簽中顯示的

B)若未做修改,數(shù)組中每個命令按鈕的大小都一樣內(nèi)容分別為

C)數(shù)組中各個命令按鈕使用同?個Click事件過程A)ABCD和10B)1234和100

D)數(shù)組中每個命令按鈕的Index屬性值都相同C)ABCD和100D)1234和10

25)在窗體上畫一個命令按鈕，名稱為Commandl然28)在窗體上畫一個命令按鈕(名稱為Commandl),

后編寫如下代碼：并編寫如下代碼：

OptionBase0Functionfun1(ByValaAsInteger,bAs

PrivateSubCommand1_Click()Integer)AsInteger

DimA1(4)AsInteger,A2(4)AsDimtAsInteger

Integert=a-b

Fork=0To2b=t+a

A1(k+1)=lnputBox("請輸入一個fun1=t+b

整數(shù)。EndFunction

A2(3-k)=A1(k+1)

NextkPrivateSubCommand1_Click()

PrintA2(k)DimxAsInteger

EndSubx=10

程序運行后，單擊命令按鈕，在輸入對話框中依次輸入Printfun1(fun1(x,(fun1(x,x-1))),x

2、4、6則輸出結(jié)果為-1)

A)0B)1C)2D)3EndSub

程序運行后，單擊命令按鈕，輸出結(jié)果是

(26)以下關(guān)于函數(shù)過程的敘述中，正確的是A)10B)0C)11D)21

A)函數(shù)過程形參的類型與函數(shù)返回值的類型沒有關(guān)系

B)在函數(shù)過程中，過程的返回值可以有多個29.29)以下關(guān)于過程及過程參數(shù)的描述中，錯誤的是

C)當(dāng)數(shù)組作為函數(shù)過程的參數(shù)是，既能以傳值方式傳A)過程的參數(shù)可以是控件名稱

B)調(diào)用過程時使用的實參的個數(shù)應(yīng)與過程形參的個數(shù)Integer)

相同SaveAII=SaveAII+Chr(KeyAscii)

C)只有函數(shù)過程能夠?qū)⑦^程中處理的信息返回到調(diào)EndSub

用程序中程序運行后，直接用鍵盤輸入：VB,再單擊命令按鈕

D)窗體可以作為過程的參數(shù)則文本框中顯示的內(nèi)容為

30)設(shè)有如卜通用過程A)vbVBB)不顯示任何信息

PublicFunctionFun(xStrAsString)AsC)VBD)出錯

String32)設(shè)有以下程序

DimtStrAsString,strLAsIntegerPrivateSubForm_Click()

tStr=""x=50

strL=Len(xStr)Fori=1To4

i=strL/2y=lnputBox(“請輸入一個整數(shù)”)

DoWhilei<=strLy=Val(y)

tStr=tStr&Mid(xStr,i+1,IfyMod5=0Then

1)a=a+y

i=i+1x=y

LoopElse

Fun=tStr&tStra=a+x

EndFunctionEndIf

在窗體上畫一個名稱為Textl的文本框和一個名稱為Nexti

Commandl的命令按鈕。然后編寫如Printa

下事件過程EndSub

PrivateSubCommand1_Click()程序運行后，單擊窗體，在輸入對話框中依次輸入

DimS1AsString15,24,35,46,輸出結(jié)果為

S1="ABCDEF'1A)100B)50C)120D)70

Textl.Text=LCase(Fun(S1))34)以下敘述中錯誤的是

EndSubA)在程序運行時，通用對話框控件是不可見的

程序運行后，單擊命令按鈕，文本框中顯示的是B)調(diào)用同一個通用對話框控件的不同方法(如

A)ABCDEFB)abcdefShowOpen或ShowSave)可以打開不

C)defdefD)defabc同的對話框窗口

31)在窗體上畫?個命令按鈕和?個文本框(名稱分別C)調(diào)用通用對話框控件的ShowOpen方法，能夠直接

為Commandl和Textl)，并把窗體打開在該通用對話框中指定的

的KeyPreview屬性設(shè)置為True,然后編寫如下代文件

碼：D)調(diào)用通用對話框控件的ShowColor方法，可以打開

DimSaveAllAsString顏色對話框窗口

PrivateSubForm_Load()35)設(shè)在工程文件中有一個標(biāo)準(zhǔn)模塊,其中定義了如下

Show記錄類型：

Textl.Text="HTypeBooks

Textl.SetFocusNameAsString*10

EndSubTelNumAsString*20

EndType

PrivateSubCommand1_Click()在窗體上畫一個名為Commandl的命令按鈕，要求

Textl.Text=LCase(SaveAII)+SaveAII當(dāng)執(zhí)行事件過程Command1_Click時，

EndSub在順序文件Person.txt中寫入一條Books類型的記

錄，下列能夠完成該操作的事件過程是

PrivateSubForm_KeyPress(KeyAsciiAsA)PrivateSubCommand1_Click()

DimBAsBooks6)窗體如圖所示，其中汽車是名稱為Imagel的圖像

Open"Person.txtnForOutputAs#1框，命令按鈕的名稱Commandl,

B.Name=lnputBox("輸入姓名”)計時器的名稱為Timeri,直線的名稱為Linel,程

B.Name=Inpu舊ox("輸入電話號碼”)序運行時，單擊命令按鈕，則

Write#1,B.Name,B.TelNum汽車每0.1秒向左移動100,車頭到達左邊的直

Close#1線時停止移動。請?zhí)羁胀瓿上旅?/p>

EndSub的屬性設(shè)置和程序，以便實現(xiàn)上述功能。

B)PrivateSubCommand1_Click()

DimBAsBooks

Open"Person.txt"ForOutputAs#1

B.Name=InputBox。'輸入姓名”)

B.Name=lnputBox("輸入電話號碼”)

Print#1,B.Name,B.TelNum1)Timer1的Interval屬性的值應(yīng)事先設(shè)置為【6】

Close#12)PrivateSubCommand1_Click()

EndSubTimed.Enabled=True

C)PrivateSubCommand1_Click()EndSub

DimBAsBooks3)PrivateSubTimer1_Timer()

Open"Person.txt"ForOutputAs#1IfImagel.Left>[7]Then

B.Name=lnputBox("輸入姓名”)Imagel.Left=[8]-100

B.Name=InputBox。'輸入電話號碼”)EndIf

Write#1,BEndSub

Close#1(7)設(shè)窗體上有一個名稱為Combol的組合框,并有以

EndSub下程序：

D)PrivateSubCommand1_Click()PrivateSubCombol_KeyPress(KeyAsciiAsInteger)

DimBAsBooksIf[9]=13Then

Open"Person.txt"ForOutputAs#1Fork=0ToCombol.ListCount-1

B.Name=Inpu舊ox("輸入姓名”)IfCombol.Text=Combol.List(k)Then

B.Name=InputBox。'輸入電話號碼”)Combol.Text=""

Print#1,Name,TelNumExitFor

Close#1EndIf

EndSubNextk

IfCombol.Text<>""Then

二、填空題(每空2分，共計30分)Combol.AddItem[10]

1.(1)假設(shè)用?個長度為50的數(shù)組(數(shù)組元素的下標(biāo)從EndIf

0到49)作為棧的存儲空間，棧底EndIf

指針bottom指向棧底元素，棧頂指針top指向棧EndSub

頂元素，如果bottom=49,top=30(數(shù)程序的功能是：在組合框的編輯區(qū)中輸入文本后按回

租下標(biāo))，則棧中具有【1】個元素車鍵，則檢查列表中

有無與此文本相同的項目，若有，則把編輯區(qū)中的文

(2)軟件測試可分為白盒測試和黑盒測試?；韭窂綔y本刪除，否則把編輯

試屬于【2】測試區(qū)中的文本添加到列表的尾部。請?zhí)羁铡?/p>

(3)符合結(jié)構(gòu)化原則的三種基本控制結(jié)構(gòu)是:選擇結(jié)構(gòu)、(8)在當(dāng)前目錄下有一個名為"myfile.txt"的文本文件，

循環(huán)結(jié)構(gòu)和【3】其中有若干行文木。下而程序的

4)數(shù)據(jù)庫系統(tǒng)的核心是14】功能是讀入此文件中的所有文本行，按行計算每行字

5)在E-R圖中，圖形包括矩形框、菱形框、橢圓框。符的ASCII碼之和，并顯示在窗體上。

其中表示實體聯(lián)系的是【5】框請?zhí)羁?/p>

PrivateSubCommand1_Click()Mid(ch,n)=c1

Dimch$,asciiAsIntegerNextk

Open"myfile.txt"For[11]As#1mystr=ch

WhileNotEOF(1)EndSub

LineInput#1,ch

2008年9月計算機二級VB語言真題

ascii=toascii([12])

Printascii

Wend一、選擇題(每題2分，共計70分)

Close#1

1.一個棧的初始狀態(tài)為空?，F(xiàn)將元素1、2、3、4、5、

EndSub

A、B、C、D、E依次入棧，然后

PrivateFunctiontoascii(mystr$)AsInteger

再依次出棧，則元素出棧的順序是

n=0

A)12345ABCDE

Fork=1To[13]

B)EDCBA54321

n=n+Asc(Mid(mystr,k,1))

C)ABCDE12345

Nextk

D)54321EDCBA

toascii=n

2.

EndFunction

下列敘述中正確的是

(9)本程序?qū)崿F(xiàn)文本加密。先給定序列:a1,a2,...,an,它

A)循環(huán)隊列有隊頭和隊尾兩個指針，因此，

們的取值范圍是1~n,而且互

循環(huán)隊列是非線性結(jié)構(gòu)

不相同。加密算法是:把原文本中第k個字符放到加密

B)在循環(huán)隊列中，只需要隊頭指針就能反映

后文本的第ak個位置處。若原

隊列中元素的動態(tài)變化情況

文本長度大于n,則只對前面n個字符加密，后面的字

C)在循環(huán)隊列中，只需要隊尾指針就能反映

符不變；若原文本長度小于n,則

隊列中元素的動態(tài)變化情況

在后面補字符"*"使文本長度為n后再加密。

D)循環(huán)隊列中元素的個數(shù)是由隊頭指針和

例如:若給定序列a1,a2,...a7分別為2,5,37,6,1,4

隊尾指針共同決定

當(dāng)文本為“PROGRAM"時，加密后的文本為

3.在長度為n的有序線性表中進行二分查找，最壞情

"APOMRRG"

況下需要比較的次數(shù)是

當(dāng)文本為"THANK"時，加密后的文本為

A)O(n)B)O(n2)C)O(log2n)

"*TA*HKN"

D)O(nlog2n)

卜面的過程code實現(xiàn)這一算法。其中參數(shù)數(shù)組a()中

4.下列敘述中正確的是

存放給定序列(個數(shù)與數(shù)組a的元素

A)順序存儲結(jié)構(gòu)的存儲一定是連續(xù)的，鏈?zhǔn)酱鎯Y(jié)構(gòu)

個數(shù)相等)a1,a2,a3…的值，要加密的文本放在參數(shù)變

的存儲空間不一定是連續(xù)的

量mystr中，過程執(zhí)行完畢，加

B)順序存儲結(jié)構(gòu)只針對線性結(jié)構(gòu)，鏈?zhǔn)酱鎯Y(jié)構(gòu)只針

密后的文本仍然放在變量mystr中。請?zhí)羁铡?/p>

對非線性結(jié)構(gòu)

OptionBase1

C)順序存儲結(jié)構(gòu)能存儲有續(xù)表，鏈?zhǔn)酱鎯Y(jié)構(gòu)不能存

PrivateSubcode(a()AsInteger,mystrAs

儲有序表

String)

D)鏈?zhǔn)酱鎯Y(jié)構(gòu)比順序存儲結(jié)構(gòu)行省存儲空間

DimchAsString,c1AsString

5.數(shù)據(jù)流圖中帶有箭頭的線段表示的是

n=UBound(a)-Len(mystr)

A)控制流B)事件驅(qū)動

Ifn>0Then

C)模塊調(diào)用D)數(shù)據(jù)流

mystr=mystr&String$(n,…)

6.在軟件開發(fā)中，需求分析階段可以使用的同居是

EndIf

A)N-S圖B)DFD圖

ch=mystr

C)PAD圖D)程序流程圖

Fork=[14]ToUBound(a)

7.在面向?qū)ο蠓椒ㄖ?，不屬于“對象”基本特點的是

c1=Mid(mystr,k,1)

A)一致性B)分類性C)多態(tài)性D)

n=[15]

標(biāo)識唯一性

8.一間宿舍可以住多個學(xué)生，則實體宿舍和學(xué)生之間B)Frame1.Caption="框架"

的聯(lián)系是C)Frame1.Text="框架"D)Frame1.Value="

A)一對一B)一對多C)多對一D)框架"

多對多17.以下敘述中錯誤的是

9.在數(shù)據(jù)管理技術(shù)發(fā)展的三個階段中，數(shù)據(jù)共享最好A)在通用過程中，多個形式參數(shù)之間可以用逗號作為

的是分隔符

A)人工管理階段B)文件系統(tǒng)階段B)在Print方法中，多個輸出項之間可以用逗號作為

C)數(shù)據(jù)庫系統(tǒng)階段D)三個階段相同分隔符

10.有三個關(guān)系R、S、和T如下：C)在Dim語句中，所定義的多個變量可以用逗號作為

RST分隔符

D)當(dāng)一行中有多個語句時，可以用逗號作為分隔符

18.設(shè)窗體上有一個列表框控件List),含有若干列表

系R和S通過運算得到關(guān)系T,則所使用的運項。以下能表示當(dāng)前被選中的列表

算為項內(nèi)容的是

A)笛卡爾積B)交C)并A)List1.ListB)List1.Listindex

D)自然連接C)List1.TextD)List1.Index

11.在設(shè)計窗體時雙擊窗體的任何地方，可以打開的窗19.設(shè)a=4,b=5,c=6,擬l行語句Printa<bAndb<c后，

口是窗體上顯示的是

A)代碼窗口B)屬性窗口A)TrueB)FalseC)出錯信息

C)工程資源管理器窗口D)工具箱窗口D)0

12.若變量a未實現(xiàn)定義而直接使用(例如：a=0),20.執(zhí)行下列語句

則變量a的類型是strlnpug=lnputBox("請輸入字符串字符串丟畫框

A)lntegerB)StringC)Boolean字符串)

D)Variant將顯示輸入對話框。如果此時直接點擊"確定"按鈕，

13.把圓周率的近似值3.14159存放在變量pi中，應(yīng)則變量strinput的內(nèi)容是

該把變量pi定義為A)"請輸入字符串"B)"字符串對話

A)DimpiAsIntegerB)Dimpi(7)AsInteger框“

C)DimpiAsSingleD)DimpiAsLongC)"字符串"D)空字符串

14.表達式2*3"2-4*2/2+3"2的值是21.窗體上有Commandl、Command2兩個命令按鈕。

A)30B)31現(xiàn)編寫以下程序：

C)49D)48OptionBase0

15似卜不能輸出"Program"的語句是Dima()AsInteger

A)Printmid("VBProgram"3,7)

B)PrintRight("VBProgram",7)PrivateSubCommand1_Click()

C)PrintMid("VBProgram",3)m=lnputBox("請輸入一個正整數(shù)")

D)PrintLeft("VBProgram",7)ReDima(m)

16.窗體上有一個名稱為Framel的框架(如圖)，若EndSub

要把框架匕顯示的"Framel"改為

漢字“框架”，下面正確的語句是PrivateSubCommand2_Click()

m=InputBox("請輸入一個正整數(shù)")

ReDima(m)

EndSub

運行程序是，單擊Commandl后輸入整數(shù)10,再單

擊Command2后輸入整數(shù)5,則數(shù)組

a中元素的個數(shù)是

A)Frame1.Name="框架A)5B)6C)10D)11

22.在窗體上畫一個命令按鈕和一個標(biāo)簽，其名稱分別X=a*a

為Commandl和Label1,然后編寫Y=b+b

如下的事件過程EndSub

PrivateSubCommand1_Click()程序運行后，單擊命令按鈕，則兩個標(biāo)簽中顯示的內(nèi)

conter=0容分別是

ForI=1To4A)25和3B)5和3C)25和6

ForJ=6To1Step-2D)5和6

conter=conter+126.在窗體上有兩個名稱分別為TextKText2的文本

NextJ框，?個名稱為Commandl的命令

NextI按鈕。運行后的窗體外觀如圖所示。

LabeH.Caption=Str(conter)

EndSub

程序運行后，單擊命令按鈕，標(biāo)簽中顯示的內(nèi)容是

A)11B)12C)16

D)20設(shè)有如下的類型和變量生命

23.在窗體上畫一個名為commandl的命令按鈕，然PrivateTypePerson

后編寫以下程序：nameAsString*8

PrivateSubCommand1_Click()majorAsString*20

DimM(10)AsIntegerEndType

Fork=1To10DimpAsPerson

M(k)=12-k設(shè)文本框中的數(shù)據(jù)已正確地賦值給Person類型的變

Nextk量p,當(dāng)單擊“保存”按鈕時，能夠正確地把變量中的數(shù)

x=8據(jù)寫入隨機文件?Test2.dat中的程序段是

PrintM(2+M(x))A)Open"c:\Test2.dat"ForOutputAs#1

EndSubPut#1,1,p

運行程序，單擊命令按鈕，在窗體上顯示的是Close#1

A)6B)5C)7D)8B)Open"c:\Test2.dat”ForRandomAs#1

24.以卜關(guān)于過程及過程參數(shù)的描述中，錯誤的是Get#1,1,p

A)調(diào)用過程時可以用控件名稱作為實際參數(shù)Close#1

B)用數(shù)組作為過程的參數(shù)是，使用的是'傳地址”方式C)Open"c:\Test2