奥鹏作业答案-谋学网-专业的奥鹏在线作业答案辅导网【官网】

 找回密码
 会员注册

微信登录,扫一扫

手机号码,快捷登录

VIP会员,3年作业免费下 !奥鹏作业,奥鹏毕业论文检测新手作业下载教程,充值问题没有找到答案,请在此处留言!
2022年5月最新全国统考资料投诉建议,加盟合作!点击这里给我发消息 点击这里给我发消息
奥鹏课程积分软件(2021年最新)
查看: 789|回复: 4

[东北大学]20年3月补考《可视化程序设计(VB)》考核作业(资料)

[复制链接]
发表于 2020-3-10 15:10:26 | 显示全部楼层 |阅读模式
谋学网
东 北 大 学 继 续 教 育 学 院
+ 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
奥鹏作业答案,奥鹏在线作业答案
发表于 2020-3-10 15:13:12 | 显示全部楼层
奥鹏作业答案,奥鹏在线作业答案
回复 1 0

使用道具 举报

发表于 2020-3-10 15:53:36 | 显示全部楼层
奥鹏作业答案,奥鹏在线作业答案
回复

使用道具 举报

发表于 2020-3-10 16:25:52 | 显示全部楼层
奥鹏作业答案,奥鹏在线作业答案
回复

使用道具 举报

发表于 2020-12-13 19:42:33 | 显示全部楼层
奥鹏作业答案,奥鹏在线作业答案
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 会员注册

本版积分规则

 
 
客服一
客服二
客服三
客服四
点这里给我发消息
点这里给我发消息
谋学网奥鹏同学群2
微信客服扫一扫

QQ|关于我们|联系方式|网站特点|加入VIP|加盟合作|投诉建议|法律申明|Archiver|小黑屋|奥鹏作业答案-谋学网 ( 湘ICP备2021015247号 )

GMT+8, 2025-2-19 07:06 , Processed in 0.111441 second(s), 22 queries .

Powered by Discuz! X3.5

Copyright © 2001-2025 Tencent Cloud.

快速回复 返回顶部 返回列表