[东北大学]20年3月补考《可视化程序设计（VB）》考核作业（答案）
东 北 大 学 继 续 教 育 学 院5 l! `( n/ A5 J# S
可视化程序设计(VB) 试 卷（作业考核 线上2）B卷（共 6 页）
总分 题号 一 二 三 四 五 六 七 八 九 十
得分
; @5 C: P) q, K
一、简答题（每小题5分，共50分）
1、简述子过程和函数过程的共同点和不同之处。
答：
1 p' c( q: o( t! cm1 K) C" K
8 Z" |% {3 {h
0 I1 C) E4 U5 `% H
2、简述自定义类型和自定义变量的区别。, O7 \4 w" U5 R; ]+ @) [
答：
3 vw- S# ]7 r
4 l5 O3 Z5 o% J) M
9 I5 h. y4 P7 b3 r
3、简述标签和文本框的区别。: N/ g- M1 S' E4 o
答：
. d8 K" L6 I* d2 T; _0 s
# R1 n1 ?: f# Q( h
/ K0 ~! W4 y2 k- b- X1 T7 I* m* R
) V0 ?2 c4 @; S# o; Z
4、简述列表框和组合框的异同处。2 f5 C) g; F0 `2 s. R$ x
答：% C; m0 L( k) L
9 Hw! p3 h5 M. c2 Y+ X
/ s1 P! W+ Y0 X+ n: @: o: V9 h
3 S: J- v) b3 c
5 ^- q" {/ X( _6 ]; ~
$ N2 C% hD( p7 o) i; [. ^. [
5、分析下面程序的执行过程，给出运行结果。
PrivateSubCommand2_Click()$ h; Y+ A$ [/ w3 N
Dim x%, y%, z%
x = 242; y = 44
z = x * y
DoUntilx = y- m4 P; s4 @# W9 N) ?
Ifx> y Then x = x – yElse y = y – x% i& G7 n5 ?8 _/ G9 ]
Loop' T' r% A. N* a4 M. q& m& \2 |
Print x, z / x9 H( B1 t. \- T( I6 U% Y' F
EndSub- J# nlx* u/ }" @- K1 T. Y
答：! c( i- T6 N& ]0 C5 m
1 }3 T% ]+ T& F$ Y
% f2 y+ |$ I) w8 k5 T& S) q$ R
2 rI6 ^0 r- r7 s
* T2 n7 l4 g$ U9 N
! j4 i2 F0 B) |3 i# m
6、分析下面程序的执行过程，给出运行结果。# ]/ o! l, x, a/ M6 D/ t
Private Sub Command1_Click()
a = 10. z& R' }0 }( r8 A$ D
t = “旅游景点：”_" M@' z1 u. o8 _
&IIf(a>3, “长城”, “”)_/ ~8 G2 _# A* f2 X6 e
&IIf(a<8, “故宫”, “”)_
&IIf(a<8, “颐和园宫”, “”)
Text1.Text = t0 C: M& F+ |1 R# j
End Sub) I_9 ^# ~# [6 \
答：
( ^& A0 g- H2 \
" f4 ^7 I+ d* z; G
( a! Z, J6 S* L
0 f0 X' K1 z% ^, ^7 ~0 u|
! ?0 k& K- p* o) u% \. Y7 B
" p! }! V: d/ Z1 U
7、下面程序的功能是产生20个之间的随机整数，每行输出10个数，根据题意，完善程序。
Private Sub command1_Click()
Dim a(1 To 20) As Integer% s1 X\$ c1 y7 g- f8 J4 N
Randomize: t3 F; G2 {. Z& z5 U
i = 0
Do While i < 20 ; Q2 [8 c0 b1 l+ |6 ?: X: y
i = i +1) ^. i. z" g! ]' p+ T( O$ ~
a(i) = （1）
If ( (2) ) Then
Print a(i)2 N1 j* S) A+ N
End If
If i = 10 Then Print a(i)
If i > 10 Then print a(i); _% r: ]. `& I/ C. p( c: T
Loop! B' P. s4 R- |; g1 _( r
End Sub
答：
& D6 _2 `/ \2 G. K% H$ U
4 g) D! X8 @" y- b9 O, h1 M
5 K+ wY1 \3 T( l" R- @
* y1 r) n7 b" T6 r: \# i( w1 ~
' z0 b1 O+ z& Q" z' \
8、分析下面程序的执行过程，给出运行结果。
Private Sub Command1_Click()1 t6 e, `0 |) }( D5 C) H2 {
Dim x$, n%
n = 20/ b8 Gs" u# @" s" A* Y& w. }
Do While n <> 0$ }" cn$ m* J# Y2 Q
a = n Mod 2% Q6 e& g[, j+ J1 g3 S) r
n= n \ 2( b( ^9 t3 D! O# X* W0 I
x = Chr(48 + a) & x
Loop, GR. K) |" d
Print x
End Sub
答：
& h1 }- x' {& W' Y
. V. i# [tO7 `% F; c, d- Z
$ f* S' I, \& s5 q- o
* h& y3 U4 b0 h/ W
* K6 w\& C1 S. ]
" U' |$ ^+ I; Y, l. ~4 B
9、分析下面程序的执行过程，给出运行结果。
Private Sub command1_click()6 Z8 e; n* f/ g
x = InputBox(“请输入一个整数”)
flag = 1! h# z! S# E3 z' h/ y% m5 O* Z+ `
For i = 2 To (1) 1 K$ U! o8 }5 o- Z" W/ z* g/ M
If x Mod i = 0 Then
flag = 0
End if * m8 C3 r" \+ ^& V
Next i
If( (2) ) Then Print x; “素数” Else Print x; “非素数”
End Sub
答：
" k3 x. Y7 ?/ M: s+ J- U
" [( w. t- C- j
10、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：/ g' pS# }! @' V; [; T4 e: H* I+ E
Option Base 1
Private Sub Command1_Click()
Dim a(10) As Integer( f5 `1 K% L! ~
For i = 1 To 109 Q) o/ A6 ~w3 s4 n- K
a(i) = i+ M7 w( [. W5 ^8 u
Next
Call swap（ （1） ）
For i = 1 To 10
Print a(i)
Next, e0 Z# E. t: ^
End Sub
Sub swap(b() As Integer)3 d. ~: V/ d: G* P* ~
n = （2） / P$ `+ l4 m+ a/ s' ]* `' \& s
For i = 1 To n / 2
t = b(i)* @8 ^0 ^. {4 g" [. |3 r
b(i) = b(n). r+ O. c% E! C2 E8 b/ g
b(n) = t4 s# q9 k3 v! R, A
（3）
Next
End Sub
上述程序的功能是：通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。试分析给出的程序代码，完成相应的语句。1 M! r3 y; Q$ f; F# T3 K
答：
" W/ `, y& s) xN
* Z8 v( x9 W5 s( v
4 u* w) P. L2 p3 b( X2 y* G
& N! ^5 D/ ~% _5 S3 }, A7 x5 z
) ^Z: x7 q$ w) M5 j( l
" M; S( k/ R$ z
9 M" i3 b- Z6 G$ Y7 G
! D" b4 @8 q& a1 v# `! m" _
二、编程题（第1-2题10分、第3-4题15分，共50分）5 B6 b4 g, W) ]' V) o
1、编写程序，由键盘输入10个数，求出其中的最大数。g/ d, M$ u7 D1 s! K8 }
答：) h# @y- c$ W1 k4 a) {, \! c
% }. M# d/ a6 }2 H" f6 `7 o
& p) L. A- d) m. I) V
+ `# t7 g7 R, h6 W! P. n! |( q
+ C6 }4 v" O9 f1 _
- t' p( q" C, s8 @+ r$ l( }
2、编写程序，其功能为输出1+2+……+100的和，并求出1-100之间能被17整除的数的个数。
答：
# Y4 ~' u& K! h. ?' B
9 Q3 }, F& C8 F1 K+ ~9 @
( s: P) ~6 \1 m
3、编写程序，给出一个百分制的成绩，要求输出成绩的相应等级。
答：0 U{9 t! c# E: {$ p) k- p* U
, f: b9 ~. F5 Q/ U5 Y
* c$ A* c! m* f9 p9 t8 h; p
& F' ?; Q`! ~0 V
9 l) t9 P3 N6 p$ S7 ?$ H
4、编写程序，输入一个年份，判断该年是否为闰年。( [1 w3 V; a9 _5 M7 x
答：
页:
[1]