VB试题44.docx
- 文档编号:26766527
- 上传时间:2023-06-22
- 格式:DOCX
- 页数:24
- 大小:19.75KB
VB试题44.docx
《VB试题44.docx》由会员分享,可在线阅读,更多相关《VB试题44.docx(24页珍藏版)》请在冰豆网上搜索。
VB试题44
单项选择
==================================================
在一个语句内写多条语句时,每个语句之间用____________符号分隔。
A、,
B、、
C、:
D、;
答案:
C
下列程序的执行结果是____________。
x=-6^2
PrintSgn(x)+Abs(x)+Int(x)
A、0
B、-1
C、-72
D、-36
答案:
B
在Form_Click事件中执行下列语句后错误的结果是________。
A、PrintFormat,"+##,##%")的输出结果是+1,234,%
B、PrintFormat,"$###,##")的输出结果是$12,
C、PrintFormat,"000,")的输出结果是012,
D、PrintFormat,"+00")的输出结果是+05
答案:
D
为了给x,y,z三个变量赋初值1,下面正确的赋值语句是____________。
A、x=1:
y=1:
z=l
B、x=y=z=1
C、x=1,y=1,z=1
D、xyz=1
答案:
A
日期类型(Date)在程序中运用时,日期类型必须用______符号括起来。
A、$
B、%
C、#
D、@
答案:
C
有变量定义语句Dima,bAsinteger,变量a的类型和初值是________。
A、String,""
B、Integer,0
C、Long,0,0
D、Variant,空值
答案:
D
在程序中将变量Inta、Bl、St、D分别定义为Integer类型、Boolean类型、String类型和Date类型,
下列赋值语句中,正确的是______。
A、Bl=#True#
B、D=#10/05/01#
C、Inta="333"+"22"
D、St=5+"abc"
答案:
B
下面____________是合法的变量名。
A、X-Y
B、X_yz
C、integer
D、123abc
答案:
B
VisualBasic认为下面___________组变量是同一个变量。
A、A1和A_1
B、A1和a1
C、Sum和Summary
D、Aver和Average
答案:
B
表达式(7\3+1)*(18\5-1)的值是___________.
A、
B、
C、
D、6
答案:
D
Mys1、Mys2均为字符串型变量,Mys1="ABCDEFGHIJKL",Mys2="g",则下面关系表达式中结果为
True的是________________。
A、Len(Mys1)<>2*Instr(Mys1,”F”)
B、Chr(65)+Right(Msy1,5)=”AHIJKL”
C、Instr(Left(Mys1,6),”C”)+60>Asc(Ucase(Mys2))
D、Mid(Mys1,7,1)>Mys2
答案:
B
表达式Len("123程序设计ABC")的值是____________。
A、10
B、20
C、17
D、14
答案:
A
设X=,Y=,Z=,L=True,则下列VB表达式中值为True的是____________。
A、Y+X>=Z+XANDNOTL
B、NOT(Z+X>Y)ANDL
C、NOTLOR(L=Y+X=Z)
D、X+Z>YANDL
答案:
B
表达式X+1>X是_____________.
A、字符串表达式
B、非法表达式
C、算术表达式
D、关系表达式
答案:
D
函数Cint,Int,Fix的值分别是________。
A、-3,-4,-3
B、-4,-4,-3
C、-3,-4,-4
D、-4,-3,-3
答案:
B
在VisualBasic代码中,将多个语句合并在一行上的并行符是____。
A、冒号(:
)
B、感叹号(!
)
C、撇号(’)
D、问号(?
)
答案:
A
语句x=x+1的正确含义是__________.
A、将变量X的值存在X+1中去
B、将变量X的值加1后赋给变量X
C、变量X的值与X+1的值相等
D、变量X的值为1
答案:
B
i被j整除的逻辑表达式是________________。
A、i/j=0
B、i<>0
C、i\j=0
D、imodj=0
答案:
D
下面正确的赋值语句是____________。
A、x+y=30
B、3y=x
C、y=π*r*r
D、y=x+30
答案:
D
下面程序段,显示的结果是_____。
Dimx
x=Int(Rnd)+5
selectCasex
Case5
print"优秀"
Case4
print"良好"
Case3
print"通过"
CaseElse
print"不通过"
EndSelect
A、通过
B、不通过
C、良好
D、优秀
答案:
D
执行以下语句后,a的值为_____。
DimaAsInteger
a=1
DoUntila=100
a=a+2
Loop
A、溢出
B、100
C、99
D、101
答案:
A
假定时钟控件的Interval属性为1000,Enabled属性为True,并且有下面的事件过程,则1秒钟的时候
窗体上将输出_____个字母"a"。
PrivateSubTimer1_Timer()
Fori=1To10
Print"a"
Nexti
EndSub
A、10次
B、10000次
C、以上都不对
D、1000次
答案:
A
在窗体上添加一个命令按钮,名为Command1,一文本框,名为Text1,则执行如下事件过程后,文本框中
的输出为_____。
PrivateSubCommand1_Click()
Fori=1To4
x=3
Forj=1To3
Fork=1To3
x=x+3
Nextk
Nextj
Nexti
=Str(x)
EndSub
A、18
B、30
C、12
D、6
答案:
B
存在如下程序:
PrivateSubCommand1_Click()
a=Val(InputBox("请输入"))
b=Val(InputBox("请输入"))
x=a+b
Ifa>bThen
x=a-b
endif
Printx
EndSub
运行后,从InputBox对话框中连续输入3和4,输出结果为_____。
A、3
B、34
C、0
D、7
答案:
D
求解超越方程的根、求定积分、解微方程属于_____算法。
A、网络管理
B、非数值计算
C、通信
D、数值计算
答案:
D
在文本框Text1中输入数字12,Text2中输入数字34,执行以下语句,只有_____。
可使文本框Text3中
显示46。
A、Text3.Text=Val(Text1.Text)&Val
B、Text3.Text=Text1.Text&Text2.Text
C、Text3.Text=Val(Text1.Text)+Val
D、Text3.Text=Text1.Text+
答案:
C
在窗体Form1上,有一个图片控件Picture1和命令按钮控件Command1,在窗体的Command1_Click事件中
有如下代码:
PrivateSubCommand1_Click()
DimxAsInteger
Dims1AsString,s2AsString
s1="ABCDE"
Forx=1ToLen(s1)
s2=Lcase(Mid(s1,x,1))&x
s2
Nextx
EndSub
运行此程序后在窗体的第4行为_____。
A、d2
B、b4
C、d4
D、b2
答案:
C
设有如下语句:
strl=InputBox("输入","","练习")从键盘上输入字符串"示例"后,strl的值是_____。
A、“练习”
B、“示例”
C、“输入”
D、“”
答案:
B
当Form1_Click事件发生时,程序的输出结果是_____。
PrivateSubForm_Click()
DimMAsInteger,kAsInteger,tAsInteger
M=5:
k=7
SelectCaseM
case1To10
t=M:
M=k:
k=t
CaseElse
M=kMod3
EndSelect
PrintM,k,t
EndSub
A、755
B、757
C、575
D、557
答案:
A
用Msgbox("Hello",vbokonly,"你好")显示的消息对话框窗口的标题是_____。
A、OK
B、Hello
C、vbokonly
D、你好
答案:
D
在窗体(Name属性为Fomal)上画两个文本框(Name属性分别为Fext1和Text2)和一个命令按钮
(Name属性为Command1),程序如下。
执行后结果为_____。
PrivateSubCommand1_Click()
a=+
Printa
EndSub
PrivateSubForm_load()
="123"
="321"
EndSub
A、132231
B、444
C、123321
D、321123
答案:
C
下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数,不正确的语句是_____。
A、Ifsex="男"Andage=40Andduty="教授"Andduty="副教授"Thenn=n+1
B、Ifsex="男"Andage<40and(duty="教授"orduty="副教授")Thenn=n+1
C、Ifsex="男"Andage<40AndInStr(duty,"教授")>0Thenn=n+1
D、Ifsex="男"Andage<40AndRight(duty,2)="教授"Thenn=n+1
答案:
A
执行下面的程序,单击窗体后在窗体上显示的结果是_____。
PrivateSubCommand1_Click()
DimStr1AsString,Str2AsString
DimStr3AsString,IAsInteger
Str1="e"
Fori=1To2
str2=UCase(Str1)
Str1=Str2&Str1
Str3=Str3&Str1
Str1=Chr(Asc(Str1)+1)
NextI
Printstr3
EndSub
A、EEEE
B、eeFF
C、EeFF
D、eEfF
答案:
C
假设X的值是5,则执行以下语句时,可得到的输出结果是ABCDEF的SelectCase语句是_____。
A、SelectCaseX
Case1,3,Is>5
Print“ABCDEF”
EndSelect
B、SelectCaseX
CaseIs>15,Is<5
Print“ABCDEF”
EndSelect
C、SelectCaseX
CaseIs>5,1,3TO10
Print"ABCDEF"
EndSelect
D、SelectCaseX
Case10TO1
Print“ABCDEF”
EndSelect
答案:
C
给出下面的程序
PrivateSubCommand1_Click()
DimCheck,Counter
Check=True:
Counter=0
Do
Counter=Counter+1
IfCounter=10ThenCheck=False:
ExitDo
LoopUntilCheck=False
MsgBoxCounter
EndSub
程序最后弹出的消息对话框的内容是_____。
A、False
B、True
C、20
D、10
答案:
D
下列循环能正常结束循环的是_____。
A、i=5
Do
i=i+1
LoopUntili<0
B、i=6
Do
i=i-2
LoopUntili=1
C、i=1
Do
i=i+2
LoopUntili=10
D、i=10
Do
i=i+1
LoopUntili>0
答案:
D
下面程序执行的结果是_____。
PrivateSubForm_Click()
DimaAsString,bAsString
a="123"
b="456"
C=Val(a)+Val(b)
PrintC\100
EndSub
A、579
B、3
C、5
D、123
答案:
C
执行程序,单击窗体后在窗体上显示的结果是_____。
PrivateSubForm1_Click()
DimStr1AsString,Str2AsString,iAsInteger
Str1="ab"
Fori=Len(Str1)To1Step-1
Str1=Str1&Chr(Asc(Mid(Str1,i,1))+i)
Nexti
PrintStr1
EndSub
A、abce
B、abdb
C、abfd
D、abcd
答案:
B
在窗体中添加一个命令按钮,并编写如下程序代码:
PrivateSubCommand1_Click()
DimyAsInteger
y=0
DoWhiley<7
y=y+3
Loop
MsgBoxy
EndSub
程序运行后,消息对话框中显示_____。
A、8
B、9
C、7
D、6
答案:
B
填空
==================================================
有如下程序代码:
PrivateSubCommand1_Click()
m$="XYZ"
n$="xyz"
k$=LCase$(m$)
j$=UCase$(n$)
MsgBoxAsc(k$+j$)
EndSub
程序运行后消息对话框显示_____。
答案:
空1:
120
A的绝对值大于等于B同时不等于C的表达式是_____.
答案:
空1:
abs(a)>=bandabs(a)<>c
表达式Fix+Int的值是_____。
答案:
空1:
-101
已知K=2,J=3,A=True,则VB的表达式(K-J<=K)AND(NOTA)OR(K+J>=J)的值为_____。
答案:
空1:
TrueandFalseorTrue
表示"x+y小于10,且x-y要大于0"的VB表达式为_____。
答案:
空1:
X+Y<10AndX–Y>0
有如下程序:
a=100
Do
s=s+a
a=a+1
Loopwhilea>120
Printa
则a的值为_____
答案:
空1:
101
本程序用于验证一个自然数N的立方等于N个连续奇数之和,其中最大的奇数P满足关系:
P=N*(N+1)-1
例如:
43=19+17+13,最大奇数为19。
现给对话框输入6时,k和p的值为_____和_____。
PrivateSubCommand1_Click()
DimsAsString
n=InputBox("输入一个自然数")
num=n*n*n
p=n*(n+1)-1
x=p
k=1
DoUntilx=num
p=p-2
x=x+p
k=k+1
Loop
Printk;p
EndSub
答案:
空1:
6
空2:
31
运行下面的语句,单击窗体后在窗体上显示的内容是_____;
若将程序中的A语句与B语句的位置互换,再次执行程序,单击窗体后在窗体上显示的内容是_____。
PrivateSubFocus_Click()
DimxAsInteger,yAsInteger
x=1:
y=0
DoWhilex<3
y=y+x'A
x=x+1'B
Loop
Printx,y
EndSub
答案:
空1:
33
空2:
35
下列程序的运行结果为_____
PrivateSubCommand1_Click()
x=1
Fork=1To3
Ifk=1Thena=x*x
Ifk<=2Thena=x*x+1
Ifk>=3Thena=x*x+2
Printa;
Nextk
EndSub
答案:
空1:
223
运行下面的程序,就会出现_____,按_____键可以终止程序运行。
PrivateSubForm_Click()
DimiAsInteger
DoWhilei<10
i=i*20
Loop
EndSub
答案:
空1:
无限循环
空2:
Ctrl+Break
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 试题 44