計(jì)算機(jī)二級(jí)考試VB基礎(chǔ)考試題

第第頁計(jì)算機(jī)二級(jí)考試VB基礎(chǔ)考試題

考試題一：

1.下面程序是從鍵盤上輸入一個(gè)字符串，把該字符串中的大寫字母轉(zhuǎn)換成小寫字母，輸出到文件Ks61.dat中，然后從該文件中讀出字符串并顯示出來。請(qǐng)完善下面的程序：

PrivateForm_Click()

DimStr1AsString*50,Str2AsString,FileNoAsInteger

FileNo=【63】

Open“d:Vb2022KsKs61.dat”For【64】AsFileNo

Str1=InputBo*(“請(qǐng)輸入一個(gè)字符串：”)

Str1=Lcase(Str1)

Seek#FileNo,1

Put#FileNo,,Str1

【65】#FileNo,1

Str2=Input(【66】,#FileNo)

PrintStr2

EndSub

【63】(A)Free(B)File(C)FreeFile(D)FileFree

【64】(A)Input(B)Output(C)Random(D)Binary

【65】(A)Loc(B)Lof(C)Eof(D)Seek

【66】(A)Len(Str1)(B)Len(Str2)(C)StrLen(Str1)(D)StrLen(Str2)

2.以下程序的功能是：把當(dāng)前目次下的順次文件smte*t1.t*t的內(nèi)容讀入內(nèi)存，并在文本框Te*t1中顯示出來。請(qǐng)?zhí)羁铡?/p>

PrivateSubCommand1_Click()

DiminDataAsString

Te*t1.Te*t=

Open.smte*t1.t*t【14】As#1

DoWhile【15】

Input#1,inData

Te*t1.Te*t=Te*t1.Te*tinData

Loop

Close#1

EndSub

3.在窗體上畫一個(gè)文本框(其Name屬性為Te*t1)，然后編寫如下事項(xiàng)過程：

PrivateSubForm_Load()

Te*t1.Te*t=“”

Te*t1.SetFocus

Fori=1to10

Sum=Sum+i

Ne*ti

Te*t1.Te*t=Sum

EndSub

程序運(yùn)行后，輸出結(jié)果為(【67】)

(A)在文本框Te*t1中輸出55(B)在文本框Te*t1中輸出0

(C)在文本框Te*t1中輸出不定值(D)出錯(cuò)

4.在窗體上畫一個(gè)文本框和一個(gè)列表框，然后編寫如下兩個(gè)事項(xiàng)過程：

PrivateSubForm_Load()

List1.AddItem“123”

List1.AddItem“456”

List1.AddItem“369”

List1.AddItem“789”

Te*t1.Te*t=“”

EndSub

PrivateSubList1_DblClick()

a=List1.Te*t

Printa+Te*t1.Te*t

EndSub

程序運(yùn)行后，在文本框中輸入“248”，然后雙擊列表框中的“369”，那么輸出結(jié)果(【68】)

(A)617(B)248369(C)369248(D)0

5.在窗體上畫兩個(gè)滾動(dòng)條，名稱分別為Hscroll1、Hscroll2;六個(gè)標(biāo)簽，名稱分別為Label1、Label2、Label3、Label4、Label5、Label6，其中標(biāo)簽Label4~Label6分別顯示“A”、“B”、“A*B”等文字信息，標(biāo)簽Label1、Label2分別顯示其右側(cè)的滾動(dòng)條的數(shù)值，Label3顯示A*B的計(jì)算結(jié)果。如下圖。當(dāng)移動(dòng)滾動(dòng)框時(shí)，在相應(yīng)的標(biāo)簽中顯示滾動(dòng)條的值。當(dāng)單擊指令按鈕計(jì)算時(shí)，對(duì)標(biāo)簽Label1、Label2中顯示的兩個(gè)值求積，并將結(jié)果顯示在Label3中。以下不能實(shí)現(xiàn)上述功能的事項(xiàng)過程是

(A)PrivateSubCommand1_Click()

Label3.Caption=Str(Val(Label1.Caption)*Val(Label2.Caption))

EndSub

(B)PrivateSubCommand1_Click()

Label3.Caption=HScroll1.Value*HScroll2.Value

EndSub

(C)PrivateSubCommand1_Click()

Label3.Caption=HScroll1*HScroll2

EndSub

(D)PrivateSubCommand1_Click()

Label3.Caption=HScroll1.Te*t*HScroll2.Te*t

EndSub

6.閱讀下面程序：

PublicSub*y(aAsInteger,bAsInteger)

DimtAsInteger

Do

t=aModb

a=b:b=t

LoopWhilet

Printa

EndSub

用Call*y(16,40)調(diào)用此通用過程后，輸出結(jié)果為(【69】)

(A)4(B)8(C)16(D)32

7.在窗體上畫一個(gè)名稱為Command1的指令按鈕，然后編寫如下事項(xiàng)過程：

PrivateSubCommand1_Click()

Forn=1To20

IfnMod30Thenm=m+n3

