VB筆試模擬試卷245

一、公共基礎選擇題（本題共70題，每題7.0分，共

10分。）

1、設有關鍵碼序列（66,13,51,76,81,26,57,69,23）,要按關鍵碼值遞增的

次序排序，若采用快速排序法，并以第一個元素為劃分的基準，那么第一趟劃分后

的結(jié)果為（）。

A、23,13,51,57,66,26,81,69,76

B、13,23,26,51,57,66,81,76,69

C、23,13,51,57,26,66,81,69,76

D、23,13,51,57,81,26,66,69,76

標準答案：A

知識點解析：快速排序是起泡排序的改進。在快速排序中，任取一個記錄，以它為

基準用交換的方法將所有的記錄分成兩部分，關鍵碼值比它小的在一部分，關鍵碼

值比它大的在另一部分，再分別對兩個部分實施上述過程，一直重復到排序完成。

2、下列敘述中正確的是

A、程序執(zhí)行的效率與數(shù)據(jù)的存儲結(jié)構(gòu)密切相關

B、程序執(zhí)行的效率只取決于程序的控制結(jié)構(gòu)

C、程序執(zhí)行的效率只取決于所處理的數(shù)據(jù)量

D、以上3種說法都不對

標準答案：A

知識點解析：程序執(zhí)行的效率與很多因素有關，如數(shù)據(jù)的存儲結(jié)構(gòu)、程序所處理的

數(shù)據(jù)量、程序所采用的算法等。順序存儲結(jié)構(gòu)在數(shù)據(jù)插入和刪除操作上的效率比鏈

式存儲結(jié)構(gòu)的效率低。

3、下面敘述正確的是（）。

A、Spc函數(shù)既能用于Print方法中，也能用于表達式

Space函數(shù)既能用于Print方法中，也能用于表達式

C、Spc函數(shù)與Space函數(shù)均生成空格，沒有區(qū)別

D、以上說法均不對

標準憑索.R

知識點露析：暫無解析

4、在設計程序時，應采納的原則之一是

A、程序結(jié)構(gòu)應有助于讀者理解

B、不限制got。語句的使用

C、減少或取消注解行

D、程序越短越好

標準答案：A

知識點解析：濫用goio語句將使程序流程無規(guī)律，可讀性差；添加的注解行有利

于對程序的理解，不應減少或取消：程序的長短要依照實際需耍而定，并不是越短

越好。

5、將E?R圖轉(zhuǎn)換到關系模式時，實體與實體間的聯(lián)系可以表示成（）。

A、屬性

B、關系

C、鍵

D、域

標準答案：B

知識點解析：將E-R圖轉(zhuǎn)換成指定RDBMS中的關系模式是數(shù)據(jù)庫邏輯設計的主

要工作。從E-R圖到關系模式的轉(zhuǎn)換是比較直接的，實體和聯(lián)系都可以表示成關

系。

6、最簡單的交換排序方法是______o

A、快速排序

B、選擇排序

C、堆排序

D、冒泡排序

標準答案：D

知識點解析：交換排序方法有冒泡排序和快速排序，顯然選項B和選項C錯誤，

冒泡排序比較簡單，其算法也容易理解，但快速排序本身較為復雜，且采用了遞歸

調(diào)用，其算法理解也稍難。冒泡排序是一種最簡單的交換排序方法，它是通過相鄰

數(shù)據(jù)元素的交換逐步將線性變成有序。

7、如果進棧序列為el,e2,e3,e4,則可能的出棧序列是（）

A、e3,el,e4,e2

B、e2,e4,e3,el

C、e3,e4,el,e2

D、任意順序

標準答案：2

知識點解析：由棧“后進先出”的特點可知：el不可能比e2先出，排除選項A。e3

不可能比e4先出，且el不可能比e2先出，排除選項C。棧是后進先出的，不是

任意順序，排除選項D,只有B項是正確的。

8、n個頂點的強連通圖的邊數(shù)至少有o

A^n-l

B、n（n-l）

C>n

D、n+1

標準答案：

知識之解析4：在有向圖中，若任意兩個頂點都連通，則稱該圖是強連通圖，這樣的

有向圖的形狀是環(huán)狀，因而至少應有n條邊。

9、數(shù)據(jù)存儲和數(shù)據(jù)流都是,僅僅是所處的狀態(tài)不同。

A、分析結(jié)果

B、事件

C、動作

D、數(shù)據(jù)

標準答案:8

