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

 找回密码
 会员注册

微信登录,扫一扫

手机号码,快捷登录

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

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

[复制链接]
发表于 2020-3-10 15:10:26 | 显示全部楼层 |阅读模式
谋学网
东 北 大 学 继 续 教 育 学 院3 @( [# `+ l1 h% @3 S  i* D" b9 H
    可视化程序设计(VB)    试 卷(作业考核 线上2)  B  卷(共 6 页)         
: D. y7 F) B* C2 Q总分        号        一        二        三        四        五        六        七        八        九        十$ E& M. r1 e4 g) N7 z; u2 ^
        得分                                                                               
) q! o5 H6 |5 N0 ?( L! E( ?& `+ ~! J' g8 I2 N! f
一、简答题(每小题5分,共50分)2 r- Q7 r0 K' _- b+ m, u6 N$ R
1、简述子过程和函数过程的共同点和不同之处。$ q% u5 a: D4 r
答:6 K- }6 `8 ^( i# s( m7 M4 }
+ v) m5 Y7 A2 h! v+ j+ z

" E- i2 @8 }  q& k+ ?4 p2 m4 K4 O9 ~. ~4 p

; K+ H; M' v: e0 _  j% X4 s0 Z: |5 C; z9 l! g% m' L# ~
2、简述自定义类型和自定义变量的区别。) z; H9 F# }% U9 m% w
答:  D; ]/ h% y2 F5 x  g) x4 h3 h

