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

 找回密码
 会员注册

微信登录,扫一扫

手机号码,快捷登录

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

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

[复制链接]
发表于 2020-3-10 15:10:26 | 显示全部楼层 |阅读模式
谋学网
东 北 大 学 继 续 教 育 学 院
) v# h' N* b8 o" L    可视化程序设计(VB)    试 卷(作业考核 线上2)  B  卷(共 6 页)         
; l6 v+ D8 t) J总分        号        一        二        三        四        五        六        七        八        九        十
6 h1 l, @+ U" @& l; C" Y  Y        得分                                                                                ! B$ X% V! Z0 X/ }9 a
$ S5 j9 I3 E: z' s- j" z
一、简答题(每小题5分,共50分)" B$ z9 j) k: i' e  ?' u
1、简述子过程和函数过程的共同点和不同之处。
2 ]) C5 g% O8 y, K! |* m答:) v- M! j. V; f' x9 J3 m4 h

$ i9 N. M; V3 P! E0 S) d/ x* t$ s. Z& ?( x3 n4 ]) A
& o- {" A# M% W) R
* v5 C7 h3 J1 ^
; B7 p! A/ F0 i. @8 h3 r
2、简述自定义类型和自定义变量的区别。
" P3 }4 W( K' W9 m8 y$ }7 G; n: T, D答:
# @$ ]$ ]# E! ~  z7 [$ Z  p8 ^1 W* P2 P+ g
+ f9 ~2 ]* k' A+ U6 d! T

2 `( _  _9 b7 E& L2 F% S; N; E- Z: o! d4 n
       
; s$ R& @$ H7 [5 O# Q- W3、简述标签和文本框的区别。
5 o* v6 ]8 r4 @* D4 ^5 D答:
9 W+ o" K- m3 U7 @6 h% s0 V' Q  m) x' G7 a3 H5 ~

5 ~% @( ^$ T$ t( V  m; g$ T- f) Y
1 R& m2 U8 U( b0 c; G; A8 {2 D! G. m. U8 [4 p
! `' r" Q9 }+ N: B

: c% _; d3 |* m( q) ~6 q  W0 U4、简述列表框和组合框的异同处。
/ P$ P$ l! ^1 S' Y( b( b0 D6 N答:
0 U& i: p0 @! t& J7 j8 P& z0 l3 x# ~6 N
- V' j7 ~/ G) f8 M) ~
- B; e5 u! B' L' e: y5 G9 X0 ?  U5 C

' L* l2 C7 u0 |' i5 N; H( h' Z+ J  |0 A5 Y* i6 T% ]# U5 I- c
- |: @8 X! U6 B" A- H

* S! @$ |: |0 B0 K' y# g5、分析下面程序的执行过程,给出运行结果。  B6 R! L! d  i# i/ s- {7 i
       Private  Sub  Command2_Click(); g) `  ]$ @7 e: B7 p9 h/ f+ U
          Dim x%, y%, z%! a0 e2 Q. _5 P) r( q
          x = 242; y = 44# a' u, L) Z0 Q9 [6 Q; G; n
          z = x * y
' A1 Q+ h& J# Y( n          Do  Until  x = y7 s- L& h5 N* A" ?% n( ^
               If  x> y Then x = x – y  Else y = y – x
! @1 v6 V/ q, ]$ B- p1 X' {          Loop
. t1 V! U9 i- n          Print x, z / x
3 _( {5 U* s" [0 z       End  Sub
' x, u% g8 D6 y! Z* V答:
! h' D8 Z$ E! Y* ^  }9 Q2 e# x3 }; T- Q5 M# ?5 {0 ?
5 c, C5 m, m: @  U; Y

# \  H7 Q. b7 a4 f0 |7 g
6 [7 W- o$ p3 G& x) ~) z/ [2 j; C4 X' n% X

) p6 H9 C- K; ~" r- E" R3 {! S/ c' K: f; [! {
7 V  {- ^5 w% q! A$ B, D

9 D! v  ^* B4 v! h5 W6、分析下面程序的执行过程,给出运行结果。- E: c& k: }7 h: H! ^2 G+ I
   Private Sub Command1_Click()
( A! P# Y! m# F       a = 109 \. ^& I, Z& B% ]
       t = “旅游景点:”_
( [2 N# W, d- m& ]$ V               &IIf(a>3, “长城”, “”)_2 F" ]% U3 N/ K: i
               &IIf(a<8, “故宫”, “”)_" b, y9 C- M' F. L, x
                                 &IIf(a<8, “颐和园宫”, “”), r8 W* |! T$ e4 q/ P, G
               Text1.Text = t( l: ]3 ?% B2 v1 C* o9 a
       End Sub3 F; X* ^) i, T* U( X0 V
答:2 R3 _( b; p+ `; Q9 d& ]; N