知識點解析：數(shù)據(jù)流圖有4種成分：源點或終點、處理、數(shù)據(jù)存儲和數(shù)據(jù)流。數(shù)據(jù)

存儲是處于靜止狀態(tài)的數(shù)據(jù)，數(shù)據(jù)流是處于運動小的數(shù)據(jù)。

10、以下定義數(shù)組或給數(shù)組元素賦值的語句中，正確的是

A、DimaAsVarianta=Array(l,2,3,4,5)

B、Dima(l0)AsIntegera=Array(123,4,5)

C、Dima%(10)a(l)="ABCDE”

D、Dima(3),b(3)AsIntegera(O)=Oa(l)=la(2)=2b=a

標準答案：A

知識點解析：利用Array時數(shù)組各元素賦值，聲明的數(shù)組是可調(diào)數(shù)組或連圓括號也

可省略的數(shù)組，并且其類型只能是Variant,故選項B)不正確：選項C)定義錯誤，

應為Dima(10)AsString；選項D)中賦值號左邊的b是一個大小固定的數(shù)組：故賦

值出錯。

二、選擇題(本題共25題，每題1.0分，共25分。)

11、計時器文件設置時間間隔的屬性是

A、Enabeld

B、Index

C、Tag

D、Interval

標準答案：D

知識點解析：計時器控件的常用屬性有兩個：一是Enabled屬性，表示計時器是否

啟用；二是Interval屬性，表示計時器Timer事件執(zhí)行的時間間隔。

12、通過文本框()事件過程可以獲取文本框中輸入字符的ASCII碼值。

A、Change

LostFocus

C、KeyPress

D、GotFocus

17、設有如下程序：PrivateSubForm_Click()DimsAsLong,fAsLongDimnAs

Integer,iAsIntegerf=ln=4Fori=lTonf=f*is=s+fNextiPrintsEndSub程序運行

后，單擊窗體，輸出結(jié)果是

A、32

B、33

C、340)35

標準答案：B

知識點解析：i=l時，f=f*i=l*l=l,s=s+f=O+l=l.i=2時，f=f*i=1*2=2,

s=s+f=1+2=3,i=3時，f=f*i=2*3=6,s=s+f=3+6=9?i=4時，f=f*i=6*4=24,

s=s+f=9+24=33,因此本題答案為B)。

18、按條件f對關系R進行選擇，其關系代數(shù)表達式為o

ARxR

cRxR

B、子

C<rf(R)

D、n?R)

標準答案：C

知識點解析：暫無解析

19、假設一個棧的輸入序列為A,B,C,D,E,則下列序列中不可能是棧的輸出

序列的是O

A、B,C,D,A,E

B、E,D,A,C,B

C^B,C,A?D,E

D、A,E?D,C,B

標準答案：B

知識點解析：暫無解析

20、下列程序段的執(zhí)行結(jié)果為。1=0ForG=10To19Step31=1+1NextG

PrintI

A、4

B、5

C、3

D、6

標準答案：A

知識點解析：For…Nexl循環(huán)該程序段的功能相當于根據(jù)循環(huán)變量的初始值，求循

環(huán)體執(zhí)行的次數(shù)。For循環(huán)的循環(huán)次數(shù)=Int(終值-初值)/步長+1。故循環(huán)體(1=1+1)

一共被執(zhí)行4次，而每次執(zhí)行I的值增加1。因此循環(huán)結(jié)束后I的值增加4,即

1=0+4o

21、下列描述不正確的是()。

A、某個子過程中聲明的局部變量，其使用范圍僅限定于該子過程內(nèi)

B、某個子過程中聲明的局部變量，其生命周期僅限于該子過程被執(zhí)行過程中

C、不同子過程中的局部變量可以具有相同的名稱

D、不同子過程中具有相同的名稱的局部變量是同一變量

標準答案：8

知識點解析：在子過程中聲明的變量，叫局部變量，其作用范圍僅限于該過程內(nèi)，

其生命周期是子過程執(zhí)行過程；不同子過程中的局部變量可以同名，不會相互影

響；如果子過程中沒有聲明就使用的變量，除非在子過程外部有聲明，否則也認為

是局部變量。

22、下列程序段的輸出結(jié)果為()。DimM(S,S),S(5)Fori=lTo5S(i)=0Forj=lTo

5M(i,j)=i+jS(i)=S(i)+M(i,j)NextjNextiForEachxInSPrintx;Nextx

A、2023243540

B、2025303540

C、2023253540

D、2025354045

標準答案：B

