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

VB期末考试试题（A、B卷）

VB期末考试试题（A卷）

一、选择题

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

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、IntegerD、Single

10.如果在图片框上使用绘图方法绘制一个实心圆，则图片框的（C）属性决定了该图

片的颜色。

A、BackColroB、ForelklorC、FillcolorD、Dlawstyle

一、选择题

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

A、LeftB、WidthC、TopD、Height

2.要在文本框中的文本显示掩码（密码）符，在属性设置时，首先必须设置（D）属

性为False,

A、TxetB、EnabledC、VisibleD、Multline

3.用键盘的光标键选中某一菜单项，并按回车触发菜单的（C）的事件。

A、KeyPressB、KeyDownC、ClickD、Keylip

4.一下（D）对象不具有Clear方法。

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

5.软件列表中设定“文件列表”显示文件类型应改该控件的（D）属性。

A、PathB、FileNameC、NameD、Patterw

6.组合框有三种风格，它们由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)ORx<yIMPy<b的结果为True。

3.a和b中有仅只有一个不为1,相应的VisualBasic逻辑表达式为aOlxor

bOlo

4.把条件为1£x£5写成VB表达式为：x>=landx<=5o

5.语句

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

义是：在窗体上绘制以角点为(2000,2000)和(4000,3500)的红色实心的矩形。

6.用随机函数产生10个100〜500的整数，其表达可为：for1=1to10

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

nextI。

7.当x=2时，语句ifx=2thenPrintx=2的结果值是True。

8.StaticPrivateSubcmdSum_Click()

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)。求出其中的偶数之和，并在标

签框Laboil上显示:。程序写在命令按钮Command1的click事件中。

PrivateSubCommandl_Click()

DimnAsInteger

DimiAsInteger,sumAsLong

n=Vai(InputBox('"Pleaseinputainteger","InputNvalue"))

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,posAsInteger,tempasinteger

Fori=1To100

a(i)=Vai(InputBox(，zPleaseinputdata"))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<>posThentemp=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结果：(222)

2.程序2：

privatesubForm_click()N=3

DimA(3,3)AsInteger

ForI=IToN

ForJ=IToN

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

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结果：(104

278

31112)

3.程序3：

PrivateSubForm_click()

DimflAsInteger,f2AsInteger,f3AsInteger

Open，zc:\al.dat^ForOutputAs#1

fl=2:f2=3

Print3,fl

Print4,f2

For1=5To7

f3=fl+f2

Print

fl=f2

f2=f3

NextIClose#1

EndSub

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

NO.32

NO.43

NO.55

NO.68

NO.713)

五、程序填空题(每小题9分，共18分)L从计算机输入三个数，找出中间数

PrivateSubFindMidNum()

X=INPUTBOX(aPLEASEINPUTTHEFIRST

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

END1F

EndSub

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

1211331

14641

15101051

DimQ()AsInteger

N=InputBoxCPLEASEINPUTN〃)

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表达式是()。

二、填空

2.设x为大于零的实数，则大于x的最小奇数的VisualBasic表达式是_IIF(int(x)

mod2=0,int(x)+2,int(x)+l)。

3.al和a2之中有且只有一个与a3的值相等，相应的VisualBasic逻辑表达式是：

al=a3xora2=a3o

若al和a2之中没有一个与a3的值相等，则相应的表达式是：.al<>a3and

a2Oa3___。

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

DoWhileinit>=5

init=init-l

Loop

5.在VisualBasic中，变量从它的作用范围来看，可分为—全局变量—、—模块级变

量和—过程级变量—三种。

6.语句Picturel.Circle(800,1000),500的含义是以圆心为(800,1000)半径为

500的圆

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

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

程序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

PrivateSubForm_Click()

Forml.Clsw=3

Fork=2To6Step2

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

w=w+1

Nextk

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

EndSub

写出程序运行时单击窗体后，Forml上输出结果。结果为：(w=3k=2

W=4k=4

W=5k=6

W=6k=8)

c)程序3

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

PrivateSubForm_Load()

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

Close#1

EndSub

PrivateSubCommandl_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

LoopEndSub

写出程序运行时连续三次单击Command1后，al.dat文件的最终结果为：(

y=5a=5

y=15a=10

y=30a=15)

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

a）程序说明:利用一个计时器、一个标签框和二个命令按钮制作一个动态秒表，如图

1所示。单击“开始“命令按钮，秒表开始计时，单击“结束"命令按钮，秒表结束计

时，并在标签框显示运行时间，如“运行了0小时2分10秒“。(假设对象的属性都

在程序代码中设定)。

DimxAsLong

DimhAsInteger,mAsInteger,sAsIntegerPrivateSubFormLoad()

Forml.Caption=〃动态秒表(小时:分：秒)〃Command1.Caption=〃开始[&S]〃

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

Label1.Alignment=2'居中对齐

Label1.Caption="0:0:0〃

timerl