9 w" z5 c$ M, ^& b) ?) g% {( ?" N8 {2 X9 O, N  n

4 W( g$ }9 ?& v4 Y/ n0 F; ^6 x
  S) U  D0 `4 v3 j; q& W
6 {: x1 o  ^3 M. `/ {) V3 d
. k' N1 @+ w6 h: z& m, E# g
7 Z0 V; ^/ P1 i4 v# ]( C" G7、下面程序的功能是产生20个[10, 100]之间的随机整数,每行输出10个数,根据题意,完善程序。+ B0 `& o( e& v8 c1 y4 g/ @
      Private Sub command1_Click()# C$ Z" ~  [5 G
         Dim a(1 To 20) As Integer' M' a5 C: P% R) I2 c
         Randomize' A: j/ t$ A' O
         i = 08 r3 E1 I$ f* _, q5 @4 Q5 X
         Do While i < 20
  e6 T. h- P& s5 M            i = i +1
/ [  D5 i/ Q' A  X  j# ~            a(i) =      (1)     
8 f' Y) Q) G! T: B6 W% R/ S+ S            If (      (2)       ) Then* S9 L' Z$ `. k, s4 b/ |, o
                Print a(i)
" b+ h" n2 w1 F9 S% f8 R$ L0 D' d            End If
5 S  p; Q, {; V& U- V, z+ N3 n* c            If i = 10 Then Print a(i)6 I+ ]- m  k* y0 O! [" b
            If i > 10 Then print a(i)$ \9 {. s- |! X' U
         Loop( W: ^0 j5 R1 F. `8 a# w! ~9 `
       End Sub
5 x* V) Y6 d& D& o- g" Z答:
" H  i- M' _4 _5 y, L* j9 c
* y" D$ ?; F' {' y# G( Q9 K  Z+ s, G" u

/ r- L7 P4 x' t
" c* Y8 ^4 y* S% J
  @; _; d, n, b" P  u/ b! u