知識點解析；程次的執(zhí)行過程如下：當i=l時，j=l,M(l,l)=i+j=2；

s(l)=S(l)+M(l,10=2.當j=2時,M(l,2)=i+j=3；S(1)=S(1)+M(1,2)=5。當j=3

時，M(l,3)=i+j=4；S(1)=S(1)+M(1,3)=9o當j=4時,M(l,4)=i+j=5；

S(1)=S(1)+M(1,4)=14o當j=5時，M(l,5)=i+j=6；S(1)=S(I)+M(1,5)=20。依次

類推，最后S數(shù)組元素的值為:S(1)=20；S(2)=25；S(3)=30；S(4)=35；S⑸=40。

23、在窗體上畫一個名禰為Listl的列表框，一個名稱為Labell的標簽，列表框中

顯示若干個項目。單擊列表框中的某個項目時，在標簽中顯示被選中項目的名稱。

下列能正確實現(xiàn)上述操作的程序是。

A、PrivateSubListl_Click()Label1.Caption=Listl.ListIndexEndSub

B、PrivateSubListl_Click()Label1.Name=Listl.ListindexEndSub

C、PrivateSubListl_Click()Label1.Name=Listl.TextEndSub

D^PrivateSubListl_Click()Label1.Caption=Listl.TextEndSub

標準答案：D

知識點解析：以上4個選項都是列表框的Click事件過程。單擊列表框中的某一項

時，將發(fā)生單擊事件.同時選擇一個列表項，這個列表項可以用列表框的Text屬

性來表示。也就是說，Listl.Text就是所選擇的項目。此外，為了在標簽中顯示所

選擇的列表項，必須使用標簽的標題屬性，即Labell.Caplion。因此，正確的涪句

應當是:Label1.Caption=Listl.Text在VisualBasic中，不能在運行期間改變控件

或窗體的名稱(Name屬性)，因此選項B和選項C都是錯誤的；而列表框的

Lisllndex屬性是所選擇的列表項的位置，即列表項的標題，不是列表項本身。所

以選項A錯誤。

24、VisualBasic根據(jù)計算機訪問文件的方式將文件分成三類，其中不包括

A、順序文件

B、Unix文件

C、二進制文件

D、隨機文件

標準答案：B

知識點解析：VisualBasic訪問文件的方式分為三類：有Input/Output/Append(訪問

順序文件)、Binary(訪問二進制文件)、Random(訪問隨機文件)。如果未指定方式，

則以Random訪問方式打開文件。

25、表達式Abs(-5)+Len("ABCDE”)的值是。

A、5ABCDE

B、-5ABCDE

C、10

D、0

標準答案：4

知識點解析：兩個函數(shù)的返回值均為數(shù)值型.Abs(number)：返回參數(shù)的絕對值，

類型和參數(shù)相同。Lcn(string)：返回Siring字符串內(nèi)字符的數(shù)目，或是存儲一變量

所需的字節(jié)數(shù)。

26、在VisualBasic中最基本的對象是,它是應用程序的基石。

A、標簽

B、窗體

C、文本框

D、命令按鈕

標準答案：B

知識點解析：窗體是VR最基本的對象.它用于創(chuàng)建VR應用程序的用戶界面或?qū)?/p>

話框，是包容用戶界面或?qū)υ捒蛩璧母鞣N控件的容器。

27、在窗體上添加一個命令按鈕，名為Command］，一文本框，名為tex”,則執(zhí)

行如下事件過程后，文本框中的輸出為Fori=lTo3Forj=lTo3Fork=lTo2

x=x+3Nextk,j,iTextl.Text=str(x)

A、21

B、42

C、54

D、72

標準答案：4

知識點解析：For循環(huán)控制結(jié)構(gòu)每次執(zhí)行循環(huán)語句，X都加了則：

(3x2)x3x3=6x3x3=18x3=54。

28、有如下函數(shù)過程。FunctionFun(ByVaixAsInteger,ByVaiyAsInteger)As

IntegerDoWhiley<>0reminder=xModyxmyy=reminderLoopFun=xEnd

Function以下調(diào)用函數(shù)的事件過程，該程序的運行結(jié)果是PrivateSub

CommandT_Click()DimaAsInteger,bAsIntegera=100:b=25x=Fun(a,B)Printx

EndSub

A、0

B、25

C、50

D、100

標準答案：2

知識點解析：函數(shù)的參數(shù)傳遞分為按值傳遞和按地址傳遞。按值傳遞是指，實參直

