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

 找回密码
 会员注册

微信登录,扫一扫

手机号码,快捷登录

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

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

[复制链接]
发表于 2020-3-10 15:10:26 | 显示全部楼层 |阅读模式
谋学网
东 北 大 学 继 续 教 育 学 院" _2 W, G/ H* k; b3 U1 P1 ~
    可视化程序设计(VB)    试 卷(作业考核 线上2)  B  卷(共 6 页)         
7 e' |1 ^2 {8 w: h+ T总分        号        一        二        三        四        五        六        七        八        九        十
" m/ Y+ W0 E0 O( J) |        得分                                                                                  I# b' |" F) p; v

# ]  W+ Z3 U# X" ^0 k8 S$ S一、简答题(每小题5分,共50分); w+ N0 H( V! A
1、简述子过程和函数过程的共同点和不同之处。9 k) t& f9 ^; E, z% |! k! S
答:$ g$ p7 @* t" q$ e+ k0 U

; U0 Y5 O( U# a( }5 ~# P: _0 H$ {7 M3 @% l5 P4 X+ k

/ e1 O8 B( T3 Q- Q  s1 o$ m9 [8 G+ L0 z, t3 J; _* L
% |; v; Y# |8 l
2、简述自定义类型和自定义变量的区别。( a2 @  H) L2 r! c+ V2 j' }! m+ h, y
答:
' g4 C) k$ [% o5 M% k% A
+ t  T, n1 V1 u0 y
; W7 h& _0 o( I7 _+ t2 I* T! r: K4 Y! O- y" @/ H- |
5 V% ~8 ]* ^/ ~6 t  {) q& _
        # X9 q: H+ A: z! |5 X1 I
3、简述标签和文本框的区别。- ~1 g0 P3 R5 J- d+ o) F3 s
答:
/ S) |5 M) z% F6 n- q9 s
# ^+ d& W5 s  l& d# H% L* g0 ~6 N& |) o  v
6 J9 [+ a, P" s& F5 S% O8 F
; ?; \, m8 A: @2 I, w; Y) v

9 O7 z7 H/ `4 h) O% |
( `7 l2 r' F. u8 O9 v7 A5 `! B4、简述列表框和组合框的异同处。
' L# ^+ Q8 {1 H, }/ ]答:
- ?; W* q; R$ O  x; f
7 b6 Z! m% [9 n; a5 _! G9 W9 I% `$ h: x( b
' W5 `) @2 O7 f9 W9 m8 G' m& z

9 B# O( W+ D3 y& E! e" ~1 y
, `/ A: v! C0 S5 o' _
( U1 n& q& o  Q& F. R
- K* }# F9 A' \2 W/ i' G5、分析下面程序的执行过程,给出运行结果。
5 s% D/ K. l5 E2 f3 ^& G9 J/ `       Private  Sub  Command2_Click()( }  `3 ~" K+ a5 N* l5 g
          Dim x%, y%, z%7 U4 O: F% [! H- M' {
          x = 242; y = 44
/ X0 _% b+ c  a0 s          z = x * y
/ \5 P1 V8 V: c1 ?' G          Do  Until  x = y
# a' x) g- G6 x4 V               If  x> y Then x = x – y  Else y = y – x
1 M) `# M& W' o! o- T" ^0 s/ l          Loop
3 A. O9 B0 N+ ?8 z+ ~+ I1 l/ b- g          Print x, z / x2 e0 e) R; ^3 Q
       End  Sub
# Z* m! K! N8 V* T, `答:8 s8 J3 Z' X9 W& }

! i* K4 Z# x; E6 _; E4 O+ R
$ n: q' f4 k  ]8 l2 G4 T5 D
- U, K' c" _' t! f6 y# V9 Y, x* B. S$ \9 S

8 s' f; d) q- y& d/ G: }3 A2 |/ D' m5 U3 B8 @

% o6 o) E# V$ q$ s* [% N0 s' g5 j' M8 C6 \0 y9 C
1 P1 [+ e: ~4 H9 A# L+ t
6、分析下面程序的执行过程,给出运行结果。
1 d/ J+ t4 ]7 [7 s   Private Sub Command1_Click()) H( s) j. G; R1 j3 n( ~8 f5 y
       a = 10: b) Y" U. I! t, ]3 z
       t = “旅游景点:”_
5 ^% u; \- C# _" X2 y               &IIf(a>3, “长城”, “”)_# V* J; S; @, e/ i9 r* V# V$ d# A
               &IIf(a<8, “故宫”, “”)_5 l+ o5 i0 p; B5 P; }& ~  z9 S6 L
                                 &IIf(a<8, “颐和园宫”, “”)4 Y5 a" M$ S4 K8 N0 U  @
               Text1.Text = t: I0 O: z7 l5 x) r
       End Sub
4 z# l' ^' }8 T答:2 N" f/ \4 [9 O5 V: I9 Y, P. }' \

+ T0 l% O' q5 r( D; q4 f+ _- E. R& O% Y

