全國(guó)計(jì)算機(jī)VB等級(jí)考試歷年全真試題(共15套,含答案)-2023修改整理

千里之行，始于足下讓知識(shí)帶有溫度。第第2頁(yè)/共2頁(yè)精品文檔推薦全國(guó)計(jì)算機(jī)VB等級(jí)考試歷年全真試題(共15套,含答案)全國(guó)計(jì)算機(jī)VB等級(jí)考試歷年全真試題

（共15套，含答案）

２００５年4月份二級(jí)VB真題（附參考答案）

（考試時(shí)光90分鐘，滿分100分）

一、挑選題((1)~(35)每小題2分，共70分)

下列各題A)、B)、C)、D)四個(gè)選項(xiàng)中，惟獨(dú)一個(gè)選項(xiàng)是正確的，請(qǐng)將正確選項(xiàng)涂寫在答題卡相應(yīng)位置上，答在試卷上不得分。

(1)數(shù)據(jù)的存儲(chǔ)結(jié)構(gòu)是指

A)存儲(chǔ)在外存中的數(shù)據(jù)B)數(shù)據(jù)所占的存儲(chǔ)空間量

C)數(shù)據(jù)在計(jì)算機(jī)中的挨次存儲(chǔ)方式D)數(shù)據(jù)的規(guī)律結(jié)構(gòu)在計(jì)算機(jī)中的表示

(2)下列關(guān)于棧的描述中錯(cuò)誤的是

A)棧是先進(jìn)后出的線性表B)棧只能挨次存儲(chǔ)

C)棧具有記憶作用D)對(duì)棧的插入與刪除操作中，不需要轉(zhuǎn)變棧底指針

(3)對(duì)于長(zhǎng)度為n的線性表，在最壞狀況下，下列各排序法所對(duì)應(yīng)的比較次數(shù)中正確的是

A)冒泡排序?yàn)閚/2B)冒泡排序?yàn)閚

C)迅速排序?yàn)閚D)迅速排序?yàn)閚(n-1)/2

(4)對(duì)于長(zhǎng)度為n的線性表舉行挨次查找，在最壞狀況下所需要的比較次數(shù)為

A)log2nB)n/2C)nD)n+1

(5)下列對(duì)于線性鏈表的描述中正確的是

A)存儲(chǔ)空間不一定是延續(xù)，且各元素的存儲(chǔ)挨次是隨意的

B)存儲(chǔ)空間不一定是延續(xù)，且前件元素一定存儲(chǔ)在后件元素的前面

C)存儲(chǔ)空間必需延續(xù)，且前件元素一定存儲(chǔ)在后件元素的前面

D)存儲(chǔ)空間必需延續(xù)，且各元素的存儲(chǔ)挨次是隨意的

(6)下列對(duì)于軟件測(cè)試的描述中正確的是

A)軟件測(cè)試的目的是證實(shí)程序是否正確

B)軟件測(cè)試的目的是使程序運(yùn)行結(jié)果正確

C)軟件測(cè)試的目的是盡可能多地發(fā)覺(jué)程序中的錯(cuò)誤

D)軟件測(cè)試的目的是使程序符合結(jié)構(gòu)化原則

(7)為了使模塊盡可能自立，要求

A)模塊的內(nèi)聚程度要盡量高，且各模塊間的耦合程度要盡量強(qiáng)

B)模塊的內(nèi)聚程度要盡量高，且各模塊間的耦合程度要盡量弱

C)模塊的內(nèi)聚程度要盡量低，且各模塊間的耦合程度要盡量弱

D)模塊的內(nèi)聚程度要盡量低，且各模塊間的耦合程度要盡量強(qiáng)

(8)下列描述中正確的是

A)程序就是軟件

B)軟件開發(fā)不受計(jì)算機(jī)系統(tǒng)的限制

C)軟件既是規(guī)律實(shí)體，又是物理實(shí)體

D)軟件是程序、數(shù)據(jù)與相關(guān)文檔的集合

(9)數(shù)據(jù)自立性是數(shù)據(jù)庫(kù)技術(shù)的重要特點(diǎn)之一。所謂數(shù)據(jù)自立性是指

A)數(shù)據(jù)與程序自立存放

B)不同的數(shù)據(jù)被存放在不同的文件中

C)不同的數(shù)據(jù)只能被對(duì)應(yīng)的應(yīng)用程序所使用

D)以上三種說(shuō)法都不對(duì)

(10)用樹形結(jié)構(gòu)表示實(shí)體之間聯(lián)系的模型是

A)關(guān)系模型B)網(wǎng)狀模型C)層次模型D)以上三個(gè)都是

11、在窗體（名稱為Form1）上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫一個(gè)大事過(guò)程。程序運(yùn)行以后，假如在文本框中輸入一個(gè)字符，則把命令按鈕的標(biāo)題設(shè)置為“計(jì)算機(jī)等級(jí)考試”。以下能實(shí)現(xiàn)上述操作的大事過(guò)程是：

A)PrivateSubText1_Change()

Command1.Caption=”計(jì)算機(jī)等級(jí)考試”

EndSub

B)PrivateSubCommand1_Click()

Caption=”計(jì)算機(jī)等級(jí)考試”

EndSub

C)PrivateSubForm1_Click()

Text1.Caption=”計(jì)算機(jī)等級(jí)考試”

EndSub

D)PrivateSubCommand1_Click()

Text1.Text=”計(jì)算機(jī)等級(jí)考試”

EndSub

(12)設(shè)a=5,b=4,c=3,d=2，下列表達(dá)式的值是

3>2*bOra=cAndbcOrc>d

A)1B)TrueC)FalseD)2

(13)設(shè)a=”MicrosoftVisualBasic”,則以下使變量b的值為”VisualBasic”的語(yǔ)句是

A)b=Left(a,10)

B)b=Mid(a,10)

C)b=Right(a,10)

D)b=Mid(a,11,10)

(14)假定有如下的窗體大事過(guò)程：

PrivateSubForm_Click()

a$="MicrosoftVisualBasic"

b$=Right(a$,5)

c=Mid(a$,1,9)

MsgBoxa$,34,b$,c$,5

EndSub

程序運(yùn)行后單擊窗體，則在彈出的信息框中的標(biāo)題欄中顯示的信息是：

A)MicrosoftVisual

B)Microsoft

C)Basic

D)5

(15)設(shè)a=”a”,b=”b”,c=”c”,d=”d”,執(zhí)行語(yǔ)句x=IIF((ad),”A”,”B”)后，x的值為：

