2021年Vb程序设计期末考试题库(附答案)

2021年Vb程序设计期末考试题库（附答案）

目录

习题一..........................................................................2

1、选择题.......................................................................2

2、判断题.......................................................................3

3、程序设计题....................................................................3

习题二..........................................................................4

1、单选题.......................................................................4

2.判断题.......................................................................5

3.程序设计题..................................................................5

习题三..........................................................................6

1.选择题.......................................................................6

2.程序阅读题（写出下列程序的运行结果）.......................................6

3.程序填空题..................................................................8

4.程序设计题.................................................................9

习题四..........................................................................9

1.选择题.......................................................................9

2.程序阅读题（写出下列程序的运行结果）......................................10

3.程序填空题.................................................................11

4.程序设计题.................................................................12

习题五.........................................................................13

1.选择题......................................................................13

2.程序阅读题（写出下列程序的运行结果）......................................13

3.程序填空题.................................................................14

4.程序设计题..................................................................15

习题六.........................................................................15

1.选择题......................................................................15

2.程序填空题.................................................................17

3.程序设计题.................................................................18

习题七.........................................................................20

1.选择题......................................................................20

2.程序填空题.................................................................21

3.程序设计题..................................................................21

习题八.........................................................................22

1.判断题......................................................................22

2.单选题......................................................................22

3.填空题......................................................................24

4.程序填空...................................................................24

五、程序设计题................................................................26

习题九.........................................................................26

1.选择题：...................................................................26

2.填空题......................................................................27

3.程序阅读题.................................................................28

3.编程题：...................................................................29

习题十.........................................................................29

1.选择题......................................................................29

2.程序设计题.................................................................31

习题参考答案...................................................................33

习题一

1、选择题

1.工程文件的扩展名为。

A、,frxB、,basC、,vbpD、・frm

2.下列不属于对象的基本特征是_______

A、属性B、方法C、事件D、函数

3.在设计模式双击窗体将显示的窗口是

A、工程窗口B、工具箱C、代码窗口D、属性窗口

4.VB中运行程序的快捷键是

A、F2B、F5C、Alt+F3D、F8

5.改变控件在窗体中的上下位置应修改该控件的____属性。

A、TopB、LeftC、WidthD、Right

A、,exeB、,basC、,frxD、frm

7.设置窗体的字体用属性。

A、FontNameB、FontSizeC、FontBoldD、Fontltalic

属性。

A、FontNameB、FontSizeC、FontBoldD、Fontltalic

9.下列选项中不属于事件的是。

A、DblclickB、LoadC、ShowD、KeyUp

10..VB编制的程序保存在磁盘上，至少会产生何种文件___o

A、・B、・・C、・D、・

2、判断题

1.VisualBasic是以结构化的Basic语言为基础、以事件驱动作为运行机制的

可视化程序设计语言。

2.面向对象的程序设计是一种以对象为基础，由事件驱动对象的编程技术。

3.事件是由VisualBasic预先定义的对象能够识别的动作。

4.新建工程时系统会自动将窗体标题设置为Forml。

5.控件的属性值不可以在程序运行时动态地修改。

6.决定对象是否可见的属性为Visible属性，决定对象可用性的属性是Enabled

属性。

7.保存VisualBasic文件时，若一个工程包含多个窗体或模块，则系统先保

存工程文件，再分别保存窗体或模块文件。

8.单击“启动”菜单项将窗体装入内存时，一定触发窗体的Load事件。

9.“事件过程”是用来完成事件发生后所要执行的程序代码。

10.在打开某窗体时，初始化该窗体中的各控件，应选用Load事件。

3、程序设计题

1.新建一个工程，单击窗体时，在窗体上显示“欢迎使用VisualBasic程序”。

生成可执行文件，保存到D盘根目录下。

2.建立一个工程，界面如图1-28所示。它由一个窗体、两个文本框和两个命

令按钮组成。单击“拷贝”按钮，可以将第一个文本框中显示的内容复制到第

二个文本框中；单击“退出”按钮退出应用程序。

图1-28题2界面图1-29题3界面

3.在窗体上添加一个标签和两个命令按钮，并把两个命令按钮的标题分别设置

为“隐藏标签”和“显示标签”。当单击第一个命令按钮时，标签消失；而当单

