20 + 25 = 45 2 K2 t1 ^) U: X5 Y9 G) f9 K
4.可以通过哪几种方法在图片框中装入图形?
) u3 ^/ m6 |# U4 V6 g1 L0 K答案:在设计阶段,可以通过属性窗口中的Picture属性把图形装入图片框,或者通过剪贴板把用其它绘图软件所画的图形拷贝到图片框中。在运行阶段,可以通过LoadPicture函数装入图形。 ) s+ E* l' ?! X, G) B, q0 M8 z! v
三、编程题 8 C) f/ r+ N) N0 w+ O1 h9 v
1.编写程序,打印如下的乘积表:
" |9 V6 M' Y: t* a* 3 6 9 12
3 n+ O1 n4 y! r2 w' q' X15 & p$ u( N; u0 J+ \9 q/ @' d
16 & b' D6 m7 z1 W& [* @
17
& c, z& z" ?! B j18 ) o8 P) \4 }# R* k4 W* j1 O: _1 L
解答:程序如下: 6 F& v/ E; p2 B+ e( |
Private Sub Form_Click() 4 H6 F; J6 c5 {7 P1 c
Print "*";Tab(9);3,Tab(18);6;Tab(27);9;Tab(36);12 ! [ E# c) K) _0 e3 ^7 i
Print 9 Q2 I5 C, z5 O7 }! ^
For I=15 to 18 3 ~& D( M/ x& _ A
Print I;
) E4 g' y v" L" G S% m For j=3 to 12 Step 3 2 Q) k3 H& y0 ]: y8 F
Print Tab(3*j);j*I;
" H7 n' X" Q5 g: N Next j
5 q! H( w- j$ |8 V3 q6 g! ?$ c Print - n2 s8 t$ P! `
Next I 3 N! F# T3 r k }, A& _
End sub 0 |5 ~4 g, d: u* I5 V& h5 ~
2.创建一个登录界面,由两个标签( Label1、Labe12 )和两个文本框 (txtName 、 txt Password )组成。其中,口令文本框 (txtPassword )的 PasswordChar 属性设置为“*”,运行时要求输入姓名和密码,如果在两个文本框中分别输入“Guest:”和“12345”,则界面显示“欢迎使用本系统!”,否则显示“对不起,你不是本系统用户!”。
- n% C$ p. s! D解答:程序代码如下:
$ G- T/ X! ^' D* F jPrivate Sub cmdExit_Click ( ) ; k$ H8 R& R; t4 A& d
End / _1 a4 A Q0 a2 d0 w0 t9 j. n
End Sub
9 ]+ _: H+ E' ~' H' I4 RPrivate Sub cmdOK_Click ( ) ' x0 j/ ?! g! U, ~( R
If txtName = "Guest" And TxtPassword = "12345" Then & _* `( w6 y7 j2 |5 N
MsgBox "欢迎使用本系统!", vbOKOnly, "输入" + O* M+ \3 L" B, X
Else 7 R, G" k% n" H, r0 i/ M
MsgBox "对不起,你不是本系统用户!", vbOKOnly, "输入" 4 ?9 ~$ l& x+ W/ y$ N8 S
End If 9 g' v4 B4 ]: q- C( c; ]" M5 t1 s
End Sub 3 W) H% |% r3 A4 y
3.运用定时器和图片框设计一个简单的动画。 - n: Z6 r" A! ~; H Q1 M
动画场景:界面有两个按钮“缩小”和“暂停”(cmdSize 和 cmdStop)、一个垂直滚动条(VsbSize)、一个图像框(imgSize)和两个标签组成。单击“缩”按钮,就开始定时地缩小图形;单击“暂”按钮,则停止缩小;改变滚动条箭头的位置可以改变缩小的速度。各对象的属性设置如表所示,设置定时器每时间间隔为1秒。
/ C9 A( s; ~5 R) n4 }' s控 件 属 性
2 l' Z6 Y3 \ |+ B+ J S对象- F/ q/ _ O' f. R( k1 D' u# ~
控件名
, a: S7 {( ?2 ]; R属性名
0 F a. `. b# u, J属性值
! h$ T- I9 b- j& p: hForm1 \2 Y. J! R6 C! v L1 [
Form1
4 ~8 @* ?5 R8 k5 D# s' n4 ]9 wCaption
, X d. z; F `6 p" F定时缩小图象框
# Z9 M$ q. l0 m6 `2 m$ wLabel$ [0 n- {( u# `9 N) j1 g, g% N
Labe114 Y- X4 p: y/ z9 e% B
Labe12& N V3 l# g+ j2 V/ O
Caption. j$ C% t9 |- b- o/ y2 J$ G. Y
Caption4 \* f/ X; F7 a o4 f D
快 `. _- \2 g4 M3 J$ {! x- I* a M
慢
( A) }8 L2 e1 _# p$ v, B; W( uCommandButton a2 U% K3 F! t
cmdSize
) u( s5 J; k X% @4 TcmdStop
+ e; N/ j8 S" P* GCaption& p% k2 m4 ?/ L ~9 u
Caption
: N2 {! P. g# G缩小" X: x* g+ p7 R7 ^1 g3 |, _) i% g
暂停# C% ~; y. j3 o7 F
Image
" V1 [4 ] {) y* C7 o& K5 nimgSize8 s3 N3 d/ t! k# K8 N- O' r
Stretch9 z6 m0 R! v! v5 b3 U/ u# V0 |2 i2 y
Picture9 p [, h% N1 G* D! ^* ?
True
$ Q: S& G3 |( g; F& FC:\VisualStudio\Common\Graphics\Metafile\Arrows: U" d, m) d1 J1 f1 f7 T0 h( |2 E4 A
Timer
- M; l" I/ S9 ?. O! A) _tmrSize
/ I9 T, [7 W v `7 ?5 W; T- oEnabled! V2 p, m+ z# P( p$ d' u
Interval: M1 ?' O" B; H+ R h
False
8 e% N" _" b2 e9 Q, K1000
- @% l4 P. q0 \& E. ]* aVscrollBar( r; _% c' r* H6 i* _
VshSize
2 Z0 g! z! F# cMax
4 _( K; C$ B4 \% M7 x8 ]4 IMin
k2 y( U0 H8 Z- e) QLargeChange
2 X3 A S5 e9 S6 G; e950% j" B' {/ _' G; l& r* w# F/ E
50" ?; K4 l# ]4 n" y
50
, M) l) R+ ~% q) D/ i9 G. ^ B2 g- A5 R( F- k
解答:程序代码如下: $ W' |3 l& o) c5 o
Private Sub cmdSize_Click ( ) 1 A- x6 Z& u$ }% f
’ 单击缩小按钮使定时器开始工作
2 S I+ R: g5 w/ M9 @1 C tmrSize.Enabled = True
5 H: Q- ~9 K- K. W, Y+ E) DEnd Sub & L3 u2 G, S/ r6 F3 r" s
Private Sub cmdStop_Click ( )
$ v2 G2 A) I. q9 K. C& P’ 单击暂停按钮使定时器无效
, o' O. S5 o1 y) _tmrSize.Enabled =False ' q8 U0 r. E2 d1 J
End Sub 1 O& Y4 W4 E2 l0 ~) A( D
Private Sub tmrSize_Timer ( )
: q+ l! `( ?# N2 o’ 定时器定时缩小图象框的宽度和高度
. H( N- y2 \7 x' Y! |* B; Z# i3 E With imgSize
6 O4 ?3 k% f* I% S1 u: ?, q .Height = imgSize.Height - 100 0 J! j+ h3 ~5 e8 o8 x- D
.Width = imgSize. Width - 100
2 _- ~+ G# p; Z* G End With
& U) K8 |/ F! @. }End Sub
0 t s' t ~6 K9 { p0 J- f* aPrivate Sub vsbSize_Change ( )
* \3 ^6 T/ V8 Y# L9 ^! H’ 垂直滚动条改变定时器的时间间隔,改变动画速度
; Q) w& i9 N8 D. m5 i U3 c) x0 P! r tmrSize.Interval = 1000 – vsbSize.Value
' v. A/ Z) ~5 N7 [; W+ a4 x# M% xEnd Sub
" ?8 y2 c. {* k+ Z! n3 Y6 T+ g 4.使用控件数组创建一个简单的电话拨号程序。
7 c8 e' L" A0 O8 R( O) _5 F 界面中一个文本框(txtPhoneNo)用于显示所拨的电话号码,按钮控件数组(cmdNumber) 用于拨号,Index 属性是0~9,Caption 属性为相应的数字。另两个命令按钮“拨号”和“取消”在本程序中未编程使用。 |