A)”a”

B)”b”

C)”B”

D)”A”

(16)為了使命令按鈕(名稱為Command1)右移200，應(yīng)使用的語(yǔ)句是

A)Command1.Move-200

B)Command1.Move200

C)Command1.Left=Command1.Left+200

D)Command1.Left=Command1.Left-200

(17)在窗體上畫一個(gè)文本框，然后編寫如下大事過(guò)程：

PrivateSubForm_Click()

x=InputBox("請(qǐng)輸入一個(gè)整數(shù)")

Printx+Text1.Text

EndSub

程序運(yùn)行時(shí)，在文本框中輸入456，然后單擊窗體，在輸入對(duì)話框中輸入123，單擊“確定”按鈕后，在窗體上顯示的內(nèi)容是：

A)123

B)456

C)579

D)123456

（18）在窗體上畫一個(gè)文本框和一個(gè)計(jì)時(shí)器控件，名稱分離為Text1和Timer1,在屬性窗口中把計(jì)時(shí)器的Interval屬性設(shè)置為1000，Enabled屬性設(shè)置為False,程序運(yùn)行后，假如單擊命令按鈕，則每隔一秒鐘在文本框中顯示一次當(dāng)前的時(shí)光。以下是實(shí)現(xiàn)上述操作的程序：

PrivateSubCommand1_Click()

Timer1._________

EndSub

PrivateSubTimer1_Timer()

Text1.Text=Time

EndSub

在______處應(yīng)填入的內(nèi)容是

A)Enabled=True

B)Enabled=False

C)Visible=True

D)Visible=False

(19)假定在圖片框Picture1中裝入了一個(gè)圖形，為了清除該圖形（不刪除圖片框），應(yīng)采納的正確辦法是：

A)挑選圖片框，然后按Del鍵

B)執(zhí)行語(yǔ)句Picture1.Picture=LoadPicture(“”)

C)執(zhí)行語(yǔ)句Picture1.Picture=””

D)挑選圖片框，在屬性窗口中挑選Picture屬性，然后按回車鍵

（20）在窗體上畫一個(gè)List1的列表框，一個(gè)名稱為L(zhǎng)abel1的標(biāo)簽，列表框中顯示若干個(gè)項(xiàng)目，當(dāng)單擊列表框中的某個(gè)項(xiàng)目時(shí)，在標(biāo)簽中顯示被選中的項(xiàng)目的名稱，下列能正的確現(xiàn)上述操作的程序是

A)PrivateSubList1_Click()

Label1.Caption=List1.ListIndex

EndSub

B)PrivateSubList1_Click()

Label1.Name=List1.ListIndex

EndSub

C)PrivateSubList1_Click()

Label1.Name=List1.Text

EndSub

D)PrivateSubList1_Click()

Label1.Caption=List1.Text

EndSub

（21）在窗體上畫一個(gè)命令按鈕，名稱為Command1，然后編寫如下大事過(guò)程：PrivateSubCommand1_Click()

DimiAsInteger,xAsInteger

Fori=1To6

Ifi=1Thenx=i

Ifi0Anda10Anda20AndacThen

d=d+x(i)

c=x(i)

Else

d=d-c

EndIf

Nexti

Printd

EndSub

程序運(yùn)行后,假如單擊命令按鈕,則在窗體上輸入的內(nèi)容為

A)10

B)16

C)12

D)20

(32)設(shè)有如下程序:

PrivateSubCommand1_Click()

DimcAsInteger,dAsInteger

c=4

d=InputBox("請(qǐng)輸入一個(gè)整數(shù)")

DoWhiled>0

Ifd>cThen

c=c+1

EndIf

;d=InputBox("請(qǐng)輸入一個(gè)整數(shù)")

Loop

Printc+d

EndSub

程序運(yùn)行后,單擊命令按鈕假如在輸入對(duì)話框中依次輸入1、2、3、4、5、6、7、8、

9、0,則輸出結(jié)果是:

A)12

B)11

C)10

D)9

(33)在窗體上畫一個(gè)名稱為Command1的命令按鈕和一個(gè)名稱為Text1的文本框,在文本框中輸入以下字符串:

MicrosoftVisualBasicProgramming

然后編寫如下大事過(guò)程:

PrivateSubCommand1_Click()

Open"d:empoutf.txt"ForOutputAs#1

Fori=1ToLen(Text1.Text)

c=Mid(Text1.Text,i,1)

Ifc>="A"Andc0

Prints

EndSub

以上程序的功能是【10】,程序運(yùn)行后,單擊窗體,輸出結(jié)果為【11】

(10)設(shè)有如下程序:

OptionBase1

PrivateSubCommand1_Click()

Dimarr1

DimMinAsInteger,iAsInteger

arr1=Array(12,435,76,-24,78,54,866,43)

Min=【12】arr1(1)

Fori=2To8

Ifarr1(i)a+c

A）-1B）1C）TrueD）False

（15）設(shè)a=5，b=10，則執(zhí)行c=Int((b-a)*Rnd+a)+1后，c值的范圍為（）。

A）5～10B）6～9C）6～10D）5～9

（16）在窗體上畫一個(gè)命令按鈕，名稱為Command1，然后編寫如下大事過(guò)程：

PrivateSubCommand1_Click()

a$="softwareandhardware"

b$=Right(a$,8)

c$=Mid(a$,1,8)

MsgBoxa$,,b$,c$,1

EndSub

運(yùn)行程序，單擊命令按鈕，則在彈出的信息框的標(biāo)題欄中顯示的是（）。

A）softwareandhardwareB）softwareC）hardwareD）1

（17）在窗體上畫一個(gè)命令按鈕和一個(gè)文本框，其名稱分離為Command1和Text1，把文本框的Text屬性設(shè)置為空白，然后編寫如下大事過(guò)程：

PrivateSubCommand1_Click()

a=InputBox("Enteraninteger")

b=InputBox("Enteraninteger")

Text1.Text=b+a

EndSub

程序運(yùn)行后，單擊命令按鈕，假如在輸入對(duì)話框中分離輸入8和10，則文本框中顯示的內(nèi)容是（）。

A）108B）18C）810D）出錯(cuò)

（18）在窗體上畫兩個(gè)文本框，其名稱分離為Text1和Text2，然后編寫如下程序：

PrivateSubForm_Load()

Show

Text1.Text=""

Text2.Text=""

Text1.SetFocus