击第二个命令按钮时，标签重新出现，并且标签中显示“VB程序设计”。界面如

图1-29所示。

习题二

1、单选题

以下合法的VisualBasic标识符是。

A、ForLoopB、ConstC、9abcD、A#x

下列可作为VisualBasic变量名的是。

A、a#aB、4aC、?xyD、Consta

表达式6*7/8Mod9的值是o

A、4B、5C、6D、7

将数学表达式cos“a+b)+5e2写成VisualBasic表达式，其正确的形式是

A、cos(a+b)"2+5*Exp(2)B、cos"2(a+b)+5*Exp(2)

C、cos(a+b)*2+5*Ln(2)D、cos'2(a+b)+5*Ln(2)

数学关系3WxV10表示成正确的VB表达式为o

A、3<=x<103<=xandx<10

C、x>3orx<10D、3<=xand<10

设x=4,y=8,z=7,表达式x〈yand(noty>z)orz〈x的值是。

A、1B、-1C、TrueD、False

已知变量a、b、c中c最小，下列判别a、b、c能否构成三角形的逻辑表达式

为O

A、a>=bandb>=candc>0B、a+c>bandb+c>aandc>0

C、(a+b>=cora-b<=c)andc>0D、a+b>canda-b<candc>0

下面进行算术运算符号的是o

A、ImpB、ModC、NotD、Like

可以同时删除字符串前导和尾部空白的函数是。

A、LtrimB、RtrimC、TrimD、Mid

Rnd函数不可能为下列______值。

A、0B、1C、D、

Int(*100+)/100的值是o

A、198B、C、D、200

如果x是一个正实数，对x的第3位小数四舍五入的表达式是o

A、*Int(x+)B、*Int(100*(x+))

C.、*Int(100*(x+))D.、*Int(x+)

执行语句s=len(Mid(VisualBasic”,1,6))后，s的值为。

A、VisualB、BasicC、6D、11

描述x、y中有一个小于z的逻辑表达式是o

<zandy<z<zory<z<znoty<z<y<z

Int(Rnd*100)表示的是范围内的数。

A、[0,100]B、[1,99]C、[0,99]D、[1,100]

输入对话框inputbox的返回值的类型是o

A、字符串B、整数C、浮点数D、长整数

在一行内写多个语句时，每个语句之间要用符号分隔。

A、，B、；C>：D、、

一个语句要在下一行中继续书写，可以用符号作为续行符。

A、+B、-C、_D、…

下列声明语句中错误的是。

A、Constvarl=123B、Dimvar2='abc'

C、dima,basstringD、dimvar3asinteger

PrintNot10>15And8<5+2的输出结果为。

A、8B>7C、trueD、false

2.判断题

1.用DIM定义数值变量时，该数值变量自动赋初值为Oo

2,整型数值常量有整数，长整数两种。

3在逻辑运算符Not、Or、And中，运算优先级由高到低依次为Not、Or、And。

4关系表达式是用来比较两个数据的大小关系的，结果为逻辑值。

5一个表达式中若有多种运算，同一层括号内，计算机按逻辑运算一关系运算一

算术运算的顺序对表达式求值。

6赋值语句的功能是计算机表达式并转换为相同类型数据后为变量或控件属性

赋值。

3.程序设计题

1.编写窗体的单击事件代码，求一任意三角形的面积，三角形的三条边a、b、

c通过Inputbox函数输入，计算的结果存入S变量中，并以消息框的形式输出。

提示：任意三角形的面积公式丁）。%）（f七）,tt（aGbGc）/2

2.编写一段代码，求给定的一个圆的周长和面积。要求：

（1）圆的半径r利用Inputbox函数从键盘任意输入（r>0）。

（2）圆周率定义为符号常量。

（3）利用赋值语句将求出的周长和面积赋给变量L和S。

（4）用Print方法输出详细结果。

习题三

1.选择题

1.执行以下语句后的结果为O

DimxAsInteger

IfxThenPrintxElsePrintx-1

A、1B、0C>-1D、不确定

2.下列关于SelectCase测试表达式的叙述中，错误的是。

A、只能是变量名B、可以是整型C、可以是字符型D、可以是

浮点类型

3.下列关于SelectCase的叙述中，错误的是。

A、Case10To100表示判断Is是否介于10与100之间

B、Case"abc","ABC"表示判断Is是否和“abc“、“ABC”两个字符串

