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

 找回密码
 会员注册

微信登录,扫一扫

手机号码,快捷登录

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

[东北大学]19年11月考试《可视化程序设计Ⅰ》考核作业(资料)

[复制链接]
发表于 2019-11-2 15:45:00 | 显示全部楼层 |阅读模式
谋学网
东 北 大 学 继 续 教 育 学 院+ P6 F$ q; g- B4 O5 I2 d
    可视化程序设计I     试 卷(作业考核 线下) A 卷(共    7    页)         
- `/ a' m- A/ E* d6 S  e- v总分        号        一        二        三        四        五        六        七        八        九        十
" l( D! P6 D& Q- A* U9 O        得分                                                                                ; Y1 q5 a/ ]3 q) n$ M& D
注:请您单面打印,使用黑色或蓝色笔,手写完成作业。杜绝打印,抄袭作业。
: A) t% n/ p. c1 ?一.选择题(30分,每题2分)' ]! @; h( `' x; d2 W
1)以下能在窗体Form1的标题栏中显示“东北大学"的语句是
1 ]+ `( g  F! r; B) K2 UA) Form1.Name="东北大学"
4 H. T) \2 n& j6 m0 ]" RB) Form1.Title="东北大学"
- `2 ?7 H5 N2 i3 t- ^' o: ~C) Form1.Caption="东北大学"6 B& `$ ?" L+ [, z  J
D) Form1.Text="东北大学": H* O: ~6 ^; w# Q% A: b
2)在窗体上画一个名称为Command1的命令按钮,在事件过程中执行:, N* T3 |9 ^4 N: I. e
                Move 500,500
