江苏省二级考试VB试题汇总.docx

江苏省二级考试VB试题汇总.docx

《江苏省二级考试VB试题汇总.docx》由会员分享，可在线阅读，更多相关《江苏省二级考试VB试题汇总.docx（72页珍藏版）》请在冰豆网上搜索。

江苏省二级考试VB试题汇总

一、选择题（每套试卷有20个选择题，每题1分）

1以下4种描述中，错误的是_______。

D

A.常量在程序执行期间其值不会发生改变

B.根据数据类型不同，常量可分为字符型常量、数值常量、日期/时间型常量和布尔型常量

C.符号常量是用一个标识符来代表一个常数，好象是为常数取一个名字，但仍保持常数的性质

D.符号常量的使用和变量的使用没有差别

2下面合法的常量是_______。

D

A.1/2B.'abcd'C.1.2*5D.False

3VisualBasic中可以用类型说明符来标识变量的C

类型，其中表示货币型的是_______。

A.%B.#C.@D.$

4以下关键字中，不能定义变量的是_______。

A

A.DeclareB.DimC.PublicD.Private

5用十六进制表示VisualBasic的整型常数时，前面要加上的符号是_______。

A

A）&HB）&OC）HD）O

6VisualBasic日期常量的定界符是_______。

A

A.##B.‘’C.（）D.{}

7数学关系3≤x<10表示成正确的VB表达式为_______。

B

A.3<=x<10B.3<=xANDx<10

C.x>=3ORx<10D.3<=xAND<10

8\，/，Mod，*四个算术运算符中，优先级别最低的是_______。

C

A.\B./C.ModD.*

9下面语句中有非法调用的是_______。

C

A.x=SGN（-1）B.x=FIX（-1）

C.x=SQR（-1）D.x$=CHR$（65）

10表达式23/5.8、23\5.8、23Mod5.8的运算结果分别是_______。

B

A.3、3.9655、3B.3.9655、3、5

C.4、4、5D.3.9655、4、3

11如果变量a=2、b="abc"、c="acd"、d=5，则表达式acANDb<>c的值_______。

A

A.TrueB.FalseC.YesD.No

12为了给x,y,z三个变量赋初值1，下面正确的赋值A

语句是_______。

A）x=1∶y=1∶z=1B）x=1,y=1,z=1

C）x=y=z=1D）xyz=1

13以下4类运算符，优先级最低的是_______。

D

A.算术运算符B.字符运算符C.关系运算符D.逻辑运算符

14已知a="12345678"，则表达式Left（a,4）+Mid（a,4,2）的值是_______。

B

A）123456B）"123445"C）123445D）1279

15设有如下的记录类型

TypeStudent

numberAsString

nameAsString

ageAsInteger

EndType

则正确引用该记录类型变量的代码是_______。

B

A.Student.name="张红"B.DimsAsStudent

s.name="张红"

C.DimsAsTypeStuentD.DimsAsType

s.name="张红"s.name="张红"

16下列程序运行时，从键盘输入字符"-"，则输出结果是_______。

A

PrivateSubForm_Click（）

op$=InputBox（"op="）

Ifop$="+"Thena=a+2

Ifop$="-"Thena=a-2

Printa

EndSub

A.-2B.0C.+2D.+0

17下列程序段的运行结果为_______。

B

Fori=3To1Step-1

PrintSpace（5-i）;

Forj=1To2*i-1

Print"*";

Nextj

Print

Nexti

A.*B.*****C.*****D.*****

************

********

18执行PRINT18/2*3,-3^2命令后，输出结果为_______。

C

A.39B.3-9

C.27-9D.-927

19执行PRINT9.4\3.7,9.4MOD3.7命令后，输出A

结果为_______。

A.21B.30C.220D.12

20运行以下程序后，输出结果为_______。

C

x%=1/4

y%=11/4

PRINTx%;y%

END

A.0.250.75B.02C.03D.13

