秋江苏省计算机等级考试二级VB考试真题及答案Word下载.docx
- 文档编号:22613428
- 上传时间:2023-02-04
- 格式:DOCX
- 页数:11
- 大小:19.17KB
秋江苏省计算机等级考试二级VB考试真题及答案Word下载.docx
《秋江苏省计算机等级考试二级VB考试真题及答案Word下载.docx》由会员分享,可在线阅读,更多相关《秋江苏省计算机等级考试二级VB考试真题及答案Word下载.docx(11页珍藏版)》请在冰豆网上搜索。
是合法的变量名。
A.absB.-a1C.cdcdD.Abc_10
26.要向文件data.txt添加数据,正确的文件打开命令是
A.Opendata1.txtForOutputAs#1
B.Opendata1.txtForInputAs#1
C.Opendata1.txtForAppendAs#5
D.Opendata1.txtForWriteAs#5
27.以下对数组参数的说明中,错误的是
A.在过程中可以用Dim语句对形参数组进行声明
B.形参数组只能按地址传递
C.实参为动态数组时,可用ReDim语句改变对应形参数组的维界
D.只需把要传递的数组名作为实参,即可调用过程
28.设a=3,b=2,c=1,运行printa>
b>
c的结果是
28
A.TrueB.FalseC.1
D.出错
29.能够将任意一个两位整数X的个位数与十位数对调(例如将78转换为87)的表达式是
29
①
Val(Right(X,1)&
Left(X,1))
②
Val(Right(Str(X),1)&
Left(Str(X),1))
③
Val(Right(CStr(X),1)&
Left(CStr(X),1))
④
Val(Mid(X,2,1)+Mid(X,1,1))
A.③B.②③C.①④D.①③④
30.下列
是正确的VB常量。
A.D-6B.E-6C.5DD.5E-6
二、填空题(请将答案填写在答题纸的相应答题号内,每个答案只占一行)
1.执行下面程序,单击Command1,则窗体上显示的第一行是
(1)
,第二行是
(2)
,第三行是
(3)
OptionExplicit
PrivateSubCommand1_Click()
DimaAsString,iAsInteger
DimxAsString,zAsString
a=iamstudent
i=InStr(5,a,d)
Do
x=Mid(a,i,3)
z=Right(x,1)
z=UCase(x&
z)
i=i-2
Printz
LoopUntili=1
EndSub
2.执行以下程序,单击Command1,则在Picture1上显示的第一行是
(4)
,第二行是(5)
(6)
DimA(3,3)AsInteger,iAsInteger,jAsInteger
DimkAsInteger
i=3:
j=2:
A(i,j)=1:
k=1
DoUntilk>
9
k=k+1
Ifi+1>
3Andj+1<
=3Then
i=1:
j=j+1
ElseIfi+1<
=3Andj+1>
3Then
i=i+1:
j=1
ElseIfi+1>
3Andj+1>
i=i-1
=3Andj+1<
=3AndA(i+1,j+1)<
>
0Then
Else
EndIf
A(i,j)=k
Loop
Fori=1To3
Forj=1To3
Picture1.PrintA(i,j)
Nextj
Picture1.Print
Nexti
3.执行下面的程序,单击Command1,则窗体上第一行显示的是
(7)
,第二行显示的是(8)
DimxAsInteger
DimyAsInteger
x=10:
y=2
Callprocess(y)
Printx,y
Callprocess((y))
PrivateSubprocess(nAsInteger)
Ifn>
x=x-n
y=x
x=x+n
y=x+2
n=-n
4.执行下面的程序,连续三次单击命令按钮Command1之后,A数组共有
(9)
个元素;
数组元素A
(2)的值是
(10),A(4)的值是
(11)
。
OptionBase1
StaticA()AsInteger,nAsInteger
DimiAsInteger,kAsInteger
k=n
n=n+2
ReDimPreserveA(n)
Fori=k+1Ton
A(i)=i*n+1
Fori=1Ton
PrintA(i)
5.执行下面的程序,单击Command1,在窗体界面上显示的第一行是
(12)
(13)
,第三行
(14),第四行是
(15)。
DimaAsInteger,bAsInteger,iAsInteger
i=1218
a=i\100
b=iMod100
Ifb<
Printa
Printb
PrintLcd((a),(b))ab
PrintLcd(a,b)ab
PrivateFunctionLcd(xAsInteger,yAsInteger)AsInteger
DimdAsInteger
Ifx<
yThen
d=x:
x=y:
y=d
d=x
IfxMody=0Then
Lcd=x
ExitDo
x=x+d
EndFunction
6.本程序的功能是利用无穷级数求cos(x)的近似值。
已知:
当第n项的绝对值小于等于10-7,计算终止。
DimxAsSingle,nAsInteger,sumAsSingle
DimaAsSingle
x=Text1
(16)
a=1
n=1
Do
a=-a
a=
(17)
sum=sum+a
n=n+1
LoopUntil
(18)
Text2=sum
7.下面程序的功能是求一个4×
4方阵的范数。
方阵的数值是随机生成的-20~20之间的整数。
方阵范数是指方阵各列元素的绝对值之和中的最大的数值。
Dima(4,4)AsInteger
DimiAsInteger,jAsInteger
Fori=1To4
Forj=1To4
a(i,j)=
(19)
Picture1.PrintRight(
&
Str(a(i,j)),4)
Text1.Text=
(20)
PrivateFunctionfan(a()AsInteger)AsInteger
Dimb(4)AsInteger,maxAsInteger
b(j)=
(21)
max=b
(1)
Fori=2To4
Ifmax<
b(i)Thenmax=b(i)
fan=max
8、下面程序的功能是,找出仅由数字1、2、3、4组成的4位素数,要求每个素数由4个不同数字组成。
算法提示:
函数Validate用于验证一个4位数是否由4个不同数字组成。
在函数中用A数组的各个元素分别对应数字0~9,只要某数字出现在四位数中,无论几次,均将该数字对应的数组元素值置为1。
DimiAsInteger,FlgAsBoolean
Fori=1234To4321
(22)
CallPrime(i,Flg)
IfFlgThen
IfValidate(i)Then
Text1=Text1&
i&
vbCrLf
PrivateSubPrime(nAsInteger,fAsBoolean)
Fork=2ToSqr(n)
(23)
Nextk
f=True
PrivateFunctionValidate(nAsInteger)AsBoolean
DimA(0To9)AsInteger,sAsString,iAsInteger
Dims1AsString*1
(24)
Fori=1ToLen(s)
s1=Mid(s,i,1)
(25)
IfA
(1)+A
(2)+A(3)+A(4)=4Then
(26)
9.下面程序的功能是:
首先生成一个由小到大已排好序的整数数组,再输入一个数据,单击“插入”按钮,会自动把这个数据插入到原数组适当的位置,并保持数组的有序性。
Dima()AsInteger
PrivateSubForm_Activate()生成有序数组
DimiAsInteger
ReDima(10)
Fori=1To10
a(i)=(i-1)*10+1
Text1=Text1&
Str(a(i))
Text2.SetFocus
DimnAsInteger,iAsInteger
n=Text2
Fori=1ToUBound(a)
If
(27)
ThenExitFor确定插入的位置
(28)
Text3=Text3&
PrivateSubinst(p()AsInteger,nAsInteger,kAsInteger)数组元素移位并实现插入
(29)
Fori=UBound(p)-1TokStep-1
(30)
p(k)=n
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 江苏省 计算机等级考试 二级 VB 考试 答案
![提示](https://static.bdocx.com/images/bang_tan.gif)