( H# i2 l8 i& J$ d, ]        程序运行后,单击命令按钮,执行的操作为  U* @& A% l$ P: t
A) 命令按钮移动到距窗体左边界、上边界各500的位置! N/ x6 o# n- \
B) 窗体移动到距屏幕左边界、上边界各500的位置
$ D5 `9 b# z: B2 K, ^) `' p& A: z  f8 LC) 命令按钮向左、上方向各移动500
4 q' J2 i- @+ k% [. j; ?D) 窗体向左、上方向各移动5008 e- i+ d! ]+ U% L1 E
3)在窗体上有一个名称为Text2的文本框。影响Text2的Tab顺序的属性是
: g% B: v7 Q7 oA) TabStop                B)Enabled   C) Visible  D)TabIndex
  O/ K6 w% r" J' @4)设a=”Visual Basic”,下面使b="Basic"的语句是, X& J3 `# e" x. }9 g* `
A) b=Left(a,8,12)                         B) b=Mid(a,8,5)
' a( Z& Z; r$ u+ HC) b=Rigth(a,5,5)                          D) b=Left(a,8,5)& H  R8 `! ], {( t
5)以下关于MsgBox的叙述中,错误的是1 V7 s$ S! J0 n$ |8 y4 u0 ~5 t- `2 @
A) MsgBox函数返回一个整数
; `. W, ]+ i$ m$ E7 \  ~( lB) 通过MsgBox函数可以设置信息框中图标和按钮的类型
2 q* I4 e7 F0 _  R$ I) f6 T$ AC) MsgBox语句没有返回值% J- e# a3 e; S
D) MsgBox函数的第二个参数是一个整数,该参数只能确定对话框中显示的按钮数' A+ R% u8 Q2 Y% Z# G
6)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
5 y% y8 J* T; O' q* e6 rPrivate Sub Command1_Click()
; d$ N! D5 Q8 N8 h* p3 A5 ]' w& GDim x As Integer/ _: T$ F2 u4 N# E! N
Cls  p3 i6 [0 k6 P* C( m) f# w
x=2
, u6 J% T  Q/ e- D& p" Qy=0
1 q. T9 w( h+ j2 g2 w! CFor i=1 To 2
6 D) B6 i( R6 T1 m: ?y=y+x
0 g2 W7 S# ?7 vx=x+24 u! M  V. N% J" O6 n
Next 8 i& T8 z5 a$ z  m9 P" G
Print y,x
+ l& N2 @# g3 `' WEnd Sub0 R$ ]6 ^4 x0 W
程序运行后,连续三次单击Command1按钮后,窗体上显示的是5 z- ?! X" z# [9 F
A) 4  2                 B) 6   6                 C) 12  30                 D) 4  6/ v' b; \3 k6 ~# j
7)以下合法的Visual Basic标识符是& e: _; [! [* I8 i7 C! t+ I; z
A) wwend                B)        const        C) 9abc                 D) a#x
! Q9 w) a0 k% M& i0 {8) 当一个复选框被选中时,它的Value属性的值是% G/ o# X* X, e5 S3 t" p, X
A) 3                         B) 2                         C) 1                         D) 0
3 b. X8 I5 f  d- s4 u# [$ _0 L9)执行如下两条语句,窗体上显示的是
* N2 P4 L8 l5 \; h5 F. Y" B( S( d1 wa=9.8596; F1 @3 I# Q0 g9 a
Print Format(a,"$00,00.00")
& l5 c# i. h9 ^& {# }A) 0,009.86         B) $9.86                 C) $0,009.86   D) 9.86
& L4 g! b8 M# a( c: N10)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:3 J; v+ n% ~# V$ X$ D
Private Sub Command1_Click()
9 j0 @; ^+ ~+ x$ Qx=InputBox("Input")
3 @- J/ x1 o. I" R8 L8 i" q0 JSelect Case x
! C6 P" ?; b0 o- F, GCase 1,37 l2 X" ]. u4 }9 K
Print "分支 1"! s9 ]( {+ ^: Z' K0 m0 B
Case Is >4! B+ ?6 Y. o4 G+ Y/ _( W
Print "分支 2"
/ H1 s2 b. A; `Case Else3 ^+ `; `4 t3 r
Print "Else 分支 "
: w! L! J. n- t4 B6 G# u, ZEnd Select
! N( u; K( s  p) Q: u7 I  i* KEnd Sub# ?4 Q; `8 D9 E! m: w: ^9 W& S
程序运行后,如果在输入对话框中输入2,则窗体上显示的是$ {! u6 @# l! T" z
A) 分支1                 B) 分支2                 C) Else分支         D) 程序出错, ^1 B! t& L2 O9 @, N0 ]  m& ~
11)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:2 W: J- ?7 f' `# n3 p
Private Sub Command1_Click()
+ Y" v& ]/ g) w. Y7 X8 A! \+ Pa$="VisualBasic"
* n! b, {" B( n7 k9 h$ N- APrint right(3,a$)
% r' _+ T7 c6 n( G: o6 CEnd Sub
5 Q2 O  f1 ~% Y* t( `0 a程序运行后,单击命令按钮,在窗体上显示的内容是
8 I& B* ^! z# [# W# S9 _- }A) Vis                        B) sic                         C) ccc                         D) $$$
3 R' ]' T* t! C6 s12)设窗体上有一个文本框,名称为text1,程序运行后,要求该文本框只能显示信息,不能接受输入的信息,以下能实现该操作的语句是
% C. @# d3 y6 B) ^' t1 F' NA) Text1.Enabled=Flase                         B) Text1.MaxLength=0. N& s; m; s6 k/ O$ S0 S7 Z
C) Text1.Visible=Flase                         D) Text1.Width=0. R8 m( A! T% I1 I
13)设有如下程序段:
' c# K1 l* ]( W6 P. Z$ Ux=0
$ D" G3 b% e7 N1 Z5 oFor i=1 To 10 Step 3
! _( R8 |5 Y" C2 lx=x+i( M; [2 a# x2 K6 i5 |1 _
Next
$ O  o. l: }) M5 N5 }2 Q运行以上程序后,x的值是
' K, m; u2 X% A1 D" {( @A) 20                         B) 21                         C) 22                         D) 23* K0 ^9 Q2 B- c" c+ h
14)以下叙述中错误的是
. X2 J' L- h% \( t' k3 eA) 在KeyPress事件过程中不能识别键盘的按下与释放
3 [1 D: k! [" w. ^3 b" e- @B) 在KeyPress事件过程中不能识别回车键! Q$ P% H  V  h" {$ d) r
C) 在KeyDown和KeyUp事件过程中,将输入的"A"和"a"视作相同的字母
9 v* A  ]+ k$ X7 a( SD) 在KeyDown和KeyUp事件过程中,从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符
- W; s2 o5 v/ Y* _15)窗体上画一个名称为CommandDialog1的通用对话框,一个名称为Command1的命令按钮。然后编写如下事件过程:
/ j. }# P" D! g! m) Y' _Private Sub Command1_Click()
) s+ F- x9 X' Z+ `, UCommonDialog1.FileName =""3 X& P  o4 U9 J* r5 b1 o7 Z* K& F
CommonDialog1.Filter="All file|*.*|(*.Doc)|*.Docx|(*.Txt)|*.Txt"
4 p/ s" b* A9 _# Q0 ]* YCommonDialog1.FilterIndex=2' \9 r. b# r# W  o* @  D! r
CommonDialog1.DialogTitle="VBTest"- w' G% W4 @! _* i& i$ @  c! K
CommonDialog1.Action=1. h: P3 S7 ?% _& p; F
End Sub
. n0 `6 c" J' f: [& S: L3 Y对于这个程序,以下叙述中错误的是+ S8 S  B2 I% C$ C4 A/ f
A) 该对话框被设置为“打开”对话框
; Q7 C; f6 u( f" r" b6 f. |' uB) 在该对话框中指定的默认文件名为空
( d3 p* I6 A" s/ C& QC) 该对话框的标题为VBTest
( Q5 \' G* m4 `3 a3 aD) 在该对话框中指定的默认文件类型为文本文件(*.Txt)
; g2 K+ F4 k5 Q# }8 ~2 H二、填空题(30分,每空2分)/ Q2 [$ \, s/ O
1) 结构化程序设计中把程序结构规定为( 1 )、( 2 )、( 3 )三种基本结构。8 a' k' T  j3 y6 ^# a2 S; [0 z
2)在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色) 。当向文框中输入任何字符时,命令按钮Command1变为可用。请在 (4) 处填入适当的内容,将程序补充完整。
, F4 _: M( w+ X+ h' h9 wPrivate Sub Form_Load()
2 o$ s$ _) L- p  n& F6 V, t# v# eCommand1.Enabled=False9 a' @- J4 A7 i% \
End Sub$ [% O- R  r, i7 G+ ~: S; |7 q/ g1 a4 G
Private Sub Text1_(   4   )()2 T' \8 l' i: i5 i
Command1.Enabled=True  ?0 Y; e2 J# ]
End Sub* ^4 D5 n8 F4 ^( t
3)在如下工具栏按钮事件处理函数中,空白处应当添加的语句为
2 o. L  z  X8 o: \! RPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
& U9 \4 s5 }) d* u( n! L0 r$ dSelect Case (  5  )( j8 k7 a% k5 D) Q' D  _$ E& p4 a
4)        在窗体上有一个文本框控件,名称为TxtTime:一个计时器控件,名称为Timerl,要求每一秒钟在文本框中显示一次当前的时间。程序为:% i! T) ]4 D8 s, Z. {
Private Sub Timer1_( 6 )0 z1 r! k9 D: l- f7 ]
TxtTime.text=Time
( H( y, G- E( m; e( eEnd Sub
& l9 _( t5 [, V% T请在(6)处补全程序
0 P$ X2 ?2 b4 r  }7 ?5)设有如下程序段:- B( m- F+ T- M2 c8 ?' g3 W' b
a$="BeijingShanghai"
) N1 d8 N% O3 v) ]. ]1 o& ab$=Mid(a$,InStr(a$,"g")+1)8 F+ U4 I* o4 f/ `
执行上面的程序段后,变量b$的值为( 7 ) 。- Q1 Z: g7 u6 w# H1 j
6)以下程序的功能是:从键盘上输入若干个学生的考试分数,当输入负数时结束输入,然后输出其中的最高分数和最低分数。请在( 6) 和 (7) 处填入适当的内容,将程序补充完整。
4 A* K: |8 O6 ~# c; g+ n1 `Private Sub Form_Click()6 B2 g$ m4 O. a0 m! v4 C
Dim x As Single,amax As Single,amin As Single  y2 ^5 P3 B1 Z6 d- ?2 E
x=InputBox(“Enter a score”), X: z  o* c, _* {, e, Z
amax=x) S3 l+ H0 B: s& S
amin=x
0 j3 N. w' j2 c0 u& tDo While  (  8   )
- e: G0 R# k, C& [* ~If x>amax Then0 U" c$ m5 W! L; C! F' h
Amax=x
7 @3 d' g' L8 c, r- K8 {; fEnd If
& B/ B1 W/ L, EIf (   9   )Then- |; {" d5 m5 R. H! A
Amin=x
2 a7 X% \! m6 x' R6 S" U% \2 |End If1 C9 t( {+ [1 w# |
x=InputBox(“Enter a score”)& Q# F- y; [+ E
Loop% R$ j) h( n* R* u+ n) x- {: S
Print”Max=”;amax,”Min=”;amin$ P3 N) ?6 o/ a/ z
End Sub
8 {) i6 X, q( R9 ]3 y# Q# D# E7)在窗体上画一个名称为“Command1”,标题为“计算”的命令按钮,再画7个标签,其中5个标签组成名称为Label1的控件数组;名称为Label2的标签用于显示计算结果,其Caption属性的初始值为空;标签Label3的标题为“计算结果”。运行程序时会自动生成5个随机数,分别显示在标签控件数组的各个标签中,如图所示。单击“计算”按钮,则将标签数组各元素的值累加,然后计算结果显示在Label2。请填空。8 F& N) X- _  l, [9 u% V- e
' p0 z# i7 k1 b" {8 o) t) w0 M
Private Sub Command1_Click()
$ t7 o7 I- @. _) m. w  @Sum = 0: J$ A; j7 b: M8 }
For i = 0 To 4
* X/ m6 R0 F) e9 cSum = Sum +  (  10   ) 5 p7 Q" p" s9 L7 ^% X' L, d3 z
Next! O) S$ K  i3 Y0 n, E
(  11  ) = Sum
! ]: k2 g- c9 }' H6 TEnd Sub. i" y8 J& e# P: R, ]
$ N) N8 z% E3 N: P) W# P( M
8)如下程序计算1~100之间的能被3整除或被5整除的数的和,请不全如下程序/ ?5 z* ~! j: y( a4 D) I1 M; K* i
Private Function sum() As Integer
. a8 `! d; j9 L9 b" a5 ts = (   12  )
5 k: N( S* y3 y" {; n) w  G    For i = 1 To 100( t7 w+ R! |" T0 q# g
        If  (  13   )  Then3 p: p* W& f8 Z* }' g# \5 c  L
        s = (   14   )7 |" Y* M& k# \* G. l" n
        End If
' R& K" T+ w% a3 G  E; ]8 U5 L        ! T5 W4 @1 W1 E( a' l0 _
    Next
4 I- ]- `! G, d) J0 }6 a. a6 Ssum = (  15   )
9 Z/ Z+ K( a( X1 @9 lEnd Function' e2 Z' J  s) T( E$ m. {* t$ a; W
+ {2 ^% _1 c2 \2 c: U$ o* A5 @$ K
三、编程题(40分,资料可以附加页); D# }0 l1 s4 i. `1 a
1)(10分)编制程序实现从键盘读入一数字,求其平方根。如果此数为负数,请提示“负数没有平方根”,否则输出其平方根。
- F: T" G9 m% W" _4 P
; Q# Y# W0 r( T1 h( U2)(10分)输入10个同学的数学成绩,计算所有及格以上同学的平均分。' o2 A( C0 x% R4 E7 D

. W) u/ [8 x0 `% S, A3)(20分)设计一个form名称为form1,添加“打开文件”按钮cmdOpen,, “保存文件”按钮为cmdSave,文本框为txtSource。通过点击“打开文件”按钮读取文件”c:\abc.dat”的内容,并将内容显示到txtSource中;然后通过点击“保存文件”按钮将此文本框的内容保存到“c:\abc.c”中。要求使用open命令打开文件,在form1_load中初始化cmdOpen和cmdSave的标题属性。
, t$ a5 m2 c1 R+ k* n, Q! H0 y9 g2 d" j# x5 y

4 n8 M1 A6 {0 @! E: M1 H# n* o- q; ^8 p; \8 m2 R. k
4 r, H+ e7 P6 b$ l/ E
( g- R- A3 F# n: B+ [

; v, M" S* ^0 ]
% A. z2 p" x% \# O; J& ~, x
5 b6 \0 [) t, C) \4 s, f
* @' d! X' Q. ?) I
) D% Q* p  `2 n7 N# }& D
8 e; n( u% _5 |
* C7 \+ C& l! {  o1 n2 Y# ?6 |; ~+ D( N" z# q9 J

$ Q2 y+ I7 i2 ^. e: a) ?0 \/ J6 R8 t  t/ U. M9 B5 l4 _

, O- q$ M- N. t. B
; b: \: y5 m' @) I# o( i2 b- c7 v1 j" L

4 I" ^$ X9 J/ ?& O8 B& G
; {1 o. w+ [8 ?% Z- T4 q7 a1 O* [: k9 B

+ S0 N3 K, W! ^8 k" _% l+ g
4 q; Y( M9 @2 X! [6 _; U& I2 E% w- u8 K4 p5 ~) d7 g0 S6 `
) M& K" U% a$ G8 L3 n; a7 f0 _
6 `" |) |9 B" l7 D9 `$ [

' Y! b3 Y3 }0 G3 @" ~
2 ]6 v0 s5 o7 Q* U( z* t
; i' C5 ^' s. l" B* C: H$ i, S* F0 ~. {+ U8 y

0 N* w0 g8 Q: {: r
" b" @6 a' c! Z1 v6 w$ \6 J
# @0 u  E4 x4 Y1 Y2 I. O* W. R# p$ n3 V# c
9 K, i5 K' V" `( e0 t. z
( e8 v, d! Z( K) M0 J* x
7 p+ a( e: ~$ e$ Y8 B
0 O# y+ l5 g. z, g! \' V4 H

9 O; M( n( I" i; [7 K3 H
3 W, Z  f- ^" B7 S4 }, x: o# f$ g& \7 N) H9 w8 w2 S
奥鹏作业答案,奥鹏在线作业答案
发表于 2019-11-2 15:56:34 | 显示全部楼层
奥鹏作业答案,奥鹏在线作业答案
回复

使用道具 举报

发表于 2019-11-2 16:20:51 | 显示全部楼层
奥鹏作业答案,奥鹏在线作业答案
回复

使用道具 举报

发表于 2019-11-2 16:45:04 | 显示全部楼层
奥鹏作业答案,奥鹏在线作业答案
回复

使用道具 举报

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

本版积分规则

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

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

GMT+8, 2024-3-30 11:48 , Processed in 0.102033 second(s), 19 queries .

Powered by Discuz! X3.5

Copyright © 2001-2023 Tencent Cloud.

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