VisualBasic程序设计-实验报告册参考答案

VisualBasic程序设计—实验报告册-参考答案试验一

VERSION

5.00

Begin

VB.Form

Form1

Caption

=

“Form1“ClientHeight

=

3195

ClientLeft

=

60

ClientTop

=

345

ClientWidth

=

4680

LinkTopic

=

“Form1“ScaleHeight

=

3195

ScaleWidth

=

4680

StartUpPosition

=

窗口缺省

Begin

VB.CommandButton

Command1

Caption

=

“Command1“Height

=

375

Left

=

2640

TabInde*

=

0

Top

=

2400

Width

=

1575

End

End

Attribute

VB_Name

=

“Form1“Attribute

VB_GlobalNameSpace

=

False

Attribute

VB_Creatable

=

False

Attribute

VB_PredeclaredId

=

True

Attribute

VB_E*posed

=

False

Private

Sub

Command1_Click()

Print

Sqr(8),8

^

(1

/

3)

End

Sub

VERSION

5.00

Begin

VB.Form

Form1

Caption

=

“Form1“ClientHeight

=

3195

ClientLeft

=

60

ClientTop

=

345

ClientWidth

=

4680

LinkTopic

=

“Form1“ScaleHeight

=

3195

ScaleWidth

=

4680

StartUpPosition

=

窗口缺省

Begin

VB.CommandButton

Command1

Caption

=

“Command1“Height

=

495

Left

=

3720

TabInde*

=

0

Top

=

2640

Width

=

855

End

End

Attribute

VB_Name

=

“Form1“Attribute

VB_GlobalNameSpace

=

False

Attribute

VB_Creatable

=

False

Attribute

VB_PredeclaredId

=

True

Attribute

VB_E*posed

=

False

Private

Sub

Command1_Click()

Dim

i%

For

i

=

100

To

110

Print

i,i

^

(1

/

2)

Next

End

Sub

VERSION

5.00

Begin

VB.Form

Form1

AutoRedraw

=

-1

True

Caption

=

“Form1“ClientHeight

=

3195

ClientLeft

=

60

ClientTop

=

345

ClientWidth

=

4680

BeginProperty

Font

Name

=

“楷体_GB2312“Size

=

21.75

Charset

=

134

Weight

=

400

Underline

=

0

False

Italic

=

0

False

Strikethrough

=

0

False

EndProperty

ForeColor

=

y

=

(*

Mod

10)

100

+

(*

/

10

Mod

10)

10

+

/

100

Print

“反序数：“;

Format(y,“000“)

End

Sub

Private

Sub

Command2_Click()

Dim

*%,y

As

String

=

Int(Rnd

900

+

100)

Print

“产生的随机数：“;

y

=

Trim(Str(*))

Print

“反序数：“Y

37、该程序的功能是求S=1+3+5+……+99。请将程序缺失局部补充完整。

Function

func()

Dim

i

As

Integer,s

As

Integer

s

=

0

For

i

=

1

To

Step

s

=

s

+

i

Next

i

func

=

s

End

Function

38、已知变量*的值是1987，以下程序的功能是求*的各位数字之和s，其中a是个位数字，b是十位数字，c是百位数字，d是千位数字，请将程序补充完整。

Function

func()

Dim

As

Integer

Dim

a

As

Integer

Dim

b

As

Integer

Dim

c

As

Integer

Dim

d

As

Integer

Dim

s

As

Integer

=

1987

a

=

Mod

10

b

=

c

=

/

100

mod

10

d

=

/

1000

s

=

a

+

b

+

c

+

d

func

=

“各位数字之和s=“&

s

End

Function

39、购物计费：某商场为了促销而实行购物打折，在商场购物500元以上（不包括500元），超过局部实行八折优待。已知某顾客购物按未打折计共花费了898元，编程计算顾客实际应付的金额。A表示顾客的购物金额，*表示顾客应当实际付给商场的金额。请将程序缺失局部补充完整。

Function

func()

Dim

a

As

Single,*

As

Single

a

=

898

If

a

<=

500

Then

Else

=

500

+

(

a

–

500)

0.8

End

If

func

=

“应付金额*=“&

End

Function

40、将a、b的值互换后输出

Function

func()

Dim

a

As

Single

Dim