vb 秋笔试部分.docx
- 文档编号:4413937
- 上传时间:2022-12-01
- 格式:DOCX
- 页数:11
- 大小:23.83KB
vb 秋笔试部分.docx
《vb 秋笔试部分.docx》由会员分享,可在线阅读,更多相关《vb 秋笔试部分.docx(11页珍藏版)》请在冰豆网上搜索。
vb秋笔试部分
第二部分VisualBasic程序设计
(2001年秋季)
一、选择题(用答题卡答题,答案依次填在21-30答题号内)
21.窗口上有多个控件,在Form_Activate()事件过程添加___21___语句,就可确保每次运行程序时,都将光标定位在文本框Text上。
A.Text1.Text=""
B.Text1.SetFocus
C.Form1.SetFocus
D.Text1.Visible=True
22.在程序中分别将变量Inta、Bl、St、D定义为整型、布尔形、字符串型和日期型,下列赋值语句在执行时会出错的是___22___。
A.Inta=4.6
B.Bl=#True#
C.St=5&123.5
D.D=#10/05/01#
23.代数表达式
对应的VisualBasic表达式是__23___。
A.Sqr((x+log(x))/(a+b))+exp(-2*t)+cos((x+y)/2)
B.Sqr(x+log(x))/(a+b)+exp(-2*t)+cos((x+y)/2)
C.Sqr((x+ln(x))/(a+b))+exp(-2t)+cos((x+y)/2)
D.Sqr((x+log(x))/(a+b))+exp(-2*t)+cos(x+y/2)
24.以下有关变量作用域的说法中,正确的是___24___。
A.只有在标准模块中用Public语句说明的变量才是全局变量
B.在过程中不能使用Public语句说明全局变量
C.在标准模块的通用声明处可用Private语句说明模块级变量
D.在窗体的通用声明处可用Private语句说明窗体级变量
25.语句Print"5*20"输出的结果是___25___。
A."5*20"
B.出现错误信息
C.5*20
D.100
26.下列不正确的变量名是___26___。
A.Form
B.Command
C.Text
D.Arry@
27.若磁盘文件C:
\Data1.dat不存在,下列打开文件语句中,会产生错误的是___27___。
A.Open"C:
\Data1.dat"ForOutputAs#1
B.Open"C:
\Data1.dat"ForInputAs#2
C.Open"C:
\Data1.dat"ForAppendAs#3
D.Open"C:
\Data1.dat"ForBinaryAs#4
28.改变目录列表框(DirListBox)控件的Path属性的途径可以有___28___。
①单击目录列表框某一项
②程序代码中改变目录列表框的Path属性值
③双击目录列表框某一项
④在程序中用ChDir命令设置当前工作目录
A.①②
B.②③
C.②③④
D.①②③④
29.以下有关数组的说明中,错误的是___29___。
A.根据数组说明的方式,可将数组分为动态数组和静态数组
B.在过程中,不能用Private语句定义数组
C.利用ReDim语句重新定维时,不得改变已经定义说明过的数组的数据类型
D.数组重新定维后,原有的数组元素内容将不予保留
30.窗体的Name属性为Frm1,在窗体模块通用声明处和过程Sub1中分别用PublicKAsInteger,DimKAsInteger声明了两个同名变量K,则在过程Sub1中要访问全局变量K,可采用___30___。
A.Frm1.K
B.Form.K
C.Form1.K
D.K
31.名为sort的Sub子过程的形式参数为一数组,以下的定义语句中正确的是___31___。
A.PrivateSubsort(A()AsInteger)
B.PrivateSubsort(A(10)AsInteger)
C.PrivateSubsort(ByValA()AsInteger)
D.PrivateSubsort(A(,)AsInteger)
32.可以在___32___中,使用语句PublicPubStrAsString*20定义一个定长字符串。
A.窗体模块
B.标准模块
C.类模块
D.三者均可
33.以下有关由多个窗体和标准模块组成的应用程序设计方法的叙述中,错误的是___33___。
A.在缺省情况下,设计时的第一个窗体被指定为启动窗体
B.通过人为设置,可指定任一窗体为启动窗体
C.通过人为设置,可指定标准模块中的Main()过程为启动过程
D.通过人为设置,可指定窗体模块中的Main()过程为启动过程
34.在过程中由语句ForI=N1ToN2StepN3,在该循环体内有下列四条语句,其中___34___会影响循环执行的次数。
①N1=N1+I
②N2=N2+N3
③I=I+N3
④N3=2*N3
A.①②
B.①②③
C.③
D.①②③④
35.在窗体Form1上,有一个列表框控件List1,在窗体的Click事件中有如下代码:
PrivateSubForm_Click()
DimKAsInteger
DimentryAsString,itemAsString
entry="EDCBA"
Fork=Len(entry)To1Step-1
item=LCase(Mid(entry,k,1))&k
List1.AddItemitem
Nextk
EndSub
运行此程序,单击窗体后在窗体的列表框中显示的第四个列表项内容是___35___。
A.b4
B.b2
C.d4
D.d2
二、填空题(请把答案填写在答题纸的相应答题号内,每个答题只占一行)
1.执行下面的程序,在窗体上显示的输出结果的第一行是___thisisabook.___,第二行结果是___ThisIsABook.___。
OptionExplicit
PrivateSubForm_Click()
DimsAsString,iAsInteger,flagAsBoolean
s="THISISABOOK."
s=LCase(s)
Prints
flag=True
Fori=1ToLen(s)
IfMid(s,i,1)=""Then
flag=True
ElseIfflagThen
s=Left(s,i-1)&UCase(Mid(s,i,1))&Right(s,len(s)-i)
flag=False
EndIf
Nexti
Prints
EndSub
2.执行下面的程序,在窗体上显示的输出结果的第二行是_4913__,第三行结果是__19.5__。
OPtionExplicit
DimaAsInteger,bAsInteger
PrivateSubForm_Click()
DimcAsInteger
a=1
b=3
c=5
Printfun(c)
Printa,b,c
Printfun(c)
EndSub
PrivateFunctionfun(xAsInteger)AsSingle
fun=a+b+x/2
a=a+b
b=a+x
x=b+a
EndFunction
3.执行下面的程序,第一行输出结果是__18___,第二行输出结果是___30___。
OptionExplicit
PrivateSubForm_Click()
DimMAsInteger,NAsInteger
M=1:
N=2
PrintM+N+Fun1(M,N)
M=2:
N=1
PrintFun1(M,N)+Fun1(M,N)
EndSub
PrivateFunctionFun1(XAsInteger,YAsInteger)
X=X+Y
Y=X+3
Fun1=X+Y
EndFunction
4.执行下面程序,在窗体上显示的输出结果的第二行是___456___,第五行是___987___,第六行是___654___。
OptionExplicit
PrivateSubForm_Click()
Dima(3,3)AsInteger,iAsInteger
DimjAsInteger,kAsInteher
Fori=1To3
Forj=1To3
a(i,j)=(i-1)*3+j
Printa(i,j);
Nextj
nexti
k=(i-1)*3
Fori=1To3
Forj=1To3
a(i,j)=k
k=k-1
Printa(i,j);
Nextj
Nexti
EndSub
5.执行下面的程序,在窗体上显示的第一行输出结果是___13579__,第三行输出结果是___4___,FOrm_Click()事件过程中的第二个For--Next循环共执行了___2___次。
OptionExplicit
OptionBase1
PrivateSubForm_Click()
Dima(5)AsInteger,iAsInteger,jAsInteger
Fori=1To5
a(i)=2*i-1
Printa(i)
Nexti
Forj=1ToI-2
Callsub1(a(j),j)
Printj
Nextj
EndSub
PublicSubSub1(xAsInteger,pAsInteger)
Ifx-p<=2Then
p=p+1
Else
p=p+2
EndIf
EndSub
6.下面程序的功能是统计随机产生的十个两位正整数中偶数于奇数的个数,并求出偶数与奇数各自的总和。
OptionExplicit
PrivateSubForm_Click()
DimxAsInteger,s1AsInteger,s2AsInteger
Dimn1AsInteger,n2AsInteger,iAsInteger
Randomize
Fori=1To10
x=Int(Rnd*90)+10
Printx
If__xmod2=0___Then
n2=n2+1
s2=s2+x
Else
___n1=n1+1___
s1=s1+x
EndIf
Nexti
Print"奇数个数=";n1,"偶数个数=";n2
7.下面程序功能为:
单击命令按纽Command1,找出100以内的所有约数之和为一个完全平方数的正整数,并按图中所示的格式将结果显示在图形框Picture1中。
OptionExplicit
PrivateSubCommand1_Click()
DimiAsInteger,jAsInteger
DimF()AsInteger,sumAsInteger
Fori=3To100
___sum=0___
IfFac(i,F,sum)Then
Picture1.Printi;":
";
FOrj=1ToUBound(F)-1
Picture1.PrintF(J);"+";
NextJ
Picture1.PrintF(J);"=";sum;"=";Sqr(sum);"^2"
EndIf
Nexti
EndSub
PrivateFunctionFac(ByValKAsInteger,A()AsInteger,sumAsInteger)AsBoolean
DimNAsInteger,JAsInteger
ForN=1ToK
If___kmodn=0___Then
J=J+1
___ReDimPreserveA(J)___
A(J)=N
sum=sum+N
EndIf
NextN
Ifsum=___Int(Sqr(sum))^2__ThenFac=True
EndFunction
8.C盘根目录下文件Data4.txt的内容是:
2,4,6,8,10,1,3,5,7,9。
下面程序的功能是将文件后半部分的奇数分别按序插入到前半部分的适当位置,得到的新数列是:
12345678910。
(实现方法:
第一次调整后的数列是:
1268103579第二次调整后的数列是:
12346810579)。
OptionExplict
PrivateSubForm_Click()
DimA(10)AsInteger,iAsInteger,JAsInteger
Open"c:
\Data4.txt"ForInputAs#12
Do___whilenotEof(12)__
J=J+1
Input#12,A(J)
Loop
CallInsert(A)
Fori=1To10
PrintA(i)
Nexti
Close#12
EndSub
PrivateSubInsert(A()AsInteger)
DimiAsInteger,PutpAsInteger,JAsInteger
DimGetpAsInteger,NAsInteger,TemAsInteger
N=UBound(A)/2
Putp=1
Getp=N+1
Fori=1ToN
Tem=A(Getp)
ForJ=GetpToPutp+1Step-1
__A(J)=A(J-1)__
NextJ
A(Putp)=Tem
Getp=Getp+1
Putp=___Putp+2__
Nexti
EndSub
9.下面程序的功能是从键盘上输入一个不超过4位的十进制正整数,先把该十进数的每一位数字转换位一个4位二进制数,再把得到的二进制数依次合并成为一个16位的二进制数。
例如输入十进制数359,会得到二进制数0000001101011001。
PrivateSubForm_Click()
DimnumAsInteger,sAsInteger,MAsInteger
DimiAsInteger,jAsInteger,nAsInteger
num=InputBox("输入一个长度不超过4位的十进制正整数:
",,1)
___M=num__
DoWhilenum>0
j=j+1
n=numMod10
s=cover(n)&s
___num=num\10__
Loop
Fori=1To4-j
s="0000"&s
Nexti
Text1.Text="十进制数"&CStr(M)&"的转换结果是:
"&s
EndSub
PrivateFunctioncover(ByValnAsInteger)AsString
DimiAsInteger,sAsString,kAsInteger
DoUntiln<1
___k=nMod2__
s=CStr(k)&s
n=n\2
Loop
IfLen(s)<4Then
s="0000"&S
cover=__right(s,4)__
Else
cover=s
EndIf
EndFunction
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 秋笔试部分 笔试 部分
![提示](https://static.bdocx.com/images/bang_tan.gif)