VB读程序题.docx

资源描述

VB读程序题.docx

《VB读程序题.docx》由会员分享，可在线阅读，更多相关《VB读程序题.docx（41页珍藏版）》请在冰豆网上搜索。

VB读程序题.docx

VB读程序题

程序阅读（80题）

1、在窗体上画一个名称为Command1的命令按钮，并编写如下程序：

PrivateSubCommand1_Click（）

DimxAsInteger

StaticyAsInteger

x=10

y=5

Callf1（x,y）

Printx,y

EndSub

PrivateSubf1（ByRefx1AsInteger,y1AsInteger）

x1=x1+2

y1=y1+2

EndSub

程序运行后，单击命令按钮，在窗体上显示的内容是

A）10 5 B）12 5 C）10 7 D）12 7

2、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

PrivateSubCommand1_Click（）

x=InputBox（"Input"）

SelectCasex

Case1,3

Print"分支1"

CaseIs>4

Print"分支2"

CaseElse

Print"Else分支"

EndSelect

EndSub

程序运行后，如果在输入对话框中输入2，则窗体上显示的是

A）分支1 B）分支2 C）Else分支 D）程序出错

3、执行下列程序段后，输出的结果是

Fork1=0To4

y=20

Fork2=0To3

y=10

Fork3=0To2

y=y+10

Nextk3

Nextk2

Nextk1

Printy

A）90

B）60

C）40

D）10

4、设有如下过程：

Subff（x，y，z，）

x=y+z

EndSub

以下所有参数的虚实结合都是传址方式的调用语句是

A）Callff（5,7,z）

B）Callff（x,y,z）

C）Callff（3+x,5+y,z）

D）Callff（x+y,x-y,z）

5、下列程序段的执行结果为

a=1

b=0

SelectCasea

Case1

SelectCaseb

Case0

Print"**0**"

Case1

Print"**1**"

EndSelect

Case2

Print"**2**"

EndSelect

A）**0**

B）**1**

C）**2**

D）0

6、下面程序段执行结果为

x=Int（Rnd（）+4）

SelectCasex

Case5

Print"excellent"

Case4

Print"good"

Case3

Print"pass"

CaseElse

Print"fail"

EndSelect

A）excellent

B）good

C）pass

D）fail

7、下列程序段的执行结果为

a=6

Fork=1To0

a=a+k

Nextk

Printk;a

A）-16

B）-116

C）16

D）1121

8、下列程序段的执行结果为

a=1

b=1

ForI=1To3

f=a+b

a=b

b=f

Printf;

NextI

A）236

B）235

C）234

D）228

9、单击命令按钮时，下列程序的执行结果为

PrivateSubCommand1_Click（）

DimxAsInteger,yAsInteger

x=12:

y=32

CallPCS（x,y）

Printx;y

EndSub

PublicSubPCS（ByValnAsInteger,ByValmAsInteger）

n=nMod10

m=mMod10

EndSub

A）1232

B）232

C）23

D）123

10、单击一次命令按钮后，下列程序的执行结果是

PrivateSubCommand1_Click（）

s=P

（1）+P

（2）+P（3）+P（4）

Prints

EndSub

PublicFunctionP（NAsInteger）

StaticSum

Fori=1ToN

Sum=Sum+i

Nexti

P=Sum

EndFunction

A）15

B）25

C）35

D）45

11、下列程序的执行结果为

PrivateSubCommand1_Click（）

Dims1AsString,s2AsString

s1="abcdef"

CallInvert（s1,s2）

Prints2

EndSub

PrivateSubInvert（ByValxstrAsString,ystrAsString）

DimtempstrAsString

i=Len（xstr）

DoWhilei>=1

tempstr=tempstr+Mid（xstr,i,1）

i=i-1

Loop

ystr=tempstr

EndSub

A）fedcba

B）abcdef

C）afbecd

D）defabc

12、阅读下列程序：

PrivateSubCommand1_Click（）

DimiAsInteger,kAsInteger

k=2

Fori=1To3

PrintH（k）;

Nexti

EndSub

FunctionH（jAsInteger）

a=0

Staticb

a=a+1

b=b+1

H=a*b+j

EndFunction

程序运行后，单击命令按钮输出结果是

A）234

B）345

C）567

D）356

13、执行下列程序段后，输出的结果是

Fork1=0To4

y=20

Fork2=0To3

y=10

Fork3=0To2

y=y+10

Nextk3

Nextk2

Nextk1

Printy

A）90

B）60

C）40

D）10

14、下列程序段的执行结果为

a=6

Fork=1To0

a=a+k

Nextk

Printk;a

A）-16

B）-116

C）16

D）1121

15、下列程序段的执行结果为

a=1

b=1

ForI=1To3

f=a+b

a=b

b=f

Printf;

NextI

A）236

B）235

C）234

D）228

16、单击命令按钮时，下列程序的执行结果为

