|
东 北 大 学 继 续 教 育 学 院- [% h; w& e* s5 [, w
可视化程序设计(VB) 试 卷(作业考核 线上2) B 卷(共 6 页) ; O5 J( W. V( X. t: t' r) ]
总分 题号 一 二 三 四 五 六 七 八 九 十
" I: |1 P# ]8 F% h3 ` 得分
+ O! A) N9 g2 \+ g( k! I3 x& v
: u3 f' `2 ]# D. ?; j! |, w/ e一、简答题(每小题5分,共50分)
+ b9 G9 B2 o2 k2 _- z1、简述子过程和函数过程的共同点和不同之处。6 f" D; {4 T3 t T% P5 _( ?
答:9 U0 o9 w: b+ E2 w* h
l2 W7 m) B6 C
[- X- P. }0 U4 q, `3 ]0 O( a; ?1 Q+ D" v1 m
, U& D" i0 N! t: x! E2 X0 I" o- `
. a" ^/ p0 x5 u4 U/ ?, X" g T* n
2、简述自定义类型和自定义变量的区别。+ @% ?9 k g9 _6 H
答:* r: [2 J9 {$ |- T
, ~% t0 f) J) l+ ^/ L q ~2 n1 [. t. h7 [) E
$ n' X: ~4 G# Z3 Q
! _7 q3 x" ^; x3 ], Z1 M
$ I# q' M5 ], a& e3、简述标签和文本框的区别。
: {+ d) W) @$ n t" @, o答:& K7 c- u' u) K: [
. [- n8 D# T* [" w
8 C- A" D' _( p3 J" P {9 S
$ b) N9 X9 F2 p5 u5 W0 i/ p9 G2 \0 r2 V1 B* |# c
: V! o* w' i3 g
" W/ l# e" Y5 P% Z8 ^6 Z
4、简述列表框和组合框的异同处。
. p5 Q O8 n9 j8 ]/ x- M+ Z答:4 d2 r3 s3 P8 x
+ K2 J5 R; v/ `0 c! z3 a
9 c) H2 ]& L8 I) \7 F9 o3 ?3 h) d4 t3 }) _+ X
2 a m7 U. [' H$ _0 t
7 ~- X$ Q3 b7 o* a5 h3 ]/ ^' @
$ p/ H1 B1 t" z8 @
. X( l2 y# S5 e* U l5、分析下面程序的执行过程,给出运行结果。
7 O' Z* m* _' o Private Sub Command2_Click()( ?+ y, Z/ S* i3 V6 e
Dim x%, y%, z%5 f2 P0 M! Q' V* n7 f
x = 242; y = 448 C/ P. l# E( e$ E! n
z = x * y1 B2 f8 p. S& z0 w& l
Do Until x = y @ B+ V( H# L# I( b- e
If x> y Then x = x – y Else y = y – x2 }6 S3 Y7 K0 f# i0 G" n
Loop
! R0 T6 E2 R! E8 j0 W P Print x, z / x0 D& M, f0 d5 {' f
End Sub8 }+ [0 O; ]+ s6 X0 m1 t
答:
5 Y) Q( Z! [" V# p; I" e* d4 }3 |
' { Y \' \! R1 P) A
: f% K9 W" O7 U( w" t" S, B- Z
2 G. k; M3 V) H: [& M$ j* M! [3 S4 u% a
- T7 }% k% g* ^
! g* z: h- _" z+ F' v) e
5 k" I5 @4 q7 c+ {$ D/ P, @. [. k6 E9 }* k6 y
# D5 f0 L4 E% Y0 k+ ?7 C' {6 j6、分析下面程序的执行过程,给出运行结果。
5 `. ^) g4 B7 p5 Q7 \8 D Private Sub Command1_Click()! f$ q0 I) D8 q o* {3 ]* L
a = 10
1 F! r, M" w0 u9 J8 B# h t = “旅游景点:”_
: l" y% b U6 i, l5 p3 [, L! Z! v! N &IIf(a>3, “长城”, “”)_
7 {8 L: H9 e, n7 l- ]" Q &IIf(a<8, “故宫”, “”)_, f) v0 R( T" o- q1 G) w
&IIf(a<8, “颐和园宫”, “”)" o+ T# O8 o q0 H9 n
Text1.Text = t
1 D# ^7 ]6 m) \; J End Sub
! a0 l. k4 `9 ?4 i; S答:
. k. _: y4 A$ m* v$ [
- C" G" H) D$ a" L( q, J# `% }8 y8 \5 [; @+ E" W( I7 n0 M, u0 a
. S/ v0 `; {4 n. |2 z3 Y
& m; \) _; u/ @2 t; R. P! N4 t* L, h2 M! _8 i: q" m
3 g" _) G6 u- H! r! q7 Q
) l' O- m; t' [8 P/ Z
7、下面程序的功能是产生20个[10, 100]之间的随机整数,每行输出10个数,根据题意,完善程序。, w1 W0 l$ h% P) T( z6 j
Private Sub command1_Click()
L1 b- `7 w9 z8 M X Dim a(1 To 20) As Integer
{4 Y/ K- r- G) l. S* ]7 l Randomize" N+ p9 M6 B3 r% c D
i = 0( [, B/ M7 _" Y8 a# B5 w
Do While i < 20
% B2 B5 H( T% I i = i +1
$ I {+ |& E- g: q1 u( F1 y ` a(i) = (1)
9 i: J% ^1 }5 O' \0 d% F" k1 ] If ( (2) ) Then* @ p- ]+ v5 D6 G0 [2 ~
Print a(i)
( M% H6 z% E1 o# o End If& x! d: i7 j& R4 S
If i = 10 Then Print a(i)' U' {& d, N& E; O
If i > 10 Then print a(i)
' s4 s; c/ W% p Loop5 O4 |6 j4 v% j2 X4 g8 X
End Sub7 x: a; s7 [9 M" m$ N
答:- F, w/ ^* W6 r5 u6 i7 {0 T
! w9 E0 w: V8 m+ M8 f1 f2 O7 g$ t3 s* {
4 l }1 ^. e2 Y/ u. n
) t' r% I9 _0 ?3 j0 T, m* [2 u
: F! B8 X: D4 n3 ^8 o
5 o! c: X/ T( z
8 a' t8 H! o3 h* x( T, H7 Z. p
( X# R. l" y7 \) T
& g% m) g. ]8 n6 R7 j3 q+ i/ ?5 L8、分析下面程序的执行过程,给出运行结果。" S' i* i x4 @2 h
Private Sub Command1_Click() \2 v t) T# u% R5 N. ]7 D
Dim x$, n%
5 Z4 f2 ?3 G' C6 \" ] n = 20
2 g/ D0 C M' `5 s- k Do While n <> 0
: `/ @7 h( N4 I' E a = n Mod 26 B- v2 y- t. Q0 `
n = n \ 27 K/ P1 {1 y+ b9 q4 X+ ?; M
x = Chr(48 + a) & x
* r8 ]: u) a" r# M! W5 v Loop
( }, b; v4 t1 F; E5 ] u Print x
! v/ V$ z7 t/ F9 r! l: w End Sub
& ^# u3 D: l, z9 O& A# C答:
% {: |0 D1 f, S- u' i+ Q9 |. f% W; O4 w4 _5 g; X* b; F
" {; W% J" N, n! c
. @. V b" @! O$ q. [
, K! N, S ?2 [' M# Z# `. A( R3 \2 G6 B4 u4 H
) v4 H% P) D& d) l: c2 t% ~0 n0 o) I# [2 U: N( B( t* o
2 s% d( l% h( {# `/ y. t4 R
+ b# R4 E7 @* N# X- c6 M) q
2 T6 a3 e m4 Q9、分析下面程序的执行过程,给出运行结果。$ `2 ]: P+ I& j" u
Private Sub command1_click()- G' P3 t4 _5 S- d8 |
x = InputBox(“请输入一个整数”)
: n! _, C0 A" Z( c flag = 1
$ ]6 }8 u) M7 E# |2 H For i = 2 To (1) }% \1 J2 i8 e
If x Mod i = 0 Then
- v' V$ x, G3 d& @* O flag = 0' P; V& b& L( G. Q- B5 J+ U* x
End if
8 F4 Y6 L0 w; b% s) E Next i
( M) l# F2 [6 p# d# x( I& } If( (2) ) Then Print x; “素数” Else Print x; “非素数”
/ l9 O( X0 s- \% | End Sub
" d, m+ E6 H: I+ r
2 p# m& v+ S) i* X* l* y$ \) ~
, G2 {; o) Z4 A+ d; S答:' I, f9 A2 j( Q
8 f- q0 o* p8 }) i2 g) q2 v
+ Q, Q: D, ~! e( K! S3 O3 @
7 I! E, k3 Z7 H6 @$ r- }; j% S9 A6 P z. L" F t
( W a. Z1 |6 |6 r" _5 x7 Q y ?
# I r1 H, J$ F; Y0 ~$ p2 J% q2 d4 `; [6 L1 J/ i4 \" u. M
10、在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:# ` g4 I3 z+ L! B
Option Base 1) k+ z1 D( ]9 E* h. q$ T @
Private Sub Command1_Click()
: [: \! Q4 S8 q' X, W$ }Dim a(10) As Integer, B4 l( p. v" @5 B, {
For i = 1 To 10
# N' a: V7 @$ L' ]% `6 o& T a(i) = i
, t- Q& \1 B3 w# S% U9 I. y5 FNext
% I* p% H5 f9 ?Call swap( (1) )
6 `# Q) o& D; N' H* O% i- S1 UFor i = 1 To 106 L K% M* h4 R
Print a(i)
# H5 w4 N+ j% {, qNext
9 C1 p( g% K; h, h4 n+ i; wEnd Sub& o8 @1 i u4 D- p
Sub swap(b() As Integer)
( k3 n5 l, a$ n6 M9 t( X! ?n = (2) . V3 e4 l/ F& A: t+ U! K7 i- X
For i = 1 To n / 2. F0 Y$ m7 }. o1 I
t = b(i)" u) Z8 s# m4 g4 B# o0 v
b(i) = b(n): Q5 X }6 X& J* p: p
b(n) = t: X+ ]" K7 c9 F* L" P# _7 w
(3)
4 f& P" |' n. WNext. b7 C0 d1 S( i8 v- x' Q' U
End Sub; H2 A- Z' l1 y5 D9 K
上述程序的功能是:通过调用过程swap,调换数组中数值的存放位置,即a(1)与a(10)的值互换,a(2)与a(9)的值互换,……,a(5)与a(6)的值互换。试分析给出的程序代码,完成相应的语句。
7 ]: R# u0 T! Z: C) v9 V答:
$ [2 K7 a$ @5 f; s2 T e9 p- c! e8 ^0 s! b* N
/ f% H* _8 O1 j' M [$ n! X
! \4 S5 T9 ^& U" d2 e
; `4 ]4 D+ u. _5 B* {7 H
. H+ E* ^. }! K2 y; L1 j$ W$ K' i
$ e" c% J! B" X2 J) ?
( V4 n! ]! l7 P9 m p* t4 D, u
6 ]7 T4 `' z/ i" g" O/ Z
9 C- K, E0 l! Z( l+ }
: ?/ z0 e! H# o- C7 Y4 y' r6 x/ U- |8 g
1 f! m5 z7 o1 i5 i, g二、编程题(第1-2题10分、第3-4题15分,共50分)
9 `5 b8 t3 [2 `! v1、编写程序,由键盘输入10个数,求出其中的最大数。+ n2 f7 C9 c* _4 E
答:/ O1 ] _: p# ~3 O! o
$ ~* ^ [$ x9 p/ p" G! w/ V# |
) d. [2 }) G, }" {; f
1 R1 l! j: d3 ^# v* L$ c
7 V6 m7 }0 Z% k3 Q7 M ~
3 y6 L: u# W' N
( G& D9 m7 Z" f9 F5 x5 e' y5 \
! i1 [7 Z, L9 e, `) P# J! K9 O; ^; n3 O- ^) I
- M* {# L9 U1 T# }. ~2、编写程序,其功能为输出1+2+……+100的和,并求出1-100之间能被17整除的数的个数。
; S( ]- ~* t' }6 q9 g. {- [答:" Y2 Y1 J( o2 a' y, u' m
+ R7 B- F& p/ ?
* H% u5 M( m0 L) l# r, M" d( b1 P2 s$ e; u! D. x8 {
" P8 P: W/ Z0 |9 L4 I! A( ~7 N. }* r4 J4 j
1 w' r' ]7 x `, {& w8 T% D
8 k! W4 c1 Y$ h0 v9 l. `( Y" H& b' r# c! E9 {
5 X: ?* d3 |- K1 Z( w7 z5 D
3、编写程序,给出一个百分制的成绩,要求输出成绩的相应等级。' ]/ |& M* u$ I6 U& W. I
答:
7 A7 L( ]4 W) P- }9 L" ~, B- E& k _$ G8 Y0 Z: I2 o
# Y3 I' o9 N& F6 x# t( i
6 ]. s. x9 D, Z1 z0 p
% }- O1 I \" n& X* o, @; n9 m$ D) c( h/ Y
, w: `% v! [5 o. T) w a- w
6 B/ A! z' W7 W% r- i- U
; z; d' O+ ^5 H( {
: U- ]' r5 \: j6 r& k( ^9 O# R3 @) I4 p5 ^% I. ?
% y& G; d1 G6 Z" h
4、编写程序,输入一个年份,判断该年是否为闰年。& f2 M; l& N2 e( p8 ]. k1 K
答:2 O; S9 v1 B% a6 H
' B9 i/ ?$ R5 ~; p z" c
q8 |- I( S$ b" v7 c |
|