EndSub

PrivateSubText1_Change()

Text2.Text=Mid(Text1.Text,8)

EndSub

程序運(yùn)行后，假如在文本框Text1中輸入BeijingChina，則在文本框Text2中顯示的內(nèi)容是（）。

A）BeijingChinaB）ChinaC）BeijingD）BeijingC

（19）在窗體上畫一個(gè)列表框和一個(gè)命令按鈕，其名稱分離為L(zhǎng)ist1和Command1，然后編寫如下大事過(guò)程：PrivateSubForm_Load()

List1.AddItem"Item1"

List1.AddItem"Item2"

List1.AddItem"Item3"

EndSub

PrivateSubCommand1_Click()

List1.List(List1.ListCount)="AAAA"

EndSub

程序運(yùn)行后，單擊命令按鈕，其結(jié)果為（）。

A）把字符串“AAAA”添加到列表框中，但位置不能確定

B）把字符串“AAAA”添加到列表框的最后（即“Item3”的后面）

C）把列表框中原有的最后一項(xiàng)改為“AAAA”

D）把字符串“AAAA”插入到列表框的最前面（即“Item1”的前面）

（20）假定有如下大事過(guò)程：

PrivateSubForm_Click()

DimxAsInteger,nAsInteger

x=1

n=0

DoWhilex0AndiMod3=0Then

sum=sum+i

EndIf

Nexti

Printsum

EndSub

A）12B）30C）24D）18

（23）在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫如下大事過(guò)程：PrivateSubCommand1_Click()

Dimarray1(10,10)AsInteger

DimiAsInteger,jAsInteger

Fori=1To3

Forj=2To4

array1(i,j)=i+j

Nextj

Nexti

Text1.Text=array1(2,3)+array1(3,4)

EndSub

程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是（）。

A）12B）13C）14D）15

（24）在窗體上畫一個(gè)命令按鈕，其名稱為Command1，然后編寫如下大事過(guò)程：

PrivateSubCommand1_Click()

Dima1(4,4),a2(4,4)

Fori=1To4

Forj=1To4

a1(i,j)=i+j

a2(i,j)=a1(i,j)+i+j

Nextj

Nexti

Printa1(3,3);a2(3,3)

EndSub

程序運(yùn)行后，單擊命令按鈕，在窗體上輸出的是（）。

A）66B）105C）721D）612

（25）有如下程序：

OptionBase1

PrivateSubForm_Click()

Dimarr,Sum

Sum=0

arr=Array(1,3,5,7,9,11,13,15,17,19)

Fori=1To10

Ifarr(i)/3=arr(i)\3Then

Sum=Sum+arr(i)

EndIf

Nexti

PrintSum

EndSub

A）25B）26C）27D）28

（26）在窗體上畫一個(gè)命令按鈕，然后編寫如下大事過(guò)程：

PrivateSubCommand1_Click()

Dima(5)AsString

Fori=1To5

a(i)=Chr(Asc("A")+(i-1))

Nexti

ForEachbIna

Printb;

Next

EndSub

程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是（）。

A）ABCDEB）12345

C）abcdeD）出錯(cuò)信息

（27）以下關(guān)于函數(shù)過(guò)程的講述中，正確的是（）。

A）假如不指明函數(shù)過(guò)程參數(shù)的類型，則該參數(shù)沒(méi)有數(shù)據(jù)類型

B）函數(shù)過(guò)程的返回值可以有多個(gè)

C）當(dāng)數(shù)組作為函數(shù)過(guò)程的參數(shù)時(shí)，既能以傳值方式傳遞，也能以引用方式傳遞

D）函數(shù)過(guò)程形參的類型與函數(shù)返回值的類型沒(méi)有關(guān)系

（28）函數(shù)過(guò)程F1的功能是：假如參數(shù)b為奇數(shù)，則返回值為1，否則返回值為0。以下能正的確現(xiàn)上述功能的代碼是（）。

A）FunctionF1(bAsInteger)

IfbMod2=0Then

Return0

Else

Return1

EndIf

EndFunction

B）FunctionF1(bAsInteger)

IfbMod2=0Then

F1=0

Else

F1=1

EndIf

EndFunction

C）FunctionF1(bAsInteger)

IfbMod2=0Then

F1=1

Else

F1=0

EndFunction

D）FunctionF1(bAsInteger)

IfbMod20Then

Return0

Else

Return1

EndIf

EndFunction

（29）以下關(guān)于KeyPress大事過(guò)程中參數(shù)KeyAscii的講述中正確的是（）。

A）KeyAscii參數(shù)是所按鍵的ASCII碼

B）KeyAscii參數(shù)的數(shù)據(jù)類型為字符串

C）KeyAscii參數(shù)可以省略

D）KeyAscii參數(shù)是所按鍵上標(biāo)注的字符

（30）設(shè)窗體上有一個(gè)名為Text1的文本框，并編寫如下程序：

PrivateSubForm_Load()

Show

Text1.Text=""

Text1.SetFocus

EndSub

PrivateSubForm_MouseUp(ButtonAsInteger,_

ShiftAsInteger,XAsSingle,YAsSingle)

Print"程序設(shè)計(jì)"

EndSub

PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)

Print"VisualBasic";

EndSub

程序運(yùn)行后，假如在文本框中輸入字母“a”，然后單擊窗體，則在窗體上顯示的內(nèi)容是

A）VisualBasicB）程序設(shè)計(jì)

C）VisualBasic程序設(shè)計(jì)D）a程序設(shè)計(jì)

（31）假定有下表所列的菜單結(jié)構(gòu)：

━━━━━━━━━━━━━━━━━━━━

標(biāo)題名稱層次

────────────────────

顯示appear1（主菜單）

大圖標(biāo)bigicon2（子菜單）

小圖標(biāo)smallicon2（子菜單）

━━━━━━━━━━━━━━━━━━━━

要求程序運(yùn)行后，假如單擊菜單項(xiàng)“大圖標(biāo)”，則在該菜單項(xiàng)前添加一個(gè)“?”。以下正確的大事過(guò)程是（）。A）PrivateSubbigicon_Click()

bigicon.Checked=False

B）PrivateSubbigicon_Click()

Me.appear.bigicon.Checked=True

EndSub

C）PrivateSubbigicon_Click()

bigicon.Checked=True

EndSub

D）PrivateSubbigicon_Click()

appear.bigicon.Checked=True

EndSub

