VB综合题2.docx
- 文档编号:12967321
- 上传时间:2023-06-09
- 格式:DOCX
- 页数:56
- 大小:34.46KB
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(a
A.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)+
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 综合
![提示](https://static.bingdoc.com/images/bang_tan.gif)