中的一个相同

C、Case"X"表示判断Is是否为大写字母X

D、Case-7,0,100表示判断Is是否等于字符串”-7,0,100"

4.由“Fori=lTo16Step3”决定的循环结构被执行次。

A、4B、5C、6D、7

5.若i的初值为8,则下列循环语句的循环次数为次。

DoWhilei<=17

i=i+2

Loop

A、3次B、4次C、5次D、6次

6.由“Fori=lTo9Step-3”决定的循环结构被执行次。

A、4B、5C、6D、0

2.程序阅读题(写出下列程序的运行结果)

程序L请写出单击窗体后，窗体上的显示结果。

PrivateSubForm_Click()

DimxAsInteger,yAsInteger

x=5

y=-20

IfNotx>0Thenx=y-3Elsey=x+3

Printx-y;y-x

EndSub

程序2.请写出单击窗体后，窗体上的显示结果。

PrivateSubForm_Click()

DimaAsString,bAsString

a=''abed''

b=HcdefH

e=Right(a,3)

f=Mid(b,2,3)

Ife<fThenPrinte+fElsePrintf+e

EndSub

程序3.请写出单击窗体后，窗体上的显示结果。

PrivateSubForm_Click()

DimiAsInteger,jAsInteger

DimnAsInteger

n=0

Fori=1To3

Forj=5To1Step-1

n=n+1

Nextj,i

Printn;j;i

EndSub

程序4.请写出单击窗体后，窗体上的显示结果。

PrivateSubForm_Click()

DimiAsInteger

StaticSumAsInteger

Fori=lTo10

Sum=Sum+i

Nexti

PrintSum

EndSub

程序5.请写出单击命令按钮后，窗体上的显示结果。

PrivateSubCommandl_Click()

DimsAsInteger,iAsInteger

s=1

i=l

DoWhilei<=4

s=s*i

i=i+l

Loop

Prints

EndSub

程序6.请写出单击命令按钮后，窗体上的显示结果。

PrivateSubCommandl_Click()

DimiAsInteger

DoUntili>=3

PrintTab(4*i+1);

i=i+l

Loop

EndSub

3.程序填空题一句一/十…十一方

i.【程序说明】下面是一段计算数学表达式

的程序。

PrivateSubForm_Click()

DimnAsInteger,pAsInteger,sAsSigle,qAsInteger,iAsInteger

n=InputBox("请输入N的值:“)

s=0：p=-1：q=1

Fori=1Ton

p=-p:q=Q)

s=______(2)__________

(3)

Prints

EndSub

2.【程序说明】下列程序用于计算1+(1+3)+(1+3+5)+・・・+(1+3+5+…+39)。

PrivateSubForm_Click()

DimtAsInteger,mAsInteger

DimsumAsInteger

t=0

m=1

sum=0

Do

t=(1)________

sum=sum+t

(2)_________

LoopWhile(3)

PrintHsum=n;sum

EndSub

3.【程序说明】下列程序在文本框Textl中输入任一字符串，并按相反的顺序显

示在文本框Text2中。

PrivateSubCommandl_Click()

DimnAsString,cAsString,dAsString

n=

m=(1)_______

Fori=mTo1Step-1

c=Mid(n,i91)

d=______(2)

Nexti

(3)

EndSub

4.程序设计题

1.用InputBox函数输入3个任意整数，按从大到小的顺序输出。

2.编程，输入x值，按下式计算并输出y值。

x—5x>5

x21<x<5

y=/(%)=〈二

7xO<x<1

Ox<0

3.计算下式的和，变量x与n的数值用输入对话框输入。

35

.XXX