（32）假定通用對(duì)話框的名稱為CommonDialog1，命令按鈕的名稱為Command1，則單擊命令按鈕后，能使打開的對(duì)話框的標(biāo)題為“NewTitle”的大事過(guò)程是（）。

A）PrivateSubCommand1_Click()

CommonDialog1.DialogTitle="NewTitle"

CommonDialog1.ShowPrinter

EndSub

B）PrivateSubCommand1_Click()

CommonDialog1.DialogTitle="NewTitle"

CommonDialog1.ShowFont

EndSub

C）PrivateSubCommand1_Click()

CommonDialog1.DialogTitle="NewTitle"

CommonDialog1.ShowOpen

EndSub

D）PrivateSubCommand1_Click()

CommonDialog1.DialogTitle="NewTitle"

CommonDialog1.ShowColor

EndSub

（33）假如一個(gè)工程含有多個(gè)窗體及標(biāo)準(zhǔn)模塊，則以下講述中錯(cuò)誤的是（）。

A）任何時(shí)刻最多惟獨(dú)一個(gè)窗體是活動(dòng)窗體

B）不能把標(biāo)準(zhǔn)模塊設(shè)置為啟動(dòng)模塊

C）用Hide辦法只是躲藏一個(gè)窗體，不能從內(nèi)存中清除該窗體

D）假如工程中含有SubMain過(guò)程，則程序一定首先執(zhí)行該過(guò)程

（34）假定在工程文件中有一個(gè)標(biāo)準(zhǔn)模塊，其中定義了如下記錄類型

TypeBooks

NameAsString*10

TelNumAsString*20

EndType

要求當(dāng)執(zhí)行大事過(guò)程Command1_Click時(shí)，在挨次文件Person.txt中寫入一條記錄。下列能夠完成該操作的大事過(guò)程是（）。

A）PrivateSubCommand1_Click()

DimBAsBooks

Open"c:\Person.txt"ForOutputAs#1

B.Name=InputBox("輸入姓名")

B.TelNum=InputBox("輸入電話號(hào)碼")

Write#1,B.Name,B.TelNum

Close#1

EndSub

B）PrivateSubCommand1_Click()

DimBAsBooks

Open"c:\Person.txt"ForInputAs#1

B.Name=InputBox("輸入姓名")

B.TelNum=InputBox("輸入電話號(hào)碼")

Print#1,B.Name,B.TelNum

Close#1

EndSub

C）PrivateSubCommand1_Click()

DimBAsBooks

Open"c:\Person.txt"ForOutputAs#1

Name=InputBox("輸入姓名")

TelNum=InputBox("輸入電話號(hào)碼")

Write#1,B

Close#1

EndSub

D）PrivateSubCommand1_Click()

DimBAsBook

Open"c:\Person.txt"ForInputAs#1

Name=InputBox("輸入姓名")

TelNum=InputBox("輸入電話號(hào)碼")

Print#1,B.Name,B.TelNum

Close#1

EndSub

（35）名目列表框的Path屬性的作用是（）。

A）顯示當(dāng)前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上的某名目下的文件名

B）顯示當(dāng)前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上的名目結(jié)構(gòu)

C）顯示根名目下的文件名

D）顯示指定路徑下的文件

二、填空題（每空2分，共30分）

請(qǐng)將每空的正確答案寫在答題卡【1】～【15】序號(hào)的橫線上，答在試卷上不得分。

（1）數(shù)據(jù)管理技術(shù)進(jìn)展過(guò)程經(jīng)過(guò)人工管理、文件系統(tǒng)和數(shù)據(jù)庫(kù)系統(tǒng)三個(gè)階段，其中數(shù)據(jù)自立性最高的階段是【1】。

（2）算法復(fù)雜度主要包括時(shí)光復(fù)雜度和【2】復(fù)雜度。

（3）在舉行模塊測(cè)試時(shí)，要為每個(gè)被測(cè)試的模塊另外設(shè)計(jì)兩類模塊：驅(qū)動(dòng)模塊和承接模塊（樁模塊）。其中【3】的作用是將測(cè)試數(shù)據(jù)傳送給被測(cè)試的模塊，并顯示被測(cè)試模塊所產(chǎn)生的結(jié)果。

（4）一棵二叉樹第六層（根結(jié)點(diǎn)為第一層）的結(jié)點(diǎn)數(shù)最多為【4】個(gè)。

（5）數(shù)據(jù)結(jié)構(gòu)分為規(guī)律結(jié)構(gòu)和存儲(chǔ)結(jié)構(gòu)，循環(huán)隊(duì)列屬于【5】結(jié)構(gòu)。

（6）設(shè)有以下函數(shù)過(guò)程：

Functionfun(mAsInteger)AsInteger

DimkAsInteger,sumAsInteger

sum=0

Fork=mTo1Step-2

sum=sum+k

Nextk

fun=sum

EndFunction

若在程序中用語(yǔ)句s=fun(10)調(diào)用此函數(shù)，則s的值為【6】。

（7）在窗體上畫一個(gè)命令按鈕和一個(gè)文本框，然后編寫命令按鈕的Click大事過(guò)程。程序運(yùn)行后，在文本框中輸入一串英文字母（不區(qū)別大小寫），單擊命令按鈕，程序可找出未在文本框中輸入的其他全部英文字母，并以大寫方式降序顯示到Text1中。例如，若在Text1中輸入的是abDfdb，則單擊Command1按鈕后Text1中顯示的字符串是ZYXWVUTSRQPONMLKJIHGEC。請(qǐng)?zhí)羁铡?/p>

PrivateSubCommand1_Click()

DimstrAsString,sAsString,cAsString

str=UCase(Text1)

s=""

c="Z"

Whilec>="A"

IfInStr(str,c)=0Then

s=【7】

EndIf

c=Chr$(Asc(c)【8】)

Wend

Ifs""Then

Text1=s

EndIf

EndSub

（8）在n個(gè)運(yùn)動(dòng)員中選出隨意r個(gè)人參與競(jìng)賽，有無(wú)數(shù)種不同的選法，選法的個(gè)數(shù)可以用公式計(jì)算。下圖窗體中3個(gè)文本框的名稱依次是Text1、Text2、Text3。程序運(yùn)行時(shí)在Text1、Text2中分離輸入n和r的值，單擊Command1按鈕即可求出選法的個(gè)數(shù)，并顯示在Text3文本框中(見下圖)。請(qǐng)?zhí)羁?/p>

PrivateSubCommand1_Click()