; u. R9 j( D' g6 B, P) I/ k" v3 _2 [
/ K( q7 P6 Y3 P( x9 l4 j+ f
  y$ V7 _% S. B) Q$ D, K. A

. v9 s; ]* S, t. b9 h7、下面程序的功能是产生20个[10, 100]之间的随机整数,每行输出10个数,根据题意,完善程序。: Y. T  G. }6 s
      Private Sub command1_Click()
) H5 L1 A& U- f         Dim a(1 To 20) As Integer; }( ]  h& r/ v! L* S. W% X
         Randomize
7 s# y* }) ^: `( `8 ~! y! G         i = 0; J; H8 b" O/ G0 P
         Do While i < 20
- R* ~1 n: ~5 r# m, w8 h4 o            i = i +1) f6 F4 r2 t$ N3 z5 V( j4 B8 U9 g
            a(i) =      (1)     " m; I; k) O% J0 K
            If (      (2)       ) Then8 O3 d- v: J/ ~/ T
                Print a(i)! `3 h  c- H# o' k+ g2 X
            End If
, s! F. B0 o" y0 t! s            If i = 10 Then Print a(i)
3 {8 }/ T  W: ]) T+ _, q' E. C            If i > 10 Then print a(i)( j5 B; f/ c* z, s8 ~
         Loop
% u. u4 Y$ ?" g7 a/ Z       End Sub
5 J  Y) i  z) i; L/ {8 T, ^9 w$ t答:
9 i: f& F6 e/ i5 k6 L8 F" n- H8 f, o1 a6 O9 U

; S/ L, |1 I1 V+ A  k5 Z" Y2 Z8 `- F5 ?" M

0 }5 q7 R9 Z1 G
  {$ @! {) ?  z/ G1 U$ C2 y: Q8 P
: N2 g7 r" p. B; G! I/ @) z
) R" P9 f2 O; X3 F6 v% k: Q7 ~
( Y" h' a* j) e
! J, M( f, \' X+ s; ^5 f8、分析下面程序的执行过程,给出运行结果。+ {/ n# K) ^! o7 [
     Private Sub Command1_Click()
6 q4 D. c1 @; t, h, f     Dim x$, n%  ?3 s# \1 j8 ~) H' h
     n = 20
. L1 ]! N9 \6 O     Do While n <> 0& k$ H" @' L/ c# a4 G4 y- L
        a = n Mod 2) D& o0 |$ z& f3 G, z0 C
        n  = n \ 28 q$ v3 Z- t. w  {- U1 s# S5 W
        x = Chr(48 + a) & x+ s9 L' `1 L/ r. F1 K
        Loop1 B1 c$ y9 B" P! V* w4 ~
        Print x
, J: w  F0 u* S" B% i6 C! R     End Sub
: a7 k% Q3 V# x: D) i: `9 J答:
8 @: R$ |+ W1 P( e$ W5 ~& s+ L, `8 I* B/ c% ]6 ~
; w# R+ y5 m( ~
$ t, y8 q! `: }. X

3 Y; a6 x3 m! D3 `' y6 C- W4 B8 c
! }. ~, f- L2 r* Q( V
9 o7 z6 _2 |, m3 ]

3 h0 N4 N# ]) \, W/ Z2 @
# O% Q! I2 V: z2 {
4 P  E2 f- W- [  R: x# e$ N( }% s9、分析下面程序的执行过程,给出运行结果。
, \& T# ]( u9 z! t6 O. _   Private Sub command1_click()
' `" s! w% Q, d$ w     x = InputBox(“请输入一个整数”)/ {: d3 e1 }5 D% h# }
     flag = 1
  s  I! o$ n+ W1 L8 E( H3 l     For i = 2 To       (1)     $ F: P$ }. C* V5 w
        If x Mod i = 0 Then 0 Y3 {9 A3 }! j: z/ x
           flag = 0
$ s) }% ]; J: u: t        End if + |8 {, t6 \9 k- L1 x: y# Q$ }5 A
     Next i
7 t- j  _7 p  H/ @     If(      (2)        ) Then Print x; “素数” Else Print x; “非素数”& e, N( m2 X+ |" C) A9 `
   End Sub( V- d+ E% f5 t- Q
            
0 {- b8 n; u9 Z0 R& u( g     
7 B7 V$ o6 k' [5 X3 K) \答:
* R' C$ h, G" O" ^$ x/ F5 ~* ^0 r, k. H* G3 Z6 o2 e

) g, v! x. b. S. p8 T* r8 t0 T$ o: E' d& u' R9 H+ M
) ~9 c4 o4 s" V9 C  c# p* |' U
7 e, B' m, c9 f" h2 D

4 G2 v% J1 N3 Z2 ]
( X$ z2 J& O$ @, n10、在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:& }' f3 s+ ]" O4 Z( H$ _" D- p* {
        Option Base 1
- c- y2 T0 @( h        Private Sub Command1_Click()
3 D) @5 |$ Z( }5 `( j: o9 ]5 a/ oDim a(10) As Integer
& l( [' p0 V4 I" |6 A% Z4 YFor i = 1 To 10  . w& q' ~! [1 [) z% S  o
     a(i) = i
* e+ m' c! R4 D7 WNext
4 j' T+ X0 z1 O8 c% K  xCall swap(      (1)       )
8 J$ S6 C6 h  G, g2 kFor i = 1 To 106 j! _' M6 a( ]6 R  J. o
      Print a(i)
1 g3 S5 [/ }9 _- `Next( n9 e$ ^  l4 i) R9 B
End Sub
  a% T  G: J* M; RSub swap(b() As Integer)$ |( ~) }4 ?) K! O