21窗体里有两个对象，分别是图片框Picture1和标签Label1。

那么下面关于Print方法的使用中，错误的一条是_______。

D

A.Picture1.Print147B.Print147

C.Printer.Print147D.Label1.Print147

22下面的_______语句可以实现：

先在窗体上输出大写字母A，然后在同一行的第10列输出小写字母b。

B

A.Print"A";Tab（9）;"b"B.Print"A";Spc（8）;"b"

C.Print"A";Space（10）;"b"D.Print"A";Tab（8）;"b"

23阅读下面的程序段：

n1=InputBox（"请输入第一个数：

"）

n2=InputBox（"请输入第二个数：

"）

Printn1+n2

当输入分别为111和222时，程序输出为______。

A

A.111222B.222C.333D.程序出错

24语句PrintFormat（"HELLO","<"）的输出结果是_______。

B

A.HELLOB.helloC.HeD.he

25语句Print（a=2）And（b=-2）的输出结果是_______。

D

A.TrueB.结果不确定C.-1D.False

26以下程序段运行后，输出字符的排列顺序是_______。

D

Fori=1To6

IfiMod2=0Then

Print"#";

Else

Print"*";

EndIf

Nexti

A.#*#*#B.#####C.*****D.*#*#*#

27用MSGBOX函数显示的对话框，以下叙述正确的是_______。

D

A）该对话框有一个“确定”按钮

B）该对话框有“是”，“否”两个按钮

C）该对话框有“是”，“否”，“取消”三个按钮

D）该对话框通过选择参数可以得到以上不同的的按钮组合

28与语句Dimabc%作用相同的语句是_______。

A

A）DimabcAsIntegerB）DimabcAsLong

C）DimabcAsStringD）DimabcAsDate

29设a=1,b=2,c=3,d=4，则表达式IIf（a

D

A.4B.3C.2D.1

30表达式Int（198.555*100+0.5）/100的值为_______。

C

A.198B.199.6C.198.56D.200

31要使变量x赋值为1～100间（含1，不含100）的一个随机整数，正确的语句是_______。

D

A.x=Int（100*Rnd）B.x=Int（101*Rnd）

C.x=1+Int（100*Rnd）D.x=1+Int（99*Rnd）

32VisualBasic表达式Cos（0）+Abs

（1）+Int（Rnd

（1））的值是_______。

D

A.1B.-1C.0D.2

33表达式Int（5*Rnd+1）*Int（5*Rnd-1）值的范围是_______。

D

A.[0,15]B.[-1,15]C.[-4,15]D.[-5,15]

34当函数MsgBox返回值为1，对应的符号常量是vbOK，那么此时表示用户做的操作是_______。

A

A.用户单击了对话框中的“确定”按钮

B.用户单击了对话框中的“取消”按钮

C.用户单击了对话框中的“是”按钮

D.用户单击了对话框中的“否”按钮

35在VisualBasic中，InputBox函数的默认返回值类型为字符串，用InputBox函数输入数值型数据时，下列操作中可以有效防止程序出错的操作是_______。

A

A.事先对要接收的变量定义为数值型

B.在函数InputBox前面使用Str函数进行类型转换

C.在函数InputBox前面使用Value函数进行类型转换

D.在函数InputBox前面使用String函数进行类型转换

36表达式Len（"123程序设计ABC"）的值是_______。

A

A.10B.14C.20D.17

37赋值语句g=123+Mid（"123456",3,2）执行后，变量g中的值是_______。

D

A）"12334"B）123C）12334D）157

38如果x是一个正实数，对x的第3位小数四舍五入的表达式是_______。

B

A.0.01*Int（x+0.005）

B.0.01*Int（100*（x+0.005））

C.0.01*Int（100*（x+0.05））

D.0.01*Int（x+0.05）

39MsgBox函数的返回值的类型是_______。

A

A）整数　　　　　B）字符串　　　　　C）逻辑值　　　D）日期

40使用下列语句：