sinx«----------1----_-二+…+(-1尸・———

13!5!7!(2〃-1)!

4.用近似公式求自然对数的底数e的值，直到前后两项之差小于10“为止。

111

e«1-F--+-1---------H.

1!3!

习题四

1.选择题

1.窗体通用部分的语句“OptionBasel”，决定本窗体中数组下标界。

A、下界必须为1B、缺省的下界为1C、下界必须为0D、缺省的下

界为0

2.用Dimc(2to5)AsInteger语句定义的数组占用个字节的内存空间。

A、4B、8C、6D、10

3.以下是VB合法的数组元素。

A、x9B、x[9]C、x(9)D、x{9}

4.设有数组声明语句：Dima(2,3to4)AsInteger

以上语句所定义的数组a为维数组，共有个元素，第一维下标从

到,第二维下标从到。

A、0B、1C、2D、3E、4F、5G、6H、

2.程序阅读题(写出下列程序的运行结果)

程序L在窗体中添加一个命令按钮，名称为Commands然后编写如下程序：

PrivateSubCommandl_Click()

Dima(5)AsInteger,b(5)AsInteger

Forj=1to4

a(j)=3*j

b(j)=a(j)*3

Nextj

=b(j\2)

EndSub

程序运行后，单击命令按钮，写出程序的运行结果。

程序2.在窗体中添加一个命令按钮(其Name属性为Commandl),然后编写

如下代码：

PrivateSubCommandl_Click()

Dima(10)AsInteger

Dimp(3)AsInteger

k=l

Fori=1To10

a(i)=i

Nexti

Fori=1To3

p(i)=a(i*2)

Nexti

Fori=1To3

k=k+p(i)*2

Nexti

Printk

EndSub

程序运行后，单击命令按钮，写出程序的运行结果。

程序3.请写出单击窗体后，窗体上的显示结果。

PrivateSubForm_Click()

Dima(5,5)AsByte,iAsByte,jAsByte

Fori=1To5:Forj=1To5

a(i,j)=i*j

Nextj,i

Fori=1To5:Printa(i,i);:Nexti

EndSub

程序4.请写出单击窗体后，窗体上的显示结果。

PrivateSubForm_Click()

Dima(lTo2,1To3)AsInteger,iAsInteger,jAsInteger

Fori=1To2

Forj=1To3

a(ij)=i+j：PrintTab(j*5+2);a(i,j),

Nextj

Print

Nexti

EndSub

3.程序填空题

1.【程序说明】以下程序产生30个两位随机整数、并按从小到大的顺序存入数

组a中，再将其中的奇数按从小到大的顺序在窗体中用紧凑格式输出。

PrivateSubForm_Click()

Dima(30)Asbyte,iasByte,jAsByte,mAsByte

Fori=1To30:a(i)=⑴：Nexti

Fori=1To29

Forj=⑵

Ifa(i)>a(j)Then

m=a(i):(3):a(j)=m

EndIf

Nextj,i

Fori=1To30

If⑷ThenPrinta(i);

Nexti

EndSub

2.【程序说明】以下程序产生20个两位随机整数存于数组之中，打印数组中大

于50的数，并求出这些数的和。

PrivateSubCommandl_Click()

Dimarr(lTo20)AsInteger

DimiAsInteger,sumAsInteger

Fori=1To20

arr(i)=U)

Nexti

sum=0

Fori=1To20

If⑵Then

Printarr(i);

sum=(3)

EndIf

Nexti

PrintTab(2);nsum=H;sum

EndSub

3.【程序说明】下列程序用来在窗体上输出如图4-2所示大小可变的正方形数据。

Dima()AsInteger

PrivateSubForm_Click()

DimnAsInteger,iAsInteger

DimjAsInteger,kAsInteger

iiiForml-1□!x|