PrivateSubCommand1_Click（）

DimxAsInteger,yAsInteger

x=12:

y=32

CallPCS（x,y）

Printx;y

EndSub

PublicSubPCS（ByValnAsInteger,ByValmAsInteger）

n=nMod10

m=mMod10

EndSub

A）1232

B）232

C）23

D）123

17、单击一次命令按钮后，下列程序的执行结果是

PrivateSubCommand1_Click（）

s=P

（1）+P

（2）+P（3）+P（4）

Prints

EndSub

PublicFunctionP（NAsInteger）

StaticSum

Fori=1ToN

Sum=Sum+i

Nexti

P=Sum

EndFunction

A）15

B）25

C）35

D）45

18、下列程序的执行结果为

PrivateSubCommand1_Click（）

Dims1AsString,s2AsString

s1="abcdef"

CallInvert（s1,s2）

Prints2

EndSub

PrivateSubInvert（ByValxstrAsString,ystrAsString）

DimtempstrAsString

i=Len（xstr）

DoWhilei>=1

tempstr=tempstr+Mid（xstr,i,1）

i=i-1

Loop

ystr=tempstr

EndSub

A）fedcba

B）abcdef

C）afbecd

D）defabc

19、在窗体上画一个名称为Commandl的命令按钮，再画两个名称分别为Labell、Label2的标签，然后编写如下程序代码：

PrivatexAsInteger

PrivateSubCommandl_Click（）

x＝5：

y＝3

Callproc（x,y）

LabeL1．Caption＝x

LabeL2．Caption＝y

EndSub

PrivateSubproc（ByValaAsInteger，ByValbAsInteger）

x＝a*a

y=b十b

EndSub

程序运行后，单击命令按钮，则两个标签中显示的内容分别是（）。

A）253B）259C）53D）59

20、在窗体上画一个命令按钮，然后编写如下事件过程：

PrivateSubCommand1_Click（）

x=0

DoUntilx=-1

a=InputBox（"请输入第一个数字a的值"）

a=Val（A）

b=InputBox（"请输入第二个数字b的值"）

b=Val（b）

x=InputBox（"请输入第三个数字x的值"）

x=Val（x）

a=a+b+x

Loop

Printa

EndSub

21、下列程序段的执行结果为

I=4

x=5

I=I+1

x=x+2

LoopUntilI>=7

Print"I=";I;

Print"x=";x

A）I＝4x＝5

B）I＝7x＝15

C）I＝6x＝8

D）I＝7x＝11

22、下列程序段的执行结果为

a=1

b=5

a=a+b

b=b+1

LoopWhilea<10

Printa;b

A）15

B）127

C）ab

D）1025

23、下列程序段的执行结果为

a=75

Ifa>60ThenI=1

Ifa>70ThenI=2

Ifa>80ThenI=3

Ifa<90ThenI=4

Print"I=";I

A）I＝1

B）I＝2

C）I＝3

D）I＝4

24、有如下事件过程：

PrivateSubCommand1_Click（）

b=10

DoUntilb=-1

a=InputBox（"请输入a的值"）

a=Val（A）

b=InputBox（"请输入b的值"）

b=Val（b）

a=a*b

Loop

Printa

EndSub

程序运行后，依次输入数值30，20，10，－1，输出结果为

A）6000

B）-10

C）200

D）-6000

25、下面程序段执行结果为

x=Int（Rnd（）+3）

SelectCasex

Case5

Print"excellent"

Case4

Print"good"

Case3

Print"pass"

CaseElse

Print"fail"

EndSelect

A）excellent

B）good

C）pass

D）fail

26、定义过程的格式中，Static关键字的作用是指定过程中的局部变量在内存中的存储方式。

若使用了Static关键字，则

A）每次调用此过程，该过程中的局部变量都会被重新初始化

B）在本过程中使用到的，在其他过程中定义的变量也为Statci型

C）每次调用此过程时，该过程中的局部变量的值保持在上一次调用后的值

D）定义了该过程中定义的局部变量为"自动"变量

27、单击命令按钮时，下列程序的执行结果为

PrivateSubCommand1_Click（）

DimxAsInteger,yAsInteger

x=50:

y=78

CallPPP（x,y）

Printx;y

EndSub

PublicSubPPP（ByValnAsInteger,ByValmAsInteger）

n=n＼10

m=m＼10

EndSub

A）08

B）5078

C）450

D）7850

28、单击按钮时，以下程序运行后的输出结果是

PrivateSubproc1（xAsInteger,yAsInteger,zAsInteger）

x=3*z

y=2*z

z=x+y

EndSub

PrivateSubCommand1_Click（）

DimxAsInteger,yAsInteger,zAsInteger

x=1:

y=2:

z=3

Callproc1（x,x,z）

Printx;x;z

Callproc1（x,y,y）

Printx;y;y

EndSub

