|
东 北 大 学 继 续 教 育 学 院
+ Z, H0 }+ \0 m3 h5 `! a 可视化程序设计(VB) 试 卷(作业考核 线上2) B 卷(共 6 页)
- k& q+ S" ]) ?3 I& W9 C总分 题号 一 二 三 四 五 六 七 八 九 十
) ]( V# R( H2 G 得分
6 s: Q* [! p% k2 r* z: Z/ y4 }( l
一、简答题(每小题5分,共50分)6 X, k! k2 r9 w3 p& h
1、简述子过程和函数过程的共同点和不同之处。- e: R% Q# H9 t& g
答:) s8 z, Q. j# F- T+ T3 R& r
0 F6 }5 t. {0 |2 r
$ R% T+ x0 ^/ z1 e4 E5 D
2 x* s( h' A+ [
0 {# b b$ {% w3 y* C# D1 ^! O( D! |, z0 w- V y+ O
2、简述自定义类型和自定义变量的区别。 w' Q, S* X9 m; Y6 W/ ]3 t8 L$ N
答:* I% n: m9 }- q1 a2 [6 ~0 |6 p. `
. E' u' u; O0 I# m! w, f& ~
! L" o0 G5 ] D* O9 a0 A
/ l8 |+ @& B7 f: O9 ^5 n9 |
7 ^" R* n# [# q0 t$ |& i$ m6 A & `1 `0 e; @" H" D0 U
3、简述标签和文本框的区别。
) }9 L4 B& E" v( g* V答:
! u5 E9 {: B- E5 o7 E0 `3 i% u4 S
& N; Q2 a2 S- Z) m# I! q9 ?7 b/ i: O% B' u
% B" N4 }4 z5 W7 Q. z8 w
. J+ ?& \/ h/ M& e& P
9 [3 t) y- ]) p2 ]+ H" w, l* i% |" t# e5 @
4、简述列表框和组合框的异同处。, H& H1 p8 t4 t6 ~) }$ w3 Y1 h
答:
3 G, c- N: `' a+ X: `1 E9 ]% k9 V' V
: |; l' X& h5 ~' s
3 |8 t0 `! J6 ^' R
4 ?) g+ U; r1 P; R' q, q; W, `* `- [2 w
2 [) A* ]# m" ` Y) E5 n
4 k: c* }9 C$ h, t) O% d& z A" O( _1 d/ j0 g
5、分析下面程序的执行过程,给出运行结果。- x$ |0 I3 }' i+ L3 D3 W, E6 s: {
Private Sub Command2_Click()% n. Y. t" w0 {* X
Dim x%, y%, z%
6 D; K' h1 d7 k# R+ M8 {* V x = 242; y = 44
* H( `$ ]4 M- O. W0 H z = x * y* R+ c( O- Y3 k' V7 ^ X
Do Until x = y
1 S' _3 Q0 n5 D; n If x> y Then x = x – y Else y = y – x
% h- h7 M7 w" ?" ~. p Loop
" x. g+ |9 s ^2 \! H Print x, z / x
4 l" v; i6 v5 A4 |6 ~5 W( S7 g8 P End Sub* @$ [8 _% {! ]& ~, A# R
答:
7 T8 |1 Q0 m7 c" V1 l; n, \+ S
+ V$ g; ^. r! [- a f0 Y8 Q9 D* [
1 W. Y7 M( ?4 C$ f$ d- o5 a7 T1 {2 c+ m( t! o+ t F- D' M
# u3 h+ S; [* _ v! x. K' h# ~- D# E9 b
! a5 W* V* w2 x! Z7 k# T3 I7 @$ \% D( r! A9 B, a
+ Y4 f' n7 F2 y* a+ _
1 V8 g% x' N1 H5 X6、分析下面程序的执行过程,给出运行结果。
# p/ O* v- I# V. v6 k* a Private Sub Command1_Click()
2 m. x0 i* e1 g$ e* k% B( m. V a = 10
" ^( g% M2 N4 k t = “旅游景点:”_
3 ]1 d$ J" S. E% [8 v6 Y5 z &IIf(a>3, “长城”, “”)_( ~/ r9 S( D( @" n2 J
&IIf(a<8, “故宫”, “”)_: F/ h& f+ H! e; N, f3 z. f
&IIf(a<8, “颐和园宫”, “”)
2 s; ^0 `& o& r5 s- z Text1.Text = t
* v x( T) @' f' a" l1 | End Sub, u9 {3 R: {- ]! T
答:; w2 X, ~( S0 a& |
3 z+ p5 S" N3 e% t" k. c6 H
; d* ]1 m! [! N* V+ `% D$ Q+ p# t: [. M0 [9 v/ [, ?; Q" @ o
/ z) ?7 B% z, V# F; L" r
0 s8 P) v5 d m9 ^' S5 m. C/ E6 P$ u; @1 _) _9 Q2 q1 V. T
1 g" D1 |1 I r# p
7、下面程序的功能是产生20个[10, 100]之间的随机整数,每行输出10个数,根据题意,完善程序。
# Q0 |9 |/ g) Y M Private Sub command1_Click()
! z- _# q7 |* g( k Dim a(1 To 20) As Integer3 P1 t; @# k) t
Randomize
4 V k; _- o, T5 t: [) ?$ J i = 02 g# i2 I% c. c: }8 H r/ C- V
Do While i < 20
# r9 V2 C% X. e* f0 e5 | i = i +1
; y) h5 C. P+ Q9 L/ { z$ a a(i) = (1) , C. x) k+ h+ U1 W) X
If ( (2) ) Then
: _& \% G W# K Print a(i)
" X E9 G* Y+ `4 Z* [) ? End If
: {5 e6 X" `* r2 j. K9 c& R If i = 10 Then Print a(i)
# h/ r1 G5 ]0 [% ~6 x% F6 X0 L If i > 10 Then print a(i)
& z# e4 E2 A& e5 F2 v* ~ Loop
0 a0 B# I6 I' l$ k8 w% B End Sub
( g3 S. f4 G% k$ M1 N. v) D7 g3 i n答:$ \3 b, d5 D& i* z# z+ c$ f3 P/ U
! D* M& s5 Q& t1 t1 ^$ @" p& O
; D4 ~0 k' r" f" q7 k+ s! k
2 A! w8 C) g. B# D" \! J" `" A
' C% y% J- O- G' N* W' w3 R( ~
$ |- X3 a' b- z: f) C$ t9 l+ b* }# { W: ~* s; L& T
; k* G7 P$ V: T' Q2 F) {, c& u& D0 b& G
8 s" | O5 z, ^3 s6 n" E
4 {* R1 }9 f7 a7 V% w4 P6 m, C" G8、分析下面程序的执行过程,给出运行结果。
2 V% U% S# M' [- D5 F6 w: l8 H Private Sub Command1_Click()
; F( r1 M5 p0 \) ~ Dim x$, n%
$ P0 q, | x5 U& [ l n = 20
D* Q+ m' S1 x ^$ } Do While n <> 0
/ S( b, P$ a/ {: |, q: q a = n Mod 2
9 R$ h! W+ C. H. e t; M9 X n = n \ 2- O( {* a! m8 h4 K: a$ v
x = Chr(48 + a) & x- w2 ?: t% r' I
Loop
0 T. {4 h" \1 i Print x
' G( Y/ Y& c$ q6 K# o* ?$ L) K, ? End Sub+ R7 J" u. F/ X! }
答:
7 K! O. }1 g0 y! J- Q, O' h
7 m. {: Z, `3 F4 R& F ~: c" S H$ N6 G/ a& f8 t
4 u; \) B, n+ W- C! b9 N
& R# D/ d7 a& h% N- C$ R% @
, U& F- t. K9 z2 g* o1 c
- ~7 p* n! N1 V3 _- z
: n5 k0 a- f( I& I( T/ r* O
$ ~% y$ V1 {% \- w0 j
+ d3 J, t1 A: A
: N! p+ `% j! K h& r1 _% N. J' ]9、分析下面程序的执行过程,给出运行结果。
% x4 @% d( I. P& v: } Private Sub command1_click()
- h* A) L7 a( {0 |, I1 n! ^ x = InputBox(“请输入一个整数”)
: c# \9 O; ]0 Z' H0 Q* O! E; [: t( d flag = 1
/ n) B: _; E0 [5 t$ W& } For i = 2 To (1)
$ K) Y4 c' L+ _) Q) P! e+ n If x Mod i = 0 Then
( N& p+ k: w3 ?; k0 f" g! @ S flag = 0
- c6 m* C2 E" \ End if
' i! `+ S$ U' ] Next i
9 u; b/ s0 E" n9 C If( (2) ) Then Print x; “素数” Else Print x; “非素数”
" Z8 U4 h- z: }* v! K: K& w End Sub6 C$ |7 M5 L" i$ U) D! u X( J) f
, Q! T0 B/ [" K* |7 c% F/ [
% K9 V) B" W0 F. n/ X( i! l答:
: _; h7 u% i5 U! R4 A2 q0 X5 D c3 o# z P
1 A7 l; c$ A! X+ h, s
3 P' W! _" [+ M) U7 \5 A: Z/ i4 `( c- b b7 Q7 |2 r( [4 i" C$ ^
& j+ J, m+ k. {3 v7 z
+ p. t( ]" S1 h9 b! ^( V/ e! V* k9 o3 f2 d4 D+ W1 \
10、在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:: v* l9 T: N2 _/ J
Option Base 1
5 }; e' E( K/ M! l Private Sub Command1_Click()
. r# M* q/ s: aDim a(10) As Integer
* Z& `* P& X! S; o0 vFor i = 1 To 10 , V1 w0 B5 T8 X
a(i) = i
) D2 O- v" y$ m0 t2 D+ yNext% n5 F: H* Z5 a/ l" {
Call swap( (1) ): Q6 w4 x4 _3 h% ]2 m
For i = 1 To 10
; n$ ~# R# m6 M( Z [ Print a(i)- b- t$ f( |) J: A4 i, ?; E7 B% ]
Next% p3 {$ j2 k4 u2 t/ r! |- @
End Sub# C, n7 _/ }7 W3 u2 }4 A4 w( Y
Sub swap(b() As Integer)( g8 u8 D' c0 n% F1 d
n = (2)
/ R* P% j: x8 e" a- R: F- NFor i = 1 To n / 2! e/ s* _- B& G. S+ l& ]; F( f' _( E
t = b(i)' h) j0 [4 B5 I6 S0 x5 C+ l
b(i) = b(n), }& \) ]( b/ c$ u
b(n) = t* C* V$ h! x2 s N$ a* H
(3)
* `% V8 W5 V, L. q8 U% RNext
2 r' C, T) R& ? u5 Z- ?End Sub* g6 s' l3 P7 a5 G
上述程序的功能是:通过调用过程swap,调换数组中数值的存放位置,即a(1)与a(10)的值互换,a(2)与a(9)的值互换,……,a(5)与a(6)的值互换。试分析给出的程序代码,完成相应的语句。4 f* K# Z& N- e, E
答:
# b) Z H8 \: z/ J- E; T
: w6 U1 S: o4 U+ x- P
" ], x7 _4 U l9 w; L% W
# o \5 M1 {! T% S
8 ~, m7 e& ^5 l V+ D) }( O
9 B* n( S1 M! o0 t" p
( I; `. J2 A. v. N" V: H" j M: a" G i
# o- b- _2 P- z
" O. m; i3 Y, f8 i" x1 n7 w& x" r/ j& i Y% C4 ^
7 J. w- I8 W2 s9 y" J8 w
0 w/ \6 |, L- d- u' I2 e
& B) X5 A' X. o4 v- z二、编程题(第1-2题10分、第3-4题15分,共50分)
% f' M" J8 \: J7 D9 P1 K6 d1、编写程序,由键盘输入10个数,求出其中的最大数。7 k$ ^( \, e) {- l5 a
答:
3 M) O. `! Y6 {& G# c) j ~) }: M# J3 `% I) K
2 }4 O) z: F( b6 [8 J7 Y; M
8 [$ p; O, [/ f5 }6 r# y" x2 s: E: ]3 z& A: _5 J0 Z: u* @7 m/ B
W! M, Q/ A2 g. V+ h. M- _) z, ~
) T2 X, E. z- V& T7 n1 Q
% @" T/ r0 c* [+ E
" }# P7 s$ b" \* [8 d
# c3 p; J- b0 e5 i
2、编写程序,其功能为输出1+2+……+100的和,并求出1-100之间能被17整除的数的个数。
: Q' ~; o* ]. S. {答:
6 b+ U2 Y- v3 l3 M3 i" t3 Z. b$ n6 J, q
# v3 j5 j5 U# V$ ]! }8 h& M" P& L7 x! A
: J; z+ s7 x3 f3 g% m* S$ A
: p& Z W6 N# B9 L: C# {* l: X. w, c( H8 A
" T3 N% \. |. U7 }* @6 E6 |- i
2 N8 q, G+ j2 o0 k c% ~0 n
3、编写程序,给出一个百分制的成绩,要求输出成绩的相应等级。$ F _- Y4 i8 ?5 V; h, S
答:5 u8 c) L J7 K
, M* V: x( Y5 V- f H* K' V( F1 G2 m! a/ z
1 h& V3 N! w! p4 c
/ ?# p5 R% ]5 ?
& n) ?# v6 |2 K2 R
/ s; o7 b+ V" A o, e
5 [. w$ l# S5 w6 n0 b& Z+ \8 V \# r* F2 E- T
+ w d2 f2 W: U( r, ]/ ~. w. {6 A; _8 C
2 q: |" @+ Q& c. S7 T) L3 ]+ J% I! d
4、编写程序,输入一个年份,判断该年是否为闰年。/ y' a9 |6 P. f* y9 n$ B3 R# i* c/ O
答:" ~& T1 @" R, D: r
+ B/ r+ s/ f' v E
7 S1 H7 i4 r/ A# V* V$ u- c |
|