n=Val(InputBox("请输入数据：”))11111

22222

⑴23332

23432

Fori=1To⑵23332

Forj=iTon-i+122222

11111

Fork=iTon-i+1

_________⑶

Nextk,j,i

Fori=1Ton图*2n为7时的输出图形

Forj=1Ton

PrintTabQ*3)；a(ij);

Nextj

⑷

Nexti

EndSub

4.程序设计题

1.设有a,b两矩阵，编程完成两个矩阵的相乘，结果存入c矩阵中。

一222

666

2.编程产生10个［20,40］之间的随机整数存于一维数组a中，将a数组中的元

素依次向后移动一个位置，最后一个元素移动到第一个元素的位置上。

3.用二分法对已排好序(升序)的数据进行检索。

说明：二分查找法是对一批有序的数，取其中间元素，如果该元素是要找

的数(key),输出该数的位置，否则，如果该元素大于key,则查找数列的范围

缩小到该元素的前一个元素；如果该元素小于key,则查找数列的范围缩小为该

元素的后一个元素到数列尾。重复上述方法，直到查找的数列范围缩小到0个

元素。

习题五

1.选择题

1.在过程调用中，参数的传递可以分为和两种方式。

A、按值传递B、按地址传递C、按参数传递D、按位置传递

2.在参数传递过程中，使用关键字来修饰参数，可以使之按值传递。

A、ByVaiB>ByRefC>ValueD、Reference

3.在窗体模块的通用声明段中声明变量时，不能使用关键字。

A、DimB、PublicC、PrivateD、Static

4.要想在过程调用后返回两个结果，下面的过程定义语句合法的是0

A、Subp(Byvaln,Byvalm)B、Subp(n,byvalm)

C、Subp(n,m)D、Subp(Byvaln,m)

5.Sub过程与Function过程最根本的区别是。

A、Sub过程可以使用Call语句或直接使用过程名调用，而Function过程

不可以

B、Function过程可以有参数，Sub过程不可以

C、两种过程参数的传递方式不同

D、Sub过程的过程名不能返回值，而Function过程能通过过程名返回值

2.程序阅读题(写出下列程序的运行结果)

程序L请写出三次单击命令按钮后，窗体上的显示结果。

PrivateSubp()

StaticsAsInteger

DimiAsInteger

Fori=1To10Step2

s=s+i

Nexti

Prints;

EndSub

PrivateSubCommandl_Click()

Callp

EndSub

程序2.请写出单击命令按钮后，窗体上的显示结果。

PrivateSubs(xAsSingle,yAsSingle)

DimmAsSingle

m=x

x=m/y

y=tMody

EndSub

PrivateSubCommandl_Click()

DimaAsSingle,bAsSingle

a=8

b=5

Calls(a9b)

Printa,b

EndSub

3.程序填空题

1.【程序说明】如果两个质数的差为2,就称这两个质数为质数对。下列程序用

于输出100以内的质数对。

PrivateFunctionp(mAsInteger)AsBoolean

DimiAsInteger

⑴

Fori=2ToSqr(m)

If(2)Thenp=False:ExitFor

Nexti

EndFunction

PrivateSubCommandl_Click()

DimiAsInteger

DimplAsBoolean,p2AsBoolean

pl=P(3)

Fori=5To99Step2

p2=p(i)

IfplAndp2ThenPrint(3)

pl=p2

Nexti

EndSub

2.【程序说明】下列过程用选择法对double类型数组按值从小到大排序。

PrivateSubSort((1])

DimiAsInteger,jAsInteger,kAsInteger,tAsDouble

Fori=1To(2)

k=i

Forj=i+1Ton

If⑶Thenk=j

Nextj

t=a(i):a(i)=a(k):a(k)=t

Nexti

EndSub

3.【程序说明】下列程序用于将一维数组反序排放。

PrivateSubswap(b()AsInteger,nAsInteger)

DimmAsInteger,iAsInteger

Fori=1To⑴

m=b(i)

b(i)=⑵

b(n-i+1)=m

Nexti

EndSub

PrivateSubCommandl_Click()

Dima(lTo10)AsInteger

DimiAsInteger

Fori=1To10

a(i)=i

Printa(i);

Nexti

Print

Callswap([3])

Fori=1To10

Printa(i);

Nexti

EndSub

4.程序设计题

1.编制通用函数过程，计算Double类型一维数组所有元素的平均值。

2.编制通用Sub过程，在一个m行n列二维数组中查找绝对值最大的元素，

以及该元素的行号、列号(提示：Sub过程的形参列表如x()AsSingle,mAsbyte,

nAsByte,xmaxAsSingle,kiAsByte,kjAsByte)。

习题六

1.选择题

1.要为按钮设计一个访问键A,应该在Caption中加入

A.&AB.@AC.$AD.#A

2.要把按钮设置为不可使用，应设置属性为False。

A.EnableB.DefaultC.CancelD.Caption

3.要使按钮能够显示图片，应先设置_______属性。

A.StyleB.EnableC.IndexD.Caption

4.将命令按钮Commandl设置为窗体的缺省按钮，可修改该控件的

属性。

A.EnabledB.ValueC.DefaultD.Cancel

5.将焦点主动设置到指定的控件或窗体上，应采用方法。

A.SetDateB.SetFocusC.SetTextD.SelText

6.要使标签控件的大小能随Caption属性的大小自动调整，应该设置

属性为Trueo

A.EnabledB.VisibleC.AutoSizeD.Alignment

7.要使文本框显示滚动条，需先设置_______属性。

A.AutoSizeB.MultiLineC.AlignmentD.ScrollBars

8.下列属性表示文本框中选定的内容。

A.SelLengthB.TextC.CaptionD.SelText

9.下列控件没有Caption属性。

A.命令按钮B.标签C.框架D.文本框

10.下列不能接收焦点的控件是-

A.命令按钮B.文本框C.标签D.列表框

11.改变文本框中文字的颜色，应该修改属性。

A.BackColorB.ForeColorC.FontD.FontBold

12.选中单选按钮控件时，Value属性的值为。

A.TrueB.FalseC.0D.1

13.选中复选框控件时，Value属性的值为。

A.TrueB.FalseC.0D.1

14.若要在同一窗体中安排两组单选按钮(OptionButton)可用控件

予以分隔。

A.文本框B.框架C.列表框D.组合框

15.下列对象具有编辑功能，即运行时可以进行输入或修改。

A.下拉式列表框B.下拉式组合框C.复选框D.标签

16.不能通过来删除列表框中的表项。

A.Removeitem方法B.Clear方法C.Text属性

17.若要把“XXX”成为Listl清单中的第三项，则可执行语句o

A."XXX",3B."XXX",2

C.3,"XXX"D.2,"XXX"

18.设置列表框各表项中的文本，用属性。

A.SelectedB.ListC.TextD.Caption

19.下面表示列表框控件Listl的最后一个项目。

A.()B.()

C.()D.()

20.o

A.删除最后一项B.删除所有项C.出错D.显示所有项

21.下列关于组合框的说法中，正确的是o

A.组合框有Click事件，没有Change事件。

B.组合框有Change事件，没有Click事件。

C.组合框既有Change事件，也有Click事件。

D.组合框没有Change事件和Click事件。

22.滚动条的属性用于指定用户单击滚动条的滚动箭头时,Value属性

值的增减量。

A.LargeChangeB.SmallChangeC.ValueD.Change

23.单击滚动条两端的任意一个滚动箭头，都将触发该滚动条的事件。

A.KeyDownB.ChangeC.ScrollD.Click

24.下列事件中，能够触发滚动条的Scroll事件。

A.单击滚动条两端的滚动箭头B.单击滚动条上滑块两侧的空白处

C.单击滚动条上的滑块D.拖动滚动条上的滑块

25.在任何情况下，控件在运行时都不可见。

A.标签B.按钮C.复选框D.定时器

26.下列控件没有Value属性。

A.滚动条B.复选框C.定时器D.单选按钮

27.下列设置中，可以使定时器Timerl停止计时的是。

A.=TrueB.=False

C.Timerl.Enabled=TrueD.Timerl.Enabled=False

28.定时器控件的属性决定Timer事件发生的时间间隔。

A.IntervalB.TopC.VisibleD.Enabled

29.要将一个控件设置成为一个控件数组，应该设置_______属性。

A.IndexB.TabindexC.CaptionD.Enabled

30.下面有关控件数组的说法，错误的是：o

A.控件数组由一组具有共同名称和相同类型的控件组成。

B.控件数组中的每一个控件共享同样的事件过程。

C.控件数组中的每个元素的下标由控件的Index属性指定。

D.同一控件数组中的元素只能有相同的属性设置。

2.程序填空题

1、程序说明：密码验证程序。在窗体上已建立一个标签Label1、文本框Textl

和命令按钮Commandl。请将以下事件过程填完整。

PrivateSubForm_Load()

Textl.______OL_________=〃*〃

EndSub

PrivateSubCommand1_Click()

If(2)=〃ABC〃Then,密码不区分大小写

MsgBox”密码正确”

Else

MsgBox〃密码错误〃

EndIf

EndSub

2、以下程序用于实现字符串的反转。在Textl中输入字符串并按回车确认后，

在Text2中显示反转字符串，请将程序补充完整。

PrivateSubTextl_KeyPress(KeyAsciiAsInteger)

DimiAsInteger,xAsString,yAsString

If⑴Then

x=

⑵

Fori=nTo1Step-1

(3)

Nexti

⑷

EndIf

EndSub

3、以下程序可以将列表框中同时选中的多个列表项删除，请将程序补充完整。

PrivateSubCommandl_Click()

i=0

DoWhilei<(1)

If(i)=TrueThen

⑵

Else

⑶

EndIf

Loop

EndSub

4、程序说明：在窗体上有一个标签Label1和一个水平滚动条Hscrolll,其Min

的值为0,Max的值为100,程序运行后，单击滚动条两端的箭头和拖动滚动

滑块时，在标签中实时显示滚动条的值。

PrivateSubHScrolllU)()