A）6612

61010

B）9510

51010

C）9612

91015

D）91010

5410

29、单击命令按钮时，下列程序的运行结果为

PrivateSubCommand1_Click（）

PrintMyFund（20,18）

EndSub

PublicFunctionMyFund（mAsInteger,nAsInteger）AsInteger

DoWhilem<>n

DoWhilem>n:

m=m-n:

Loop

DoWhilem

n=n-m:

Loop

MyFund=m

EndFunction

A）0

B）2

C）4

D）6

30、在窗体上画一个命令按钮，然后编写如下程序

PrivateSubCommand1_Click（）

DimaAsInteger,bAsInteger

a=1

b=2

PrintN（a,b）

EndSub

FunctionN（xAsInteger,yAsInteger）AsInteger

N=IIf（x>y,x,y）

EndFunction

程序运行后，单击命令按钮，输出结果为

A）1

B）2

C）5

D）8

31、执行下面的程序段，x的值为【7】。

PrivateSubCommand1_Click（）

Fori=1To9

a=a+i

Nexti

x=Val（i）

MsgBoxx

EndSub

32、下列程序段的执行结果为

a=5

Fork=1To0

a=a+k

Nextk

Printk;a

A）-16

B）-116

C）15

D）1121

33、下列程序段的执行结果为

a=3

b=1

ForI=1To3

f=a+b

a=b

b=f

Printf;

NextI

A）436

B）459

C）634

D）728

34、下列程序段的执行结果为

I=9

x=5

I=I+1

x=x+2

LoopUntilI>=7

Print"I=";I，

Print"x=";x

A）I＝4x＝5

B）I＝7x＝15

C）I＝6x＝8

D）I＝10x＝7

35、以下程序段运行时从键盘上输入字符"-"，则输出结果为

op$=InputBox（"op="）

Ifop$="+"Thena=a+2

Ifop$="-"Thena=a-2

Printa

A）2

B）-2

C）0

D）+2

36、以下程序段的输出结果为

Diml,a（10）,p（3）

k=5

Fori=0To10

a（i）=i

Nexti

Fori=0To2

p（i）=a（i*（i+1））

Nexti

Fori=0To2

k=k+p（i）^2

Nexti

Printk

A）20

B）21

C）45

D）32

37、下列程序的执行结果为

PrivateSubCommand1_Click（）

DimxAsInteger,yAsInteger

x=12:

y=20

CallValue（x,y）

Printx;y

EndSub

PrivateSubValue（ByValmAsInteger,ByValnAsInteger）

m=m*2:

n=n-5

Printm;n

EndSub

A）2012

2015

B）1220

1225

C）2415

1220

D）2412

1215

38、在窗体上画一个命令按钮，然后编写下列程序

PrivateSubCommand1_Click（）

Tcl2

Tcl3

Tcl4

EndSub

SubTcl（aAsInteger）

StaticxAsInteger

x=x+a

Printx;

EndSub

程序运行后，单击命令按钮，输出结果为

A）234

B）259

C）354

D）243

39、下面程序段，运行后的结果是PrivateSubCommand1_Click（）

Dimb%（1To4）,i%,t#

PrivateSubCommand1_Click（）

Fori=1To4

b（i）=i

Nexti

t=Tof（b（））

Print"t=";t,

EndSub

FunctionTof（a（）AsInteger）

Dimt#,i%

t=1

Fori=2ToUBound（A）

t=t*a（i）

Nexti

Tof=t

EndFunction

A）t＝18

B）t＝24

C）t＝30

D）t＝32

40、单击按钮时，以下程序运行后的输出结果是

PrivateSubCommand1_Click（）

DimxAsInteger,yAsInteger,zAsInteger

x=1:

y=2:

z=3

CallGod（x,x,z）

Printx;x;z

CallGod（x,y,y）

Printx;y;y

EndSub

PrivateSubGod（xAsInteger,yAsInteger,zAsInteger）

x=3*z+1

y=2*z

z=x+y

EndSub

A）6612

71111

B）8510

51111

C）9612

91015

D）81010

5910

41、下列程序段的执行结果为

X=2

Y=5

IfX*Y<1ThenY=Y-1ElseY=-1

PrintY-X>0

A）True

B）False

C）-1

D）1

42、执行下列程序后，鼠标单击窗体，输出结果为。

PrivateSubForm_Click（）

Print"Click";

EndSub

PrivateSubForm_MouseDown（ButtonAsInteger,Shift_

AsInteger,XAsSingle,YAsSingle）

Print"Donw";

EndSub

PrivateSubForm_MouseUp（ButtonAsInteger,Shift_

AsInteger,XAsSingle,YAsSingle）

Print"Up";

EndSub

A）DownUpClick

B）ClickDownUp

C）DownClickUp

D）UpDownClick

43、下面程序段的运行结果是

a=1

b=1

展开阅读全文