n =      (2)     
. x8 t, I$ W# A8 QFor i = 1 To n / 2: c& R# s  y* X
    t = b(i)1 K9 A7 q% n0 }/ l
    b(i) = b(n)! X& |  _3 }( C- [7 q
    b(n) = t9 k, d6 U" x* g
       (3)     
6 S& Z" b) T- z/ R0 X' k4 DNext
9 r. J, {: K/ f) Q8 _! |- bEnd Sub2 o2 N4 E: a2 \+ ]' C6 n' l
        上述程序的功能是:通过调用过程swap,调换数组中数值的存放位置,即a(1)与a(10)的值互换,a(2)与a(9)的值互换,……,a(5)与a(6)的值互换。试分析给出的程序代码,完成相应的语句。$ U7 m  x; {: H3 K
答:8 ?& `/ A& O$ w5 d

: ~1 f5 b3 v/ x) Z- D
* W5 V: W  w0 |& ]6 I! ~: u: X6 }
7 A' f/ T5 \: K9 C* W7 Y- c  G4 v6 Y* C, P1 T4 J
3 E4 f' H" V1 }2 p8 w" C- A4 ]% w

8 e9 R% q0 K6 `/ T1 k& j
4 k1 V) P0 [; g5 }/ o2 W
  Q9 a& G+ y; @. e9 h, F% D( a
  N/ a+ x( D# B) L2 q; Q# ?- ]

! |6 f/ P. {* z& M6 h2 }" L+ ]# n$ o/ i8 C! F
3 K! q1 P0 S. r- g7 ~9 Q5 Y: j( c5 g
二、编程题(第1-2题10分、第3-4题15分,共50分)
; Q/ G1 u- Z4 r# w8 P1、编写程序,由键盘输入10个数,求出其中的最大数。
' n( m: o3 @- V3 z. A/ y9 L答:
# `  _5 g7 |+ ^0 P/ w$ `; R/ Q1 w

, b6 `2 y( k% A9 l0 ]7 N/ W6 E" L, p
1 h/ I2 ]' f7 N% ]
4 Q; o+ w2 Q5 `' U$ l3 `+ {' P% z$ i  s1 U! M

& t, ~( W  q1 p5 j3 F& k+ p+ P! b3 x* \
7 p% {+ J. T* Y4 |* q7 o6 ^& d9 J
3 U$ N- d5 B2 d( `1 u% Y$ J! K
2、编写程序,其功能为输出1+2+……+100的和,并求出1-100之间能被17整除的数的个数。
; X. Q! Y6 c5 ~' q7 j0 l5 h答:! z; n) p$ \$ @/ c+ m

" X' I' N& e& a1 o7 [
% @4 b! b- c" L! h0 F4 {
  i( |9 h8 a* e9 x- ~9 T5 }) p  m4 g! P9 C* P1 I6 p, a3 P
4 v0 s0 D7 Z! S( }7 O! O

  J5 `5 P% x9 M  D4 U: E! N
) v( o7 L/ X; d6 ]9 c! L9 Q6 {2 M- S) U6 N
8 J3 ~& ^. t* Q3 B5 e9 C- I4 t6 G
3、编写程序,给出一个百分制的成绩,要求输出成绩的相应等级。
6 f& y9 T. }1 ?& z' \答:
3 O; E9 @6 b* ]5 d! h3 `1 R1 F4 C5 q, |* }5 y

% e: D4 E9 c5 C8 [' ]4 k8 B' i
4 c5 t9 o7 s: f; z3 L( S4 g- u% T& Y0 F( W1 |/ d% U; ]- H$ Y6 J* Q

) I2 j, o3 ]3 |( x1 j' Y; G- m4 u- p
5 B0 t1 j* |" l

$ W& j/ @+ f' m
6 _( P: C5 v- p, i" f. A) {3 U: [
# ]+ }* O, X% c' m5 M9 T
4、编写程序,输入一个年份,判断该年是否为闰年。
) a) b0 _2 k7 }7 X! Z% P2 j答:
2 ?: ]0 |  c! L% X9 e. u/ G$ Y. M* z; r; ^4 o

7 _' r; d. F/ X6 u1 d; I3 n
奥鹏作业答案,奥鹏在线作业答案
发表于 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-11-26 04:21 , Processed in 0.102412 second(s), 21 queries .

Powered by Discuz! X3.5

Copyright © 2001-2023 Tencent Cloud.

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