(2)

EndSub

PrivateSubHScrolll(3)()

⑷

EndSub

3.程序设计题

i、编程实现文本框内文本信息的剪切、复制和粘贴的功能。界面设计如图1所

示，要求各命令按钮为一个控件数组。

a)程序刚运行时3个命令按钮都不能响应。

b)选择文本后，“剪切”和“复制”按钮能响应。

c)单击“剪切”或“复制”按钮后，只有“粘贴”按钮能响应。

d)单击“粘贴”按钮后，3个命令按钮都不能响应。

图6-35程序设计题1的界面设计

2、设计一个程序，要求在文本框中输入两个操作数后，通过单选按钮来选择进

行+、-、*或/的运算，同时，在标签框中显示相应地操作符，结果显示在第

三个文本框中。图2为第二个文本框中输入0时的情况。

工程1xj

除数不能为。，语重输或选择其他的运算符

:旗爱::二;|

图6-36程序设计题2的运行界面

3、设计一个程序，在列表框和组合框之间进行信息的移动，没有选择项时给出

相应的提示。程序运行情况如图3所示。

图6-37程序设计题3的运行界面

4、利用定时器设计一个滚动标签（从左到右），标签在程序刚开始运行时不可

见。

习题七

1.选择题

1.控件在窗体上的上下位置由下列属性决定。