接將值傳遞給形參，形參不改變實參的值；按地址傳遞是指，實參將變量的地址傳

遞給形參。在調(diào)用函數(shù)時要注意參數(shù)的傳遞方式，不同的傳遞方式，語句執(zhí)行結(jié)果

不同。

29、閱讀下列程序：PrivateSubCommandl_Click()DimiAsInteger,kAsInteger

k=2Fori=lTo3PrintH(k)；NextiEndSubFunctionH(jAsInteger)a=0Staticb

a=a+lb=b+1H=a*b+jEndFunction程序運行后，單擊命令按鈕輸出結(jié)果是

A、234

B、345

C、567

D、356

標準答案：2

知識點解析：被調(diào)過程是一個函數(shù)過程，它有一個形式參數(shù)j,在被調(diào)過程聲明

中，定義了一個參數(shù)a,初值為0,一個靜態(tài)變量b。語句@=@+1和64+1分別使

用a和b各增加1,然后返回H的值，因為b是靜態(tài)變量，所以每次調(diào)用同一個參

數(shù)k時，b會保留前次的數(shù)值，使輸出的結(jié)果變化，否則每次輸出的結(jié)果都是一樣

的.根據(jù)分析，第一次調(diào)用時a=1,h=1,H=3：第二次調(diào)用：a=l,h=2,H=4；第

三次調(diào)用：a=Lb=3=,H=5<,所以最后的輸出結(jié)果是345。

30、以下敘述中錯誤的是

A、用Shell函數(shù)可以調(diào)用能夠在Windows下運行的應用程序

B、用Shell函數(shù)可以調(diào)用可執(zhí)行文件，也可以調(diào)用VisuMBasic的內(nèi)部函數(shù)