DimrAsInteger,nAsInteger

n=Text1

r=Text2

Text3=fun(n)/fun(【9】)/fun(r)

EndSub

Functionfun(nAsInteger)aslong

DimtAsLong

【10】

Fork=1Ton

t=t*k

Next

fun=t

EndFunction

（9）以下是一個(gè)競(jìng)賽評(píng)分程序。在窗體上建立一個(gè)名為Text1的文本框數(shù)組，然后畫一個(gè)名為Text2的文本框和名為Command1的命令按鈕。運(yùn)行時(shí)在文本框數(shù)組中輸入7個(gè)分?jǐn)?shù)，單擊“計(jì)算得分”命令按鈕，則最后得分顯示在Text2文本框中（去掉一個(gè)最高分和一個(gè)最低分后的平均分即為最后得分），如圖所示。請(qǐng)?zhí)羁铡?/p>

PrivateSubCommand1_Click()

DimkAsInteger

DimsumAsSingle,maxAsSingle,minAsSingle

sum=Text1(0)

max=Text1(0)

min=【11】

Fork=【12】To6

IfmaxText1(k)Then

min=Text1(k)

EndIf

sum=sum+Text1(k)

Nextk

Text2=(【13】)/5

EndSub

（10）如圖所示，在列表框List1中已經(jīng)有若干人的容易信息，運(yùn)行時(shí)在Text1文本框（即“查找對(duì)象”右邊的文本框）輸入一個(gè)姓或姓名，單擊“查找”按鈕，則在列表框中舉行查找，若找到，則把該人的信息顯示在Text2文本框中。若有多個(gè)匹配的列表項(xiàng)，則只顯示第1個(gè)匹配項(xiàng)；若未找到，則在Text2中顯示“查無(wú)此人”。請(qǐng)?zhí)羁铡?/p>

PrivateSubCommand1_Click()

DimkAsInteger,nAsInteger,foundAsBoolean

found=False

n=Len(【14】)

k=0

Whilekb+1Orc=10，Is90ThenExitFor

Next

EndSub

對(duì)于該大事過(guò)程，以下講述中錯(cuò)誤的是。

A)a數(shù)組中的數(shù)據(jù)是30個(gè)100以內(nèi)的整數(shù)

B)語(yǔ)句ForEacharrItemIna有語(yǔ)法錯(cuò)誤

C)IfarrItemMod7=0……語(yǔ)句的功能是輸出數(shù)組中能夠被7整除的數(shù)

D)IfarrItem>90……語(yǔ)句的作用是當(dāng)數(shù)組元素的值大于90時(shí)退出For循環(huán)2022年4月筆試試卷第3頁(yè)(共12頁(yè))2022年4月筆試試卷第4頁(yè)(共12頁(yè))(22)設(shè)有命令按鈕Command1的單擊大事過(guò)程，代碼如下：

PrivateSubCommand1_Click()

Dima(3，3)AsInteger

Fori=1To3

Forj=1To3

a(i，j)=i*j+i

Nextj

Nexti

Sum=0

Fori=1To3

Sum=Sum+a(i，4-i)

Nexti

PrintSum

EndSub

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

A)20B)7

C)16D)17

(23)在窗體上畫1個(gè)名稱為Command1的命令按鈕，然后編寫如下大事過(guò)程：PrivateSubCommand1_Click()

a=0

Fori=1To2

Forj=1To4

IfjMod20Then

a=a-1

EndIf

a=a+1

Nextj

Nexti

Printa

EndSub

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

A)0B)2

C)3D)4

(24)窗體上有名稱分別為Text1、Text2的2個(gè)文本框，有一個(gè)由3個(gè)單選按鈕構(gòu)成的控件數(shù)組Option1，如圖1所示。程序運(yùn)行后，如果單擊某個(gè)單選按鈕，則執(zhí)行Text1中的數(shù)值與該單選按鈕所對(duì)應(yīng)的運(yùn)算(乘以1、10或100)，并將結(jié)果顯示在Text2中，如圖2所示。為了實(shí)現(xiàn)上述功能，在程序中的問(wèn)號(hào)(?)處應(yīng)填入的內(nèi)容是。

圖1圖2PrivateSubOption1_Click(IndexAsInteger)

IfText1.Text""Then

SelectCase?

Case0

Text2.Text=Val(Text1.Text)

Case1

Text2.Text=Val(Text1.Text)*10

Case2

Text2.Text=Val(Text1.Text)*100

EndSelect

EndIf

EndSub

A)IndexB)Option1.Index

C)Option1(Index)D)Option1(Index).Value

(25)在窗體上畫1個(gè)命令按鈕，其名稱為Command1，然后編寫如下程序：PrivateSubCommand1_Click()

Dima(10)AsInteger

DimxAsInteger

Fori=1To10

a(i)=8+i

Next

x=2

Printa(f(x)+x)

EndSub

Functionf(xAsInteger)

x=x+3

f=x

EndFunction

程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為。

A)12B)15

C)17D)18

2022年4月筆試試卷第5頁(yè)(共12頁(yè))2022年4月筆試試卷第6頁(yè)(共12頁(yè))(26)以下關(guān)于過(guò)程的講述中，錯(cuò)誤的是。

A)大事過(guò)程是由某個(gè)大事觸發(fā)而執(zhí)行的過(guò)程

B)函數(shù)過(guò)程的返回值可以有多個(gè)

C)可以在大事過(guò)程中調(diào)用通用過(guò)程

D)不能在大事過(guò)程中定義函數(shù)過(guò)程

(27)在窗體上畫3個(gè)標(biāo)簽、3個(gè)文本框(名稱分離為Text1、Text2和Text3)和1個(gè)命令按鈕(名稱為Command1)，外觀如圖所示。

編寫如下程序：

PrivateSubForm_Load()

Text1.Text=""

Text2.Text=""

Text3.Text=""

EndSub

PrivateSubCommand1_Click()

x=Val(Text1.Text)

y=Val(Text2.Text)

Text3.Text=f(x，y)

EndSub

Functionf(ByValxAsInteger,ByValyAsInteger)

DoWhiley0

tmp=xMody

x=y

y=tmp

Loop

f=x

EndFunction

運(yùn)行程序，在Text1文本框中輸入36，在Text2文本框中輸入24，然后單擊命令按鈕，則在Text3文本框中顯示的內(nèi)容是。

A)4B)6

C)8D)12

