VB一模试题及答案.docx
- 文档编号:24312480
- 上传时间:2023-05-26
- 格式:DOCX
- 页数:24
- 大小:26.98KB
VB一模试题及答案.docx
《VB一模试题及答案.docx》由会员分享,可在线阅读,更多相关《VB一模试题及答案.docx(24页珍藏版)》请在冰豆网上搜索。
VB一模试题及答案
2011VB一模
1、填空题(本题共计36分)
1、已知K=2,J=3,A=True,则VB表达式(K-J<=K)AND(NOTA)OR(K+J>=J)的值为_____。
2、表示"A和B之一为零但不同时为零"的VB表达式为______。
3、能正确产生[1,30]之间的随机整数的表达式是________。
4、表达式Fix(-48.65)+Int(-52.15)的值是________。
5、A的绝对值大于等于B同时不等于C的表达式是____
(1)____.
6、下面程序运行后,输出的结果为____
(1)____。
PrivateSubCommand1_Click()
dimx$,y$,z$
x="NANJING"
y="BASIC"
z="INPUT"
z=InStr(Left(x,2)+Right(y,2),z)
Print z
EndSub
7、A=7,B=3,C=4,则表达式AMOD3+B^3/C\5的值为______。
8、语句Print"125+32=";125+32执行后,窗体上打印结果是_______.
9、下列程序执行时,要求输入一个密码,如果密码不正确则显示出非法用户的对话框。
请填空:
ConstPassWord=""
DiminpassAsString
Inpass=_______("请输入你的密码","输入密码")
Ifinpass=PassWordThen
End
Else
_______"对不起!
你是非法用户",vbOKOnly+vbCritical,"拒绝"
EndIf
10、InputBox函数返回值的类型为_________。
11、下面程序的功能是统计随机产生的10个三位正整数中偶数与奇数的个数,并求出该10个数的总和。
请将程序补充完整。
OptionExplicit
PrivateSubForm_Click()
Dimx%,s1%,n1%,n2%,i%
Randomize
Fori=1To10
x=__
(1)____
Printx;
IfxMod2=0Then
___
(2)___
else
n2=n2+1
EndIf
s=s+x
Nexti
Print"奇数个数:
";n1;"偶数个数为:
";n2;"和为";s
EndSub
12、宰相达依尔(国际象棋的发明者)想赢得象棋格子的麦子的故事大家都很熟悉,其麦子颗粒数的计算公式为:
sum=1+2+2^2+2^3+2^4+2^5+...+2^63,相应的计算程序如下,请将程序补充完整。
PrivateSubCommand1_Click()
DimxAsSingle,nAsInteger,sumAsSingle
Sum=0
For n=0To63
x=___
(1)____
____
(2)______
Next n
Print"麦子的总颗粒数为:
";Sum
EndSub
13、下列程序执行后,打印结果是______。
OptionExplicit
PrivateSubCommand1_Click()
DimiAsInteger,sumAsInteger
sum=0
Fori=3To100
IfiMod3=0AndiMod11=0Then sum=sum+i
Nexti
Printsum
EndSub
14、运行下面程序,单击窗体后在窗体上显示的第一行结果是____;第二行结果是____;第三行结果是__(3)__。
PrivateSubForm_Click()
DimiAsInteger,sAsInteger
Fori=1To10
s=s+i
Ifs>10Then
Prints
s=0
EndIf
Nexti
EndSub
15、下列程序运行的结果为___
(1)___。
执行完该程序后,共循环了____
(2)___次。
PrivateSubCommand1_Click()
DimintsumAsInteger
DimiAsInteger
Fori=1To17Step2
intsum=intsum+i
Nexti
Print intsum
EndSub
16、输入一个三位的正整数,将之反向输出。
如输入123,则输出321,完善下列程序。
PrivateSubCommand1_Click()
DimaAsInteger,bAsInteger,cAsInteger,mAsInteger
m=InputBox("输入一个正整数")
a=m\100
b=(m-a*100)\10
c=___
(1)___
MsgBox"结果="+Str(c*100+b*10+a)
EndSub
17、窗体上有3个文本框Text1,Text2和Text3,一个Command1。
为完成已知圆直径求圆周长和圆面积的功能,完善下列程序。
PrivateSubCommand1_Click()
DimdAsSingle
d=Val(Text1.Text)
Ifd>0Then
Text2=3.14159*d
Text3=___
(1)____
EndIf
EndSub
18、执行下面的程序段后,s的值为_________。
PrivateSubCommand1_Click()
s=5
Fori=2.6To4.9Step0.6
s=s+1
Nexti
Prints
EndSub
19、执行下面的程序,单击窗体后在窗体上显示的第一行结果是__
(1)___;第三行结果是__
(2)___。
PrivateSubForm_Click()
DimMystrAsString,Mystr1AsString,Mystr2AsString
Mystr1="B"
fori=1To3
Mystr2=Lcase(Mystr1)
Mystr1=Mystr1+Mystr2
Mystr=Mystr+Mystr1
PrintMystr
Mystr1=Chr(Asc(Mystr1)+I)
Nexti
EndSub
20、运行下面的程序,就会出现___
(1)___,按____
(2)____键可以终止程序运行。
PrivateSubForm_Click()
DimiAsInteger
DoWhilei<10
i=i*20
Loop
EndSub
21、运行下面的程序,单击窗体后在窗体上显示的内容是___________。
PrivateSubForm_Click()
Fori=1To10Step2
Printi;
Nexti
EndSub
22、以下循环迭代了______次。
Int1=10
DoWhileint1>=1
Int1=Int1-1
Loop
23、以下程序段产生100个1-4之间的随机整数,并统计。
数组元素s(i)的值表示等于i的随机数的个数,要求输出如下格式:
s
(1)=……
s
(2)=……
s(3)=……
s(4)=……
将程序补充完整。
PrivateSubForm_Click()
Dims(4)AsInteger
Randomize
___
(1)___
x=Int(Rnd*__
(2)___+1)
s(x)=s(x)+1
Nexti
___(3)____
Print____(4)_____
Nexti
EndSub
24、以下程序代码将整型动态数组X声明为具有20个元素的数组,并给数组的所有元素赋值.
PrivateSubCommand1_click()
___
(1)___asinteger
redim___
(2)__
fori=1to20
x(i)=1
printx(i)
nexti
EndSub
2、单项选择题(本题共计88分)
1、能被对象所识别的动作与可执行的活动分别称为对象的________。
()
A、方法、事件B、事件、方法C、事件、属性D、过程、方法
2、一个应用程序_________窗体。
()
A、只许有一个B、可以没有C、应该有两个D、可包括多个
3、VisualBasic中的工程文件的扩展名是____________。
()
A、.regB、.frmC、.basD、.vbp
4、VisualBasic中的标准模块文件的扩展名是____________。
()
A、.regB、.frmC、.basD、.vbp
5、VisualBasic中的窗体文件的扩展名是____________。
()
A、.regB、.frmC、.basD、.vbp
6、VisualBasic标题栏上显示了应用程序的____________。
()
A、大小B、位置C、名称D、状态
7、将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后,将该可执行文件到其他机器上不能运行的主要原因是____________。
()
A、运行的机器上无VB系统B、缺少.frm窗体文件C、该可执行文件有病毒D、以上原因都不对
8、一只白色的足球踢进球门,则白色、足球、踢、进球门是________。
A、属性、对象、方法、事件B、属性、对象、事件、方法
C、对象、属性、方法、事件D、对象、属性、事件、方法
9、VisualBasic是一种面向________的程序设计语言。
A、过程B、用户C、方法D、对象
10、设整型变量a、b的当前取值分别为200与20,以下赋值语句中不能正确执行的是________。
A、Text1=a/b*aB、Text1=a*a/b
C、Text1=“200”*a/bD、Text1=a&b&a
11、函数Cint(–3.5),Int(–3.5),Fix(–3.5)的值分别是________。
A、-3,–4,–3B、-4,–4,–3C、-3,–4,–4D、-4,–3,–3
12、下面的表达试的值为真的是________。
A、Mid(“VisualBasic”,1,12)=Right(“ProgramingLanguageVisualBasic”,12)
B、“ABCRG”>”abcde”
C、Int(134.69)>Cint(134.69)
D、78.9/32.77<=97.5/43.97AND–45.4>4.98
13、假定变量Logic类型是Boolean,下面赋值语句________是正确的。
A、Logic=‘True’B、Logic=.True.
C、Logic=#True#D、Logic=3<4
14、执行语句"Printformat(5459.478,"##,##0.00")",正确的输出结果是________。
A、5459.48B、5,459.48C、5,459.478D、5,459.47
15、下列语句中不能正常执行的是________。
A、print+32758+10B、print5+9=15
C、print"65"+12D、print"65"&12
16、下列表达式中,值为True的是________。
A、UCase("ABCD")>="abcd"B、14/2\3>10MOD4
C、Mid(“ABCD”,2,2)>Left(“ABCD”,2)D、not(Sqr(4)-3>=-2)
17、执行语句"PrintFormat(1234.567,"##,##0.00")",正确的输出结果是__________。
A、1234.57B、1,234.57C、1,234.56D、01,234.57
18、日期类型(Date)在程序中运用时,日期类型必须用______符号括起来。
A、#B、@C、$D、%
19、如果一个变量未指明数据类型,那么,VB默认这个变量为______变量。
A、变体型B、整型C、公共D、字符串型
20、下列____________是合法的VB变量名。
A、_5aB、我_ABC、5nameD、Use&DASF
21、MsgBox函数返回值的类型为____________。
A、整体数值B、字符串C、变体D、数值或字符串
22、以下说法不正确的是____________。
A、Chr$()函数的作用是把自变量表达式的值转换为相应的ASCII码
B、Val()函数用来把自变量字符串转换为数值
C、Log()函数产生一个0-1之间的单精度浮点数
D、Rnd()函数产生一个0-1之间的单精度浮点数
23、不能正确表示条件“两个整型变量X和Y之一为0,但不能同时为0”的布尔表达式是____。
A、X*Y=0And(X<>0OrY<>0)
B、(X=0OrY=0)And(X<>0OrY<>0)
C、Not((X=0OrY=0)And(X<>0OrY<>0))
D、X*Y=0AndX+Y<>0
24、函数Int(Rnd*11)+10的值的范围是____________。
A、[10,20]B、[0,20]C、[10,10]D、[10,11]
25、VisualBasic的一行可以写多条语句,语句之间用____________隔开。
A、逗号B、分号C、顿号D、冒号
26、如果将布尔常量False赋值给一个整形变量,则整型变量的值为____________。
A、0B、-1C、TrueD、False
27、i被j整除的逻辑表达式是________________。
A、i/j=0B、i\j=0C、i<>0D、imodj=0
28、x+y小于10且x-y要大于0的逻辑表达式是________________。
A、x+y<10,x-y>0B、(x+y<10):
(x-y)>0
C、x+y<10Andx-y>0D、x+y<10x-y>0
29、下列字符串中________________是合法变量。
A、char_1,student,No,a1234B、exp,123,x*y
C、x\y,x>yD、end,1bcx
30、赋值语句:
a=123+MID("",3,2)执行后,a变量中的值是____________。
A、"12334"B、123C、12334D、157
31、为了给x,y,z三个变量赋初值1,下面正确的赋值语句是____________。
A、x=1:
y=1:
z=lB、x=1,y=1,z=1
C、x=y=z=1D、xyz=1
32、下面正确的赋值语句是____________。
()
A、x+y=30B、y=π*r*rC、y=x+30D、3y=x
33、表达式Len("123程序设计ABC")的值是____________。
A、10B、14C、20D、17
34、己知A="",则表达式Val(Left(A,4)+Mid(A,4,2))的值为____________。
A、B、C、8D、6
35、与数学表达式(ab/3cd)对应,VB的不正确表达式是____________。
A、a*b/(3*c*d)B、a/3*b/c/dC、a*b/3/c/dD、a*b/3*c*d
36、表达式16/4-2^5*8/4MOD5/2的值为____________。
A、14B、4C、20D、2
37、语句Print"5*20"输出的结果是________。
A、"5*20"B、出现错误信息C、5*20D、100
38、若希望在离开某过程后,还能保存该过程中局部变量的值,则应使用_____关键字在该过程中定义局部变量。
A、DimB、PrivateC、PublicD、Static
39、如果x是正实数,对x的第3位小数四舍五入的表达式是____________。
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*(x+0.05)
40、有变量定义语句DimaAsinteger,b变量b的类型和初值是________。
A、Integer,0B、Variant,空值C、String,""D、Long,0,0
41、在文本框Text1中输入数字12,Text2中输入数字34,执行以下语句,只有_____可使文本框Text3中显示46。
A、Text3=Text1&Text2B、Text3=Val(Text1)+Val(Text2)
C、Text3=Text1+Text2D、Text3=Val(Text1)&Val(Text2)
42、以下__________程序段可以实施X,Y变量值的变换.
A、Y=X:
X=YB、Z=X:
Y=Z:
X=Y
C、Z=X:
X=Y:
Y=ZD、Z=X:
W=Y:
Y=Z:
X=Y
43、下列叙述不正确的是___________.
A、注释语句是非执行语句,仅对程序的有关内容起注释作用,它不被解释和编译
B、注释语句可以放在代码中的任何位置
C、注释语句不能放在续行符的后面
D、代码中加入注释语句的目的的提高程序的可读性
44、如果文本框的Enable属性被设置为False,则运行时_________.()
A、文本框中的文本将变成灰色,并且此时用户不能将光标置于文本框上
B、文本框中的文本将变成灰色,用户仍然能将光标置于文本框上,但是不能改变文本框中的内容
C、文本框中的文本将变成灰色,用户仍能改变文本框中的内容
D、文本框中文本正常显示,用户能将光标置于文本框上,但是不能改变文本框中的内容
45、语句x=x+1的正确含义是__________.
A、变量X的值与X+1的值相等B、将变量X的值存在X+1中去
C、将变量X的值加1后赋给变量XD、变量X的值为1
46、执行下面的程序,单击窗体后在窗体上显示的结果是________。
PrivateSubForm_Click()
DimStrlAsString,Str2AsString,IAsInteger
Str1=”ab”
ForI=Len(Str1)To1Step-1
Str1=Str1&Chr(Asc(Mid(Str1,I,1))+I)
NextI
PrintStr1
EndSub
A、abceB、abcdC、abdbD、abfd
47、下列语句中的语句可以用来正确地声明一个动态数组。
A、PrivateA(n)AsInteger
B、DimA()AsInteger
C、DimA(,)AsInteger
D、DimA(1ton)
48、程序运行后,消息对话框中显示的内容_____.
score=65
selectCasescore
CaseIs<60
a="F"
Case60To69
a="D"
Case70To79
a="C"
Case80To89
a="B"
Caseelse
a="A"
EndSelect
MsgBoxa
A、AB、BC、CD、D
49、下列程序运行后输出的结果是__________。
PrivateSubForm_Click()
Forj=1To15
a=a+jMod3
Nextj
Printa
EndSub
A、1B、15C、90D、120
50、下列程序运行时输入3和4,输出的结果是________。
PrivateSubCommand1_Click()
a=InputBox("请输入")
b=InputBox("请输入")
Print a+b
EndSub
A、7B、34C、3+4D、出错
51、程序运行时,3次单击命令按钮Command1后,窗体上显示的结果为______。
PrivateSubCommand1_Click()
staticAAsInteger
dimBAsInteger
Cls
B=B+2
A=A+1
printA;B
EndSub
A、12B、36C、
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 试题 答案