, l/ Y6 S( J: j) Q$ Q- l( C
2 }' c; N- E% L/ W- l0 N( k4 k3 B! P/ I  ]8 h
' c2 c2 V; k+ |) ~" U
8、分析下面程序的执行过程,给出运行结果。( g1 m1 g$ B& [5 Y4 B+ g3 |) h
     Private Sub Command1_Click()$ i9 s& Y; n5 }' q6 X' i( M! J' o! @$ C
     Dim x$, n%% k$ t$ j2 [# @: E! K6 L
     n = 20" F/ Q! r1 _. A! u2 b
     Do While n <> 0* F' b8 p5 Z8 `
        a = n Mod 2
7 S6 g% p$ ~) z$ c        n  = n \ 2
$ w* i  I9 C/ Z        x = Chr(48 + a) & x2 p+ f& |9 i' ?( }* G6 a
        Loop
- ]$ c8 c5 H2 g2 M# h        Print x
; p8 z( W# n* [% m     End Sub9 j- |- R0 I5 @- i  j
答:
; S8 b8 k" G3 h) C
3 m- |2 I1 d3 J6 e! F" `' ]9 d5 i8 [! N% X
7 {/ T9 j: c+ }& p) R
3 n8 k# u# z" R+ _, S7 g
+ W$ G( ~# f. v. b
" r. `2 Q: c6 C, b

/ d) `' z# m! c# x- p; \; ]! w2 A+ w* j' e3 ^- V' |+ R1 G1 @
9 B/ `! S- `& T

( m+ V: t& V# x9、分析下面程序的执行过程,给出运行结果。
) @) C5 d7 {) N5 ~0 O7 W4 H   Private Sub command1_click()
2 O" ^) S& F- q; _6 s/ a     x = InputBox(“请输入一个整数”)
: j+ N5 ~5 e) F     flag = 1- K& p/ @8 y3 F* n* I( O; x- t
     For i = 2 To       (1)     
2 `8 `$ B* I  @- _, B        If x Mod i = 0 Then
# ]( Q1 z3 _& e0 G, d& b. ?! ^' k           flag = 0
; l4 d. ?: K$ w6 U7 a" q        End if 5 v; Q. C) P$ o5 X9 x
     Next i- ], E/ M7 G5 K( T" \' s6 ?) K
     If(      (2)        ) Then Print x; “素数” Else Print x; “非素数”$ h. L5 d2 F  K6 c
   End Sub
' e: `) @9 P  q: {  r" K            " N* b! I: @7 K- V! O& h
     # @: a8 Y) ^; `' U7 ^
答:
% R# l; n1 E$ J8 e' c* Z5 _
2 C- \- H2 j2 V: P9 g! L( B2 E, f: J7 S, t; u+ N" @* h1 _% o
) W8 u+ p2 f* A# d5 {- i, I' X7 f/ Y

0 l8 M6 R% X+ A  e( R
, {: w, D3 u# A8 K1 t# u* y4 F0 k/ h4 K, ]% m! R" e$ c
7 l% c/ `7 t% P) V- J: |( U& y" ?6 a
10、在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:; t  q* F8 P2 [
        Option Base 1( e! F! V6 ]# F; E
        Private Sub Command1_Click()5 I, a# l+ O5 x
Dim a(10) As Integer
8 n1 ~1 }( ?* R( QFor i = 1 To 10  $ H# Y( ]! u$ k! `
     a(i) = i
$ S! F2 y( \  ~Next
# \5 u  S: X6 o3 A: [Call swap(      (1)       )9 d1 I6 Y& k1 t3 E
For i = 1 To 10
' s% j: Y9 P, N+ u) k7 o      Print a(i)' d, A! E& U6 \! s
Next
! d: V8 Q+ a) B2 _% i% z- Q* R3 c8 kEnd Sub
& B  ^1 M& |% C- @3 RSub swap(b() As Integer)
4 E* g4 L8 `% l% ?1 k1 P; t& yn =      (2)     
, q- |, R* q" e7 _7 eFor i = 1 To n / 2
7 v. a, U4 B( Q, P* x    t = b(i)$ y" j" {+ U2 i7 g
    b(i) = b(n)
( Z% G3 P4 r3 d2 p" I% c+ B    b(n) = t
, A+ t! K4 F+ @" x6 _) [7 i       (3)     
! D# Q4 `, z. v* o0 ]/ S. T* WNext
- q3 H2 I) ]5 X# n: j8 H+ G0 g3 I* Z2 {End Sub
$ w  X$ Q2 j* ]2 m$ e7 _) L2 v1 `        上述程序的功能是:通过调用过程swap,调换数组中数值的存放位置,即a(1)与a(10)的值互换,a(2)与a(9)的值互换,……,a(5)与a(6)的值互换。试分析给出的程序代码,完成相应的语句。
# [3 {& X& e+ T* ~9 h* g4 P: J答:
+ T: G6 d, N6 A# m9 B3 _1 z. @
( l" y- V( J9 P2 t# M' _. H6 X. d5 R8 J
$ T$ P6 z; k" O, t, q; b7 \6 ^

2 Z* n3 P( e+ m( s. r" w: b7 [+ I1 u2 Q
# ~; I& I; Z! E) \$ W

5 V6 V5 x' v/ B2 D) [" J# Z" [( ]/ H- e3 U; i
# a" o. A1 N8 M8 b
' n1 G3 L5 l% C0 @% K, |

( z) y5 L  W2 H0 u3 W# ]- w0 S* I8 }/ F( s
9 B7 l/ i/ d/ q. O8 l) e
二、编程题(第1-2题10分、第3-4题15分,共50分)
; e* Y0 U7 D* e1、编写程序,由键盘输入10个数,求出其中的最大数。
% G6 `! Q8 [7 y: |/ V答:
# r1 r+ W3 d# K, A( L# I/ k) v! _% s' N

' B' J* _/ ?4 {2 Y4 j7 Z! h5 u3 _) G( `1 e- L2 u+ V; c0 s; V9 }1 k

; r" V- d, `/ y" t( r& x( N4 d) m+ ^! B

# P; p  @1 b* e- A+ @& q1 r. G$ m8 m' _
' j- e8 p6 J. z- {3 T
( ^! j+ a* p: u1 O! Z8 T" \, a: N* ~5 h
2、编写程序,其功能为输出1+2+……+100的和,并求出1-100之间能被17整除的数的个数。: Z( N+ z! s1 e+ Q! g% y
答:
3 x: ^: e) X+ }4 x, T
7 @; ~* L; w; M1 q% k& C8 g8 ^; `
8 d$ e, X9 J) \$ j; C5 a, n) C  K
- u1 \$ S& a4 J: }+ X

4 [- N7 K6 S, \4 Z- a0 P2 g3 ^/ ^9 c( H7 u
) e/ Q) x, ^: s
: T2 i# \" d- g% S9 H

& Y4 \) ]) j# ~3、编写程序,给出一个百分制的成绩,要求输出成绩的相应等级。
& `$ X# f& s% E1 \( V4 O+ \3 e答:
$ h1 z3 S3 R  v$ q. C" d
# F4 a3 P& x1 B% b7 M1 `6 S0 S2 k; P4 @
& D( S) i) i1 Q3 `% P

6 V& O4 `) c% K% C
8 |1 U- J5 W8 N* i
- ?( O; C- E# ~9 m: c# Z8 s: |1 ]- z( q2 d+ b

$ k. M# |  U* p6 a& w
3 s% Q* C3 \8 D$ H1 @
: ]9 l; K+ Z" U6 r/ Y1 p9 m: A) l/ k5 j1 n4 A
4、编写程序,输入一个年份,判断该年是否为闰年。* `7 |' n& {! Y, |* Y9 M2 e4 t
答:
* i( Y6 v$ b! J7 B' R: q$ P
/ B" N! e  B% c8 M- {5 Y0 U# u% f# h. F3 [6 [) A
奥鹏作业答案,奥鹏在线作业答案
发表于 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, 2024-4-25 21:01 , Processed in 0.110593 second(s), 21 queries .

Powered by Discuz! X3.5

Copyright © 2001-2023 Tencent Cloud.

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