(28)窗體上有名稱分別為Text1、Text2的2個(gè)文本框，要求文本框Text1中輸入的數(shù)據(jù)小于500，文本框Text2中輸入的數(shù)據(jù)小于1000，否則重新輸入。為了實(shí)現(xiàn)上述功能，在以下程序中問(wèn)號(hào)(?)處應(yīng)填入的內(nèi)容是。

PrivateSubText1_LostFocus()

CallCheckInput(Text1，500)

EndSub

PrivateSubText2_LostFocus()

CallCheckInput(Text2，1000)

EndSub

SubCheckInput(tAs?，xAsInteger)

IfVal(t.Text)>xThen

MsgBox"請(qǐng)重新輸入!"

EndSub

A)TextB)SelText

C)ControlD)Form

(29)在窗體上畫1個(gè)文本框，其名稱為Text1，然后編寫如下過(guò)程：

PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)

PrintChr(KeyCode)

EndSub

PrivateSubText1_KeyUp(KeyCodeAsInteger，ShiftAsInteger)

PrintChr(KeyCode+2)

EndSub

程序運(yùn)行后，把焦點(diǎn)移到文本框中，此時(shí)假如敲擊“A”鍵，則輸出結(jié)果為。

A)A

AB)A

BC)A

CD)A

D

(30)為了使列表框中的項(xiàng)目呈多列顯示，需要設(shè)置的屬性為。

A)ColumnsB)Style

C)ListD)MultiSelect

(31)在窗體上畫1個(gè)命令按鈕，名稱為Command1，然后編寫如下程序：

DimFlagAsBoolean

PrivateSubCommand1_Click()

DimintNumAsInteger

intNum=InputBox("請(qǐng)輸入：")

IfFlagThen

Printf(intNum)

EndIf

EndSub

Functionf(XAsInteger)AsInteger

IfX<10Then

Y=X

Else

Y=X+10

EndIf

f=Y

EndFunction

PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAs

Flag=True

EndSub

運(yùn)行程序，首先單擊窗體，然后單擊命令按鈕，在輸入對(duì)話框中輸入5，則程序的輸出結(jié)果為。

A)0B)5

C)15D)無(wú)任何輸出

(32)在菜單編輯器中建立1個(gè)名稱為Menu0的菜單項(xiàng)，將其“可見”屬性設(shè)置為False，并建立其若干子菜單，然后編寫如下過(guò)程：

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

IfButton=1Then

PopupMenuMenu0

EndIf

EndSub

則以下講述中錯(cuò)誤的是。

A)該過(guò)程的作用是彈出一個(gè)菜單

B)單擊鼠標(biāo)右鍵時(shí)彈出菜單

C)Menu0是在菜單編輯器中定義的彈出菜單的名稱

D)參數(shù)X、Y指明鼠標(biāo)當(dāng)前位置的坐標(biāo)

(33)窗體上有1個(gè)名稱為CD1的通用對(duì)話框，1個(gè)名稱為Command1的命令按鈕。命令按鈕的單擊大事過(guò)程如下：

PrivateSubCommand1_Click()

CD1.FileName=""

CD1.Filter="AllFiles|*.*|(*.DoC)|*.Doc|(*.Txt)|*.txt"

CD1.FilterIndex=2

CD1.Action=1

EndSub

關(guān)于以上代碼，錯(cuò)誤的講述是。

A)執(zhí)行以上大事過(guò)程，通用對(duì)話框被設(shè)置為“打開”文件對(duì)話框

B)通用對(duì)話框的初始路徑為當(dāng)前路徑

C)通用對(duì)話框的默認(rèn)文件類型為*.Txt

D)以上代碼不對(duì)文件執(zhí)行讀寫操作

(34)以下講述中錯(cuò)誤的是。

A)用Shell函數(shù)可以執(zhí)行擴(kuò)展名為.exe的應(yīng)用程序

B)若用Static定義通用過(guò)程，則該過(guò)程中的局部變量都被默認(rèn)為Static類型

C)Static類型的變量可以在標(biāo)準(zhǔn)模塊的聲明部分定義

D)全局變量必需在標(biāo)準(zhǔn)模塊中用Public或Global聲明

(35)以下關(guān)于文件的講述中，錯(cuò)誤的是。

A)使用Append方式打開文件時(shí)，文件指針被定位于文件尾

B)當(dāng)以輸入方式(Input)打開文件時(shí)，假如文件不存在，則建立一個(gè)新文件

C)挨次文件各記錄的長(zhǎng)度可以不同

D)隨機(jī)文件打開后，既可以舉行讀操作，也可以舉行寫操作

二、填空題(每空2分，共30分)

請(qǐng)將每空的正確答案寫在答題卡【1】～【15】序號(hào)的橫線上，答在試卷上不得分。

(1)對(duì)長(zhǎng)度為10的線性表舉行冒泡排序，最壞狀況下需要比較的次數(shù)為【1】。

(2)在面對(duì)對(duì)象辦法中，【2】描述的是具有相像屬性與操作的一組對(duì)象。

(3)在關(guān)系模型中，把數(shù)據(jù)看成是二維表，每一個(gè)二維表稱為一個(gè)【3】。

(4)程序測(cè)試分為靜態(tài)分析和動(dòng)態(tài)測(cè)試。其中【4】是指不執(zhí)行程序，而只是對(duì)程序文本舉行檢查，通過(guò)閱讀和研究，分析和發(fā)覺(jué)程序中的錯(cuò)誤。

(5)數(shù)據(jù)自立性分為規(guī)律自立性與物理自立性。當(dāng)數(shù)據(jù)的存儲(chǔ)結(jié)構(gòu)轉(zhuǎn)變時(shí)，其邏

輯結(jié)構(gòu)可以不變，因此，基于規(guī)律結(jié)構(gòu)的應(yīng)用程序不必修改，稱為【5】。(6)下列語(yǔ)句的輸出結(jié)果是【6】。

PrintFormat(Int(12345.6789*100+0.5)／100，"0000，0.00")

(7)在窗體上畫1個(gè)命令按鈕，其名稱為Command1，然后編寫如下大事過(guò)程：PrivateSubCommand1_Click()