Dimx（1to10,3）AsSingle，则数组占用内存空间的字节数是_______。

C

A.132B.80C.160D.120

41若x=1，执行语句IfxThenx=0Elsex=1的结果是_______。

D

A.实时错误B.编译错误C.x=1D.x=0

42下列程序段的循环结构执行后，i的输出值是_______。

C

DimyasInteger

Fori=1To10Step2

y=y+i

Nexti

Printi

A）25B）10C）11D）因为y初值不知道，所以不确定

43以下程序段的运行结果是_______。

D

PrivateSubForm_Click（）

x=5

m=1

n=1

Do

m=m*n

n=n+1

LoopUntiln>5

Printx^2+m/3

EndSub

A.25B.45C.55D.65

44以下程序段的运行结果是_______。

A

PrivateSubForm_Click（）

DimsAsLong,fAsLong

DimnAsInteger,iAsInteger

f=1

n=4

Fori=1Ton

f=f*i

s=s+f

Nexti

Print"s=";s

EndSub

A.33B.34C.35D.36

45以下程序段的运行结果是_______。

A

PrivateSubForm_Click（）

a=1

b=a

DoUntila>=5

X=a*b

PrintStr（a）&"*"&Str（b）&"=";Str（X）;

a=a+b

b=b+a

Loop

EndSub

A.1*1=12*3=6B.1*1=22*2=4

C.1*1=13*3=9D.1*1=23*2=6

46下面分别是求两个数中的大数的四个程序段，_______不正确。

D

A）Max=IIf（x>y,x,y）B）Ifx>yThenMax=xElseMax=y

C）Max=xD）Ify>=xThenMax=y

Ify>=xThenMax=yMax=x

47下列循环能正常结束的是_______。

C

A.i=5B.i=1

DODO

i=i+1i=i+2

LoopUntili<0LoopUntili=10

C.i=10D.i=6

DODO

i=i+1i=i-2

LoopUntili>0LoopUntili=1

48有如下程序，运行时从键盘输入4，则输出的结果是_______。

B

PrivateSubForm_Click（）

a=InputBox（"Enteeravalueofa:

"）

SelectCasea

CaseIs>2

b=a+1

CaseIs>3

b=a+2

CaseIs>5

b=a+3

CaseElse

b=a+4

EndSelect

Printa;b

EndSub

A.44B.45C.46D.47

49执行如下程序段时，从键盘输入-5，输出的结果是_______。

A

x=-5

s=Val（InputBox（"请输入s的值:

"））

SelectCases

CaseIs>0

y=x+1

CaseIs=0

y=x+2

CaseElse

y=x+3

EndSelect

Printx;y

A.-5-2B.-5-4C.-5-3D.-5-5

50某林场1995年植树100亩，以后每年的植树面积按5%的速度增长，能正确计算到1998年时四年的植树总面积的程序是_______。

B

A.s=100:

r=0.05B.s=100:

sum=100:

r=0.05

Fori=1996To1998Fori=1996To1998

s=s*（1+r）s=s*（1+r）

Nextisum=sum+s

PrintiNexti

EndPrintsum

C.s=100:

r=0.05D.s0=100:

sum=100:

r=0.05

Fori=1996To1998Fori=1996To1998

s=s*（1+r）+ss=s0*（1+r）

Nextisum=sum+s

PrintiNexti

EndPrintsum

51以下程序段执行后，变量s、x的值分别为_______。

C

DimsAsInteger,xAsInteger

s=10:

x=1

DoWhilex<10

s=s+2

x=x+2

Loop

Prints,x

A.5011B.2010C.2011D.10010

52以下程序段的执行结果是_______。

A

Fori=1To4

x=2

Forj=1To3

x=1

Fork=1To2

x=x+3

Nextk

Nextj

Nexti

Printx

A.7B.6C.56D.72

53用语句DimA（-3to5）AsLong定义的数组元素个数是_______。

C

A.7B.8C.9D.10

