VB选择题420道Word文件下载.docx

VB选择题420道Word文件下载.docx

《VB选择题420道Word文件下载.docx》由会员分享，可在线阅读，更多相关《VB选择题420道Word文件下载.docx（149页珍藏版）》请在冰豆网上搜索。

B、SubProc1（n,m）

C、SubProc1（Byvaln,Byvalm）

D、SubProc1（n,Byvalm）

13437

10、下面程序:

PrivateSubCommand1_Click（）

DimxAsInteger,yAsInteger

x=12:

y=34

Callproc1（x,y）

Printx;

y

EndSub

PublicSubproc1（nAsInteger,mAsInteger）

n=nMod10

m=mMod10

运行后，单击命令按钮（Command1），则输出的结果是（）。

A、234

B、24

C、1234

D、123

13438

11、下面程序:

PrivateFunctionMyFunc（mAsInteger,nAsInteger）

m=m+n

n=n+m

MyFunc=n

EndFunction

PrintMyFunc（24,18）

A、70

B、80

C、60

D、50

13428

12、执行下面程序段后，输出的结果为（）。

Dimm（10）

Fork=1To10

m（k）=11-k

Nextk

Printm（5）

A、4

B、7

D、5

13422

13、下面程序:

PrivateSubInvert（xstrAsString,ystrAsString）

DimtempstrAsString

DimiAsInteger

ystr=Mid（xstr,2,3）

Dims1AsString,s2AsString

s1="

abcdef"

CallInvert（s1,s2）

Prints2

A、bcd

B、cde

C、abc

D、def

13424

14、下面程序:

s=p（4）

Prints;

PublicFunctionp（nAsInteger）

Fori=1Ton

sum=sum+i

Nexti

p=sum

A、10

B、30

C、40

D、20

13431

15、执行下面程序段后，输出的结果为（）。

x=2

Printm（m（x））

A、3

B、4

C、5

D、2

D

13416

16、执行下面程序段后，输出的结果为（）。

Dimm（5）

s=0

fori=0to5

m（i）=5

nexti

Forj=0To5

s=s+m（j）

Nextj

prints

B、25

C、30

D、35

13423

17、下面程序:

PrivateSubss（）

x=x+1

y=y+1

z=z+1

y;

z

Dimx,y,z

x=1:

y=2:

z=3

Callss

运行后，单击命令按钮，则输出的结果是（）。

A、123

B、122

C、111

D、112

13427

18、下面程序:

Subm（xAsInteger,yAsInteger,zAsInteger）

Ifx<

yThen

Ify<

0Then

z=0

Else

EndIf

Printz

m2,-1,2

A、2

B、0

C、-1

D、1

13415

19、下面程序:

PrivateSubtext（xAsInteger）

x=x*2+1

6Then

Printx

else

Printx-1

text2

A、7

B、6

C、4

13435

下面程序:

20、Subm3（hAsBoolean）

Ifh=TrueThen

Print"

TRUE"

FALSE"

i=1

m3iAnd1

A、1

B、FALSE

C、0

D、TRUE

13429

21、执行下面程序段后，输出的结果为（）。

Dima（3,4）

Fori=1To3

Forj=1To4

a（i,j）=（i-1）*2+j

Nextj

NextI

printa（2,3）

B、3

13436

22、下面程序:

PrivateSubss（ByValx,ByValy,ByValz）

a=1:

b=2:

c=3

Callss（a,b,c）

Printa;

b;

c

A、134

B、224

C、123

D、133

13425

23、下面程序:

PrivateSubp（n）

n=1+2*n

PrivateSubform_click（）

pn

Printn

运行后，单击窗体，则输出的结果是（）。

B、1

13420

24、下面程序:

PrivateSubForm_Click（）

Dima

a=Array（19,17,15,13,11,9,7,5,3,1）

Fori=1To9

Ifa（i）Mod3=0Then

Sum=Sum+a（i）

PrintSum

B、27

C、25

D、18

13410

25、下面程序:

PrivateFunctionfirstfunc（xAsInteger,yAsInteger）AsInteger

DimnAsInteger

DoWhilen<

=4

x=x+y

n=n+1

Loop

firstfunc=x

DimzAsInteger

y=1

z=firstfunc（x,y）

B、5

D、6

13433

26、执行下面程序段后，输出的结果为（）。

Dima（5）

Fori=0To4

a（i）=i+1

Printa（0）

C、1

D、3

13411

27、下面程序:

DimA（20）

Fork=1To20

A（k）=k^2

Nextk

PrintA（10）

A、100

B、36

C、64

D、91

13421

28、下面程序:

Dima（100）

Fori=1To10

j=i*i

a（j）=j

Printa（25）

A、81

C、36

D、49

13426

29、执行下面程序段后，输出的结果为（）。

Dima（10,10）

Fori=2To4

Forj=4To5

a（i,j）=i*j

Nexti

