2012年电大 - Visual - Basic程序设计形成性考核册 - 参考答案

2、private Sub Form_Click( ) A=10: b=15:c=20:d=25

www.snailol.com$ e2 R8 E- r6 B4 T\ H

1 G. K- D9 k) {/ N& F# b

Print A;Spc(5);b;Spc(7);c Print A;Spc(8);b;Space$(5);c

蜗牛在线|学习者家园1 L6 {1 Y4 w6 W: v, V6 g

Print c;Spc(3);”+”;Spc(3);c+d

End Sub

10(5个空格)15(7个空格)20 3h5 J2 }, v( w7 k;

T10(8个空格)15(5个空格)20 5U; H6 U3 ]: d&

D20(三个空格)+(三个空格)45

蜗牛在线|学习者家园) x1 X o r! ~2 } 3、Private Sub Form_click( )

3 l% W. N y\ |3 `) Q7 U7 j0

| For i% =1 to3 Forj% = 1 to i

z* p% P3 j! e0 @$ N3 q8 h! l5 e

Print L Trim(Str(i%))+ “*”+L Trim(Str(j%))+ “=”;i% * j%; Next j%

E1 K/ M2 v3 H; m. t) K5 Z, A' [

Print Next i%

www.snailol.com7 x. ^& w& m. ~8 f

End Sub 1*1= 1 2*1= 2 2*2= 4

; z6 }: k) P9 y! {* X

3*1= 3 3*2= 6 3*3= 9

4、Private Sub Command1_Click( )

www.snailol.com5 T# P\ U' a, Y1 M% X# c\ Dim a,b As Integer

\ J/ ]/ n7 M- k- i# o5 i

A=3.4 B=3.4 Text1.Text=a

! n7 V; Z/ b; V7 ?: w n' O7 Z

Text2.Text=b End Sub

Text1显示3 、4

ww.snailol.com+ l. y6 n5 l# j ^, e3 h- a% L

Text2显示3

5、Private Sub Form_Click()

For I =1 to 5 Print Tab( 11 – I ) For J =1 To I * 2 – 1

. O\ J5 o% V @* |: G- h: w

Print “*”;

Next

x

Next i

End Sub

+ Q$ H# L; M+ q( T- @

*

( O/ \\+ v/ w5 f* f1 M d

*** *****

/ f) e# T* L% p3 D- e

******* *********

四、程序设计题

1、购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在100元以上者，按九五折优惠；（2）在200元以上者，按九折优惠；（3）300元以上者，按八折优惠；（4）500元以上者按七折优惠。在窗体上添加两个文本框和一个命令按钮，要求在Text1中输入购物商品总金额，单击命令按钮，在Text2中输入优

惠后的价格。程序运行结果如图解所示。

1 C9 g' }3 c7 T1 M7 N9 Q

' W9 M* b( U. L! I' z7 o8 tIf Val(text1)>=500 then text2=Val(text1)*0.7

Else if Val(text1)>=300 then text2=Val(text1)*0.85 Else if Val(text1)>=200 then text2=val(text1)*0.9

/ C3 M) C) ~ t7 r5 T- J% R E6 b8 v

Else if val(text1)>=100 then text2=val(text1)*0.95

End if

蜗牛在线|学习者家园8 G! @% v; P t2 C& b$ |

蜗牛在线|学习者家园8 b0 s! E. s4 I! d. a' [, N

; X8 q! H& F2 c* O% ~

2、输出100~200之间不能被3整除的的数，要求用Do语句的一种形式来实现，程序运行

结果如图5所示。

窗体的装入事件中加入如下代码：

Dim a as integer

A=100

5 f\ D) V* {2 ^+ a3 R0 S4 |# w0 n# {

! w- W i) d1 f0 u* ]8 n4 ?7 U6 r& KDo while a <=200

If (a mod 3)<> 0 then

www.snailol.com+ E: k- o8 a4 i P; a, P5 C: VList1.additen str(a)

End ifA=a+1loop

- `1 I: ~/ }: t3 O) @* ~ r

% b- \\% u. Q6 j9 z% m0 g6 j

