VB综合题2.docx
《VB综合题2.docx》由会员分享，可在线阅读，更多相关《VB综合题2.docx（56页珍藏版）》请在冰点文库上搜索。
VB综合题2
一、单项选择题
下面合法的常量是_______。
A.1/2B.'abcd'C.1.2*5D.False
D
VisualBasic中可以用类型说明符来标识变量的类型，其中表示货币型的是_______。
A.%B.#C.@D.$
C
以下关键字中，不能定义变量的是_______。
A.DeclareB.DimC.PublicD.Private
A
表达式16/4-2^5*8/4MOD5\2的值为_______。
A.14B.4C.20D.2
B
VisualBasic日期型常量的定界符是_______。
A.##B.‘’C.（）D.{}
A
数学关系式3≤x<10表示成正确的VB表达式为_______。
A.3<=x<10B.3<=xANDx<10
C.x>=3ORx<10D.3<=xAND<10
B
\，/，Mod，*四个算术运算符中，优先级别最低的是_______。
A.\B./C.ModD.*
C
表达式ASC（"F"）的类型是_______。
A.字符表达式B.关系表达式C.算术表达式D.逻辑表达式
C
下面语句中有非法调用的是_______。
A.x=Sgn（-1）B.x=Fix（-1）
C.x=Sqr（-1）D.x$=Chr$（65）
C
下面不正确的赋值语句是_______。
A.x=30-yB.y=r.rC.y=x+30D.y=x\3
B
为了给x,y,z三个变量赋初值1，下面正确的赋值语句是_______。
A.x=1∶y=1∶z=1
B.x=1,y=1,z=1
C.x=y=z=1
D.xyz=1
A
如果在立即窗口中依次执行下列命令：
a=8
b=9
Printa>b
则输出的结果是_______。
A.1B.0C.FalseD.True
C
已知a="12345678"，则表达式Left（a,4）+Mid（a,4,2）的值是_______。
A.123456B."123445"C.123445D.1279
B
下列符号中，可以用作VB变量名的是_______。
A.c%abB.3sumC.sum3D.Len
C
在下列表达式中，正确的日期型常量是_______。
A."12/04/01"B.12-04-2001
C.{12/04/01}D.#12/04/01#
D
下列程序运行时，从键盘输入字符"-"，则输出结果是_______。
PrivateSubForm_Click（）
op$=InputBox（"op="）
Ifop$="+"Thena=a+2
Ifop$="-"Thena=a-2
Printa
EndSub
A.-2B.0C.+2D.+0
A
表达式Not（a+b=c-d）是_______。
A.逻辑表达式B.字符表达式C.算术表达式D.关系表达式
A
设x=5，表达式x>=10orx<=20的值是_______。
A.TrueB.FalseC.0D.表达式非法
A
下列各项不是VisualBasic的基本数据类型的是_______。
A.CharB.StringC.IntegerD.Double
A
在窗体模块的声明段中声明变量时，不能使用的关键字是_______。
A.PrivateB.PublicC.DimD.Static
D
在过程内部定义的局部变量，仅在声明它的_______中有效。
A.方法B.过程C.属性D.对象
B
假设A="GoodMorning."，B="Afternoon,Boys."，下列表达式中结果是"GoodBoys."的是_______。
A）Left（A,5）+Right（B,5）B）Right（A,5）+Left（B,5）
C）Mid（A,1,5）+Mid（B,1,6）D）Right（A,5）+Right（B,5）
A
下列关于变体类型的描述，其中正确的是_______。
A.变体是一种没有类型的数据
B.变体的空值就表示该变体的值为0
C.变量的默认类型为变体类型
D.变体是赋给变量某一种类型数据后，就不能再赋给它另一类型的数值
C
下列关键字声明的局部变量在整个程序运行中一直存在的是_______。
A．DimB．PublicC．StaticD．Private
C
窗体里有两个对象，分别是图片框Picture1和标签Label1，下面关于Print方法的使用中，错误的一条是_______。
A.Picture1.Print147B.Print147
C.Printer.Print147D.Label1.Print147
D
下面的_______语句可以实现：
先在窗体上输出大写字母A，然后在同一行的第10列输出小写字母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"
B
设a=2:
b=0，则语句Print（a=2）And（b=-2）的输出结果是_______。
A.TrueB.结果不确定C.-1D.False
D
以下程序段运行后，输出字符的排列顺序是_______。
Fori=1To6
IfiMod2=0Then
Print"#";
Else
Print"*";
EndIf
Nexti
A.#*#*#B.#####C.*****D.*#*#*#
D
用MsgBox函数显示的对话框，以下叙述正确的是_______。
A.该对话框有一个“确定”按钮
B.该对话框有“是”，“否”两个按钮
C.该对话框有“是”，“否”，“取消”三个按钮
D.该对话框通过选择参数可以得到以上不同的的按钮组合
D
与语句Dimabc%作用相同的语句是_______。
A.DimabcAsIntegerB.DimabcAsLong
C.DimabcAsStringD.DimabcAsDate
A
在VB中，InputBox函数的默认返回值类型为字符串，用InputBox函数输入数值型数据时，下列操作中可以有效防止程序出错的操作是_______。
A.在函数InputBox前面使用Val函数进行类型转换
B.在函数InputBox前面使用Str函数进行类型转换
C.在函数InputBox前面使用Value函数进行类型转换
D.在函数InputBox前面使用String函数进行类型转换
A
设a=1,b=2,c=3,d=4，则表达式IIf（aA.4B.3C.2D.1
B
Rnd函数不可能为下列_______值。
A.0B.1C.0.1234D.0.0005
B
表达式Int（198.555*100+0.5）/100的值为_______。
A.198B.199.6C.198.56D.200
C
若Y="welcome!
"，则表达式Left（Y,Len（Y）-1）的值是_______。
A."welcome!
"B."w"C."welcome"D.""
C
下列表达式中，表达式_______的运算结果与其它3个不同。
A.Int（-3.5）-1.5B.Int（-4.5）+0.5
C.-Abs（-4.5）D.Fix（-4.5）-0.5
A
要使变量x赋值为1～100间（含1，不含100）的一个随机整数，正确的语句是_______。
A.x=Int（100*Rnd）B.x=Int（101*Rnd）
C.x=1+Int（100*Rnd）D.x=1+Int（99*Rnd）
D
可实现从字符串任意位置截取字符的函数是_______。
A.Instr（）B.Mid（）C.Left（）D.Right（）
B
设a=6，则执行x=IIf（a>5,-1,0）后，x的值为_______。
A.5B.6C.0D.-1
D
表达式Int（5*Rnd+1）*Int（5*Rnd-1）值的范围是_______。
A.[0,15]B.[-1,15]C.[-4,15]D.[-5,15]
D
赋值语句g=123+Mid（"123456",3,2）执行后，变量g中的值是_______。
A."12334"B.123C.12334D.157
D
执行语句s=Len（Mid（"VisualBasic",1,6））后，s的值是_______。
A.VisualB.BasicC.6D.11
C
有如下程序：
a$="Flying":
b$="IS":
c$="funny!
"
Printa$+""+Lcase$（b$）+""+UCase$（c$）
运行后，输出结果是_______。
A.FlyingIsfunny!
B.FlyingisFUNNY!
C.FlyingISFUNNY!
D.FLYINGISFUNNY!
B
用SelectCase语句选择|x|<=10情况的语句为：
Case_______。
A.Not（-10To10）
B.-10To10
C.IsAbs（x）>10
D.Is<-10Or>10
B
若x=1，执行语句IfxThenx=0Elsex=1的结果是_______。
A.实时错误B.编译错误C.x=1D.x=0
D
下列程序段的循环结构执行后，i的输出值是_______。
DimyasInteger
Fori=1To10Step2
y=y+i
Nexti
Printi
A.25B.10C.11D.因为y初值不知道，所以不确定
C
下列结构中不属于循环结构的是_______。
A.For/NextB.While/Wend
C.With/EndWithD.Do/Loop
C
以下程序段的运行结果是_______。
PrivateSubForm_Click（）
m=1
n=1
Do
m=m*n
n=n+1
LoopUntiln>4
Printm
EndSub
A.25B.45C.55D.24
D
以下程序段的运行结果是_______。
PrivateSubForm_Click（）
x="abcdef"
y=Asc（"b"）-Asc（"a"）
z=Len（x）
Printy,z
EndSub
A.12B.16
C.22D.26
B
下面程序段运行后，显示的结果是_______。
Dimx
IfxThenPrintxElsePrintx+1
A.1B.0C.-1D.显示出错信息
A
运行下列程序段，显示的结果是_______。
x=Int（Rnd）+5
SelectCasex
Case5
Print"优秀"
Case4
Print"良好"
Case3
Print"通过"
CaseElse
Print"不通过"
EndSelect
A.优秀B.良好C.通过D.不通过
A
下列If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是_______。
A.Ifsex=″男″Andage<40AndInStr（duty,″教授″）>0Thenn=n+1
B.Ifsex=″男″Andage<40and（duty=″教授″orduty=″副教授″）Thenn=n+1
C.Ifsex=″男″Andage<40AndRight（duty,2）=″教授″Thenn=n+1
D.Ifsex=″男″Andage<40Andduty=″教授″Andduty=″副教授″Thenn=n+1
D
下面分别是求两个数中的大数的四个程序段，_______不正确。
A.Max=IIf（x>y,x,y）
B.Ifx>yThenMax=xElseMax=y
C.Max=x
Ify>=xThenMax=y
D.Ify>=xThenMax=y
Max=x
D
以下正确的程序段是_______。
A.Forx=1ToStep10B.Forx=3To-3Step-3
……
NextxNextx
C.Forx=1To10D.Forx=10To1
re:
……
NextxNexty
Ifi=10ThenGoTore
B
下列循环能正常结束的是_______。
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>10LoopUntili=1
C
若要中途退出For循环，可使用的语句为_______。
A.ExitB.ExitDoC.TimeD.ExitFor
D
有如下程序，运行后输出结果是_______。
PrivateSubForm_Click（）
a=5
Ifa<=3Then
Print3;
EndIf
Ifa<=4Then
Print4;
EndIf
Ifa<=5Then
Print5;
EndIf
Ifa<=6Then
Print6;
EndIf
EndSub
A.3456B.456C.56D.6
C
执行如下程序段时，从键盘输入-5，输出的结果是_______。
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
A
如果从键盘输入的数据依次是1、2、3、4、5、6、7、8、9、10，下面程序段的运行结果是_______。
s=0
Fori=1To10
x=Val（InputBox（"请输入x的值:
"））
Ifx/3=Int（x/3）Then
s=s+x
EndIf
Nexti
Print"s=";s
A.s=18B.s=27C.s=36D.s=54
A
在条件语句Ifx=1Theny=2中，下列说法正确的是_______。
A.x=1和y=2均为赋值语句
B.x=1和y=2均为关系表达式
C.x=1为关系表达式，y=2为赋值语句
D.x=1为赋值语句，y=2为关系表达式
C
下列程序中s=s+j语句共执行了_______次。
DimsAsInteger
DimiAsInteger,jAsInteger
Fori=1To10Step2
Forj=1To5Step2
s=s+j
Nextj
Nexti
Prints
A.10B.15C.20D.25
B
以下程序段的执行结果是_______。
n=0
Fori=0To1
Forj=0To1
n=n+1
Nextj
Nexti
Printn
A.4B.2C.1D.0
A
以下Case语句中错误的是_______。
A.Case0To10B.CaseIs>10
C.CaseIs>10AndIs<50D.Case3,5,7
C
在窗体中添加一个命令按钮Command1，并编写如下程序：
PrivateSubCommand1_Click（）
x=InputBox（"请输入x的值"）
Ifx^2=9Theny=x
Ifx^2<9Theny=1/x
Ifx^2>9Theny=x^2+1
Printy
EndSub
程序运行后，在InputBox中输入3，单击命令按钮，程序的运行结果是_______。
A．3B．0.33C．17D．0.2524
A
下列关于dowhile…loop和do…loopuntil循环执行循环体次数的描述正确的是_______。
A．dowhile…loop循环和do…loopuntil循环至少都执行一次
B．dowhile…loop循环和do…loopuntil循环可能都不执行
C．dowhile…loop循环至少执行一次，do…loopuntil循环可能不执行
D．dowhile…loop循环可能不执行，do…loopuntil循环至少执行一次
D
用语句DimA（-3to5）AsLong定义的数组元素个数是_______。
A.7B.8C.9D.10
C
如下数组声明语句，正确的是________。
A.Dima[3,4]asIntegerB.Dima（3,4）asInteger
C.Dima[n,n]asIntegerD.Dima{3,4}asInteger
B
在窗体上画一个命令按钮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
程序运行后，单击命令按钮，输出结果是_______。
A.113B.311C.133D.313
B
执行下面程序后，输出的结果是_______。
PrivateSubForm_Click（）
DimM（10）
Fork=1To10
M（k）=11-k
Nextk
PrintM（k-3）
EndSub
A.2B.3C.4D.5
B
下列语句声明的数组a包含的元素个数有_______。
Dima（3，-2to2，5）
A.120B.75C.60D.13
A
定义数组A（1to5,5）后，下列哪一个数组元素不存在_______。
A.A（1,1）B.A（1,5）
C.A（0,1）D.A（5,5）
C
在窗体上画三个单选按钮，组成一个名为chkOption的控件数组。
用于标识各个控件数组元素的参数是_______。
A.TagB.IndexC.ListIndexD.Name
B
要定义一个包含有36个元素的二维数组a，下列正确的方法是_______。
A.Dima（6,6）B.OptionBase1
Dima（6,6）
C.Option1D.OptionBase2
Dima（6,6）Dima（7,7）
B
在窗体上添加一个命令按钮Command1和一个文本框Text1，然后编写如下事件过程：
Subp1（ByValaAsInteger,ByValbAsInteger,cAsInteger）
c=a+b
EndSub
PrivateSubCommand1_Click（）
DimxAsInteger,yAsInteger,zAsInteger
x=5
y=7
z=0
Callp1（x,y,z）
Text1.Text=Str（z）
EndSub
程序运行后，单击命令按钮得到的结果是_______。
A.0B.12C.Str（z）D.没有显示
B
假定有以下函数过程：
Functionfunc（aAsInteger,bAsInteger）AsInteger
func=a+b
EndFunction
在窗体上添加一个命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
p=func（10,20）
Printp;
EndSub
程序运行时，单击命令按钮得到的结果是_______。
A.10B.20C.30D.40
C
窗体Form1上有两个文本框Text1、Text2和一个命令按钮Command1，编写如下两个事件过程：
PrivateSubCommand1_Click（）
a=Text1.Text+Text2.Text
Printa
EndSub
PrivateSubForm_Load（）
Text1.Text="123"
Text2.Text="321"
EndSub
程序运行时点击Command1按钮，窗体上显示的运行结果是_______。
A.444B.123321C.321123D.132231
B
以下程序段的运行结果是_______。
PrivateSubForm_Click（）
DimxAsInteger
x=3
Callabcd（x）
Printx
EndSub
PublicSubabcd（nAsInteger）
n=n+5
EndSub
A.3B.5C.8D.10
C
以下程序段的运行结果是_______。
Functionabc（nAsInteger）AsInteger
abc=n*5+10
EndFunction
PrivateSubForm_Click（）
DimxAsInteger
x=abc
（2）+
升级会员 