Dimarr(1To100）AsInteger

Fori=1To100

arr(i)=Int(Rnd*1000)

Nexti

Max=arr(1)

Min=arr（1）

Fori=1To100

If【7】Then

Max=arr(i)

EndIf

If【8】Then

Min=arr(i)

EndIf

Nexti

Print"Max="；Max，"Min="；Min

EndSub

程序運(yùn)行后，單擊命令按鈕，將產(chǎn)生100個(gè)1000以內(nèi)的隨機(jī)整數(shù)，放入數(shù)組arr中，然后查找并輸出這100個(gè)數(shù)中的最大值Max和最小值Min，請(qǐng)?zhí)羁铡?022年4月筆試試卷第9頁(yè)(共12頁(yè))2022年4月筆試試卷第10頁(yè)(共12頁(yè))(8)在窗體上畫1個(gè)名稱為Command1的命令按鈕和2個(gè)名稱分離為Text1、Text2的文本框，如圖所示，然后編寫如下程序：

FunctionFun(xAsInteger,ByValyAsInteger)AsInteger

x=x+y

Ifx<0Then

Fun=x

Else

Fun=y

EndIf

EndFunction

PrivateSubCommand1_Click()

DimaAsInteger,bAsInteger

a=-10：b=5

Text1.Text=Fun(a，b)

Text2.Text=Fun(a，b)

EndSub

程序運(yùn)行后，單擊命令按鈕，Text1和Text2文本框顯示的內(nèi)容分離是【9】和【10】。

(9)在窗體上畫1個(gè)命令按鈕和1個(gè)文本框，其名稱分離為Command1和Text1，然后編

寫如下代碼：

DimSaveAllAsString

PrivateSubCommand1_Click()

Text1.Text=Left(UCase(SaveAll)，4)

EndSub

PrivateSubText1_KeyPress(KeyAsciiAsInteger)

SaveAll=SaveAll+Chr(KeyAscii)

EndSub

程序運(yùn)行后，在文本框中輸入abcdefg，單擊命令按鈕，則文本框中顯示的內(nèi)容是【11】。

2022年4月筆試試卷第11頁(yè)(共12頁(yè))2022年4月筆試試卷第12頁(yè)(共12頁(yè))(10)在窗體上畫1個(gè)命令按鈕和1個(gè)通用對(duì)話框，其名稱分離為Command1和CommonDialog1，然后編寫如下大事過(guò)程：

PrivateSubCommand1_Click()

CommonDialog1.【12】="打開文件"

CommonDialog1.Filter="AllFiles(*.*)|*.*"

CommonDialog1.InitDir="C：＼"

CommonDialog1.ShowOpen

EndSub

該程序的功能是，程序運(yùn)行后，單擊命令按鈕，將顯示“打開”文件對(duì)話框，其標(biāo)題是“打開文件”，在“文件類型”欄內(nèi)顯示“AIlFiles(*.*)”，并顯示C盤根名目下

的全部文件，請(qǐng)?zhí)羁铡?/p>

(11)在窗體上畫1個(gè)文本框，名稱為Text1，然后編寫如下程序：

PrivateSubForm_Load()

Open"d：＼temp＼dat.txt"ForOutputAs#1

Text1.Text=""

EndSub

PrivateSubText1_KeyPress(KeyAsciiAsInteger)

lf【13】=13Then

IfUCase(Text1.Text)=【14】Then

Close1

End

Else

Write#1，【15】

Text1.Text=""

EndIf

EndIf

EndSub

以上程序的功能是，在D盤temp名目下建立1個(gè)名為dat.txt的文件，在文本框中輸入字符，每次按回車鍵(回車符的ASCII碼是13)都把當(dāng)前文本框中的內(nèi)容寫入文件dat.txt，并清除文本框中的內(nèi)容；假如輸入“END”，則結(jié)束程序。請(qǐng)?zhí)羁铡?022年4月筆試試卷參考答案及詳解第1頁(yè)(共4頁(yè))2022年4月筆試試卷參考答案及詳解第2頁(yè)(共4頁(yè))2022年4月筆試試卷參考答案及詳解

一、挑選題

（1）【答案】D）

【解析】結(jié)構(gòu)化程序設(shè)計(jì)辦法的主要原則是：自頂向下、逐步求精、模塊化及限制使用goto語(yǔ)句?？蓮?fù)用性是指軟件元素不加修改和稍加修改可在不同的軟件開發(fā)過(guò)程中重復(fù)使用的性質(zhì)。軟件可復(fù)用性是軟件工程追求的目標(biāo)之一，是提高軟件生產(chǎn)效率的最主要辦法。面對(duì)對(duì)象的程序設(shè)計(jì)具有可復(fù)用性的優(yōu)點(diǎn)。（2）【答案】A）

【解析】模塊的自立程度可以由兩個(gè)定性標(biāo)準(zhǔn)度量：內(nèi)聚性和耦合性。耦合性衡量不同模塊彼此間相互依靠(銜接)的緊密程度；內(nèi)聚性衡量一個(gè)模塊內(nèi)部各個(gè)元素彼此結(jié)合的緊密程度。普通來(lái)說(shuō)，要求模塊之間的耦合盡可能地弱，而模塊的內(nèi)聚程度要盡可能地高。

（3）【答案】D）

【解析】由于測(cè)試的目的在于發(fā)覺(jué)錯(cuò)誤，由程序的編寫者自己舉行測(cè)試是不合適的，為了達(dá)到好的測(cè)試效果，應(yīng)當(dāng)由自立的第三方舉行測(cè)試工作，所以選項(xiàng)A）錯(cuò)誤；程序調(diào)試，修改一個(gè)錯(cuò)誤的同時(shí)可能引入了新的錯(cuò)誤，解決的方法是在修改了錯(cuò)誤之后，必需舉行回歸測(cè)試，所以選項(xiàng)B）錯(cuò)誤；所謂軟件維護(hù)，就是在軟件已經(jīng)交付使用之后，為了改正錯(cuò)誤或滿足新的需要而修改軟件的過(guò)程，可見選項(xiàng)C）也是錯(cuò)誤的。

（4）【答案】B）

【解析】棧的特點(diǎn)是棧頂元素總是最后被插入的元素，也是最早被刪除的元素；棧底元素總是最早被插入的元素，也是最晚才干被刪除的元素，即棧的修改原則是“后進(jìn)先出”(LastInFirstOut，簡(jiǎn)稱LIFO)或“先進(jìn)后出”(FirstInLast

Out，簡(jiǎn)稱FILO)。

（5）【答案】A）

