2022福建高职单招计算机试卷作业一

福州新知学校2022年高职单招计算机专业模拟试卷（三）一、单项选择题（在每小题的四个备选答案中，选出一个正确答案，并将正确回答的序号填在题干的括号内。每小题4分，共120分）21、下列表述中不能判断x是否为偶数的是(

)

A、x/2=Int(x/2)

B、x

Mod

2=0

C、Fix(x/2)=x/2

D、x\2=0

22、设窗体上有1个滚动条,要求单击滚动条右端的微调按钮一次,滚动条移动一定的刻度值,决定此刻度的属性是(

)

A、Max

B、Min

C、SmallChange

D、LargeChang23、设在窗体上有1个名称为Combo1的组合框,含有5个项目,要删除最后一项,正确的语句是(

)A、

B、4

C、

D、524、用于获得字符串S从第2个字符开始的3个字符的函数是（

）

A、Mid$(S,2,3)

B、Middle(S,2,3)

C、Right$(S,2,3)

D、Left$(S,2,3)25、在窗体中添加一个命令按钮，名称为CMD1，然后编写如下程序；

Private

Sub

CMD1_MouseDown(Button

As

Integer,

Shift

As

Integer,

X

As

Single,

Y

As

Single)

If

Button

=

2

Then

Print

"456"

End

If

End

Sub

Private

Sub

CMD1_MouseUp(Button

As

Integer,

Shift

As

Integer,

X

As

Single,

Y

As

Single)

Print

"123"

End

Sub]

程序运行后，在命令按钮上单击鼠标右键，则在窗体上显示的内容是（

）

A、123456

B、456

C、456123

D、123

26、要清除图片框中的图片应使用以下哪种方法（

）A、=falseB、C、=“”D、=LoadPicture(“”)二、填空题（每个空格4分，共80分）11、语句DIMarr(-3to5,2to6)

ASINTEGER定义的数组元素有

个。12、若要屏蔽框架上的控件对象，则需要设置

属性值为False。13、产生区间[10，99]间随机整数的表达式为

。14、在设计菜单时，要在菜单中加入一个菜单分隔项，则菜单分隔项的标题需设置为。15、在VB中，设A=2，B=-4，则表达式A^3\4>5+BAND“AB”<“12”的值是

。16、在ＶＢ中，要删除列表框（Ｌist1）中的指定的项目应使用的方法为

.

四、阅读分析题（阅读分析下面VB程序，将正确的运行结果填入指定的下划线上。每一题4分，共40）1、dimx(3,5)

fori=1to3

forj=1to5

x(i,j)=x(i-1,j-1)+i+jx(1,1)=x(0,0)+1+1=2x(1,2)=x(0,1)+1+2=3

nextj,i

printx(3,4)

上面程序运行时输出的结果为

。2、以下程序段的输出结果为

。X=1Y=5DoX=x*4Y=y+1Loopwhiley<=4Printx3、

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：privatesubcommand1_click()Dim

intA(4)

As

Integer

Dim

intB(4)

As

Integer

Dim

i

As

Integer

For

i

=

0

To

2

intA(i

+

1)

=

i

*

2

+

1=1

intB(3

-

i

)

=

intA(i

+

1)=1

Nexti

Print

intB(i+1)

Endsub程序运行后的结果是。4、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

PrivateSubCommand1_Click()

StaticxAsInteger

Fori=1To2

y=y+x

x=x+2

Next

Printx,y

EndSub

程序运行后，连续三次单击Command1按钮后，窗体上最后一次的结果是5、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimxAsInteger

Do

X=x+1

s=s+x

x=(x+2)*x

loopuntil

x>15

print“s=”;s,“x=”;xEndSub程序运行后的结果是。6、在窗体上画一个命令按钮，然后编写如下程序：privatesubcommand1_click()

dimiasinteger

forI=

tostep

s=s+I*10

nextI

prints,Iendsub

程序运行后，单击命令按钮，在窗体上的的输出结果为

。7、以下程序运行后，单击窗体，输出结果是

PrivateSubform_click()

DimmAsInteger

DimnAsInteger

m=3:n=5

Printm,n,test(m,n)

EndSub

PrivateFunctiontest(xAsInteger,ByValyAsInteger)

x=x+y:y=x-ytest=x*y

EndFunction8、在窗体上画一个命令按钮，然后编写如下程序：Privatesubcommand1_click()Dima(1to３,２to4)asintegerForI=1to３

Forj=２to4

A(I,j)=I*2+j＊３

NextjNextIPrinta(2,3)+a(3,2)Endsub程序运行后，单击命令按钮，在窗体上的的输出结果是

。9、在窗体上画一个命令按钮，然后编写如下程序：privatesubcommand1_click()dimintaasintegerx=1

inta=inputbox("请输入a的值：")

selectcaseinta

case1to4

x=x+1

case5to10

x=x+2

case8

x=x+3

caseelse

x=x+4

endselect

printxendsub程序运行后，单击命令按钮，在弹出的对话框中输入８，则窗体上的的输出结果是

。10、在窗体上画一个命令按钮，然后编写如下程序：privatesubcommand1_click(

)FORa=1TO5

y=1

FORb=1TO5

FORc=1TO5

y=y+c

NEXTc

NEXTb

NEXTa

PRINT“y=”；y

END

sub程序运行后，单击命令按钮，在窗体上的的输出结果为

。

五、程序填空题(请正确填充下面的VB程序，使其完成所要求的功能。每空2分，共30分)1、下面函数计算两个非负整数m与n的最小公倍数。请在空白处填入适当内容将程序补充完整。PrivateSubcommand1_click()DimmAsIntegerDimnAsIntegerm=Val(InputBox("请输入整数M：",m))n=Val(InputBox("请输入整数N：",n))ForI=2Tom

IfmModI=0And_______(1)__________Then

k=I

EndIf_____(2)___________s=

(3)

print“最小公倍数为：”,sEndSub

2、窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。

PrivateSubForm_Load()

Fori=1To100

IfiMod7=0Then

(4)

EndIf

Next

EndSub

PrivateSubCommand1_Click()

Sum=0

Fori=0To

(5)

Sum=Sum+

(6)

Next

=Sum

EndSub

４、求所有满足条件的四位数ＡＢＣＤ，它是１１的倍数，且第三位数加上第二位数等于第四位数（即Ａ＝Ｂ＋Ｃ）。Privatesub

command1_(

)DimIasintegerDimbasinteger,casintegerForI=

(7)

B=i\100

mod10

C=

(8)

If

(9)

anda=b+c

then

PrintI;

EndifNextIEndsub

5、根据如下图形，完成程序填空：PrivateSubcommand1_click()ＡＢＥＣＤＦ191817列：空格DimIAsInteger,jAsIntegers=65ForI=1To3

Printtab(20-I)；Forj=1ToI

PrintSpc(1);

（10）

;

（11）

Nextj

（12）

Next