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

 找回密码
 会员注册

微信登录,扫一扫

手机号码,快捷登录

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

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

[复制链接]
发表于 2020-3-10 15:10:26 | 显示全部楼层 |阅读模式
谋学网
东 北 大 学 继 续 教 育 学 院- [% 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
奥鹏作业答案,奥鹏在线作业答案
发表于 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 06:51 , Processed in 0.108647 second(s), 21 queries .

Powered by Discuz! X3.5

Copyright © 2001-2025 Tencent Cloud.

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