6 g3 q1 {, M( Y+ R: H+ ~: F
$ J0 ^8 O( H2 ]- |5 q
# W* ]8 ~/ C0 N1 ~0 Y
( E& b- G" L" t( q& ^       
8 \( e9 G2 G8 P+ g6 c2 r3、简述标签和文本框的区别。# d- e- Z+ A$ i# W! ~: T8 |+ \: {' [- B
答:
: j1 q1 t; u9 k3 N0 a: o1 A* \+ o/ X, P" R" d
% r% U3 Y' W8 w) O' `7 ~8 O
* b. j& ~( s: L/ q: q
0 ?- U" b0 i7 s8 N

! U/ d) ]7 [! x' H+ S; y8 Y7 p# Q- H! d
4、简述列表框和组合框的异同处。7 J+ x, e6 P8 [, ?3 n
答:: A* C2 c0 q5 k5 A: O
( ]- ]' W" Z3 \) v' c" t# ?

' K# f7 I& `1 ^1 K4 ~9 H2 p- }+ o
8 K# K! A- d5 f5 A

) M( s0 {1 D# q0 H* r, L  p  o5 M( D) ]. }6 }: c

0 k" U! e- @+ y" |0 X" }1 K5、分析下面程序的执行过程,给出运行结果。
  \5 U# R0 Y8 Y$ Q       Private  Sub  Command2_Click()
" l- n3 M8 R7 @* E& b% G- ^; Q          Dim x%, y%, z%" O( i. k6 [4 H
          x = 242; y = 44
1 @# q  ^/ u& L. b          z = x * y, B) q2 _, Z% q5 a4 o% v
          Do  Until  x = y
  A1 i; e' k$ f. T               If  x> y Then x = x – y  Else y = y – x
% G; r# V: r# P. B  ^          Loop
$ P+ z7 R6 Q* S5 w9 k* K( {" c          Print x, z / x2 |6 O+ Z* a. c& D4 g; t
       End  Sub
" l0 f" Z! Z) W4 w. S答:
* F6 \  d  s3 {7 H# e. A3 ^8 f( a3 ^7 T
" a8 j3 ~7 ~: @& M

  ?1 N' W7 V3 x& {' z5 h' T# n4 l2 d0 u) [; F9 t: O# [: z3 s" w

3 Y+ A  j+ h$ m( Q, L/ E$ |3 ^, S5 N6 l" |1 N9 e# J

* o5 n8 X( O5 Y% P* F/ |$ t4 c; W2 r/ H  |& }; ?  Y
5 w( g7 ^7 B4 m( @/ T& D' A% x
6、分析下面程序的执行过程,给出运行结果。5 @, }' A$ ?5 o: ^+ o3 @( a
   Private Sub Command1_Click()
3 J# F! e/ ]7 p1 ?       a = 10; Q4 ~1 x- d: B* u6 b- S1 m
       t = “旅游景点:”_
9 W" f+ R; w6 ^. K; w               &IIf(a>3, “长城”, “”)_  H% ?( D# t0 }1 U( H; |5 ]
               &IIf(a<8, “故宫”, “”)_6 J' [9 j! }' o; f! ?3 z& L
                                 &IIf(a<8, “颐和园宫”, “”)2 p* A" O. {5 w; w4 h; x* `
               Text1.Text = t% @8 }) `# f4 i, K6 u( y8 t9 a5 F) T
       End Sub
- }0 R4 L# V8 k; i" g答:3 N9 `' c0 O: I% k% e* ]3 Q  Q* g
# @) V" K2 H  M4 C

% q( L, @) L5 A
: a) F6 M# p# E3 h: w6 P  l$ y5 x2 }$ p; V

0 z8 f: |6 v1 E4 {0 g+ f" x
7 n; S( E' T5 T/ y
& c1 J, E6 E2 J) ^. W) M: s3 b& i7、下面程序的功能是产生20个[10, 100]之间的随机整数,每行输出10个数,根据题意,完善程序。
* G' U( r/ |: Z7 ~& j7 }( x. [3 f      Private Sub command1_Click()
/ V* m7 V$ a: M         Dim a(1 To 20) As Integer& O7 H$ J1 Q" g
         Randomize
/ f/ G9 G- Z8 t& b9 @         i = 0
+ ~, Q" B; C3 B6 o, k3 @         Do While i < 20
3 p( j3 [5 d+ ~2 y4 p. N" C            i = i +14 j$ ]+ I! }" L4 G
            a(i) =      (1)     " n7 x0 p6 S' A$ C) j
            If (      (2)       ) Then( b' o. r, i1 a2 E
                Print a(i)
! B! v/ B  f* ~7 ]            End If( Q! ]0 v" W# h0 K
            If i = 10 Then Print a(i)
  A& {& P) Z* A! Z            If i > 10 Then print a(i)
& b7 M5 F4 A  Y' |         Loop
& a* D- V" E/ {: |5 O       End Sub
: {) `8 z$ @4 h8 Y# S" |+ c; N6 `6 h答:
8 x8 O4 [7 `8 [6 B; u2 I: z7 B9 U$ a, b$ ~/ G5 t

+ K4 S, S1 w  ~, u. Z+ E9 P0 O! m5 X8 j
' w) n6 n4 U3 A

, q% L* a# {8 N' ~$ j- r* g9 P

1 y9 `+ U1 q1 I( }7 r3 l
/ h5 X6 k6 t2 B) f  W+ {% [
  d5 N1 x7 r. U7 \' b  V+ t0 Y8、分析下面程序的执行过程,给出运行结果。& ^7 S7 n" W4 @% M  X) m: x4 e9 D
     Private Sub Command1_Click()* H9 W* W$ d" V$ P/ ?
     Dim x$, n%. r9 A/ R2 \9 p% M
     n = 20
, S% p* s, b  e1 o* Q     Do While n <> 0
' |3 I4 \4 H3 a" `        a = n Mod 2
$ q$ {1 r! Y. y& J8 i9 u        n  = n \ 22 _( Y3 p" i5 K
        x = Chr(48 + a) & x
( U6 v+ p: e  y! L* e' ~! M        Loop
# x2 L: V- S, r7 j: A5 g6 W3 v        Print x
4 @3 R: v5 j$ y     End Sub6 k0 o: L9 Q: |" G: M  Q
答:
; z  M6 T- M+ E$ O) r& A* {# v3 d) F1 a) |! s
. E4 a, H+ z; Y' \
* g7 }/ z' I1 A: z* ]; i1 T
- _& t0 Q1 _3 o
- ]+ X1 i1 I1 T

5 H8 \; q2 L  v8 w0 [  H+ V7 S9 B( U3 W, ^4 Z4 k- ?

" |  N: R9 }$ n+ S, U- j
% ^+ j; W3 A& D! |* B( k& e  g
4 @* T! J0 q0 g% Y" C4 f& z9、分析下面程序的执行过程,给出运行结果。3 @/ K/ I) l( W" m, K! @
   Private Sub command1_click()- c6 Z1 Q7 o1 c0 z% j
     x = InputBox(“请输入一个整数”)- K0 S1 |; v6 Y( ~, s3 Q6 k" O6 _
     flag = 1
  \& V: g% o' g* {; |& }. Y4 {. w     For i = 2 To       (1)     
+ R+ R0 z5 d. V: `2 V. L0 E) p        If x Mod i = 0 Then 4 u$ ~9 S! y9 ]6 g
           flag = 0# \/ d& e5 g# w; p
        End if
8 n7 j  C* V. B' X& {+ g; H, L     Next i
0 S# }& W  T8 ]3 o     If(      (2)        ) Then Print x; “素数” Else Print x; “非素数”
9 l% V3 X0 `# i% v$ {   End Sub, k9 _; T$ P' v3 V
            7 L6 D; V& O2 X. P/ j
     ) U  l( u$ i! {4 c% g$ y  ~
答:, M" d2 ^  F( F' R% M! t% z
% f: y2 i+ M2 B: H5 y# E
) j! b. [4 W: `# ~( G" W4 Q
/ b& v" j  C8 N
% _( q1 u+ L: p" S2 Y7 b8 b* u

: ?; K9 N- N. R; g9 `* i* {) I1 w, z$ \& M1 C/ P1 M& u6 r3 ?7 y$ f5 r+ k

# h9 g: y5 H- h) ~! S3 h10、在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
' \  \4 ]6 E, D+ g1 \        Option Base 1
' a' h, a, y1 Y5 e5 e, {9 m        Private Sub Command1_Click()
7 F0 g/ E: A/ i9 f# tDim a(10) As Integer' n" M& W5 d1 B  S- \4 t
For i = 1 To 10  
3 ]% u! V# _2 Q1 ^# ?     a(i) = i
5 N6 `  f0 t4 p, lNext/ k5 b, h$ X% ]; T) {# X+ x
Call swap(      (1)       )$ [# c8 V: d- p7 e) s' ^
For i = 1 To 10
, U# a/ C: H8 h* C& g      Print a(i)
6 y4 T& W4 l/ a/ }) v+ _1 eNext
" F/ h4 i4 ?, @& p, B& a, ^$ S6 |End Sub! \* z0 b* R1 {# A: c9 [% Q
Sub swap(b() As Integer)/ Y: S; l& `1 w$ l# j/ [
n =      (2)     " S3 l6 D* U' w0 L& M
For i = 1 To n / 2" \+ j: K: N6 K
    t = b(i). ^% B: G) g* r) {
    b(i) = b(n); f& [* Y# l% [7 Q0 d+ l9 Z
    b(n) = t6 D. {) u3 v/ Y/ Y4 V( d
       (3)     
6 e  Z: M5 y2 T# C0 Z1 v$ e( b% nNext4 C( |3 @* @( F# f1 ]% V
End Sub, g1 G; j. C6 c, T5 h) o! T
        上述程序的功能是:通过调用过程swap,调换数组中数值的存放位置,即a(1)与a(10)的值互换,a(2)与a(9)的值互换,……,a(5)与a(6)的值互换。试分析给出的程序代码,完成相应的语句。
1 h8 V1 B0 Q. @答:) ?: A" ~; R! o

6 c6 ?$ {* e, E. e: u+ K% b
, L. Z0 {7 B5 m4 H% y( o$ z( r5 O* e, K2 R: x6 ]2 V) F. N9 F+ b6 |( r! u
+ `8 q5 f- j/ R' r
$ i5 N: B1 T2 p8 z" E( Z
( ~; j- }8 s2 L
9 k. A+ `0 ~& f/ C; |# F

; w  T* n# \4 |* w1 H6 ?  Z* ~$ z) B8 }+ U' C- a

1 z8 |& k' V, N5 a+ J+ t' Z
4 I0 R' p% _5 I2 k. Q
3 Z$ M* v+ h( n6 ~9 U6 n0 `8 C
3 T/ y. c3 Z9 _0 f二、编程题(第1-2题10分、第3-4题15分,共50分)
+ k/ h7 @, Q/ h/ ^3 e" I- S1、编写程序,由键盘输入10个数,求出其中的最大数。
2 l" V: r1 r0 B# T2 F答:. l2 I0 @" Q7 Q

( H# v4 P( P5 f
! K: r. |9 y* {( K% H3 u% d+ C. U* Z6 R
& @# F% F3 h; e7 q6 ]2 [* e) c
; N: o1 C- f, V2 c

9 l+ D$ i' w  y9 h. s* o+ i9 D4 W' N( m, T& ]" ]8 M$ g$ r* Y9 y/ d
! m/ k/ S6 }" E6 y6 P  g
- v! m, J" Z" I6 s+ L# [5 o
2、编写程序,其功能为输出1+2+……+100的和,并求出1-100之间能被17整除的数的个数。
$ \- N, M, S( M6 h( J! ~: T) l' r答:
4 E! W$ O7 ^+ u0 n* y3 N2 I4 }! C/ ~  X& x. l4 g

- @. u5 Q& S1 b9 `; w2 s  p% g8 K4 G+ U# \, a6 Z2 h

  u% L( V9 ~9 n
9 \2 P# G" N6 b, V
% X) g  w/ b9 `, N7 P- T* `6 F" c" o0 V
6 O7 Q& }: ]; J; h! Q) a2 Q

9 K$ A" W: U7 s, {! ]% a1 s% I3、编写程序,给出一个百分制的成绩,要求输出成绩的相应等级。
" N3 ?2 t" x3 |0 N# k, d& W3 v6 ?答:
# u. w( m" q( L7 }4 e( T: F& E( `8 ^; `8 z
9 S% n- A$ E5 Z' V8 y
$ u! [$ ~' w. S4 Y. |/ k& T" F

# u, Q6 n3 o" N% M& C7 l; H5 C7 R- Q. l2 f( V- F
# W& h( g3 L1 Y" X
6 ~2 u  N* \9 y+ V; J6 Z* b% M

  m4 W. Y) \: a, e4 T3 O& m7 j) S
* |; v( b4 ?# I2 I. n( Y. `: G$ a8 {( o6 {! E

2 A4 s* _: d) ~2 j4、编写程序,输入一个年份,判断该年是否为闰年。+ R6 }" m3 c& A9 T2 b2 B
答:9 Y0 Q9 {& ]& [3 ]. g

( j1 u, @! S( w8 b$ s- I; N/ s. d7 l( }, L+ y. t+ m
奥鹏作业答案,奥鹏在线作业答案
发表于 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:15 , Processed in 0.107628 second(s), 21 queries .

Powered by Discuz! X3.5

Copyright © 2001-2025 Tencent Cloud.

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