|
东 北 大 学 继 续 教 育 学 院" _2 W, G/ H* k; b3 U1 P1 ~
可视化程序设计(VB) 试 卷(作业考核 线上2) B 卷(共 6 页)
7 e' |1 ^2 {8 w: h+ T总分 题号 一 二 三 四 五 六 七 八 九 十
" m/ Y+ W0 E0 O( J) | 得分 I# b' |" F) p; v
# ] W+ Z3 U# X" ^0 k8 S$ S一、简答题(每小题5分,共50分); w+ N0 H( V! A
1、简述子过程和函数过程的共同点和不同之处。9 k) t& f9 ^; E, z% |! k! S
答:$ g$ p7 @* t" q$ e+ k0 U
; U0 Y5 O( U# a( }5 ~# P: _0 H$ {7 M3 @% l5 P4 X+ k
/ e1 O8 B( T3 Q- Q s1 o$ m9 [8 G+ L0 z, t3 J; _* L
% |; v; Y# |8 l
2、简述自定义类型和自定义变量的区别。( a2 @ H) L2 r! c+ V2 j' }! m+ h, y
答:
' g4 C) k$ [% o5 M% k% A
+ t T, n1 V1 u0 y
; W7 h& _0 o( I7 _+ t2 I* T! r: K4 Y! O- y" @/ H- |
5 V% ~8 ]* ^/ ~6 t {) q& _
# X9 q: H+ A: z! |5 X1 I
3、简述标签和文本框的区别。- ~1 g0 P3 R5 J- d+ o) F3 s
答:
/ S) |5 M) z% F6 n- q9 s
# ^+ d& W5 s l& d# H% L* g0 ~6 N& |) o v
6 J9 [+ a, P" s& F5 S% O8 F
; ?; \, m8 A: @2 I, w; Y) v
9 O7 z7 H/ `4 h) O% |
( `7 l2 r' F. u8 O9 v7 A5 `! B4、简述列表框和组合框的异同处。
' L# ^+ Q8 {1 H, }/ ]答:
- ?; W* q; R$ O x; f
7 b6 Z! m% [9 n; a5 _! G9 W9 I% `$ h: x( b
' W5 `) @2 O7 f9 W9 m8 G' m& z
9 B# O( W+ D3 y& E! e" ~1 y
, `/ A: v! C0 S5 o' _
( U1 n& q& o Q& F. R
- K* }# F9 A' \2 W/ i' G5、分析下面程序的执行过程,给出运行结果。
5 s% D/ K. l5 E2 f3 ^& G9 J/ ` Private Sub Command2_Click()( } `3 ~" K+ a5 N* l5 g
Dim x%, y%, z%7 U4 O: F% [! H- M' {
x = 242; y = 44
/ X0 _% b+ c a0 s z = x * y
/ \5 P1 V8 V: c1 ?' G Do Until x = y
# a' x) g- G6 x4 V If x> y Then x = x – y Else y = y – x
1 M) `# M& W' o! o- T" ^0 s/ l Loop
3 A. O9 B0 N+ ?8 z+ ~+ I1 l/ b- g Print x, z / x2 e0 e) R; ^3 Q
End Sub
# Z* m! K! N8 V* T, `答:8 s8 J3 Z' X9 W& }
! i* K4 Z# x; E6 _; E4 O+ R
$ n: q' f4 k ]8 l2 G4 T5 D
- U, K' c" _' t! f6 y# V9 Y, x* B. S$ \9 S
8 s' f; d) q- y& d/ G: }3 A2 |/ D' m5 U3 B8 @
% o6 o) E# V$ q$ s* [% N0 s' g5 j' M8 C6 \0 y9 C
1 P1 [+ e: ~4 H9 A# L+ t
6、分析下面程序的执行过程,给出运行结果。
1 d/ J+ t4 ]7 [7 s Private Sub Command1_Click()) H( s) j. G; R1 j3 n( ~8 f5 y
a = 10: b) Y" U. I! t, ]3 z
t = “旅游景点:”_
5 ^% u; \- C# _" X2 y &IIf(a>3, “长城”, “”)_# V* J; S; @, e/ i9 r* V# V$ d# A
&IIf(a<8, “故宫”, “”)_5 l+ o5 i0 p; B5 P; }& ~ z9 S6 L
&IIf(a<8, “颐和园宫”, “”)4 Y5 a" M$ S4 K8 N0 U @
Text1.Text = t: I0 O: z7 l5 x) r
End Sub
4 z# l' ^' }8 T答:2 N" f/ \4 [9 O5 V: I9 Y, P. }' \
+ T0 l% O' q5 r( D; q4 f+ _- E. R& O% Y
; u. R9 j( D' g6 B, P) I/ k" v3 _2 [
/ K( q7 P6 Y3 P( x9 l4 j+ f
y$ V7 _% S. B) Q$ D, K. A
. v9 s; ]* S, t. b9 h7、下面程序的功能是产生20个[10, 100]之间的随机整数,每行输出10个数,根据题意,完善程序。: Y. T G. }6 s
Private Sub command1_Click()
) H5 L1 A& U- f Dim a(1 To 20) As Integer; }( ] h& r/ v! L* S. W% X
Randomize
7 s# y* }) ^: `( `8 ~! y! G i = 0; J; H8 b" O/ G0 P
Do While i < 20
- R* ~1 n: ~5 r# m, w8 h4 o i = i +1) f6 F4 r2 t$ N3 z5 V( j4 B8 U9 g
a(i) = (1) " m; I; k) O% J0 K
If ( (2) ) Then8 O3 d- v: J/ ~/ T
Print a(i)! `3 h c- H# o' k+ g2 X
End If
, s! F. B0 o" y0 t! s If i = 10 Then Print a(i)
3 {8 }/ T W: ]) T+ _, q' E. C If i > 10 Then print a(i)( j5 B; f/ c* z, s8 ~
Loop
% u. u4 Y$ ?" g7 a/ Z End Sub
5 J Y) i z) i; L/ {8 T, ^9 w$ t答:
9 i: f& F6 e/ i5 k6 L8 F" n- H8 f, o1 a6 O9 U
; S/ L, |1 I1 V+ A k5 Z" Y2 Z8 `- F5 ?" M
0 }5 q7 R9 Z1 G
{$ @! {) ? z/ G1 U$ C2 y: Q8 P
: N2 g7 r" p. B; G! I/ @) z
) R" P9 f2 O; X3 F6 v% k: Q7 ~
( Y" h' a* j) e
! J, M( f, \' X+ s; ^5 f8、分析下面程序的执行过程,给出运行结果。+ {/ n# K) ^! o7 [
Private Sub Command1_Click()
6 q4 D. c1 @; t, h, f Dim x$, n% ?3 s# \1 j8 ~) H' h
n = 20
. L1 ]! N9 \6 O Do While n <> 0& k$ H" @' L/ c# a4 G4 y- L
a = n Mod 2) D& o0 |$ z& f3 G, z0 C
n = n \ 28 q$ v3 Z- t. w {- U1 s# S5 W
x = Chr(48 + a) & x+ s9 L' `1 L/ r. F1 K
Loop1 B1 c$ y9 B" P! V* w4 ~
Print x
, J: w F0 u* S" B% i6 C! R End Sub
: a7 k% Q3 V# x: D) i: `9 J答:
8 @: R$ |+ W1 P( e$ W5 ~& s+ L, `8 I* B/ c% ]6 ~
; w# R+ y5 m( ~
$ t, y8 q! `: }. X
3 Y; a6 x3 m! D3 `' y6 C- W4 B8 c
! }. ~, f- L2 r* Q( V
9 o7 z6 _2 |, m3 ]
3 h0 N4 N# ]) \, W/ Z2 @
# O% Q! I2 V: z2 {
4 P E2 f- W- [ R: x# e$ N( }% s9、分析下面程序的执行过程,给出运行结果。
, \& T# ]( u9 z! t6 O. _ Private Sub command1_click()
' `" s! w% Q, d$ w x = InputBox(“请输入一个整数”)/ {: d3 e1 }5 D% h# }
flag = 1
s I! o$ n+ W1 L8 E( H3 l For i = 2 To (1) $ F: P$ }. C* V5 w
If x Mod i = 0 Then 0 Y3 {9 A3 }! j: z/ x
flag = 0
$ s) }% ]; J: u: t End if + |8 {, t6 \9 k- L1 x: y# Q$ }5 A
Next i
7 t- j _7 p H/ @ If( (2) ) Then Print x; “素数” Else Print x; “非素数”& e, N( m2 X+ |" C) A9 `
End Sub( V- d+ E% f5 t- Q
0 {- b8 n; u9 Z0 R& u( g
7 B7 V$ o6 k' [5 X3 K) \答:
* R' C$ h, G" O" ^$ x/ F5 ~* ^0 r, k. H* G3 Z6 o2 e
) g, v! x. b. S. p8 T* r8 t0 T$ o: E' d& u' R9 H+ M
) ~9 c4 o4 s" V9 C c# p* |' U
7 e, B' m, c9 f" h2 D
4 G2 v% J1 N3 Z2 ]
( X$ z2 J& O$ @, n10、在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:& }' f3 s+ ]" O4 Z( H$ _" D- p* {
Option Base 1
- c- y2 T0 @( h Private Sub Command1_Click()
3 D) @5 |$ Z( }5 `( j: o9 ]5 a/ oDim a(10) As Integer
& l( [' p0 V4 I" |6 A% Z4 YFor i = 1 To 10 . w& q' ~! [1 [) z% S o
a(i) = i
* e+ m' c! R4 D7 WNext
4 j' T+ X0 z1 O8 c% K xCall swap( (1) )
8 J$ S6 C6 h G, g2 kFor i = 1 To 106 j! _' M6 a( ]6 R J. o
Print a(i)
1 g3 S5 [/ }9 _- `Next( n9 e$ ^ l4 i) R9 B
End Sub
a% T G: J* M; RSub swap(b() As Integer)$ |( ~) }4 ?) K! O
n = (2)
. x8 t, I$ W# A8 QFor i = 1 To n / 2: c& R# s y* X
t = b(i)1 K9 A7 q% n0 }/ l
b(i) = b(n)! X& | _3 }( C- [7 q
b(n) = t9 k, d6 U" x* g
(3)
6 S& Z" b) T- z/ R0 X' k4 DNext
9 r. J, {: K/ f) Q8 _! |- bEnd Sub2 o2 N4 E: a2 \+ ]' C6 n' l
上述程序的功能是:通过调用过程swap,调换数组中数值的存放位置,即a(1)与a(10)的值互换,a(2)与a(9)的值互换,……,a(5)与a(6)的值互换。试分析给出的程序代码,完成相应的语句。$ U7 m x; {: H3 K
答:8 ?& `/ A& O$ w5 d
: ~1 f5 b3 v/ x) Z- D
* W5 V: W w0 |& ]6 I! ~: u: X6 }
7 A' f/ T5 \: K9 C* W7 Y- c G4 v6 Y* C, P1 T4 J
3 E4 f' H" V1 }2 p8 w" C- A4 ]% w
8 e9 R% q0 K6 `/ T1 k& j
4 k1 V) P0 [; g5 }/ o2 W
Q9 a& G+ y; @. e9 h, F% D( a
N/ a+ x( D# B) L2 q; Q# ?- ]
! |6 f/ P. {* z& M6 h2 }" L+ ]# n$ o/ i8 C! F
3 K! q1 P0 S. r- g7 ~9 Q5 Y: j( c5 g
二、编程题(第1-2题10分、第3-4题15分,共50分)
; Q/ G1 u- Z4 r# w8 P1、编写程序,由键盘输入10个数,求出其中的最大数。
' n( m: o3 @- V3 z. A/ y9 L答:
# ` _5 g7 |+ ^0 P/ w$ `; R/ Q1 w
, b6 `2 y( k% A9 l0 ]7 N/ W6 E" L, p
1 h/ I2 ]' f7 N% ]
4 Q; o+ w2 Q5 `' U$ l3 `+ {' P% z$ i s1 U! M
& t, ~( W q1 p5 j3 F& k+ p+ P! b3 x* \
7 p% {+ J. T* Y4 |* q7 o6 ^& d9 J
3 U$ N- d5 B2 d( `1 u% Y$ J! K
2、编写程序,其功能为输出1+2+……+100的和,并求出1-100之间能被17整除的数的个数。
; X. Q! Y6 c5 ~' q7 j0 l5 h答:! z; n) p$ \$ @/ c+ m
" X' I' N& e& a1 o7 [
% @4 b! b- c" L! h0 F4 {
i( |9 h8 a* e9 x- ~9 T5 }) p m4 g! P9 C* P1 I6 p, a3 P
4 v0 s0 D7 Z! S( }7 O! O
J5 `5 P% x9 M D4 U: E! N
) v( o7 L/ X; d6 ]9 c! L9 Q6 {2 M- S) U6 N
8 J3 ~& ^. t* Q3 B5 e9 C- I4 t6 G
3、编写程序,给出一个百分制的成绩,要求输出成绩的相应等级。
6 f& y9 T. }1 ?& z' \答:
3 O; E9 @6 b* ]5 d! h3 `1 R1 F4 C5 q, |* }5 y
% e: D4 E9 c5 C8 [' ]4 k8 B' i
4 c5 t9 o7 s: f; z3 L( S4 g- u% T& Y0 F( W1 |/ d% U; ]- H$ Y6 J* Q
) I2 j, o3 ]3 |( x1 j' Y; G- m4 u- p
5 B0 t1 j* |" l
$ W& j/ @+ f' m
6 _( P: C5 v- p, i" f. A) {3 U: [
# ]+ }* O, X% c' m5 M9 T
4、编写程序,输入一个年份,判断该年是否为闰年。
) a) b0 _2 k7 }7 X! Z% P2 j答:
2 ?: ]0 | c! L% X9 e. u/ G$ Y. M* z; r; ^4 o
7 _' r; d. F/ X6 u1 d; I3 n |
|