秋省等考卷.docx
《秋省等考卷.docx》由会员分享，可在线阅读，更多相关《秋省等考卷.docx（12页珍藏版）》请在冰豆网上搜索。
秋省等考卷
第一部分计算机基础知识
1．信息技术指的
第二部分VisualBasic程序设计
一、选择题
21．窗体上有若干命令按钮和一个文本框，程序运行时焦点置于文本框中，为了在按下回车键时执行某个命令按钮的Click事件过程，需要将该按钮的21属性设置为True。
A．EnabledB．Default
C．CancelD．Visible
22．执行以下语句时，会出现错误提示的是22。
A．Print“2b3”+12.5B．“12.5”+12
C．Print“12.5”&12.5D．Print“2e3”+12
23．数学表达式
对应的VB表达式是23。
A．Abs（e^x+Sin（30）^3）/Sqr（x+y））
B．Abs（Exp（x）+Sin（30）^3）/（Sqr（x+y））
C．Abs（e^x+Sin（30*3.14159/180）^3）/（Sqr（x+y））
D．Abs（（Exp（x）+Sin（30*3.14159/180）^3）/Sqr（x+y））
24．下面的4个表达式中，有24个能够对Single类型变量x（正数）的第3位小数正确地进行四舍五入计算。
Format（x，“#.00”）Int（100*（x+0.005））/100
CInt（100*（x+0.005））/100Fix（100*（x+0.005））/100
A．1个B．2个C．3个D．4个
25．下面有关数组处理的叙述中，正确的是25。
A．在过程中使用ReDim语句可以改变动态数组数据的类型
B．在过程中，可以使用Dim、Private和Static语句来定义数组
C．用ReDim语句重新定义动态数组时，可以改变数组的大小，但不能改变数组的维数
D．不可以用Public语句在窗体模块的通用处说明一个全局数组
26．下列关于菜单的说法中，错误的是26。
A．每一个菜单项就是一个对象，并且可设置自己的属性和事件
B．菜单项不可以响应DblClick事件
C．VB6.0允许创建超过四级的子菜单
D．程序执行时，如果要求菜单项是灰色的，不能被用户选择，则应设置菜单项的Enabled属性为False
27．以下关于Function过程的说法中，错误的是27。
A．Function过程名可以有一个或多个返回值
B．在Function过程内部不得再定义Function过程
C．Function过程中可以包含多个ExitFunction语句
D．可以像调用Sub过程一样调用Function过程
28．以下Case语句含有错误的是28。
A．Case0To10B．CaseIs>10
C．CaseIs>10AndIs<50D．Case3,5,Is>10
29．下面的表达式中，运算结果为True的是29。
A．“abcrd”<=“ABCRD”B．Int（134.69）<=CInt（134.69）
C．3>2>1D．Mid（“Visual”,1,4）=Right（“lausiV”,4）
30．设计界面时，要使一个文本框具有水平和垂直滚动条，应先将其30属性置为True，再将ScrollBar属性设置为3。
A．MultilineB．AutoSize
C．AlignmentD．RightToLeft
二、填空题
1．执行下面程序，单击Command1，则数组元素a（1，2）的数值是
（1），a（3，3）的数值是
（2），图片框中最后一行显示的是（3）。
OptionExplicit
PrivateSubCommand1_Click（）
Dima（4,4）AsInteger,iAsInteger,jAsInteger
DimkAsInteger,numAsInteger
num=0
Fork=1To4
Fori=1Tok-1
num=num+1
a（i,k）=num
Nexti
Forj=kTo1Step-1
num=num+1
a（k,j）=num
Nextj
Nextk
Fori=1To4
Forj=1To4
Picture1.PrintRight（""&a（i,j）,3）;
Nextj
Picture1.Print
Nexti
EndSub
2．执行下面程序，单击Command1，窗体上显示的第一行是（4），第二行是（5），第四行是（6）。
OptionExplicit
PrivateSubCommand1_Click（）
DimaAsInteger,bAsInteger,iAsInteger
a=2
b=5
Fori=aToa*bStepa
Callsub1（i,a,b）
Printa,b
Nexti
Printa,b,i
EndSub
PrivateSubsub1（iAsInteger,aAsInteger,bAsInteger）
i=i+1
a=a+1
b=b+1
EndSub
3．运行下面的程序，单击Command1，在窗体上显示的变量a的值为（7），变量b的值为（8），变量c的值为（9）。
OptionExplicit
PrivateSubCommand1_Click（）
DimaAsInteger,bAsInteger,cAsInteger
a=5
b=10
c=15
Printfun（a,b,c）+fun（a,b,c）
Printa,b,c
EndSub
PrivateFunctionfun（xAsInteger,yAsInteger,zAsInteger）AsInteger
z=x
x=x+y
y=y+z
fun=x+y
EndFunction
4．执行下面的程序，单击Command1，窗体上显示的第一行是（10），第二行是（11），第四行是（12）。
OptionExplicit
PrivateSubCommand1_Click（）
DimaAsInteger,bAsInteger
a=1
b=1
Callsub1（a,b）
Printa,b
EndSub
PrivateSubsub1（aAsInteger,bAsInteger）
a=a+b
b=b+a
Printa,b
Ifa>10Then
a=a+b
b=b+a
Else
Callsub1（a,b）
EndIf
EndSub
5．运行下列程序，单击Comman1，在窗体上显示的第一行内容是（13），第二行的内容是
（14），第三行的内容是（15）。
OptionExplicit
PrivateSubCommand1_Click（）
DimsAsString
s="Basic"
Calltrans（s）
EndSub
PrivateSubtrans（sAsString）
DimjAsInteger,tAsString
DimkAsInteger
k=3
Do
j=InStr（s,"a"）
t=LCase（Right（s,j））
s=Right（t,Len（s）-k）&Left（s,Len（t））
k=k-1
Prints
LoopUntilk=0
EndSub
6．下面程序的功能计算
的值。
请完善如下程序：
OptionExplicit
PrivateSubCommand1_Click（）
DimnAsInteger,stAsString,iAsInteger
DimkAsSingle,sAsSingle,jAsInteger
n=Text1
s=1
Fori=2Ton
______（16）______
Forj=1Toi
st=st&CStr（i）
Nextj
k=______（17）_______
s=s+k
Nexti
Text2=s
EndSub
7．下面程序的功能是：
将输入的2位16进制数的每一位转换为一个四位的2进制数，再组合成为一个8位的2进制数。
OptionExplicit
PrivateSubCommand1_Click（）
DimhAsString,h1AsString*1,h2AsString*1
h=Text1
h1=Left（h,1）:
h2=Right（h,1）
Text2=h2b（h1）&h2b（h2）
EndSub
PrivateFunctionh2b（pAsString）AsString
DimstAsString,iAsInteger
st="0123456789ABCDEF"
Fori=1ToLen（st）
if_______（18）________ThenExitfor
Nexti
i=i-1
Do
h2b=_______（19）_______
i=i\2
LoopUntili<=0
h2b=______（20）_______
EndFunction
8．下面程序的功能是：
输入一个n位的整数（），求出由这n个数字组成的n位的最小整数和最大整数。
OptionExplicit
OptionBase1
PrivateSubCommand1_Click（）
DimnAsLong,a（）AsInteger,iAsInteger
DimlargeAsString,smallAsString
n=Text1
Callchange（n,a）
Callsort（a）
Fori=1ToUBound（a）
large=a（i）&large
small=______（21）______
Nexti
Text2=large
Fori=1ToLen（small）
if______（22）______ThenExitFor
Nexti
Ifi<>1Then
small=Mid（st2,i,1）&Left（small,i-1）&Right（small,Len（small）-i）
EndIf
Text3=small
EndSub
PrivateSubsort（a（）AsInteger）
DimiAsInteger,jAsInteger,tAsInteger
Fori=1ToUBound（a）-1
Forj=1ToUBound（a）-i
if_______（23）______Then
t=a（j）
a（j）=a（j+1）
a（j+1）=t
EndIf
Nextj
Nexti
EndSub
privatesubchange（（24））
DimkAsInteger
Do
k=k+1
ReDimPreservea（k）
a（k）=nMod10
n=______（25）_______
LoopUntiln=0
EndSub
9．下面程序的功能是：
在文本框1中输入若干以空格分隔的整数（末尾无空格），程序自动将输入的数据分解并存储到一个一维数组中，再把数组中所有重复的元素删除（只保留一个），并输出到文本框。
OptionExplicit
OptionBase1
PrivateSubCommand1_Click（）
Dima（）AsInteger,iAsInteger,stAsString
DimkAsInteger,pAsInteger
st=Text1
Do
p=InStr（st,""）
Ifp<>0Then
_______（26）_______
ReDimPreservea（k）
a（k）=Val（Left（st,p-1））
st=Right（st,Len（st）-p）
Else
_______（27）_______
a（k+1）=Val（st）
EndIf
loopuntil_______（28）________
Calldel（a）
Fori=1ToUBound（a）
Text2=Text2&Str（a（i））
Nexti
Text2=LTrim（Text2）
EndSub
PrivateSubdel（a（）AsInteger）
DimiAsInteger,jAsInteger,kAsInteger
Do
i=i+1
j=i+1
DoWhilej<=UBound（a）
if________（29）______Then
Fork=jToUBound（a）-1
a（k）=a（k+1）
Nextk
ReDimPreservea（UBound（a）-1）
Else
_______（30）_______
EndIf
Loop
LoopUntili>UBound（a）
EndSub
升级会员 