2、读下面的程序,分析其功能,写出运行结果。
4 I7 h8 k7 U' O5 z 在窗体上有一个命令按钮,名称为Command1。然后编写如下程序:
- P' ~- p/ S1 X6 S5 h9 j4 | Private Sub Command1_Click()
0 s. `, L: x& \0 b+ d2 W For I = 1 To 4# ^7 }0 y t- j) R, H
For J = 0 To I, s8 x& w6 g6 l+ b8 j
Print Chr$(65 + I);0 ` S9 v' F, a o/ P
Next J
4 l0 T9 ]$ f$ @: D; k0 \ Print
" k0 F8 Q6 h1 } Next I
( |5 j+ {- X3 Y7 k5 M7 a; O End Sub
: ^; _7 u; I% @ 程序运行后,如果单击命令按钮,则在窗体上显示的内容是什么?
( m7 q- s! Y8 D" y* f 3、阅读下面的程序,分析并写出其功能。( E! J) b# z4 ~& ?0 [* ^: K
Sub insert(a() As Single,ByVal x As Single)6 W. n' c. V( d+ i6 f9 P, I
Dim m as integer,n as integer/ ^+ @+ ?( [7 Y! L5 b x
n=1
" ]- `' r7 r' z+ j; ] Do While na(n)
8 z3 e7 c' J$ T* {+ u) U: v+ c8 D n=n+1
# E, Z) }: a+ \; } Loop
! j9 X( ?" N" X6 }/ n8 h/ w$ d For m=20-1 To n Step –1
" ^6 M2 E0 P5 [7 Q! Z8 u8 R a(m+1)=a(m)4 M, G& N, \6 f' B6 m9 ?
Next m: n8 v. `0 C) s* A
a(n)=x
E+ C0 x9 f7 J! |0 ?% k; I- A End Sub
6 P( h* i. r. J; }. N( C& m. Q 4、分析以下程序,写出运行结果。
2 l& Y' q/ D& H. N6 l4 ?% e Sub subP(b() As Integer)
8 B: M& N- S7 ~* z9 O) ?' B For i =1 To 4
# r, y9 L: T6 D$ q% O. }3 a5 f b(i)=2*i
0 y3 R5 W" s: @ p Next i
* ^: Q$ i" r% P3 W( } End Sub0 r# |7 b* d) B. _5 r; `- K! n
Private Sub Commandl_Click()" b7 z. R, v& K* |# ^
Dim a(1 To 4)As Integer
4 |' i5 B* K2 P; Y( n5 _ a (1)=5
" L {$ Q$ l; D# ~3 q9 N8 e- S a (2)=6
: i$ q# b T& Q0 O a (3)=7
7 |8 {' U$ W2 t" w9 g a (4)=86 u5 S5 N. G: E# q3 z: d
subP a()
) F7 P& Q1 z, a( x9 T For i =1 To 4
$ G) F, p+ ~. o Print a(i), H( e7 ~8 ^" O0 B
Next i8 Y/ h9 W! P: f/ E$ U: y& g9 K
End Sub
1 T1 D- Z6 `4 n7 {$ c. I 运行上面的程序,单击命令按钮,输出结果是什么?( F' I/ C o: X- x
5、分析以下程序,写出运行结果。9 B& P5 s, S% l1 c0 [6 O
Sub sele()5 K% C% i) A' O& Y
Dim n as Integer/ K- |2 q0 W" c' n! v, y
i=21:n=3$ s R$ u$ r t$ Q5 Q3 H% c: Y
Do While i>n! W( d N3 |4 y
i=i-n! L8 S3 m& o ~' Q! ~" E. \7 I
Loop
. v, U5 O; F% s2 a9 n1 r Print i
5 E, u$ ~8 P% l% j' J End Sub& J1 Q3 P b" _$ ~9 `% w
6、分析以下程序,写出运行结果。
8 q( W/ _5 B6 n2 L: V Sub selectPrint()
, S! L) d4 N8 x Dim a as Integer* a8 g- m# C0 w" q, i
Dim b as Integer
9 k" e |9 v' x7 y. r Dim c as Integer: J) I! b7 d, F d" K
a=2:b=5:c=21 ]4 }7 Z5 s5 m+ Y% M# w, N. p
If(a>=b)and(a>=c) or (b>c) Then
; D: m1 S. |4 h5 L1 A( j" w Print a1 m, w- u% n4 r4 d [ D
a=a+2
! t7 J! I3 s% J7 Z' F Else
1 g" }5 I$ A$ _/ ^$ B) c$ K; n- @ Print b
O( i) p( b J EndIf8 M3 y/ @" d! D; N0 U. b6 `
Print a;b;c
" [* H2 n* w& a7 Y0 H; w' }7 M End Sub& {6 b( I5 b8 [: _3 @4 x7 Z/ F
7、分析以下程序,写出运行结果。3 r* }9 V) [7 Z; m1 _0 x/ w
Sub swap()! @( S* c1 Z! {! _5 ]; O3 Z
Dim x as Integer
6 o) `1 k1 j) u8 ^, T$ r n Dim y as Integer& q- p, M5 Q- U2 `; a
Dim z as Integer3 E' @: m3 d* c; ], a, G% F9 \8 ^( j
x=1:y=2:z=0! v; y2 ~% G' g! K0 m. p
Print x;y;z
/ l" E. @* N4 k0 W# M x=x+y
$ }$ `3 J; v! {/ H1 k, R- T x=x*z
+ I: H% I9 q5 @9 U Print x,y,z
: _# }( F P2 O) d; A1 V End Sub
T7 H# f" B+ d; m, a) q( p 8、分析以下程序,写出运行结果。
! P9 H2 b( e/ g& p% j Sub selectPrint()
$ n- t2 @4 K2 b8 u$ y+ \ Dim a as Integer$ E' w9 W0 K [+ a+ M) Y1 Q( }4 I
Dim b as Integer
: N6 n% {- b7 Z2 Y' |( N8 m Dim c as Integer
* p8 n9 Q! V6 u# Z* d a=3:b=3:c=2* f* E1 b9 e1 M* Q) t" ]) @. V
If(a>=b)and(a>c)Then Print a/ n% i# ~; e8 R3 p$ n
Print a,b,c7 Z5 V$ K4 I9 d1 [! R2 t
End Sub |