C、調(diào)用Shell函數(shù)的格式應為：(變量g>=Shell(……)

D、用Shell函數(shù)不能執(zhí)行DOS命令

標準答案：2

知識點解析：Shell函數(shù)只能調(diào)用可執(zhí)行文件，即在Windows下運行的應用程序，

不能調(diào)用VisualBasic的內(nèi)部函數(shù)。同時應注意Shell是一函數(shù)，調(diào)用時一定要有

一變量接收Shell的返回值。

31、在窗體上畫一個命令按鈕，名稱為Commands然后編寫如下程序：Private

SubCommandl_Click()For1=1To4ForJ=0To1Print

Chr$(65+1)；NextJPrintNext1EndSub程序運行后，如果單擊命令按

鈕，則在窗體上顯示的內(nèi)容是

A、BBCCCDDDDEEEEE

B、ABBCCCDDDD

C、BCCDDDEEEE

D、AABBBCCCCDDDDD

標準答案：I

知識點解析：Chr$(x)表示把x的值轉(zhuǎn)換為相應的ASCII字符。ASCII碼值64對應

字母“A"。對于Fori循環(huán)：當1=1時，J從0到1輸出2次B；當1=2時，J從0

到1輸出3次C；當1=3時，J從0到3輸出4次D；當1=4時，J從0至[4輸出

5次E；之后退出循環(huán)。

32、新建一個列表框，要實現(xiàn)對列表項可以復選，應設置的屬性是

A、ScrollBars

MultiSelect

CNDataFicId

D、Stretch

標準答案：2

知識點解析：在列表框的屬性中，可以通過設置MuliiSclcct屬性來實現(xiàn)是否可以

進行列表項的多選，屬性值為0,不可以多選列表；屬性為1,無需要用Ctrl或者

Shift就可進行多選：屬性值為2時，要利用Ctrl或者Shift鍵，所以選項B是正確

的。而選項A是設置滾動條的，與此無關；選項C.DataFicld是用來設置數(shù)據(jù)的，

也無關；選項DSlrec不是列表框的屬性，所以也不正確。

33、在窗體上畫一個名禰為Command1的命令按鈕，然后編寫如下程序：Private

SubCommand1Click()DimiAsInteger,]AsIntegerDima(10,10)AsIntegerFori=lTo

3Forj=1To3a(ij)=(i-l)*3+jPrinta(i,j)；NextjPrintNextiEndSub程序運行后，

單擊命令按鈕，窗體上顯示的是_____。

A、123246369

B、234345456

C、147258369

D、123456789

標準答案：D

知識點解析：程序共有兩層循環(huán)，每執(zhí)行完一次內(nèi)循環(huán)，則打印換行，當外層循環(huán)

執(zhí)行第一次時，a(ij)=(i-l)*3+j相當于a(l,j)=j,由此判斷選項A,D可能正確,

當外層循環(huán)執(zhí)行第二次時，a(i,j)=(i?l)*3+j,相當于a(2,j)=3+j,由此可判斷選項

D為正確答案。

34、在窗體上有兩個名禰分別為Textl、Texinar.d1

的命令按鈕。運行后的窗體外觀如圖所示。設有如

下的類型和變量聲明:PrivateTypePersonnameAsString*8majorAsString*20End

TypeDimpAsPerson設文本框中的數(shù)據(jù)已正確地賦值給Person類型的變量p,當

單擊“保存”按鈕時，能夠正確地把變量中的數(shù)據(jù)寫入隨機文件Test2.dat中的程序

段是

A、Open"c:\Test2.dat"ForOutputAs#1Put#1,1,pClose#1

B、Open"c:\Test2.dat"ForRandomAs#1Get#1,1,pClose#1

C>Open"c:\Test2.dat"ForRandomAs#1ten=ten(p)Put#1,1,pClose#1

D、Open"c:\Test2.dat"ForRandomAs#iLen=Len(p)Get#1,1,pClose#1

標準答案：C

知識點解析：打開一個隨機文件后，既可用于寫操作，也可用于讀操作。打開隨機

文件的一般格式為：Open文件名稱ForRandomAs文件號|Len=記錄長度］“記錄長

度''等于各個字段長度之和，以字符(字節(jié))為單位。如果省略“Len=記錄長度”，則

記錄默認的長度為128個字節(jié)。Put語句可以將內(nèi)存中的數(shù)據(jù)寫入磁盤，其格式

為：Pul#文件號，［記錄號］，變量Put語句把“變量”的內(nèi)容寫入由“文件號”所指定的磁

盤文件中。Get語句從隨機文件中讀取數(shù)據(jù)，其格式為：Gel#文件號，［記錄號］.變

量Get語句把由“文件號”所指定的磁盤文件中的數(shù)據(jù)讀到“變量”中。本題中由打開

隨機文件的格式可知選項A錯誤，選項A的存取類型為Output,因此打開的是順

序文件。將內(nèi)存中的數(shù)據(jù)寫入磁盤用的是Pul語句，因此選項BD錯誤。

35、某人為計算n!(0

A、把P=1改為P=n

B、把Fork=n-lTo2Step-1改為Fork=1Ton-1

C、把Fork=n-lT02Step-1改為Fork=1Ton

D、把Fork=n-lTo2Step-1改為FOrk=2Ton

標準答案：B

知識點解析：題f中的錯誤在于求n!,卻少乘了n,選項B也犯了同樣的錯誤，所

以答案選B。

三、公共基礎填空題(本題共5題，每題7.0分，共5

分。)

36、為了把一個VisualBasic應用程序裝入內(nèi)存，只要裝入文件即可。

標準答案：工程

知識點解析：暫無解析

37、一個棧的初始狀態(tài)為空。首先將元素5,4,3,2,1依次入棧，然后退棧一

次，再將元素A,B,C,D依次入棧，之后將所有元素全部退棧，則所有元素退

棧(包括中間退棧的元素)的順序為。

標準答案：1DCBA2345

知識點解析：棧是限制僅在表的一端進行插入和刪除的運算的線性表，通常稱插

入、刪除的這一端為棧頂，另一端稱為棧底。

38、在關系模型中，二維表的行稱為。

標準答案：元組

知識點解析：在關系型數(shù)據(jù)庫中，用二維表米表示關系，二維表的表名即關系名，

二維表的行稱為關系的元組，二維表的列稱為關系的屬性。

39、在數(shù)據(jù)結(jié)構(gòu)中，順序存儲結(jié)構(gòu)的數(shù)據(jù)元素所占的存儲空間是【】的。

標準答案：連續(xù)

知識點解析：順序存儲結(jié)構(gòu)具有兩個特點：1)數(shù)據(jù)元素所占空間是連續(xù)的；2)數(shù)

據(jù)元素在存儲空間中是武邏輯順序依次存放的。

40、程序流程圖中的菱形框表示的是【】。

標準答案：邏輯判斷

知識點解析：繪制流程圖時事實描述用橢圓形表示、行動方案用矩形表示、問題用

菱形表示、箭頭代表流動方向。

四、填空題(本題共10題，每題1.0分，共10分。)

