河南大学09级VB程序设计课后习题参考答案Word文档格式.docx

河南大学09级VB程序设计课后习题参考答案Word文档格式.docx

《河南大学09级VB程序设计课后习题参考答案Word文档格式.docx》由会员分享，可在线阅读，更多相关《河南大学09级VB程序设计课后习题参考答案Word文档格式.docx（20页珍藏版）》请在冰豆网上搜索。

2-4

Timer1_Timer（）

Text1.Text 

Now

Caption 

Text1.Text

2-5

If 

BackColor 

vbRed 

Then

vbYellow

Else

If

2-6

Label1.Left 

<

Form1.Width 

+ 

200

-Label1.Left

2-7

Text1.Visible 

2-8

Text1_Change（）

Text2.Text 

2-9

20

FontBold 

欢迎来到"

河南大学"

Command3_Click（）

End

2-10

r 

3.14 

2 

r

Text1.SetFocus

2-11

Form_Load（）

河南大学欢迎您！

Text1.FontName 

Text1.FontSize 

50

Text1.BackColor 

Text1.ForeColor 

vbBlue

2-12

Dim 

s 

As 

String

Text1.SelText

Text2.SelText 

s

2-13

Label1.Top 

>

-Label1.Height 

- 

100

Form1.Height

3-2

n 

Integer

Randomize

Int（（90 

Rnd） 

10）

n

3-3

河南大学环境与规划学院"

Int（71 

Rnd 

3-4

Hex（Asc（Right（Text1.Text, 

1）））

3-5

m 

Date

m

3-6

b 

Left（Text1, 

1）

Right（Text1, 

Mid（Text1, 

2, 

&

3-7

Form_click（）

InputBox（"

请输入字符"

）

Left（r, 

1） 

Mid（r, 

3, 

Right（r, 

3-8

Label1.FontSize 

40 

10

Label1.BackColor 

RGB（Rnd 

256, 

256）

Label1.ForeColor 

QBColor（Int（16 

Rnd））

3-10

r!

请输入您的工资:

a 

\ 

（r 

100 

a） 

c 

50） 

d 

50 

10） 

5

e 

10 

5） 

2

f 

5 

您的工资是:

100元张数：

a

50元张数：

b

10元张数：

c

5元张数：

d

2元张数：

e

1元张数：

f

4-1

p 

Single, 

Single

Text1

Text2

Text3

（1 

r） 

^ 

MsgBox 

您的本息是：

Round（s, 

2）

4-2

max 

min 

a!

请输入第一个实数"

b!

请输入第二个实数"

a, 

b, 

4-3

请输入年份"

Mod 

4 

0 

And 

400 

您刚刚输入的年份为闰年!

您刚刚输入的年份不是闰年!

4-4

a="

b="

c!

c="

d!

m!

（-b 

Sqr（d）） 

/ 

（2 

a）

n!

X1 

;

m, 

"

X2="

（-b） 

i 

Sqr（Abs（-d）） 

+"

Abs（i） 

i"

X2 

-"

4-5

x!

x 

60 

Text2 

重考！

ElseIf 

70 

及格！

80 

中等！

90 

良好！

优秀！

Text1 

4-6

Select 

Case 

x

Is 

70

80

90

Select

4-7

请输入年龄"

30 

您的年龄为"

s, 

请参加长跑运动"

请参加跳绳运动"

请参加竞走运动"

请参加慢跑运动"

4-8

For 

To 

Step 

n;

20 

Then 

Print

Next 

4-9

1000

3 

7 

4-10

0:

Do

r% 

请输入学生成绩"

1

Loop 

Until 

-1

学生平均成绩="

（m 

（n 

4-11

（-1） 

（a 

1-2+3-4+5-6+…+99-100="

4-12

m% 

请输入正整数m（m>

=1）"

阶乘"

n% 

请输入正整数n（n>

=m）"

t 

1 

i

t

+（m+1）!

+…+n!

="

4-13

a%

b%

c%

4-14

500

i;

4-15

Long

Do 

While 

0.00001

Loop

e的近似值是"

5-2

i%, 

Array（1, 

4, 

5, 

6, 

7, 

8, 

9, 

9

s（i） 

s（i）;

5-3

Option 

Base 

x（）

x

（1）

x（i） 

x（i 

x（i）;

Next

x（10） 

x（i）

x（10）

9 

x

（1） 

5-4

a（5, 

5）

Sum 

j 

a（i, 

j） 

Int（Rnd 

51 

j）

j）;

j

Sum

5-5

a（） 

Max 

Integer, 

iMax 

jMax 

Min 

iMin 

jMin 

M 

输入M"

N 

输入N"

ReDim 

a（M, 

N）

M

N

900） 

a（1, 

1）:

j）:

i:

Max="

Max, 

iMax="

iMax, 

jMax="

jMax

Min="

Min, 

iMin="

iMin, 

jMin="

jMin

Erase 

5-6

n"

a（n, 

n）

5-7

Variant

7

3）

Preserve 

7）

or 

5-8

Command1_Click（Index 

Integer）

Index

Text3 

Val（Text1） 

Val（Text2）

3

4

6-1

y 

z 

请输入圆柱体的半径"

请输入圆柱体的高度"

volume 

x, 

y, 

z

圆柱体的体积为"

6-2

窗体模块

请输入圆柱体的