+ z+ m7 v4 e4 _; Q6 H( E

www.snailol.com+ V4 A3 X9 t- @% O8 _; {3、编写程序，打印如下的乘积表：

Dim I ,j as integer

# _, }2 M! O1 `: `$ b7 Q\ B9 }* ^+ }

Print”*”:space(5):

www.snailol.com0 f( [( G3 _. o: gFor i=3 to 12 step 3 Print str(i);space(5);

Next iPrint

蜗牛在线|学习者家园7 C4 Y: d\ A1 L S* z* q5 @/ q0 ]& ^6 v; l, v2 i1 x1 X' D

蜗牛在线|学习者家园; { c6 C1 a! {, ~) ?& ~! n0 H% I

For I = 15 to18 Print str(i);space(3);

0 z1 x4 P/ b& h F# B

For j=3 to 12 step3 Print str(i*j);space(4);

Next j

蜗牛在线|学习者家园! O1 q% F, Y0 H6 N+ d/ x. s) d! v$ }/ c( B) Y! G# f; b

Print Next j

4、设计一个计算程序。该程序用户界面如图7所示。要求程序运行后，用户选中单击选按钮，则程序作10和2的相应计算，并把计算结果在文本框中显示出来。如用户选中加法单选按钮，则程序作10和2的相加，计算结果12在文本框中显示出来。按结束，则退出。

\ G8 g' M3 i6 d: \\

乘法单选按钮的单击事件中添加如下代码：

Text1=10*2

3 E6 O4 C4 g. F2 G/ y

7 ^ G0 R* E. Z) k. i/ g除法单选按钮中添加如下代码：

Text1=10/2

4 x) c, [0 `3 x& q& k

蜗牛在线|学习者家园, c, g: B4 `/ \\& _* J加法单选按钮中添加如下代码：

Text1=10+2

www.snailol.com6 S' |* W3 _4 s\ G

减法单选按钮中添加如下代码：text1=10-2 结束按钮中代码: end 或unload me

www.snailol.com; F3 g7 K0 X) T6 n8 n. Z8 X

5、编写输入一个0~6数字，显示汉字对照输出星期的Function过程。程序运行结果如图8

所示。

www.snailol.com) t8 i% g4 k9 H9 d- L4 }

文本框的change事件中代码如下: Select case val(text1)

Case 0

Label1.caption=”星期天”+chr(13)+”(Sunday)”

Case 1

Label1.caption=”星期一”+chr(13)+”(monday)”

Case2

4 W' O# N4 Q7 P5 A0 R: C% k6 T\ c( U# O$ l5 A; i6 {2 K# C( |

; q, O7 }& f1 _- B J6 v3 \\8 gLabel1.caption=”星期二”+chr(13)+”(Tuesday)”

Case 3

1 y. P6 x2 t3 N: s9 O8 ^6 N# }

Label1.caption=”星期三”+chr(13)+”(wednesday)”

Case 4

蜗牛在线|学习者家园3 P! a2 u9 g3 d7 p- I

Label1.caption=”星期四”+chr(13)+”(thursday)”

Case 5

Label1.caption=”星期五”+chr(13)+”(firday)”

Case 6

Label1.caption=”星期六”+chr(13)+”(saturday)”

End select

6、编写一个程序，当鼠标移到Picturel控件时，鼠标指针改变形状；当在Picturel控件上单击鼠标右键时，通过消息框显示“You pressed right button”，并再次改变鼠标指

针的形状。 Picture1_mouseup

蜗牛在线|学习者家园, B) F% p& D\[, d: c, ~6 Cwww.snailol.com* P\ s( ` Y9 B: u( G3 M

If button=2 then

I=1

! K; I8 m r7 u X: B# A2 ]

Msgbox” you pressed right button”

End if End sub

. x) M. v0 B2 H& l W- }蜗牛在线|学习者家园0 `4 x8 s3 M! f\ e( b* v- z1 `

2 r4 j\ n! f( R\ y# ^ |( `7、列表框应用程序。要求从文本框中输入姓名，然后按“添加”按钮，把姓名添加到列表框中；当选择列表框中某一项时，按“删除”按钮，从列表框中删除；当列表框中某一项时，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框

且“修改确认”按钮变为“修改”。程序运行结果如图9所示。

添加按钮代码：list1.additem text1.text

Text1.text=””

删除: if list1.text<>”” then List1.removeitem =list1.listindex

End if 修改:

! y- q0 L/ c0 ?If command3.caption=“修改” then

Text1.text=list1.text

% o; R# G! o6 s, W7 Z2 L: s# c

Command3.caption=”修改确认”

Else

_- B9 N2 o& n8 h1 P5 @* \\% T8 t

If command3.caption=”修改确认” then List1.list=list1.listindex>=text1.text

Command3.caption=”修改”

' L& \\' `9 l6 g- ^+ x* h/ zwww.snailol.com: ?4 H* B) B; H