VB期末考试试题(A、B卷)　

VB期末考试试题（A卷）

一、选择题

1.要改变控件的宽度，应修改该控件的（B）属

fto

A、TOPB、widthC、LeftD、Height

2.将命令按钮Command1设置为不可见，应修改该命令

按钮的（A）属性。

A、VisibleB、ValueC、CaptionD、Enabled

3.单机滚动条两端的任何一个滚动箭头，将触发该滚

动条的（C）事件。

A、ScrollB、KeyDownC、changeD、Dragver

4.（D）对象具有clear方法。

A、图片框B、窗体C、复选框D、列表框

5.中心定义图片框控件的坐标系统，可采用该图片框

的（A）

A、scaleB、ScaleXC、scaleYD>setFocus

6.将通过对话框CommdDialogl的类型设置成另存为

对话框，可调用该控件的（B）方法。

A、ShowopenB、ShowsaveC>ShowColorD>

ShowFont

7.形状控件所显示的图形不可能是（D）

A、圆B、椭圆C、圆角正方形D、等边三角

形

8.由FroK=10TOoslept3：nextK循环语句控

件的循环次数是（B）

A、12B、0C、-11D、-10

9.下列数据类型中，占用内存最大值是（D）

A、BooIwanB、ByteC、LntegerD、Single

10.如果在图片框上使用绘图方法绘制一个实心圆，则

图片框的（C）属性决定了该图片的颜色。

A、BackColroB、ForelklorC、FillcolorD、

Dlawstyle

一、选择题

1.要在垂直位置上移动控件，应利用控件的（C）

属性。

A、LeftB、WidthC、TopD、Height

2.要在文本框中的文本显示掩码(密码)符，在属性

设置时，首先必须设置(D)属性为False。

A、TxetB、EnabledC、VisibleD、Multline

3.用键盘的光标键选中某一菜单项，并按回车触发菜

单的(C)的事件。

A、KeyPressB、KeyDownC、ClickD>Keyllp

4.-F(D)对象求具有Clear方法。

A、列表框B、组合框C、剪贴框D、图片框

5.软件列表中设定“文件列表”显示文件类型应改该

控件的(D)属性。

A、PathB、FileNameC、NameD>Patterw

6.组合框有三种风格，它优J由Style属性所决定，其

中为简单组合框时，Style属性值应为(B)

A、0B、1C、2D、3

7.下列可调整图片框的大小以适合图片的属性是

(B)

A>StretchB、autosizeC、pictureD>

oledropmode

8.要想清除文本框中的内容则可利用(A)进行。

A、CaptionB、TextC、ClearD>Cis

9.下列表达式中，其值为0的是(C)

A、7/9B、7mod15C、7\9D、15mod9

10.求以10为底X的常用对数的表达式为(A)

A、LoG(X)/LoG(10)B、LN(X)C、LoG(X)

/LoG(E)D、LoG(X)

二、填空题(每空2分，共20分)

1.代数式的VisualBasic表达式是

sqr((x/3+exp(-6)*log(y))*atn(a*3.14159/180)/(

x*x+y*y))

2.设x=2,y=4,a=4,b=6,表达式(a>xXorb<x)OR

x<yIMPy<b的结果用True。

3.a和b中有仅只有一个不为1,相应的Visual

Basic逻辑表达式为a〈>lxorb〈>l。

4.把条件为1£x£5写成VB表达式为:x>land

x<=5o

5.语句

Line(1000,1000)-Step(2000,1500),vbRed,BF的含

义是：在窗体上绘制以角点为(2000,2000)和(4000,

3500)的红色实心的矩形。

6.用随机函数产生10个100〜500的整数，其表达可

为：forI=1to10

a(i)=100+int(400*rnd)

nextI。

7.当x=2时，语句ifx=2thenPrintx=2的结果

值是True。

8.StaticPrivateSubcmdSumClick()

DimSumasinteger

Sum=2*Sum+l

EndSub

问：第三次单击命令按钮cmdSum后，Sum的值为：_7^

