|
东 北 大 学 继 续 教 育 学 院. d% e! g# ?4 D9 e& i& A! {
可视化程序设计(VB) 试 卷(作业考核 线上2) B 卷(共 6 页)
: D) m7 D" ]2 C$ U; R, c总分 题号 一 二 三 四 五 六 七 八 九 十
) V9 h1 i, v1 Y& _: ^7 l( e; q 得分 4 j; ?1 c9 F7 i
; i2 ^) @4 K* Q f
一、简答题(每小题5分,共50分)+ q" j1 f# A1 r4 a9 M: y1 R
1、简述子过程和函数过程的共同点和不同之处。
/ @( U, Z( _9 l- E' h$ x$ @* F答:
( K8 i0 p3 N) C6 I) n+ R: A0 s4 n/ C
4 K- D- V! h* l& X
+ v( N' W5 x% X$ B% _
* ` s% @% Y* f4 B7 g9 [" B v0 f
+ b) P; b, U2 c$ t0 b9 f0 u2、简述自定义类型和自定义变量的区别。) u9 ^( c8 e- S( ^" X" F! \
答:$ ?* x! v% |) }6 b7 g* r* e
, H; e& W! U2 a9 s
! H2 {( I, V5 J" L$ K
+ r3 {9 E& `6 J& o- \
3 s6 r7 S8 A- m! l( U
: g! n, [: ~# H z1 W+ T3、简述标签和文本框的区别。
' S6 W% U5 k+ x* h' Q T- l& o答:* C) Z& @+ B' p/ q! p8 A6 _ N
# V- D; l1 t2 F0 v+ j- c$ F1 J1 d* F
( J6 T: p8 W8 E# ?5 D6 i' p% v
. }% _& c- s4 B$ r6 R" s
0 p& A2 U8 M6 O0 _
3 X" k x2 R7 B. j- I4、简述列表框和组合框的异同处。& K1 f9 U9 V4 @( X( s4 I$ s
答:
Q) ?# v7 `% ^# F$ N' L/ S/ O, S. F' p+ M& P' A+ z
. D7 b4 v' k: [! d. `0 ]9 a
) E% j& B, F1 p O+ b( B- E
& d. P) n! ]( ^. v. E5 V
. V4 @8 k% Y/ R) S- C* l: J
7 u& W; S8 ^+ T' |/ b
) A0 q4 n+ h* t. O. T8 c5、分析下面程序的执行过程,给出运行结果。% m# K% N2 x5 u/ L
Private Sub Command2_Click()% i& E5 P4 Y/ f- |8 O# M. p
Dim x%, y%, z%) Y' F$ s% m1 x3 M+ m& }, A2 [
x = 242; y = 44
, W$ @6 P J% }, |* }# T z = x * y
6 h9 s2 f# u% L( D& N* Z } Do Until x = y3 U- W! L/ S) ?
If x> y Then x = x – y Else y = y – x0 w; w% k, w y
Loop. r# S2 `; a! ~6 M
Print x, z / x
, s& [* O s" M% G( {+ `# q End Sub
/ M6 ?9 ~8 a. R1 v3 `答:) x; K. c' n/ n
/ D4 C9 O3 L& q5 T, G9 Z% k/ K
9 M" p+ q% d" @/ Z5 O ]) g t+ G6 }; ~2 T
) @7 Z4 x7 Y/ ~; W
" Z+ X" s6 u1 v" R% o9 ~5 e! F+ l( Z
1 r* S0 V: T. k3 Q+ ?: w
* O0 ]3 `5 \. [2 D/ Q' C
2 B4 y7 E% L- ]8 [) A$ V3 {( u8 m. P" b7 Z! z- L' C6 W4 ?& P
6、分析下面程序的执行过程,给出运行结果。
: e+ N1 F9 p3 K1 J0 ] Private Sub Command1_Click()& J4 h" i, n% U; Y. G1 ^
a = 10
9 ]# u) p( \( b- ], M% q* v8 \, B! l t = “旅游景点:”_
/ h: u4 R# Q; w; k0 F3 w &IIf(a>3, “长城”, “”)_3 P5 e" A: w" D; `0 a; b
&IIf(a<8, “故宫”, “”)_8 `$ ~- K. H- d* J3 ^- Q
&IIf(a<8, “颐和园宫”, “”)( P6 g5 m" C7 J* q
Text1.Text = t
% {) V: s6 v ` End Sub
, O+ W1 E7 N r% ]: k% a: w答:
/ G" l3 V- {$ h( Q& o- v
I/ h! `' _8 M/ F3 x$ S, P) D2 x* ^% E5 F8 n( w
% ]8 u2 b2 S. g9 X- `0 S# V0 J2 Q$ L. h. r+ U C+ M
/ Y* Z2 _3 [+ l) _5 r# m* W, B
( G+ x: l3 D5 p& b; o% p$ ~; _5 a9 G1 l6 G+ H0 ^/ b/ S
7、下面程序的功能是产生20个[10, 100]之间的随机整数,每行输出10个数,根据题意,完善程序。
3 z! X8 e8 y( j2 k8 P3 @ Private Sub command1_Click()
7 Z4 Z4 V! C6 R, J Dim a(1 To 20) As Integer! ~- r8 X! d6 t2 z3 C( o
Randomize
: Q' e4 w4 c/ L1 q& w& r) v i = 0
# o9 C3 u" {# P1 H! s% m Do While i < 20 % V" b2 Q4 A; I. n( ^
i = i +1
, j& E$ e6 C# j& Z' C, Y0 I a(i) = (1) + p( E, _/ g! R+ B4 q
If ( (2) ) Then" n% l7 j" \' F; l3 @1 F9 A3 c
Print a(i)+ d( V `9 [4 ?: A4 u' X
End If/ r9 ~# ]. V6 r9 ?( |
If i = 10 Then Print a(i)7 A/ k% Z( b0 I T2 c
If i > 10 Then print a(i)
- p& |) B( U" ]1 n% U Loop( N, a% ^% v: F9 q& \6 W
End Sub
3 _, Q2 R2 t" C: M答:$ u1 f2 L7 D7 x: O: Y
, O8 `" b V- _9 E. _7 }! O5 T, H$ w! i+ S/ l0 E2 A, ~3 a8 A
3 \- c, [! x8 o" D
$ |4 J6 } c& X4 f2 C: s5 \& M+ j: s" w4 k' C
' i7 V$ Q, ~2 q4 T/ g$ R
" X1 h' z' ]# N( k1 u0 x7 n0 o% Z0 ]
4 a6 n5 A' r s: t3 ^( \. |* H" D& Q1 T6 `8、分析下面程序的执行过程,给出运行结果。. e4 Q2 [9 s6 D& t) f4 c: L1 s% j
Private Sub Command1_Click()1 M3 _( I/ ]& O' t8 \
Dim x$, n%
2 K x0 V3 e' q$ S0 X n = 20 v# [. n: a& W( _; |
Do While n <> 0+ { Z$ H$ m% R) Z$ q9 N0 D: ]# l3 v
a = n Mod 2: J6 j- b# T( ]& d( ]+ t
n = n \ 2
1 a/ \' _4 [% A! i0 ~7 q2 v x = Chr(48 + a) & x
+ P5 V. I* ~ h4 o( ? q Loop
1 Y; L4 g1 h' ~ Print x
7 O# u7 F/ B6 Q3 S6 c4 Z A# _ End Sub
P# u& j3 w. k: l: r2 w/ [- I* F答:
7 [+ D; l* _4 p# S/ q5 z0 N u- Q9 D8 N$ {0 J: L5 L9 E- @: N
: g# P# v ?6 s1 \' I0 ?$ o: C: G1 U; j9 `' A+ W& z
% p( U( ^) d3 A1 m ]4 N) g: }6 S# E+ y" o
- G5 H. L8 m3 d/ T& g# Y0 x+ J6 I" s/ P; G
( w* ^: C5 o& B1 g
8 c+ }, \. j8 Q `% v" { `+ S2 e0 ]* _
9、分析下面程序的执行过程,给出运行结果。
( O! E# v% m3 m1 _ Private Sub command1_click()+ [; O' Z; w% }
x = InputBox(“请输入一个整数”)
- v' m- d3 i& m2 S* N; `9 G flag = 1
2 x0 I' W8 n" K* Y7 D7 W2 d For i = 2 To (1) ; d+ S; S) `9 }
If x Mod i = 0 Then * [. d; H Q- o/ E" {! r1 \
flag = 03 T5 A+ m& M: C/ N; ]
End if
( v1 R* L/ }% m9 O Next i
. l; o4 a b7 A) v) k+ o4 @ If( (2) ) Then Print x; “素数” Else Print x; “非素数”( P& X5 H) V( B2 u' I" T8 d( r
End Sub
% K' C# f% c+ ?6 L
$ |# O' y! Q& I: j3 u0 R ; ~+ o" G2 J& R' x3 r
答:
8 @& b, W* K7 B: i: m8 }* k$ ~! @) l% ~# p" L* [2 g
5 s# T$ E& v% D8 S! r& k: r6 d! `& O
; @0 o% {7 E. u7 J2 |5 C( {
( D& Q9 X7 X" L6 v, z8 }/ I% P; P6 J* ?+ U* y5 y O* @
& O: m. v) u, r% C" E. Y, h$ }
10、在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:7 j/ E; y0 Y, f8 G
Option Base 1
5 h V) s8 n6 a3 w* e Private Sub Command1_Click()1 P) u8 W2 [1 l& H5 }& n
Dim a(10) As Integer
: ^0 L! Z- Y& m' U4 R9 p) [6 zFor i = 1 To 10 9 m; w& x1 S/ m
a(i) = i
r, l: N' T# [: wNext
% S# P% }5 C" C9 {$ CCall swap( (1) )$ ^% A; T2 H; t, o- V
For i = 1 To 10) [: A1 Q+ o# X+ F) V% ]
Print a(i)
9 N/ e4 ~. K/ ZNext
0 _9 `, E+ P( {9 E; C1 z0 H/ P0 EEnd Sub
/ ]2 S6 X3 H: \' pSub swap(b() As Integer)
0 {3 R0 M2 W6 g* |& [( pn = (2)
6 y" z* w( x- p, aFor i = 1 To n / 2* _4 {) @# }0 X* n* W, H
t = b(i)
9 L: R, l$ q5 v( x* \ b(i) = b(n)
- k; f' H5 Z) O b(n) = t
# Q( W9 `# H4 ^* ~ (3)
" K3 N) L$ h/ [# ONext
( [9 X7 g8 ]# x% tEnd Sub$ p3 M1 @( @. ^! [1 Q1 M
上述程序的功能是:通过调用过程swap,调换数组中数值的存放位置,即a(1)与a(10)的值互换,a(2)与a(9)的值互换,……,a(5)与a(6)的值互换。试分析给出的程序代码,完成相应的语句。
( s0 Y; @, w: @ b- x答:. A# O8 D8 u8 H8 x2 j% Z. b$ g) s
9 x) v7 d5 T; w9 s q0 d0 J) L) Z& \4 O' s
5 S$ Z- @$ a# ^ Q/ L- p1 F9 H v8 R/ Z% y
$ i# s( n7 v: B( s' s
( y! t9 |) N6 P: n- l) r
" e$ o i$ r! m0 t% ^
! U/ T, d0 H+ F+ o% q3 t. _* a- u$ t; W% X8 Z5 O
+ O& P! ^# E$ p7 j/ B; Z) a0 s
) o+ V( P) p1 |: ~ J3 w
" l! \6 S9 t; L: j& Y' q
* i, N& l1 o f* p二、编程题(第1-2题10分、第3-4题15分,共50分)) M8 y9 i0 H% A/ T N! W
1、编写程序,由键盘输入10个数,求出其中的最大数。8 `2 K" |3 S% j; }
答:9 v$ U o+ \4 G- U
2 |0 ]+ n1 _) r( H9 e0 X( Q' T( b+ O; a$ H8 y
. R. _+ M* U2 |1 I4 X
4 w/ e1 W' {( A. ^
2 L( w4 j: l1 u' `
, u0 ~% ]/ j6 S& W- O% x3 k* o2 }) G6 ^% }: Z' k
) R3 ?2 F4 ]: U) S! _
: c+ B9 ~/ C& l7 \3 R% W2、编写程序,其功能为输出1+2+……+100的和,并求出1-100之间能被17整除的数的个数。
& ^! j7 l( |1 F3 U. w答:
$ P8 _2 k+ D# J1 h" i9 @% I5 M( Y7 k! D9 [& {
$ k0 w1 O) B, T5 G% h3 l/ m
# r" {7 O [4 u4 j
+ t: l9 N( e/ w0 F$ {
; _, f& u- A# N) e6 Q" E& P) c$ ^4 d, e
% }- S$ y1 s' I2 h% C" `6 D7 ?! Q5 Q
, O7 r/ B% q6 e1 G4 O; R9 L+ C1 f* A u
3、编写程序,给出一个百分制的成绩,要求输出成绩的相应等级。
- i% l' W h' K$ Z; j; a8 b: i答:2 D; H+ g% ^( f$ u5 Q8 l
3 V- b' F/ [0 L H- w: e1 U3 B/ U" Q, s, n' E
# ]; s6 G: v: T9 b2 c4 H7 D
. [1 n% S2 W) ^$ I( a6 f3 F- O9 B% b- r* E* T: B4 q2 q* m% E
9 D) g/ D; K7 e9 W1 P3 U
. D o* g- G/ b( W
# t- f6 z9 z1 o- U/ [: s, B% y1 c' N- H+ ]! j# k6 s% p6 d
* z$ K# E- ]+ }% @4 t0 c
) B* U) `$ V; W7 f4、编写程序,输入一个年份,判断该年是否为闰年。1 Z0 v& @( t) w/ P; i4 R
答:
5 R5 ?! }5 E7 K# ?$ y: [( q, C' J" g, J
: f2 S" O) B! Z6 @8 r! G |
|