|
东 北 大 学 继 续 教 育 学 院3 @( [# `+ l1 h% @3 S i* D" b9 H
可视化程序设计(VB) 试 卷(作业考核 线上2) B 卷(共 6 页)
: D. y7 F) B* C2 Q总分 题号 一 二 三 四 五 六 七 八 九 十$ E& M. r1 e4 g) N7 z; u2 ^
得分
) q! o5 H6 |5 N0 ?( L! E( ?& `+ ~! J' g8 I2 N! f
一、简答题(每小题5分,共50分)2 r- Q7 r0 K' _- b+ m, u6 N$ R
1、简述子过程和函数过程的共同点和不同之处。$ q% u5 a: D4 r
答:6 K- }6 `8 ^( i# s( m7 M4 }
+ v) m5 Y7 A2 h! v+ j+ z
" E- i2 @8 } q& k+ ?4 p2 m4 K4 O9 ~. ~4 p
; K+ H; M' v: e0 _ j% X4 s0 Z: |5 C; z9 l! g% m' L# ~
2、简述自定义类型和自定义变量的区别。) z; H9 F# }% U9 m% w
答: D; ]/ h% y2 F5 x g) x4 h3 h
6 g3 q1 {, M( Y+ R: H+ ~: F
$ J0 ^8 O( H2 ]- |5 q
# W* ]8 ~/ C0 N1 ~0 Y
( E& b- G" L" t( q& ^
8 \( e9 G2 G8 P+ g6 c2 r3、简述标签和文本框的区别。# d- e- Z+ A$ i# W! ~: T8 |+ \: {' [- B
答:
: j1 q1 t; u9 k3 N0 a: o1 A* \+ o/ X, P" R" d
% r% U3 Y' W8 w) O' `7 ~8 O
* b. j& ~( s: L/ q: q
0 ?- U" b0 i7 s8 N
! U/ d) ]7 [! x' H+ S; y8 Y7 p# Q- H! d
4、简述列表框和组合框的异同处。7 J+ x, e6 P8 [, ?3 n
答:: A* C2 c0 q5 k5 A: O
( ]- ]' W" Z3 \) v' c" t# ?
' K# f7 I& `1 ^1 K4 ~9 H2 p- }+ o
8 K# K! A- d5 f5 A
) M( s0 {1 D# q0 H* r, L p o5 M( D) ]. }6 }: c
0 k" U! e- @+ y" |0 X" }1 K5、分析下面程序的执行过程,给出运行结果。
\5 U# R0 Y8 Y$ Q Private Sub Command2_Click()
" l- n3 M8 R7 @* E& b% G- ^; Q Dim x%, y%, z%" O( i. k6 [4 H
x = 242; y = 44
1 @# q ^/ u& L. b z = x * y, B) q2 _, Z% q5 a4 o% v
Do Until x = y
A1 i; e' k$ f. T If x> y Then x = x – y Else y = y – x
% G; r# V: r# P. B ^ Loop
$ P+ z7 R6 Q* S5 w9 k* K( {" c Print x, z / x2 |6 O+ Z* a. c& D4 g; t
End Sub
" l0 f" Z! Z) W4 w. S答:
* F6 \ d s3 {7 H# e. A3 ^8 f( a3 ^7 T
" a8 j3 ~7 ~: @& M
?1 N' W7 V3 x& {' z5 h' T# n4 l2 d0 u) [; F9 t: O# [: z3 s" w
3 Y+ A j+ h$ m( Q, L/ E$ |3 ^, S5 N6 l" |1 N9 e# J
* o5 n8 X( O5 Y% P* F/ |$ t4 c; W2 r/ H |& }; ? Y
5 w( g7 ^7 B4 m( @/ T& D' A% x
6、分析下面程序的执行过程,给出运行结果。5 @, }' A$ ?5 o: ^+ o3 @( a
Private Sub Command1_Click()
3 J# F! e/ ]7 p1 ? a = 10; Q4 ~1 x- d: B* u6 b- S1 m
t = “旅游景点:”_
9 W" f+ R; w6 ^. K; w &IIf(a>3, “长城”, “”)_ H% ?( D# t0 }1 U( H; |5 ]
&IIf(a<8, “故宫”, “”)_6 J' [9 j! }' o; f! ?3 z& L
&IIf(a<8, “颐和园宫”, “”)2 p* A" O. {5 w; w4 h; x* `
Text1.Text = t% @8 }) `# f4 i, K6 u( y8 t9 a5 F) T
End Sub
- }0 R4 L# V8 k; i" g答:3 N9 `' c0 O: I% k% e* ]3 Q Q* g
# @) V" K2 H M4 C
% q( L, @) L5 A
: a) F6 M# p# E3 h: w6 P l$ y5 x2 }$ p; V
0 z8 f: |6 v1 E4 {0 g+ f" x
7 n; S( E' T5 T/ y
& c1 J, E6 E2 J) ^. W) M: s3 b& i7、下面程序的功能是产生20个[10, 100]之间的随机整数,每行输出10个数,根据题意,完善程序。
* G' U( r/ |: Z7 ~& j7 }( x. [3 f Private Sub command1_Click()
/ V* m7 V$ a: M Dim a(1 To 20) As Integer& O7 H$ J1 Q" g
Randomize
/ f/ G9 G- Z8 t& b9 @ i = 0
+ ~, Q" B; C3 B6 o, k3 @ Do While i < 20
3 p( j3 [5 d+ ~2 y4 p. N" C i = i +14 j$ ]+ I! }" L4 G
a(i) = (1) " n7 x0 p6 S' A$ C) j
If ( (2) ) Then( b' o. r, i1 a2 E
Print a(i)
! B! v/ B f* ~7 ] End If( Q! ]0 v" W# h0 K
If i = 10 Then Print a(i)
A& {& P) Z* A! Z If i > 10 Then print a(i)
& b7 M5 F4 A Y' | Loop
& a* D- V" E/ {: |5 O End Sub
: {) `8 z$ @4 h8 Y# S" |+ c; N6 `6 h答:
8 x8 O4 [7 `8 [6 B; u2 I: z7 B9 U$ a, b$ ~/ G5 t
+ K4 S, S1 w ~, u. Z+ E9 P0 O! m5 X8 j
' w) n6 n4 U3 A
, q% L* a# {8 N' ~$ j- r* g9 P
1 y9 `+ U1 q1 I( }7 r3 l
/ h5 X6 k6 t2 B) f W+ {% [
d5 N1 x7 r. U7 \' b V+ t0 Y8、分析下面程序的执行过程,给出运行结果。& ^7 S7 n" W4 @% M X) m: x4 e9 D
Private Sub Command1_Click()* H9 W* W$ d" V$ P/ ?
Dim x$, n%. r9 A/ R2 \9 p% M
n = 20
, S% p* s, b e1 o* Q Do While n <> 0
' |3 I4 \4 H3 a" ` a = n Mod 2
$ q$ {1 r! Y. y& J8 i9 u n = n \ 22 _( Y3 p" i5 K
x = Chr(48 + a) & x
( U6 v+ p: e y! L* e' ~! M Loop
# x2 L: V- S, r7 j: A5 g6 W3 v Print x
4 @3 R: v5 j$ y End Sub6 k0 o: L9 Q: |" G: M Q
答:
; z M6 T- M+ E$ O) r& A* {# v3 d) F1 a) |! s
. E4 a, H+ z; Y' \
* g7 }/ z' I1 A: z* ]; i1 T
- _& t0 Q1 _3 o
- ]+ X1 i1 I1 T
5 H8 \; q2 L v8 w0 [ H+ V7 S9 B( U3 W, ^4 Z4 k- ?
" | N: R9 }$ n+ S, U- j
% ^+ j; W3 A& D! |* B( k& e g
4 @* T! J0 q0 g% Y" C4 f& z9、分析下面程序的执行过程,给出运行结果。3 @/ K/ I) l( W" m, K! @
Private Sub command1_click()- c6 Z1 Q7 o1 c0 z% j
x = InputBox(“请输入一个整数”)- K0 S1 |; v6 Y( ~, s3 Q6 k" O6 _
flag = 1
\& V: g% o' g* {; |& }. Y4 {. w For i = 2 To (1)
+ R+ R0 z5 d. V: `2 V. L0 E) p If x Mod i = 0 Then 4 u$ ~9 S! y9 ]6 g
flag = 0# \/ d& e5 g# w; p
End if
8 n7 j C* V. B' X& {+ g; H, L Next i
0 S# }& W T8 ]3 o If( (2) ) Then Print x; “素数” Else Print x; “非素数”
9 l% V3 X0 `# i% v$ { End Sub, k9 _; T$ P' v3 V
7 L6 D; V& O2 X. P/ j
) U l( u$ i! {4 c% g$ y ~
答:, M" d2 ^ F( F' R% M! t% z
% f: y2 i+ M2 B: H5 y# E
) j! b. [4 W: `# ~( G" W4 Q
/ b& v" j C8 N
% _( q1 u+ L: p" S2 Y7 b8 b* u
: ?; K9 N- N. R; g9 `* i* {) I1 w, z$ \& M1 C/ P1 M& u6 r3 ?7 y$ f5 r+ k
# h9 g: y5 H- h) ~! S3 h10、在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
' \ \4 ]6 E, D+ g1 \ Option Base 1
' a' h, a, y1 Y5 e5 e, {9 m Private Sub Command1_Click()
7 F0 g/ E: A/ i9 f# tDim a(10) As Integer' n" M& W5 d1 B S- \4 t
For i = 1 To 10
3 ]% u! V# _2 Q1 ^# ? a(i) = i
5 N6 ` f0 t4 p, lNext/ k5 b, h$ X% ]; T) {# X+ x
Call swap( (1) )$ [# c8 V: d- p7 e) s' ^
For i = 1 To 10
, U# a/ C: H8 h* C& g Print a(i)
6 y4 T& W4 l/ a/ }) v+ _1 eNext
" F/ h4 i4 ?, @& p, B& a, ^$ S6 |End Sub! \* z0 b* R1 {# A: c9 [% Q
Sub swap(b() As Integer)/ Y: S; l& `1 w$ l# j/ [
n = (2) " S3 l6 D* U' w0 L& M
For i = 1 To n / 2" \+ j: K: N6 K
t = b(i). ^% B: G) g* r) {
b(i) = b(n); f& [* Y# l% [7 Q0 d+ l9 Z
b(n) = t6 D. {) u3 v/ Y/ Y4 V( d
(3)
6 e Z: M5 y2 T# C0 Z1 v$ e( b% nNext4 C( |3 @* @( F# f1 ]% V
End Sub, g1 G; j. C6 c, T5 h) o! T
上述程序的功能是:通过调用过程swap,调换数组中数值的存放位置,即a(1)与a(10)的值互换,a(2)与a(9)的值互换,……,a(5)与a(6)的值互换。试分析给出的程序代码,完成相应的语句。
1 h8 V1 B0 Q. @答:) ?: A" ~; R! o
6 c6 ?$ {* e, E. e: u+ K% b
, L. Z0 {7 B5 m4 H% y( o$ z( r5 O* e, K2 R: x6 ]2 V) F. N9 F+ b6 |( r! u
+ `8 q5 f- j/ R' r
$ i5 N: B1 T2 p8 z" E( Z
( ~; j- }8 s2 L
9 k. A+ `0 ~& f/ C; |# F
; w T* n# \4 |* w1 H6 ? Z* ~$ z) B8 }+ U' C- a
1 z8 |& k' V, N5 a+ J+ t' Z
4 I0 R' p% _5 I2 k. Q
3 Z$ M* v+ h( n6 ~9 U6 n0 `8 C
3 T/ y. c3 Z9 _0 f二、编程题(第1-2题10分、第3-4题15分,共50分)
+ k/ h7 @, Q/ h/ ^3 e" I- S1、编写程序,由键盘输入10个数,求出其中的最大数。
2 l" V: r1 r0 B# T2 F答:. l2 I0 @" Q7 Q
( H# v4 P( P5 f
! K: r. |9 y* {( K% H3 u% d+ C. U* Z6 R
& @# F% F3 h; e7 q6 ]2 [* e) c
; N: o1 C- f, V2 c
9 l+ D$ i' w y9 h. s* o+ i9 D4 W' N( m, T& ]" ]8 M$ g$ r* Y9 y/ d
! m/ k/ S6 }" E6 y6 P g
- v! m, J" Z" I6 s+ L# [5 o
2、编写程序,其功能为输出1+2+……+100的和,并求出1-100之间能被17整除的数的个数。
$ \- N, M, S( M6 h( J! ~: T) l' r答:
4 E! W$ O7 ^+ u0 n* y3 N2 I4 }! C/ ~ X& x. l4 g
- @. u5 Q& S1 b9 `; w2 s p% g8 K4 G+ U# \, a6 Z2 h
u% L( V9 ~9 n
9 \2 P# G" N6 b, V
% X) g w/ b9 `, N7 P- T* `6 F" c" o0 V
6 O7 Q& }: ]; J; h! Q) a2 Q
9 K$ A" W: U7 s, {! ]% a1 s% I3、编写程序,给出一个百分制的成绩,要求输出成绩的相应等级。
" N3 ?2 t" x3 |0 N# k, d& W3 v6 ?答:
# u. w( m" q( L7 }4 e( T: F& E( `8 ^; `8 z
9 S% n- A$ E5 Z' V8 y
$ u! [$ ~' w. S4 Y. |/ k& T" F
# u, Q6 n3 o" N% M& C7 l; H5 C7 R- Q. l2 f( V- F
# W& h( g3 L1 Y" X
6 ~2 u N* \9 y+ V; J6 Z* b% M
m4 W. Y) \: a, e4 T3 O& m7 j) S
* |; v( b4 ?# I2 I. n( Y. `: G$ a8 {( o6 {! E
2 A4 s* _: d) ~2 j4、编写程序,输入一个年份,判断该年是否为闰年。+ R6 }" m3 c& A9 T2 b2 B
答:9 Y0 Q9 {& ]& [3 ]. g
( j1 u, @! S( w8 b$ s- I; N/ s. d7 l( }, L+ y. t+ m
|
|