9.声明单精度常量g(重力加速度)代表9.8可写成:

constg=9.8。

10.欲使在自己设计VB程序运行过程中，不中止本程

序的运行，同时又可调用系统中已有的应用程序

c:\windows\notepad.exe,可在程序代码窗口必要的

地方添加语句：

shell("c:\windows\notepad.exe")。_____

三、编程题

1随机产生n个两位正整数(n由对话框输入，切n>0)o

求出其中的偶数之和，并在标签框Laboll上显示。

程序写在命令按钮Commandl的click事件中。

PrivateSubCommandl_Click()

DimnAsInteger

DimiAsInteger,sumAsLong

n=Vai(InputBox("Pleaseinputainteger”,

“InputNvaluez/))

Fori=1Ton

rnddat=(10+Int(90*Rnd))

IfrnddatMod2=0Then

sum=sum+rnddat

EndIf

Nexti

Label1.Caption=sum

EndSub

2由输入对话框中输入100个数值数据，放入数组a,

将其中的整数放入数组b,然后运用选择分类将数组b

中的数据按从大到小的顺序排列，并以每行5个数据

在窗体上输出。

注：程序写在窗体form的click事件上。

PrivateSubForm_Click()

Dima(lTo100)一

Dimb()asinteger

DimiAsInteger,jAsInteger,kAsInteger,pos

AsInteger,tempasinteger

Fori=1To100

a(i)=Vai(InputBox("Pleaseinputdata"))

Ifa(i)=Int(a(i))Then

J=j+1

ReDimPreserveb(j)

b(j)=a(i)

EndIf

Nexti

Fork=1Toj-1

pos=k

Form=kToj

Ifb(m)<b(pos)Thenpos=m

Nextm

Ifk<>posThen

temp=b(k)

b(k)=b(pos)

b(pos)=temp

EndIf

Nextk

Fork=1Toj

IfkMod5=0ThenPrintb(k)ElsePrintb(k);

Nextk

EndSub

四、程序阅读题（每小题6分，共18分）

1.程序1：

DimYAsInteger

PrivateStubCommandClick()

DimXAsInteger

X=1

Y二1

CallAA(Y+1)

Z=BB(X)

PrintX,Y,Z

EndSub

PrivateSubAA(ByVaiZAsInteger)

Y=Z+X

Z二X+Y

EndSub

PrivateFunctionBB(ByRefYAsInteger)

Y二Y+1

BB=X+Y

EndFunction结果:22

2)

2.程序2：

privatesubFormclick()

N二3

DimA(3,3)AsInteger

ForI=IToN

ForJ=IToN

A(I,J)二(J-1)*N+

NextJ

NextI

ForI=2ToN

ForJ=1ToI-1

TEMP=A(I,J)

A(I,J)=A(J,I)

A(J,I)二TEMP

NextJ

NextI

ForX=1ToN

PrintX,A(X,N+X-I),A(X,X)

NextX

EndSub结果：(10/

271I

311]2)

3.程序3：

PrivateSubFormclickO

DimflAsInteger,f2AsInteger,f3As

Integer

Open〃c:\al.dat〃ForOutputAs#1

fl=2:f2=3

Print〃；3,fl

Print〃；4,f2

For1=5To7

f3=fl+f2

Print#1,〃N0.〃；I,f3

fl二f2

f2=f3

NextI

Close#1

EndSub

写出文件al.dat的最终结果。(

NO.32

NO.43

NO.55

NO.68

NO.713)

五、程序填空题(每小题9分，共18分)1.从计算

机输入三个数，找出中间数

PrivateSubFindMidNum()

