1. 例1. 在窗体中添加一个命令按钮，然后编写如下程序:
% `% L8 L3 |2 r+ w! L4 hPrivate Sub Command1 - Click（）" W$ ~: K* j" T) M- V
Dim I& P7 y. v K4 E2 G$ H8 v: Y" i8 L0 W
For I=1to13Step2
: P; `* m. K0 K/ C% HI=I 1 x! Z4 F1 [/ t+ y* {4 t! A
rint I;
0 j7 ^. }, ?" }+ o- v, b6 G; Jext I
8 |- T, {8 K8 F7 u/ B$ R: b* TEnd Sub
* r+ A8 h# Z: H" t单击命令按钮，程序的执行结果为 （ ）
1 l6 X1 T0 A7 yA.24681012 B.135791113, R ~6 K- g5 \5 U
C.258 D.2581114
! O2 ?* m$ l3 v$ d
- M* x& e, a$ g1 U! _+ Y3 i2. 执行下面的程序段后，x的值为 （ ）; P* i, x9 K" c
x=5: B4 J' n# J8 G; }, \; x. q+ J
For I=1to20Step2+ T2 ~4 p2 c/ i9 \
x=x I\5
* e: ]0 R; q0 y4 p* c3 qNext I 4 _$ o! d% ]9 {8 J* m
A.21 B.22 C.23 D.24' S) F2 X( Q9 H5 c n
/ F$ w2 @7 _7 w8 Z O3. 执行下列程序:* @9 N( ?+ n: _" b6 b3 I; j( y
Private Sub Command1 - Click（） 7 p+ w" @/ e" z6 H& Y0 _3 @
For j=1to4
; _" _1 q4 O$ [: Rrint Tab（2*j 1）;12*j8 x; g% y+ h- \( b" z
ext j* Q4 x# c7 y& V. r! w% w- a
End Sub
2 _- Q2 v* U" G1 y, [! T6 N单击命令按钮，程序执行结果为 （ ）
4 N1 M+ K; j1 [ vA.12 B.12 C.12 D.12243648
: m" E4 {7 b- E6 F3 v' C24 24 24 6 a3 f1 Q+ F% G& g; u1 Z
36 36 36
# r/ ^/ A$ v2 s! E# l* Z; t! F48 48 48 , o) \6 E0 v; o: N
% S/ [ X4 }+ ^1 v% L5 Z
4.在窗体中画一个命令按钮，然后编写如下的事件过程:6 o& v3 A' z" Y+ Z& y
Private Sub Command1 - Click（）
; H' f! J7 E& P; n! c, C1 e4 i" @For I=1to4; _+ h0 g- H# V! {4 g
x=4
" `9 G* I' d g" \For j=1to3 , D- ~/ v" o* f, q, w& W% @8 ^
x=3
* X4 o8 d' a8 s& `6 sFor k=1to2
% R6 X" C3 l2 R( Q8 l$ X; s: r6 Vx=x 6
* ?: o5 P7 {! K$ lext k- O+ }* i9 }+ c
ext j
7 b$ Z0 B/ y0 |9 a- ]' m8 R$ u, h! s2 text I
0 m) ]/ v0 m7 A) z2 @rint x
; r! j' X+ w. V) K) hEnd Sub+ s7 R/ y7 y; m" b% R) l
程序运行后，结果为 （ ） % t% y) D6 ^' E" u* A" C( c3 u
A.7 B.15 C.157 D.5381 D% V$ \7 |5 @% F
5 ?, h" v0 I5 Z% F
5. 在文本框上画上两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下的事件过程:
6 o! L3 X7 y2 F: BPrivate Sub Command1 - Click（） # D* K, B6 W$ s# ]$ u; j" s; \
x=07 b$ w9 X* J. l6 Q5 f/ |
Do While x5，-1，0）后，x的值是 （ ）
: |4 Z7 x. P$ z, W2 q$ [A.5 B.6 C.0 D.-12 f: H0 S& `: M0 I0 y
4 q, [9 C p. J* [1 M8. 在窗体上画一个命令按钮，然后编写如下的事件过程:7 }; D+ c- ~1 a5 l8 T3 A
Private Sub Command1 - Click（） C% W9 t1 G# U! ~! m; C
x=0& \: b/ j2 h* L& K; K I7 I& @, W/ [
Do Until x=-1
0 v3 Q: A# C5 X( W% Wa=I utBox（″请输入A的值″） 9 `; l& I1 B T
a=Val（a）
2 g' z8 O& M3 Q* Z( }) s) ~=I utBox（″请输入B的值″）
3 v O5 ^. p' U) T/ J5 ~=Val（b）
$ ^3 ]0 x" w6 p+ x2 Nx=I utBox（″请输入X的值″） ; r9 J5 @, C4 s: n# m, Z0 n) H
x=Val（x）5 s- r1 }2 @3 w0 D, ?
a=a b x- i+ R3 f* |. ~8 M( Z
Loop
7 m- _: R4 E3 \, ]- T+ ^" K0 b; Trint a# H, ?' K3 k" ?/ B. A! f& ]2 I
End Sub
1 b5 Z% ]: j% g% Q5 M# D W程序运行后，单击命令铵扭，一次在输入对话框中输入5、4、3、2、1、-1，则输出结果为（ ） 4 k7 `: j5 Y7 T% r- C7 b$ t
A.2 B.3 C.14 D.15
N3 m/ K" C: W, K3 C( g* u7 M; W: I8 e. U
9. 在窗体中添加命令按钮，编写如下程序:
& f- k$ e8 T: F. yPrivate Sub Command1 - Click（）: ?+ z9 l7 n* i/ x: T: D: d3 _
a=0& Q" Y) t0 K& U$ I- t0 b+ z
For m=1to10
. i+ [% V8 ~: ?( }7 Va=a 1
# k5 E& r9 j2 T=0, r: q5 o' _. J* a3 [
For j=1to10
0 {" t7 X5 g$ ^- }) na=a 1# T) `1 G! K: x$ T3 Y; _' A% e
=b 2
1 B" l M; e2 U: uext j
% O2 Z/ y$ M5 j& Mext m
n1 S/ C( o- l& hrint a，b: c V; e4 ?9 r0 Z" i3 |2 _
End Sub
( j1 M4 Q0 p* O; K* ?# l. I" d单击命令按钮，程序的执行结果为 （ ） # y3 E/ L* n- u% [) y8 W
A.10，20 B.20，110 C.110，20 D.200，110 |
发表于 2012-7-31 22:15:04
