vb 秋笔试部分.docx
- 文档编号:2795322
- 上传时间:2022-11-15
- 格式:DOCX
- 页数:9
- 大小:33.72KB
vb 秋笔试部分.docx
《vb 秋笔试部分.docx》由会员分享,可在线阅读,更多相关《vb 秋笔试部分.docx(9页珍藏版)》请在冰豆网上搜索。
vb秋笔试部分
VB程序设计部分
一、选择题
21、在程序中将变量Inta、B1、St、D分别定义为Integer类型、Boolean类型、String类型和Date类型,下列赋值语句中,正确的是___。
A.Inta="333"+"22" B.D=#10/05/01#
C.St=5+"abc" D.B1=#True#
22、以下使用方法的语句中,正确的是___。
A.List1.Clear B.Form1.Clear
C.Combo1.Cls D.Picture1.Clear
23、以下所列的7个控件中,具有Caption属性的有____个。
PictureBox(图片框)、Frame(框架)、OptionButton(单选按钮)、ListBox(列表框)、TextBox(文本框)、Form(窗体)、DriveListBox(驱动器列表框)
A.3 B.4 C.2 D.5
24、以下有关对象属性的说法中错误的是___。
A.所有的对象都具有Name(名称)属性
B.只能在执行时设置或改变的属性为执行时属性
C.对象的某些属性只能在设计时设定,不能使用代码改变
D.Enabled属性值设为False的控件对象在窗体上将不可见
25、在窗体的通用声明处有语句DimA()AsSingle,以下在某事件过程中重定义此数组的一组正确语句是:
___。
A.ReDimA(3,3)
ReDimA(4,4)AsInteger
B.ReDimA(3,3)
ReDimPreserveA(4,4)
C.ReDimA(3)
ReDimA(3,3)AsInteger
D.ReDimA(3,3)
ReDimPreserveA(3,4)
26、在窗体Form1中用“PublicSubFun(xAsInteger,yAsSingle)”定义过程Fun,在窗体Form2中定义了变量i为Integer,j为Single,若要在Form2的某事件过程中调用Form1中的Fun过程,则下列语句中,正确的语句有____个。
(1)CallFun(i,j)
(2)CallForm1.Fun(i,j)
(3)Form1.Fun(i),j
(4)Form1.Funi+1,(j)
A.1 B.2 C.3(2、3、4对) D.4
27、在文本框Text1中输入数字12,Text2中输入数字34,执行一下语句,只有____可使文本框Text3中显示46。
A.Text3.Text=Text1.Text&Text2.Text
B.Text3.Text=Val(Text1.Text)+Val(Text2.Text)
C.Text3.Text=Text1.Text+Text2.Text
D.Text3.Text=Val(Text1.Text)&Val(Text2.Text)
28、在窗体模块的通用声明处有如下语句,会产生错误的语句是___。
(1)ConstAAsInteger=25
(2)PublicStAsString*8
(3)RedimB(3)AsInteger
(4)DimConstXAsInteger=10
A.
(1)
(2) B.
(1)(3) C.
(1)
(2)(3) D.
(2)(3)(4)
29、下列定义Sub过程的语句中,正确的语句是_____。
(1)PrivateSubTest(StAsString*8)
(2)PrivateSubTest(Sarray()AsString*5)
(3)PrivateSubTest(Sarray()AsString)
(4)PrivateSubTest(StAsString)
A.
(1)
(2) B.
(1)(4) C.
(2)(3)(4) D.
(1)
(2)(3)(4)
30、VB中利用Circle方法不可以画_____。
A.园 B.直线 C.弧 D.椭圆
二、填空题(特别说明:
由于算法的实现不是唯一的,有的题目可能有其它的答案。
此处所给的参考答案都是根据题意经过上机测试可以得到正常结果的代码)
1、将任意一个两位正整数N的个位数与十位数对换得到新数的VB表达式是(nmod10)*10+n\10或n=val(mid(trim(str(n)),2,1)+mid(trim(str(n)),1,1))
。
2、执行下面的程序,单击窗体,则在窗体上显示的第一行是123,第二行是45.
PrivateSubForm_Click()
Dima(3,3)AsInteger,iAsInteger,jAsInteger
Fori=1To3
Forj=1To3
a(i,j)=(i-1)*2+j
Nextj
Nexti
Forj=1To3
Fori=jTo3
Printa(j,i);
Nexti
Nextj
EndSub
3、执行下面程序,单击命令按钮Command1,则窗体上显示的第一行是C,第二行是CW,第三行是8。
PrivateSubCommand1_Click()
DimsAsString,tAsString
DimKAsInteger,mAsInteger
s="BASICY"
K=1:
m=K
ForK=1ToLen(s)Stepm+1
t=t&Chr(Asc(Mid(s,m,1))+K)
K=K+1
IfMid(s,K,1)="Y"ThenExitFor
m=m+K
Printt
NextK
Printm
EndSub
4、执行下面程序,单击窗体,在立即窗口上显示的第二行是41480,第三行221080。
OptionExplicit
DimAAsInteger
PrivateSubForm_Click()
DimBAsInteger
DimDAsInteger
A=1:
B=2
D=fun(A,fun(A,B))
Debug.PrintA,B,D
EndSub
PrivateFunctionfun(KAsInteger,NAsInteger)AsInteger
Debug.PrintK,N,
K=N+A+K
N=K+A+N
fun=K+N
Debug.Printfun
EndFunction
5、执行下面程序,如果不选中复选框Check1,单击命令按钮Command1,则在文本框Text1中显示的变量a的值为12、b的值为3、r的值为3;如果选中复选框Check1,单击命令按钮Command1,则文本框Text1中显示为GCD(27,12)=3(图1为本程序设计界面)。
PrivateSubCommand1_Click()
DimaAsInteger,bAsInteger,rAsInteger
a=27:
b=12
IfCheck1.Value=0Then
r=gcd(a,b)
Text1="GCD("&CStr(a)&","&CStr(b)&")="&CStr(r)
ElseIfCheck1.Value=1Then
r=gcd((a),(b))
Text1="GCD("&CStr(a)&","&CStr(b)&")="&CStr(r)
EndIf
EndSub
PrivateFunctiongcd(xAsInteger,yAsInteger)AsInteger
DimrAsInteger
r=xMody
DoWhiler<>0
x=y:
y=r
r=xMody
Loop
gcd=y
EndFunction
6、运行下面的程序,单击命令按钮Command1,则在文本框Text1中的内容是K=4,A(4)的值是8,A(5)的值是6。
OptionExplicit
PrivateSubCommand1_Click()
DimA(8)AsInteger,IAsInteger,KAsInteger
A
(1)=1:
A
(2)=4:
A(3)=6:
A(4)=4
A(5)=6:
A(6)=8:
A(7)=6:
A(8)=1
CallStat(A,K)
Text1="K="&Str(K)
EndSub
PrivateSubStat(A()AsInteger,NAsInteger)
DimIdxAsInteger,CountAsInteger,PAsInteger
DimTAsInteger
Count=UBound(A)
Do
Idx=Idx+1
P=Idx+1
DoWhileP<=Count
IfA(Idx)=A(P)Then
A(P)=A(Count)
Count=Count-1
Else
P=P+1
EndIf
Loop
N=Count
LoopWhileIdx<>Count
EndSub
7、下面程序的功能是将以“12;3;15”形式输入的字符串分解为数字12、3、15,分别赋给3个数组元素,并对其进行简单运算(图2为本程序执行画面)。
PrivateSubCommand1_Click()
Dima(3)AsInteger,iAsInteger,nAsInteger
DimsAsString
s=Text1.Text
Fori=1To2
n=InStr(s,";")
a(i)=Left(s,n-1)
s=Mid(s,n+1,Len(s)-N)_
Nexti
A(i)=val(s)
Text2.Text=a
(1)*a
(2)+a(3)
EndSub
本题更为简单的算法是:
Dims()AsString
s=Split(Text1,";")
Text2.Text=Val(s(0))*Val(s
(1))+Val(s
(2))
8、本程序是找零巧数。
所谓零巧数是具有下述特征的四位正整数:
其百位数为0,如果去掉0,得到一个三位正整数,而该正整数乘以9,等于原数。
例如2025=225*9,所以2025是零巧数(如图3所示)。
PrivateFunctionchange(sAsString)AsString
DimpAsString,iAsIntege
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 秋笔试部分 笔试 部分
![提示](https://static.bdocx.com/images/bang_tan.gif)