Ne*tn

Printn

EndSub

程序運(yùn)行后，假如單擊指令按鈕，那么窗體上顯示的.內(nèi)容是

(A)15(B)18(C)21(D)24

8.以下語句的輸出結(jié)果是(【70】)

a=“BeiJing”

b=“ShangHai”

Printa;b

以下結(jié)果中，“□”表示空格：

(A)BeiJing□ShangHai(B)BeiJingShangHai

(C)BeiJingShangHai□(D)BeiJing□ShangHai□

9.下面程序共執(zhí)行了(【71】)次循環(huán)。

DimIntsumAsInteger,iAsInteger,jAsInteger

考試題二：

1.在窗體上畫一個(gè)名稱為Command1的指令按鈕，然后編寫如下事項(xiàng)過程：

PrivateSubCommand1_Click()

DimnumAsInteger

num=1

DoUntilnum6

Printnum;

num=num+2.4

Loop

EndSub

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

(A)13.45.8(B)135(C)147(D)很多據(jù)輸出

2.有如下函數(shù)：

FunctionFacn(*AsInteger)AsLong

DimpAsLong,iAsInteger

p=1

Fori=1To*

p=p*i

Ne*ti

Facn=p

EndFunction

調(diào)用它的事項(xiàng)過程如下：

PrivateSubCommand1_Click()

i=Val(InputBo*(“請(qǐng)輸入數(shù)據(jù)”))

a=Facn((i))‘實(shí)參i用圓括號(hào)括起，那么強(qiáng)制為值傳遞

Printa

EndSub

假設(shè)輸入數(shù)據(jù)6，那么程序運(yùn)行結(jié)果為(【73】)

(A)60(B)120(C)600(D)720

3.在窗體上畫一個(gè)名稱為Command1的指令按鈕，然后編寫如下事項(xiàng)過程：

PrivateSubCommand1_Click()

DimaAsInteger,sAsInteger

a=8

s=1

Do

s=s+a

a=a-1

LoopWhilea=0

Prints;a

EndSub

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

(A)79(B)340(C)97(D)死循環(huán)

4.以下程序的執(zhí)行結(jié)果為(【74】)

DimIntSumAsInteger,iAsInteger

IntSum=0

Fori=30.2To1Step-5.3

IntSum=IntSum+i

Ne*ti

PrintIntSum

(A)106(B)105(C)102(D)101

5.在窗體上畫一個(gè)指令按鈕，然后編寫如下事項(xiàng)過程，該過程執(zhí)行結(jié)果為(【75】)

OptionBase1

PrivateSubCommand1_Click()

DimaAsVariant,sAsInteger

a=Array(2,4,6,8)

j=1

Fori=1To4Step1

s=s+a(i)*j

j=j*10

Ne*ti

Prints

EndSub

(A)0(B)1110(C)2468(D)8642

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

PublicFunctionf(*AsInteger)

DimyAsInteger

*=20

y=2

f=**y

EndFunction

6.在窗體上畫一個(gè)名稱為Command1的指令按鈕，然后編寫如下事項(xiàng)過程：

PrivateSubCommand1_Click()

Static*AsInteger

*=10

y=5

y=f(*)

Print*;y

EndSub

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

(A)105(B)205(C)2040(D)1040

7.對(duì)窗體編寫如下代碼：

OptionBase1

PrivateSubForm_KeyPress(KeyAsciiAsInteger)

a=Array(123,86,57,248,32)

m1=a(1)

m2=1

IfKeyAscii=13Then

Fori=2To5

Ifa(i)m1Then

m1=a(i)

m2=i

EndIf

Ne*ti

EndIf

Printm1,m2

EndSub

程序運(yùn)行后，按回車鍵，輸出結(jié)果為(【76】)

(A)325(B)2484(C)321(D)2485

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

PublicSubFun(a(),ByVal*AsInteger)

Fori=1To5

*=*+a(i)

Ne*t

EndSub

8.在窗體上畫一個(gè)名稱為Te*t1的文本框和一個(gè)名稱為Command1的指令按鈕，然后編寫如下的事項(xiàng)過程：

PrivateSubCommand1_Click()

Dimarr(5)AsVariant

Fori=1To5

arr(i)=i

Ne*t

n=10

CallFun(arr(),n)

Te*t1.Te*t=n

EndSub

程序運(yùn)行后，單擊指令按鈕，那么在文本框中顯示的內(nèi)容是

(A)10(B)15(C)25(D)24

9.閱讀程序：

FunctionFunc(aAsInteger)

b=1

StaticcAsInteger

b=b+1

c=c+1

Func=a+b+c

EndFunction

PrivateSubCommand1_Click()

DimaAsInteger

a=3

Fori=1to3

PrintFunc(a)

Ne*ti

EndSub

運(yùn)行上面的程序，單擊指令按鈕后，輸出結(jié)果為(【77】)

(A)6(B)6(C)6(D)6

76813

861021

10.在窗體上畫一個(gè)名稱為Comman