X=INPUTBOX(uPLEASEINPUTTHEFIRST

NUMBER")

Y二INPUTBOX("PLEASEINPUTTHESECOND

NUMBER)

Z二INPUTBOX("PLESSEINPUTTHETHIRDNUMBER)

IF(X<Y)THEN

A二X

X二Y

Y二A

ENDIF

IF(Y>=Z)THEN

PRINTY

ELSEIF(X>=Z)THEN

PRINTZ

ELSE

PRINTX

ENDIF

EndSub

2.打印以下杨辉三角形1

11

121

133

1

14641

15101051

DimQ()AsInteger

N二InputBox("PLEASEINPUTN〃)

ReDimQ(N,N)

ForI=1ToN

ForJ=1ToN

Q(I,J)二(0)

NextJ

NextI

ForK=0To(N-1)

Q(K+1,1)=1

Print1;

ForI=1ToK

Q(K+1,I+1)=(Q(K,I+1))+

Q(K,I)

Print(Q(K+1,I+1))

NextI

Print

NextK

VB期末考试试题(B卷)

1.下列代数式的VisualBasic表达式是

()o

二、填空

2.设x为大于零的实数，则大于x的最小奇数的

VisualBasic表达式是HF(int(x)mod

2=0,int(x)+2,int(x)+1)。

3.al和a2之中有且只有一个与a3的值相等，相应

的VisualBasic逻辑表达式是：al=a3xora2=a3o

有al和a2之中没有一个与a3的值相等，则相应的表

达式是：al＜〉a3anda2＜〉a3。

4.设init的初值为10,则由下列循环语句控制的循

环次数是6。

DoWhileinit〉二5

init=initT

Loop

5.在VisualBasic中，变量从它的作用范围来看，

可分为全局变量、模块级变量和过程

级变量三种。

6.语句Picturel.Circle(800,1000),500的含义是_

以圆心为(800,1000)半径为500的圆

7.声明定长为10个字符变量Sstr的语句为：Dim

SstrasString*10。

三、程序阅读题，阅读下列程序书写结构。

程序1

PrivateStaticSubCommandl_Click()

DimxAsInteger,sAsInteger

x=Vai(InputBox(〃请输入一个正整数=〃))

Ifx＜5Then

S=S*X

Else

s=s+x

EndIf

Textl.Text=〃s=〃+Str(s)

EndSub

程序运行时连续三次单击Commandl,且设输入的数是

5,2和4时,分别写出文本框textl.text的值。

结果：(s=5s二10s=40)

b)程序2

PrivateSubFormClick()

Forml.Cis

w二3

Fork=2To6Step2

Forml.Print〃w二〃；w,〃k二〃；k

w=w+1

Nextk

Forml.Print〃w二〃；w,〃k二〃；k

EndSub

写出程序运行时单击窗体后，Form1上输出结果。

结果为：(w=3k=2

W二4k二4

W=5k=6

W=6k=8)

c)程序3

Rem在窗体的通用声明区声明两个模块级变量a和y

DimaAsInteger,yAsInteger

PrivateSubFormLoad()

Open'c:\al.dat"ForOutputAs#1

Close#1

EndSub

PrivateSubConnnandl_Click()

Open'c:\al.dat〃ForAppendAs#1

Callaa(5)

y=y+a

Print#1,〃y二“；y,〃a=〃；a:Close#1

EndSub

Subaa(iAsInteger)

x=1

DoUntilx>i

a=a+x

x=x+3

Loop

EndSub

写出程序运行时连续三次单击Command1后，al.dat

文件的最终结果为：(

y=5a=5

y二15a二10

y=30a=15)

五、程序填空题(每小题9分，共18分)

a)程序说明:利用一个计时器、一个标签框和二个命

令按钮制作一个动态秒表，如图1所示。单击“开始

“命令按钮，秒表开始计时，单击“结束”命令按钮,

秒表结束计时，并在标签框显示运行时间，如“运行

T0小时2分10秒“。(假设对象的属性都在程序

代码中设定)。

DimxAsLong

DimhAsInteger,mAsInteger,sAsInteger

PrivateSubFormLoad()

Forml.Caption=〃动态秒表(小时:分：秒)〃

Commandl.Caption=〃开始[&S]〃

Command2.Caption=〃结束[&E]〃

Label1.Alignment=2'居中对齐

Label1.Capti