VB 习题(参考解答)

VB学习版、专业版、企业版区别Visual

Basic学习版Visual

Basic学习版让编程人员很容易地创建功能强大的

MicrosoftWindows和Windows

NT(R)应用程序。它包括了所有的内部控件，加上

网格、选项卡、和数据绑定控件。与此版本一起提供的文档包括

Learn

VBNow

（这是一张多媒体

CD-ROM的标题），加上包含了完整联机文档的Microsoft

Developer

Network

CD。学习版就是简装版Visual

Basic专业版专业版向计算机专业人员提供了一套功能完整的工具，以便他们为其他人开发解决方案。专业版包含了学习版的所有功能，还加上了附加的

ActiveX控件、InternetInformationServer应用程序设计器、集成数据工具和数据环境、Active

Data

Objects、以及动态

HTML页面设计器。Visual

Basic企业版企业版允许专业人员以小组的形式来创建强健的分布式应用程序。它包括专业版的所有特性，加上

Back

Office工具，例如

SQL

Server、MicrosoftTransaction

Server、Internet

Information

Server、Visual

SourceSafe、SNA

Server等等。建立一个应用程序分为以下几步(1)建立用户界面的对象(2)对象属性的设置(3)对象事件过程及编程(4)保存和运行程序VB默认安装目录

"C:\Program

Files

\Microsoft

VisualStudio\VB98\VB6.EXE"默认保存目录

"C:\Program

Files

\Microsoft

VisualStudio\VB98\"VB常用图片、图标保存位置

"C:\Program

Files

\Microsoft

VisualStudio\Common\Graphics\"习题

二对象

指现实世界中的实体。每个对象有自己的特征(属性)、行为(方法)和发生在该对象上的活动(事件)。

类是对同一种对象的集合与抽象。类包含所创建对象的属性数据，以及对这些数据进行操作的方法。

封装和隐藏是类的重要特性，将数据结构和对数据的操作封装在一起，类的内部实现细节对用户来说是透明的。对象的三要素：属性、事件和方法。属性：存放对象的数据(决定对象外观及功能）对象属性的设置方法：在设计阶段，利用属性窗口直接设置属性值；程序运行时，通过语句[对象名.]属性名=属性值。若属性只能在设计阶段设置，在程序运行阶段不可改变，称为只读属性。事件：发生在对象上的事情。同一事件，对不同的对象，会引发不同的反应。方法：面向对象的程序设计语言，为程序设计人员提供了一种特殊的过程和函数。方法是面向对象的，调用时一定要指明对象。窗体和控件具有的基本属性Name属性：名称所创建的对象名称,在程序中引用。Caption属性：标题该属性决定了对象上显示的内容。Height、Width、Top和Left属性决定对象的大小和位置。Enabled属性：对象是否允许操作Visible属性：对象是否可见Font属性组：文本的外观

FontName字体、FontSize大小

FontBold粗体、FontItalic斜体

FontStrikethru删除线

FontUnderline下划线ForeColor属性：前景颜色BackColor属性：背景颜色MousePointer属性：鼠标指针类型,设置值范围015，由系统指定。若为99，由用户提供的图形文件定义鼠标指针形状。(10)MouseIcon属性：在MousePointer属性值为99时，存放自定义的鼠标图标文件（.ico或.cur）。图标库在Graphics目录下。窗体的事件：Load事件是在窗体被装入工作区时触发的事件。当应用程序启动，自动执行该事件，该事件通常用来在启动应用程序时对属性和变量进行初始化。窗体的方法:（1）Print方法（2）Cls方法

（3）Move方法标签和文本框标签：用于显示文本(输出)信息，不能作为输入信息的界面。其内容只能通过Caption属性设置或修改，不能直接编辑。文本框是一个文本编辑区域，可以在该区域输入、编辑、修改和显示正文内容。在VB中字符长度以字为单位，

也就是一个西文字符与一个汉字都是一个字，长度为1。文本框主要属性（1)Text

显示或输入的正文内容。Maxlength

设置文本框可输入的文字最大长度。默认值为0，表示可以输入任意长字符串。MultiLine