41、如果在立即窗口中執(zhí)行下列操作：a=8b=9print(a>B)；則輸出結(jié)果是

標準答案:False

知識點解析；a>b是一個邏輯表達式，其運行結(jié)果為False；Print方法不僅有打印

的功能，還兼有計算的功能，將表達式的值先運算后輸出。

42、把窗體的KeyPreview屬性設置為True,并編寫如下兩個事件過程：Private

SubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintKeyCode;EndSub

PrivateSubForm_KeyPress(KeyAsciiAsInteger)PrintKeyAsciiEndSub程序運行

后，如果按下A福，則在窗體上輸出的數(shù)值為【】和【】。

標準答案：65,97

知識點解析：按下和松開一個ANSI鍵時發(fā)生KeyPress事件，其語法為：Private

Subobject_KeyPress([indexAsInteger,]keyasciiAsInteger)KeyPreview屬性，返回或

設置一個山，以決定是否在控件的鍵盤事件之前激活窗體的鍵盤事件。鍵盤事件

為：KeyDown.KeyUp和KeyPress。當KeyPreview的值為。True時窗體先接收鍵

盤事件，然后是活動控件接收事件；為False時(缺省值)活動控件接收鍵盤事件，

而窗體不接收。KeyPress將每個字符的大、小寫形式作為不同的鍵代碼解釋，即

作為兩種不同的字符。而KeyDown和KeyUp用兩種參數(shù)解釋每個字符的大寫形式

和小寫形式：KeyCode——顯示物理的鍵(將A和a作為同一個鍵返回)和Shift—

指Shift+Key鍵而狀態(tài)而且返回A或a其中之一。本題中，由于Form的

KeyPreview屬性為True,窗體能夠接受到鍵盤事件。當A鍵按下時，KcyDown事

件產(chǎn)生，此時KeyCode=65。A鍵松開后，KeyPress事件產(chǎn)生，此時

KeyAscii=97o

43、VisualBASIC應用程序通常由3類模塊組成，即窗體模塊、【】和類模塊。

標準答案：標準模塊

知識點解析：模塊是相對獨立的程序單元。在VisualBasic中主要有3種模塊，即

窗體模塊、標準模塊和類模塊。類模塊主要用來定義類和建立ActiveX組件。

44、有如下程序：DefSlrX-ZX="123"Y="456"Z二X+YPrinlZEnd運行后，輸出

結(jié)果是o

標準答案：123456

知識點解析：由于前后兩個變量都為字符串變量，因此，此時作為連接符將

x和Y兩個字符串連接起來，所以z的值為“123456”。

45、下列程序用于在帶垂直滾動條的文本框Tcxtl中輸出3到100之間的全部素

數(shù)。請?zhí)羁铡rivateSubCommandlclick()Textl.Text=""Forn=3to100

k=Int(Sqr(n))i=2Flag=0DoWhilei<=AndFlag=0IfnModi=0ThenFlag=1

Elsei=i+lEndIfLoopIfThenText1.Text=Text1.Text&Str(n)&Chr(13)&Chr(10)

EndIfNextnEndSub

標準答案：kFlag=O

知識點解析：判斷一個數(shù)是不是素數(shù)，其算法是：從2開始到該數(shù)的平方根的下限

(即為題中k的值)去除這個數(shù)，如果沒有可以整除的數(shù)則說明該數(shù)是個素數(shù)。本題

中設置了一個標志變量Flag,默認值為0,如果在整除的循環(huán)中，檢查出該數(shù)不是

變數(shù)，則設置Flag為1,也就是循環(huán)后Flag為0的數(shù)表示該數(shù)是素數(shù)，并把它顯

示在Textl文本框。

46、下列程序用于在帶垂直滾動條的文本框Texll中輸出3到100之間的全部索

數(shù)。請?zhí)羁?。PrivateSubCommandl_click()Textl.Text=""Forn=3to100

k=Int(Sqr(n))i=2Flag=0DoWhilei<=AndFlag=0IfnModi=0ThenFlag=l

Elsei=i+lEndIfLoopIfThenText1.Text=Tcxt1.Text&Str(n)&Chr(13)&Clir(10)

EndIfNextnEndSub

標準答案：kFlag=O

知識點解析：判斷一個數(shù)是不是素數(shù)，其算法是：從2開始到該數(shù)的平方根的下限

(即為題中k的值)去除這個數(shù)，如果沒有可以整除的數(shù)則說明該數(shù)是個素數(shù)。本題

中設置了一個標志變量Flag,默認侑為0,