54以下程序运行的结果是_______。

D

Dima

a=Array（1,3,4,5,6,7）

Fori=LBound（a）ToUBound（a）

a（i）=a（i）*a（i）

Nexti

Printa（i）

A）49B）0C）不确定D）下标越界

55在窗体上添加一个命令按钮Command1，然后编写如下代码：

PrivateSubCommand1_Click（）

DimcityAsVariant

city=Array（"北京","上海","天津","重庆"）

Printcity

（1）

EndSub

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

D

A.空白B.错误提示C.北京D.上海

56以下程序运行的结果是_______。

D

OptionBase1

PrivateSubCommand1_Click（）

Dima,b（3,3）

a=array（1,2,3,4,5,6,7,8,9）

Fori=1To3

Forj=1To3

b（i,j）=a（i*j）

If（j>=i）ThenPrintTab（j*3）;Format（b（i,j）,"###"）;

Nextj

Print

Nexti

EndSub

A.123B.1C.147D.123

4564524646

7897893699

57在窗体上画一个命令按钮Command1，然后编写如下代码：

PrivateSubCommand1_Click（）

Dimarr1（10）,arr2（10）AsInteger

n=3

Fori=1To5

arr1（i）=i

arr2（n）=2*n+i

Nexti

Printarr1（n）,arr2（n）;

EndSub

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

B

A）113B）311C）133D）313

58在窗体上画一个命令按钮Command1，然后编写如下代码：

PrivateSubCommand1_Click（）

Dima（4,4）

Fori=1To4

Forj=1To4

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

Nextj

Nexti

Fori=3To4

Forj=3To4

Printa（j,i）;

Nextj

Print

Nexti

EndSub

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

D

A.69B.710C.811D.912

7108119121013

59有如下程序：

PrivateSubForm_Load（）

Dimarr1（10,10）AsInteger

Dimi,jAsInteger

Fori=1To3

Forj=2To4

arr1（i,j）=i+j

Nextj

Nexti

Text1.Text=arr1（2,3）+arr1（3,4）

EndSub

程序运行后，单击窗体，在文本框显示的值是_______。

C

A.5B.7C.12D.20

60在窗体上添加一个命令按钮Command1，然后编写如下代码：

OptionBase1

PrivateSubCommand1_Click（）

d=0:

c=10

x=Array（10,12,21,32,24）

Fori=1To5

Ifx（i）>cThen

d=d+x（i）

c=x（i）

Else

d=d-c

EndIf

Nexti

Printd

EndSub

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

C

A.89B.99C.23D.77

61下列语句声明的数组a包含的元素个数有_______。

A

Dima（3，-2to2，5）

A.120B.75C.60D.13

62定义数组Array（1to5,5）后，下列哪一个数组元素不存在_______。

C

A.Array（1,1）B.Array（1,0）

C.Array（0,1）D.Array（5,5）

63在VisualBasic应用程序中，以下描述正确的是_______。

B

A.过程的定义可以嵌套，但过程的调用不能嵌套

B.过程的定义不可以嵌套，但过程的调用可以嵌套

C.过程的定义和过程的调用均可以嵌套

D.过程的定义和过程的调用均不可以嵌套

64假定有如下的Sub过程：

Subswapp（xAsSingle,yAsSingle）

t=x

x=t/y

y=tMody

EndSub

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

PrivateSubCommand1_Click（）

DimaAsSingle

DimbAsSingle

a=5:

b=4

swappa,b

Printa,b

EndSub

程序运行时，单击命令按钮得到的结果是_______。

D

A.54B.11

C.1.254D.1.251

65以下程序的运行结果是_______。

C

Functionfun（aAsInteger）

b=0

Staticc

b=b+1

c=c+1

fun=a+b+c

EndFunction

PrivateSubCommand1_Click（）

DimaAsInteger

a=2

Fori=1To3

Sum=Sum+fun（a）

Nexti

PrintSum

EndSub

A.24B.12