多行属性设置为True时，文本框可以输入或显示多行正文，同时具有文字处理器的自动换行功能，按Enter键可插入一空行。ScrollBars

滚动条属性0-None

无滚动条Horizontal水平滚动条Vertical

垂直滚动条Both

同时加水平和垂直滚动条注意：当MultiLine为True时，ScrollBars才有效PassWordChar

设置显示文本的替代符。例如，当设置为“*”，则在文本框输入的内容均以“*”显示，而存储的值是用户输入的原文。一般用于设置口令的输入。当MultiLine为True时，该属性不起作用，密码不允许多行。Locked

指定文本控件是否可被编辑，默认值为False(可编辑当设置为True时，文本控件相当于标签控件的作用。注意：Locked与Enabled的区别。

(7)文本内容进行选择操作的三个属性SelStartSelLengthSelText选定的正文开始位置选定的正文长度选定的正文内容这3个属性互相关联,例如设置SelStart、SelLength后，SelText自动存放指定的文本。注意：属性窗口中没有这三个属性，只能在程序代码中使用。让文本框活的焦点的方法是SetFocus，把光标移到指定的文本框中。文本款的Change时间和KeyPress事件Change事件：当Text属性值发生改变时引发该事件KeyPress事件：按下并且释放键盘上的一个键时，引发焦点所在控件的KeyPress事件，所按键的值存放在参数KeyAscii中。对回车的判断KeyAscii=13清除文本框的内容Text1.Text=""启动窗体时将命令按钮定位在窗体中央的代码

Private

Sub

Form_Load()nCommand1.Left

=

Form1.ScaleWidth

/

2

-Command1.Width

/

2Command1.Top

=

Form1.ScaleHeight

/

2

-Command1.Height

/

2End

Sub习题三1.合法常量：(1)Double

(2)

错误

(3)

Double

(4)

Double (5)

错误(6)Integer

(7)String

(8)String

(9)Date

(10)Double(11)错误（汉字字符）

(12)Integer(八进制)(13)错误（八进制无数码8）(14)Integer(15)Boolean(16)错误(17)错误（十六进制无数码g）(18)Single说明：浮点型变量默认为Double类型而非Single。2.合法变量名：(1)√(2)√(3)误：数字开头(4)误：含空格(5)误：关键字

(6)√(7)误：关键字

(8)误：有括号(9)

√

(10)

√

(11)

√(12)√（汉字字符可作为变量名，但不常用）变量命名规则见P.41-42。字母（汉字）开头，字母（汉字）、数字、下划线组成，长度为1-255个字符；关键字不可作为变量名，但可在变量名中嵌入关键字；不区分大小写。常量、数组、类型、函数、过程、对象命名规则与此相同。常量名通常全用大写。Abs(x

+

y)

+

z

^

5(1

+

x

*

y)

^

6(10

*

x

+

Sqr(3

*

y))

/

(x

*

y)(-b

+

Sqr(b

^

2

-

4

*

a

*

c))

/

(2

*

a1

/

(1

/

r1

+

1

/

r2

+

1

/

r3)Sin(45

*

3.14159

/

180)

+

(Exp(10)

+Log(10))

/

Sqr(x

+

y

+

1)3.

写VB表达式4.根据条件写表达式随机产生大写字母Chr(Int(Rnd

*(Asc("L")-Asc("C")+1)+Asc("C[100,200]内的随机数

Int(Rnd

*

101)+100点(x,y)位于第一或第三象限

x>0

And

y>0

Or

x<0

And

y<

0

或 x

*

y

>

0x是5或7的整数倍 x

Mod

5

=

0

Or

Int(x

/

7)

=

x

/

7将两位整数x的个位与十位对换

x\10+(x

Mod

10)*

10四舍五入取两位小数

Round(x,2)字符变量C是字母字符（不区分大小写）——准确地说是：字符变量C的第一个字符是字母C

>=

"A"

And

C

<=

"Z"

Or

C

>=

"a"

And

C

<

"z"或 UCase(C)

>=

"A"

And

UCase(C)

<=

"Z"或 LCase(C)

>=

"a"

And

LCase(C)

<=

"z"字符变量S第5个字符起取6个字符 Mid(S,

5,

6)10≤x＜20 10

<=

x

And

x

<

20x，y至少有一个小于z x

<

z

Or

y

<

z(11)x，y都大于z x

>

z

And

y

>

z6．Shell函数调用i=Shell("mspaint.exe",1) "启动画图i=Shell("C:\Program

Files\MicrosoftOffice\OFFICE11\winword.exe",1) "启动WordVB

数据类型数据类型符integer%短整型long&长整型single!单精度浮点型double#双精度浮点型currency@货币型string$字符型Boolean布尔型（逻辑性）Data时间型Byte字节型Currency货币型Variant变体变量习题四第1，3，5，8题答案在教材中找。2.赋值语句的错误（1）10x不能做变量名。上机验证结果：VB将10识别为行号，x=Sin(x)+y是为变量x赋值。故无语法错误。（2）Sqr函数的参数为负数。上机验证结果：“无效的过程调用或参数”（3）赋值号左边不是变量名。上机验证结果：“缺少子程序、函数或属性”（4）除数为0上机验证结果：“溢出”。

6．指出错误“≥”应改为“>=”，前者是中文字符，不具有运算功能。“10<x<20”应改为“10<x

And

x<20”，否则运行结果错误。7．写条件语句（1）Dim

c

As

Stringc

=

InputBox("c=")If

Mid(c,

3,

1)

=

"C"

ThenMsgBox

"Yes"ElseMsgBox

"No"End

If（2）#使用If语句x

=

Val(InputBox("x="))If

x

>

20

Theny

=

x

^

2

+

3

*

x

+

2ElseIf

x

>=

10

Theny

=

Sqr(3

*

x)

-

2ElseIf

x

>

0

Theny

=

1

/

x

+

Abs(x)End

IfPrint

"y=";

y#

使用Select

Case语句Dim

x

As

Single,

y

AsSingleDim

x

As

Single,

y

As

Singlexex

=

Val(InputBox("x="))Select

Case

xCase

Is

>

20y

=

x

^

2

+

3 * x

+2Case

Is

>=

10y

=

Sqr(3 * x)

-

2Case

Is

>

0y

=

1

/

x

+

Abs(x)End

SelectPrint

"y=";

y（3）#使用If语句Dim

x

As

Single,

y

AsSingleDim

z

As

Single,Dim

Max

As

Singlex

=

Val(InputBox("x="))y

=

Val(InputBox("y="))z

=

Val(InputBox("z="))Max

=

xIf

y

>

Max

Then

Max

=

yIf

z

>

Max

Then

Max

=

zPrint

"Max=";

Max#

使用IIF函数x

=

Val(InputBox("x="))y

=

Val(InputBox("y="))z

=

Val(InputBox("z="))Max

=

IIf(x

>

y,

x,y)Max

=

IIf(z

>

Max,z,

MaxPrint

"Max=";

Max计算循环次数（1）

6

（2）19

（3）0

（4）死循环直至溢出40号语句执行

4次；第50

号语句执行12次；执行第90号语句输出的结果是：

13，0，2说明：该程序为嵌套循环，其中外循环由j值变化（1，4，7，10）控制执行4次，当j值为13时结束循环；内循环由k值变化（6，4，2）控制执行3次，当k值为0时结束循环。第40行是外循环的循环体，故执行4次；第50行是内循环的循环体，故执行4*3=12次。可以定一个较大的循环次数，在循环体中根据条件用Exit

For退出。但这种情况通常用Do

While循环控制。编程（并非唯一正确答案）（1）Dim

i

As

Integer,

s

As

IntegerFor

i

=

1

To

10s

=

s

+

(i

+

1)

*

(2

*

i

+

1)Next

iPrint

"s=";

s（2）Dim

i

As

Integer,

n3

As

Integer,

n7

As

IntegeFor

i

=

1

To

100If

i

Mod

3

=

0

Then

n3

=

n3

+

1If

Int(i

/

7)

=

i

/

7

Then

n7

=

n7

+

1Next

iPrint"1-100中3的倍数有";n3;"个"

Print"1-100中7的倍数有";n7;"个"（3）Dim

s1

As

String,

s2

As

String,

i