【解析】所謂線性鏈表，就是指線性表的鏈?zhǔn)酱鎯?chǔ)結(jié)構(gòu)，簡(jiǎn)稱鏈表。線性表鏈?zhǔn)酱鎯?chǔ)結(jié)構(gòu)的基本單位稱為存儲(chǔ)結(jié)點(diǎn)，每個(gè)存儲(chǔ)結(jié)點(diǎn)包括數(shù)據(jù)域和指針域兩個(gè)組成部分。棧、隊(duì)列和雙向鏈表是線性結(jié)構(gòu)，二叉樹是非線性結(jié)構(gòu)。線性結(jié)構(gòu)和非線性結(jié)構(gòu)是從數(shù)據(jù)的規(guī)律結(jié)構(gòu)角度來(lái)講的，與該數(shù)據(jù)結(jié)構(gòu)中有多少個(gè)元素沒(méi)有關(guān)系，即使是空的二叉樹也是非線性結(jié)構(gòu)。

（6）【答案】D）

【解析】后序遍歷可以描述為：若二叉樹為空，則空操作；否則：

①后序遍歷左子樹；

②后序遍歷右子樹；

③拜訪根結(jié)點(diǎn)。

對(duì)于后序遍歷，第一個(gè)拜訪的結(jié)點(diǎn)一定是最左下的結(jié)點(diǎn)，最后一個(gè)拜訪的結(jié)點(diǎn)一定是根結(jié)點(diǎn)，假如知道這個(gè)小技巧，可以快速確定本題的答案為選項(xiàng)D）。（7）【答案】C）

【解析】滿二叉樹是指除最后一層外，每一層上的全部結(jié)點(diǎn)都有兩個(gè)子結(jié)點(diǎn)的二叉樹。滿二叉樹在其第i層上有2i-1個(gè)結(jié)點(diǎn)，即每一層上的結(jié)點(diǎn)數(shù)都是最大結(jié)點(diǎn)數(shù)。對(duì)于深度為7的滿二叉樹，葉子結(jié)點(diǎn)所在的是第7層，一共有27-1＝64個(gè)葉子結(jié)點(diǎn)。

（8）【答案】D）

【解析】?jī)蓚€(gè)實(shí)體集之間的聯(lián)系實(shí)際上是實(shí)體集間的函數(shù)關(guān)系，主要有3種：一對(duì)一的聯(lián)系、一對(duì)多的聯(lián)系、多對(duì)多的聯(lián)系?！吧唐贰迸c“顧客”兩個(gè)實(shí)體集之間

的聯(lián)系普通是多對(duì)多，由于一種“商品”可以被多個(gè)“顧客”購(gòu)買，而一個(gè)“顧客”也可以購(gòu)買多個(gè)“商品”。

（9）【答案】A）

【解析】在ER圖中,用矩形表示實(shí)體集，用橢圓形表示屬性，用菱形(內(nèi)部寫上聯(lián)系名)表示聯(lián)系。

（10）【答案】C）

【解析】DB即數(shù)據(jù)庫(kù)（DataBase），是統(tǒng)一管理的相關(guān)數(shù)據(jù)的集合；DBMS即數(shù)據(jù)庫(kù)管理系統(tǒng)（DataBaseManagementSystem），是位于用戶與操作系統(tǒng)之間的一層數(shù)據(jù)管理軟件，為用戶或應(yīng)用程序提供拜訪DB的辦法；DBS即數(shù)據(jù)庫(kù)系統(tǒng)（DatabaseSystem）由如下5部分組成：數(shù)據(jù)庫(kù)（數(shù)據(jù)）、數(shù)據(jù)庫(kù)管理系統(tǒng)（軟件）、數(shù)據(jù)庫(kù)管理員（人員）、系統(tǒng)平臺(tái)之一——硬件平臺(tái)（硬件）、系統(tǒng)平臺(tái)之二——軟件平臺(tái)（軟件）。

（11）【答案】D）

【解析】VisualBasic是在BASIC和QuickBASIC語(yǔ)言中進(jìn)展起來(lái)的，因此具有高級(jí)程序設(shè)計(jì)語(yǔ)言的語(yǔ)句結(jié)構(gòu)，VisualBasic是結(jié)構(gòu)化程序。

（12）【答案】C）

【解析】標(biāo)準(zhǔn)模塊也稱全局模塊或總模塊，由全局變量聲明、模塊層聲明及通用過(guò)程等幾部分組成，因此標(biāo)準(zhǔn)模塊不能屬于某個(gè)特定的窗體文件。

（13）【答案】B）

【解析】大部分屬性既可以通過(guò)屬性窗口設(shè)置，也可以通過(guò)程序代碼來(lái)舉行設(shè)置，而有些屬性只能使用程序代碼或者屬性窗口設(shè)置。如Name屬性只能通過(guò)屬性窗口來(lái)舉行設(shè)置。

（14）【答案】A）

【解析】在一個(gè)Dim語(yǔ)句中定義多個(gè)變量時(shí)，每個(gè)變量都要用As子句聲明其類型，否則該變量被看作是變體類型，在該語(yǔ)句中，a即被定義為變體類型。（15）【答案】B）

【解析】通過(guò)字符串函數(shù)Mid即可以實(shí)現(xiàn)字符串“Basic”的提取，提取過(guò)程如下：c=“VisualBasic”:printMid(c,7,5)。

（16）【答案】D）

【解析】運(yùn)算符的優(yōu)先挨次是：算術(shù)運(yùn)算符＞關(guān)系運(yùn)算符＞規(guī)律運(yùn)算符

算術(shù)運(yùn)算符的優(yōu)先挨次是：^＞-＞(*與/)＞\＞Mod＞(+與-)。

關(guān)系運(yùn)算符的優(yōu)先挨次是：=＞（＜＞或＞＜）＞（＞）＞（＞=）＞（＜=）＞（＜）＞Is＞Like

規(guī)律運(yùn)算符的優(yōu)先挨次是：非（Not）＞與（And）＞或(Or)＞異或（Xor）＞等價(jià)（Epv）＞蘊(yùn)涵（Imp）。

按照運(yùn)算符的優(yōu)先級(jí)計(jì)算本題中的表達(dá)式最后結(jié)果為0。

（17）【答案】B）

【解析】在VisualBasic中，變量名只能由字母、數(shù)字和下劃線組成，而且第一個(gè)字符必需是英文字母，而最后一個(gè)字符可以是類型說(shuō)明符。由此得知counstA可以作為變量名。

（18）【答案】A）

【解析】Print辦法沒(méi)有賦值功能，因此A選項(xiàng)不能在窗體上顯示“A=10”，該選項(xiàng)的結(jié)果為False。

（19）【答