A.TopB.LeftC.WidthD.Height

2.(-200,-100)-(2000,1000)后，窗体Forml的ScaleWidth属性值为

A.200B.1800C.2000D.2200

3.用Scale方法改变窗体坐标系后，下面_______属性值发生改变。

A.ScaleWidthB.WidthC.HeightD.DrawMode

4.在VB窗体中，默认的坐标单位是_______—

A.PixelB.TwipC.cmD.mm

5.设置_______属性可以使图片显示在图片框或影像框中。

A.PictureB.ImageC.IconD.DownPicture

6.程序运行时，可用_______函数把图形装入窗体、图片框或影像框。

A.AutoSizeB.StretchC.PictureD.LoadPicture

7.将图片框的_______属性设置为True时，可使图片框根据图片调整大小,

A.PictureB.AutoSizeC.StretchD.AutoRedraw

8.将影像框的_______属性设置为False时，可使影像框根据图片调整大小

A.PictureB.AutoSizeC.StretchD.AutoRedraw

9.在VisualBasic中，_______不能作为其他控件的容器。

A.框架B.图片框C.影像框D.窗体

10.要使Shape控件以实心方式填充，应设置________属性。

A.FillColorB.FillStyleC.ForeColorD.BackStyle

11.下面_______属性决定Shape控件的图形。

A.ShapeB.FillColorC.FillStyleD.BorderWidth

12.下列表达式中，_______不是红颜色的值。

A.VBRedB.RGB(255,0,0)C.QBColor(l)D.&HFF

13.VisualBasic用下列哪条指令来绘制直线________。

A.Line方法B.Pset方法C.Circle方法D.Point函数

14.下列属性用来设置图形的边框类型。

A.BorderWidthB.BorderStyleC.DrawWidthD.FillStyle

15.属性可用来设置所绘线条宽度。

A.DrawStyleB.DrawWidthC.BorderStyleD.BorderWidth

16.使用Circle方法不能绘制的图形是。

A.圆角矩形B.椭圆C.圆弧D.圆饼图

17.语句“LineQOOO,1000)-(3000,3000)”B”绘制的是。

A.直线B.矩形C.椭圆D.圆弧

18.语句aCircle(1000,1000),500„-Ji/3,-Ji绘制的是。

A.圆弧B.椭圆C.扇形D.同心圆

19.语句“Circle(1000,1000),500,,”2”绘制的是。

A.圆弧B.椭圆C.扇形D.同心圆

20.描述以(1000,1000)为圆心，以400为半径画1/4圆弧的语句，以下正确的

是O

A.Circle(1000,1000),4