Printa（2,5）+a（3,4）+a（4,5）

A、22

B、32

C、42

D、52

13414

30、下面程序:

Functionsecproc（xAsInteger,yAsInteger,zAsInteger）

secproc=y+z+x

DimaAsInteger,bAsInteger,cAsInteger

a=2:

b=3:

c=4

Printsecproc（c,b,a）

A、6

B、9

C、8

D、7

13380

31、表达式：

（3/2+1）*2的值是（）。

B、8

C、7

13366

32、表达式：

"

123"

+Abs（-1）的值是（）。

A、123-1

B、123

C、124

D、1231

13382

33、设a为整型变量，不能正确表达数学关系：

10<

a<

15的表达式是（）。

A、10<

15

B、Not（a<

=10）Anda<

C、a>

10AndNot（a>

=15）

D、a>

10Anda<

13387

34、四个字符"

Z"

"

d"

E"

F"

中，ASCII码值最大的是（）。

A、"

B、"

C、"

D、"

13378

35、以下四个运算符中，优先级最低的是（）。

A、/

B、Mod

C、*

D、\

13393

36、下面逻辑表达式的值为真的是（）。

A"

>

a"

B"

That"

Thank"

D、12>

12.1

13367

37、若X=5，Y=6，则表达式X+Y=11的值是（）。

A、True

B、X+Y=11

D、False

13373

38、表达式：

（7\4+1）*3的值是（）。

C、9

13385

39、当用ConstAAsInteger=9.8定义后，下列叙述正确的是（）。

A、A是字符型常数

B、A是整型变量

C、A是变体类型的常数

D、A是整型常数

13407

40、下面选项中，能正确表示a≥10或a≤0的关系表达式是（）。

A、a>

=10Anda<

=0

B、a>

=10Xora<

=10

=10Ora<

=10Eqva<

13400

41、以下选项中不合法的变量名是（）。

A、c_e

B、a

C、Integer

D、A123

13389

42、删除字符串前导和尾随空格的函数是（）。

A、Ltrim（）

B、Trim（）

C、Lcase（）

D、Rtrim（）

13390

43、下面变量名不合法的是（）。

A、a

B、a$x

C、C_E

D、abcd

13396

44、设a=1，b=2，c=3，d=4，下面逻辑表达式的值为真的是（）。

A、d>

cAndb>

a

B、Abs（a-d）<

c

C、Sqr（d）>

b

D、（d-b）<

13398

45、表达式：

37Mod4的值是（）。

A、9

B、2

C、3

13403

46、下面逻辑表达式的值为真的是（）。

ABC"

abc"

ABC"

b23"

13374

47、执行下面程序段后，变量a的值为（）。

a=2

b=3

a=a+b

A、23

C、2

13371

48、表达式：

InStr（"

全国计算机等级考试"

等级"

）的值是（）。

13399

49、下面程序:

x=3:

y=0:

Ifx=y+zThen

****"

####"

运行后单击窗体，则输出的结果为（）。

A、####

B、****

C、#

D、*

13406

50、下面程序:

b=1

a=2

DoWhileb<

10

b=2*a+b

Printb

A、21

B、17

C、13

D、33

13388

51、下面程序:

Sum=0

Forj=1To10

Ifj=10Then

Sum=Sum+j

A、55

B、45

D、40

13386

52、执行以下程序段后，输出的结果是（）。

ia=12

ib=10

ia=ib-ia

Printia

A、12

B、22

D、-2

13368

53、下面程序:

n=30

IfiMod5=0ThenPrint"

*"

;

运行后单击窗体，则输出的“*”号个数为（）。

13397

54、下面程序段执行后输出的结果是（）。

A=5

B=-5

C=NOTA=B

PRINTC

A、0

C、-5

D、True

13381

55、PrivateSubForm_Click（）

Forj=1To15

a=a+jMod3

Printa

B、15

C、120

D、90

13409

56、下面程序:

ForI=1To2

a=0

ForJ=1To2

a=a+1

NextJ

NextI

13392

57、下面程序:

k=2

Ifk>

=1Thena=3

=2Thena=2

=3Thena=1

13377

58、下面程序:

a=a+j

A、60

C、55

D、65

13408

59、下面程序:

s=0

DoWhilei<

IfiMod2<

s=s+i

i=i+1

Prints

A、25

C、45

D、55

13369

60、下面程序:

s=5

SelectCases

CaseIs<

6

f=s+1

5

f=s+2

4

f=s+3

CaseElse

f=s+4

EndSelect

Printf

13376

61、下面程序:

b=1:

PrintIIf（a>

=b,a,b）

13404

62、执行下面程序段后，输出的结果为（）。

a=75

Ifa>

60Theni=1

70Theni=2

80Theni=3

90Theni=4

Print"

i="

i

A、i=1

B、i=2

C、i=4

D、i=3

13405

63、下面程序:

E=1:

F=1

Forj=1To3

E=E+F:

F=F+E