《Visual Basic.NET程序设计》 苗国义 课后习题答案 第2章.doc

第2章

1.答：

整型Integer2字节

长整型Long4字节

单精度型Single4字节

双精度型Double8字节

货币型Currency8字节

字节型Byte1字节

字符串型String1~65535字节

布尔型Boolean2字节

日期型Date8字节

对象型Object4字节

可变类型Variant

2.答：

Do循环结构

使用Do循环语句执行不确定次数的循环。

“Do循环”的语法格式如下：

Do

语句块

[ExitDo]

语句块

LoopWhile|Until条件

While循环结构

可使用While循环语句执行不确定次数的循环，While循环也称为“当型”循环。

“当型”循环结构的语法格式如下：

While条件

语句块

[ExitWhile]

语句块

EndWhile

“当型”循环的步骤：执行While循环时首先测试条件，如果条件为True就执行语句块，然后循环执行While语句测试条件；如果条件为False，则跳过所有语句到循环体外。

For循环结构

For循环结构使用一个计数器，每循环一次，计数器变量的值就会增加或减少。

其语法格式如下：

For计数器=初始值To终止值[Step步长]

语句块

[ExitFor]

Next[计数器]

3.答：

False

False

True

True

False

4.答：

PrivateSubCommand1_Click()

DimYearAsLong,SAsLong,nStrAsString

nStr=InputBox(请输入年份：,输入年份,2000)

IfnStr=ThenExitSub

Year=Val(nStr)

S=DateDiff(d,Year-2-1,Year-3-1)获取二月份的天数

IfS=29ThennStr=闰年ElsenStr=不闰年

MsgBoxYear：nStr,vbInformation,闰年判断

EndSub

5.答：

(1)

Dima

a=Int((99*Rnd)+11)

(2)

PrivateSubForm_Load()

DimaAsInteger

DimbAsInteger

a=15

b=(aMod10)*10+a\10

MsgBoxb

EndSub

(3)

Right(String1,4)

6.答：

Dima(9)asvariant

Dimiasinteger

i=0

j=9

Whileij

t=a(j)

a(i)=a(j)

a(j)=t

i=i+1

j=j-1

EndWhile

Fori=1To10

Printa(i)

Nexti