vb综合考试试题.docx
- 文档编号:25328920
- 上传时间:2023-06-07
- 格式:DOCX
- 页数:12
- 大小:18.81KB
vb综合考试试题.docx
《vb综合考试试题.docx》由会员分享,可在线阅读,更多相关《vb综合考试试题.docx(12页珍藏版)》请在冰豆网上搜索。
vb综合考试试题
vb综合考试试题
1303班9月16日第一次综合考试试题
一、单选(本大题共25小题,每小题2分,共50分)
1.设a=2,b=3,c=4,d=5,表达式NOTa<=cOR4*c=b^2ANDb<>a+c的值是()。
A、-1B、1C、TrueD、False
2、假设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)
3、下列叙中不正确的是()
A、变量名中的第一个字符必须是字母B、变量名的长度不超过255个字符
C、变量名可以包含小数点或者内嵌的类型声明字符D、变量名不能使用关键字
4、下列关于变体类型的描述,其中正确的是_______。
A.变体是一种没有类型的数据
B.变体的空值就表示该变体的值为0
C.一个变量没有定义就赋值,该变量即为变体类型
D.变体是赋给变量某一种类型数据后,就不能再赋给它另一类型的数值
5、执行PRINT18/2*3,-3^2命令后,输出结果为_____。
A.39B.3-9
C.27-9D.-927
6、下面的_______语句可以实现:
先在窗体上输出大写字母A,然后在同一行的第10列输出小写字母b。
A.Print"A";Tab(9);"b"B.Print"A";Tab(10);"b"
C.Print"A";Space(10);"b"D.Print"A";Tab(8);"b"
7、语句PrintFormat("HELLO","<")的输出结果是______。
A.HELLOB.helloC.HeD.he
8、如果X是一个正的实数,将千分位四舍五入,保留两位小数的表达式是
a)0.01*int(x+0.05)b)0.01*int(100*(x+0.005))
c)0.01*int(100*(x+0.05))d)0.01*int(x+0.005)
9、变量未赋值时,数值型变量的值为()
a)0b)空c)1d)0.1
10、A=5,B=8,则(B-A)*Rnd+A的结果是介于______之间的数。
A.5~8B.0~5C.3~5D.0~3
11、若x=5,y=6,则表达式x+y=11的值是_____。
a)x+y=11b)11c)Trued)False
12、下列过程中对形参的定义正确的是()
A.SubF(x%,3)B.FunctionM(ByValx%)AsBoolean
C.SubFF(x%,y%)ASIntegerD.FunctionMM(x+y)
13、下列有关过程的叙述中错误的是()。
A.如果过程被定义为Static类型,则该过程中的局部变量都是Static类型
B.Sub过程中不能嵌套定义Sub过程
C.Sub过程中可以嵌套调用Sub过程
D.事件过程可以像通用过程一样由用户定义过程名
14、执行语句Printformat(5459.478,"##,#0.00"),正确的输出是______。
a)5459.48b)5,459.48c)5,459,478d)5,459.47
15、表达式Left("howareyou",3)的值是_____。
a)howb)arec)youd)ho
16、以下不属于VisualBasic系统的文件类型是_____
a).frmb).clsc).batd).vbp
17、以下程序段的运行结果是_______。
PrivateSubForm_Click()
m=1
n=1
Do
m=m*n
n=n+1
LoopUntiln>4
Printm
EndSub
A.25B.45C.55D.24
18、如果有声明Dima(5)AsInteger,则该数组共占用______个字节内存。
a)5b)6c)10d)12
19、在VisualBasic设计界面中不能隐藏的窗口是______。
a)工程窗口b)属性窗口c)立即窗口d)窗体窗口
20、8.6787E+8写成普通的十进制数是_______。
a)86787000b)867870000c)8678700d)8678700000
21、从键盘上输入一个实数nu,执行VisualBasic语句,利用字符串函数对该数进行处理,如果输出的内容不是字符END,则程序输出的内容是()
nu=InputBox("nu=")
n$=Str$(nu)
p=InStr(n$,".")
Ifp>0Then
PrintMid$(n$,p)
Else
Print"END"
EndIf
A.用字符方式输出数据nuB.输出数据的整数部分
C.输出数据的小数部分+小数点(包括小数点)
D.只去掉数据中的小数点,保留所有数字输出
22、VisualBasic中如果在立即窗口中执行以下操作,则输出的结果是()
m=123:
n=145
p=Len(Str$(m)+Str$(n))
Printp
A.2B.4C.5D.8
23、执行如下程序段时,从键盘输入-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
24、执行下面VisualBasic程序,最后输出s是()
DimaAsInteger,iAsInteger
DimbAsInteger,jAsInteger
DimsAsInteger
a=5
b=10
s=0
Fori=1Toa
b=5
Forj=1Tob
s=s+b
b=b-1
Nextj
Nexti
Prints
A.15B.30C.45D.75
25、以下说法不正确的是()
A.使用ReDim语句可以改变数组的维数
B.使用ReDim语句可以改变数组的类型
C.使用ReDim语句可以改变数组每一维的大小
D.使用ReDim语句可以对数组中的所有元素进行初始化
二、判断题(每题1分,共8分)
1.VB中,变量按其作用范围来说可以分为全局变量、模块级变量和局部变量三种类型()
2.Erase语句可以释放内存中常规数组所占的空间。
()
3.静态局部变量是在过程中用Static语句声明的。
()
4.变体型变量的数据类型是由赋给它值的数据类型决定。
设A的类型为变体型,执行A="True"后则A的类型为逻辑型。
()
5.DimXAsBoolean,Y
X=True
Y=0
PrintX>Y
程序的输出结果为False()
6.任意整数X十位上的数字可以表示为(XMOD100-XMOD10)\10。
()
7.VisualBasic具有三种基本的流程控制结构:
顺序结构、分支结构和循环结构。
()
8.在VisualBasic中,调用子过程时,如果实参是数组,则形式参数也为数组,而且形式参数的数组不能加括号。
()
三.填空:
(本大题共12分,每空2分)
1、假定当前日期为2002年7月12日,星期六,则执行语句Printday(now)后,输出结果是______。
2、根据变量的定义位置和所使用的变量定义语句的不同,VB中的变量可以分为3类,_____、模块变量和全局变量。
3、以下循环的执行次数是_____。
K=0
DoWhilek<=10
k=k+1
Loop
4、函数Len("Hello!
"+Space
(2)+Mid("Shanghai",5,3))的值是_______。
5、下列程序的执行结果为______。
A="1"
B="2"
A=Val(A)+Val(B)
B=Val("12")
IfA<>BThenPrintA-BElsePrintB-A
6、数学表达式Cos2(a+b)+5e2+lg3相对的VB表达式是________________
五、读程序,写结果(每题5分,共20分)
1、PrivateSubCommand1_Click()
a=0:
s=0
Fori=1To2
Forj=1To4
IfjMod2<>0Then
a=a+1
EndIf
a=a+1
s=s+1
Nextj
Nexti
Print"a=";a,"s=";s
EndSub
2、OptionBase1
Dima()AsInteger
PrivateSubForm_Click()
DimiAsInteger,jAsInteger
ReDima(2,2)
Fori=1To2
Forj=lTo2
a(I,j)=i*2+j
Print“a(”;i;“,”;j;“)=”;a(i,j);
Nextj
Nexti
EndSub
3、PrivateSubform_click()
Dima(3,3)AsInteger,IAsInteger
DimjAsInteger,kAsInteger,nAsInteger
n=9
Fork=5To1Step-1
Ifk>=3Then
ForI=1To6-k
a(k-3+I,I)=n
n=n-1
NextI
Else
ForI=1Tok
a(k-I+1,3-I+1)=n
n=n-1
NextI
EndIf
Nextk
Fork=1To3
ForI=1To3
Printa(k,I);
NextI
Nextk
EndSub
4.PrivateSubForm_Click()
Dimx()AsString
a="Howareyou!
"
n=Len(a)
ReDimx(1Ton)
Fori=nTo1Step-1
x(i)=Mid(a,i,1)
NextI
Fori=1Ton
Printx(i);
Nexti
EndSub
六.程序改错。
(本大题共2个小题,每题5分,共10分,每个程序有两处错误,请在答题纸上写出错误行代码和改正后的代码。
)
1.下面的程序是将一个十进制整数转换成二进制数,转换后按位放到一维数组A中,然后输出。
如输入一个数据8,将输出1000。
程序中有两处错误,请改正
Dima(10)AsInteger
DimkAsInteger
DimyuAsInteger
DimiAsInteger
i=1
k=InputBox("请输入一个数")
DoWhilek<>0
yu=k/2
a(i)=yu
k=k\2
i=i+1
Loop
Foryu=iTo1Step-1
Printa(yu);
Nextyu
2.陈婷今年17岁,植了3棵树。
以后每年多植一棵,问他到什么时候才能累计种到或超过100棵树?
DimageAsInteger,treeAsInteger
age=17
tree=3
Do
age=age-1
tree=tree+age+14
LoopUntiltree=100
Print"到";age;"岁时种到100棵树"
七、程序填空(每空5分,共20分)
1.下列程序功能是:
产生10个1~99随机奇数,将其显示出来,用冒泡法按从小到大排列输出:
OptionBase1
privatesubform_click()
dima%(10)
i=1
Dowhilei<=10
x=int(rnd*99+1)
ifxMod2<>0then
a(i)=x:
printa(i);
i=i+1
endif
Loop
fori=1to9
forj=1to____________
if_______________then
t=a(j):
a(j)=a(j+1):
a(j+1)=t
endif
Nextj
nexti
fori=1to10
printa(i);
nexti
Endsub
2.程序功能:
有一分数序列:
2/1、2/3、5/3、8/5、13/8、21/13……求出这个数列的前20项之和。
PrivateSubCommand1_Click()
Dimsassingle
Dimaasinteger,basinteger,casinteger
a=1:
b=2:
s=0
Fori=1To20
_____________
c=a+b
a=b
_____________
Nexti
Prints
EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 综合 考试 试题