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

 找回密码
 会员注册

微信登录,扫一扫

手机号码,快捷登录

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

东大 15春学期《可视化程序设计Ⅰ》在线作业123资料

[复制链接]
发表于 2015-4-2 17:37:42 | 显示全部楼层 |阅读模式
谋学网
; u2 ?/ D1 J0 ?" p1 X
15春学期《可视化程序设计Ⅰ》在线作业10 j' i+ c% ^4 V

+ K& R4 }1 b( T! w7 I" n& A6 R8 @5 S$ r$ g4 R$ N& j  R
& A/ D! u- v- R% Y

1 b6 \# X0 Q! l8 p7 T4 T8 ]一、单选(共 20 道试题,共 100 分。)
' @# S: [3 L+ j1 M7 c4 f
7 a) o' e" t% R1.  在窗体中添加一个通用对话框Commondialog1和一个命令按钮Command1,当单击按钮时打开颜色对话框,能实现此功能的程序段是( )
. K( o) w7 n1 J4 xA. Private Sub Command1_Click()CommonDialog1.ShowEnd Sub
" l- E) h) C* n; M8 a1 g# Y: J% xB. Private Sub Command1_Click()Open CommonDialog1.ShowColorEnd Sub/ q* K7 U5 [# n. B
C. Private Sub Command1_Click()CommonDialog1.ShowFontEnd Sub5 f$ ?0 L( _+ o
D.
1 ^$ o7 ~" g2 a, Z) k4 P正确资料:B5 \- n1 l) t& S+ l8 }2 w! J0 h
2.  在窗体上画一个名称为List1的列表框,为了对列表框中的每个项目都能进行处理,应使用的循环语句为- i- U. P' l) c/ W% g2 n
A. A) For i=0 To List1.ListCount-1……6 w/ L9 h+ t) \0 P- ]' v: q
B. B) For i=0 To ListCount-1……Next* d; q; ?. m4 q/ O
C. C) For i=1 To List1.listCount……Next( U: k# d! X3 T! R+ o; q8 \8 g9 N' o
D. D) For i=1 To ListCount……Next
' f6 _1 i9 S. o7 `9 w, V6 T正确资料:A5 V' v6 S. e$ p! x
3.  在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()x = -5If Sgn(x) Then    y = Sgn(x ^ 2)Else   y = Sgn(x)End IfPrint yEnd Sub程序运行后,单击命令按钮,窗体上显示的是
2 _4 F) Q/ q( r+ e+ _  ZA. -5* k* K6 E" _( C
B. 25  _; u- p1 E' r" R, w! ~7 N
C. 1  `0 h) n4 n9 C/ g
D. -1& A$ _, h$ A8 C
正确资料:C
( M9 K. M7 z+ H3 c, q4.  设有如下的类型声明   Type Person   name As String*8   major As String*20   End Type  当单击“保存”按钮时,将两个文本框中的内容写入一个随机文件Test29.dat中。设文本框中的数据已正确地赋值给Person类型的变量p。则能够正确地把数据写入文件的程序段是
; t2 C* i3 j7 _A. "open”c:\Test29.dat"" For Random As#1   Put #1,1,p   Close #1 "
# j1 ^' e( ^" ^& e, T  |2 tB. "open ""c:\Test29.dat"" For Random As #1  Get#1,1,p  C10se #1 "
  y) K4 x, Y- W0 DC. "open ""c\Test29.dat"" For Random As #1 Len=Len(p)  Put #1,1,p   Close #1 "4 c9 O+ X$ d* k$ M+ K
D. "Open ""c:\Test29.dat "" For Random As #1=Len(p)  Get #1,1,p   CloSe #1 "( g$ }8 H- ~2 j+ i
正确资料:C& b. J  L8 u' f. a
5.  在窗体上有一个文本框控件,名称为TxtTime:一个计时器控件,名称为Timerl,要求每一秒钟在文本框中显示一次当前的时间。程序为:Private Sub Timer1_ ()TxtTime.text=TimeEnd Sub在下划线上应填入的内容是8 f7 ?4 Q6 O  X2 a, [
A. Enabled
# Q$ A8 l/ Y+ G* |$ y* I7 Q5 tB. Visible( B7 v8 o1 y& v; g$ o
C. Interval
$ W6 i7 ]6 ^1 bD. Timer
9 z+ ~1 o6 T- v! m; {; v- u正确资料:D+ c7 [  e5 ~! e5 [+ Q
6.  假定窗体上有一个Text1文本框,为使它的文本内容位于中间并且没有边框,则正确的属性设置为0 E* a5 r% p, S7 [& `
A. Text1.Alignment=1: Text1.BorderStyle=0
( I( n" z" c" h9 @1 x# p/ jB. Text1.Alignment=2: Text1.BorderStyle=1% D- s& L2 F4 S* B* E& D& e
C. Text1.Alignment=1 : Text1.BorderStyle=14 h1 B( x7 K; ^( j/ l5 ^
D. Text1.Alignment=2 : Text1.BorderStyle=0" I, h! ^7 g: h; G5 I6 R6 u
正确资料:D
2 Q+ |- C. _- g9 d! b7.  在窗体上画一个命令按钮,名称为Command1。然后编写如下程序: Private Sub Command1_Click() For I=1 To 4 For J=0 To 1 Print Chr$(65+I); Next J Print Next I End Sub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是8 s+ e4 J  g+ ?+ I: F
A. "BB CC DD EE"2 A# h& L; H% Z+ e" w: {$ t
B. A BB CCC DDD
/ K& Y. B4 ^* j5 R$ h; K; L$ jC. B CC DD EEE
2 @; C0 x2 F, r" v1 n9 G0 E& r& FD. AA BBB CCCC DDDD: N2 D! z2 B, G, z, d. `
正确资料:A
( z. q+ V4 ^5 c; O$ k1 v7 @9 a8.  假定窗体上有一个标签,名为Labell,为了使该标签透明并且没有边框,则正确的属性设置为- i$ }1 H) V2 m4 E0 d
A. Label1. BackStyle=0Label1.Borderstyle=0" W9 x' m& V! X7 S
B. Label1.BackStyle=1Label1.Borderstyle=1& ~$ A/ z: z& r$ P6 i
C. Label1.BackStyle=TrueLabel1.BorderStyle=True5 _5 P: L+ W! d" w1 N% J" ?7 v" E
D. Label1.BackStyle=FalseLabel1.Borderstyle=False8 L  i- }" V; i; b4 U0 |- \
正确资料:A
: B+ H+ ?) _: u" {9.  在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下程序:Private Sub Command1_Click()Dim x,y,z As Integerx=5y=7z=0Text1.text=“”Call P1(x,y,z)Text1.Text=Str(x)End SubSub P1(ByVal a As Integer,ByVal b As Integer,c As Integer)c=a+bEnd Sub程序运行后,如果单击命令按钮,则在文本框中显示的内容是
( u7 ?/ \' Y: N8 P9 XA. 0
& i$ ^1 @/ J$ i5 aB. 12
6 ^# U- R9 C4 \6 c1 u9 GC. Str(z)9 @6 l  G& b" h  ?+ m0 \# P
D. 没有显示
: V( J7 @2 S2 T# _' v正确资料:B% r* c) ?6 h+ z
10.  在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Label3的标签,然后编写如下代码Private x As IntegerPrivate Sub Command1_Click()Static y As IntegerDim z As Integern=10z=n+zy=y+zx=x+zLabel1.caption=xLabel2.caption=yLabel3.caption=zEnd Sub运行程序,连续三次单击命令按钮后,则三个标签中显示的内容分别是1 H: ~8 x) l# a' A
A. 10 10 10
" [; }4 ]& J+ B3 k. {B. 30 30 30
' ^- ~% K$ C0 H3 F' B& vC. 30 30 10! o6 H* q( a8 \0 d# Q' W
D. 10 30 30. i' p8 X1 @. a2 x
正确资料:A
9 c2 s' Y3 {, F' i3 Q) m11.  要获得当前驱动器应使用驱动器列表框的哪个属性?( )
; O" T7 L7 p4 Z6 zA. Path0 f7 ~! S7 n) D+ W  f: Y
B. Drive& [' b( w8 c2 `# Y7 ~
C. Dir
. N! m! }3 l4 AD. Patten* o2 C! N# Y: k# z
正确资料:B
& Q! C0 n% O6 a# A- x1 h12.  下列关于过程叙述不正确的是(). M; [* a8 R$ b# e' h) N5 E
A. 过程的传值调用是将实参的具体值传值递给形参' ?) Y: ]+ ^7 i  w5 b) M
B. 过程的传址调用是将实参在内存的地址传递给形参, H" E' [: I, ~$ E  H  `
C. 过程的传值调用参数是单向传递的,过程的传址调用参数是双向传递的; K1 L- B  Z+ K$ J, X
D. 无论过程传值调用还是过程传址调用,参数传递都是双向的
  l1 B0 H- K1 g) e) q( r1 A正确资料:C
: |  ^- ?8 e6 Z# W. w! }: B13.  (1)在设计阶段,当双击窗体上的某个控件时,所打开的窗口是; C$ @& w9 E1 R# }; N/ I$ f) l
A. "A) 工程资源管理器窗口
9 x% @) W5 x  @B. ". N4 m4 g# r) F% O- p# ~
C. "B) 工具箱窗口"+ [5 [( k) W5 @& j) b5 R
D. C) 代码窗口9 N+ b( `  s  B2 m6 M# V
E. / y4 _: b+ @4 H: a' b
正确资料:C
* a, f6 U; L( n0 K* `14.  关于PaintPicture spic,dx,dy,dw,dh,sx,sy,sw,sh,rop语句正确的说法是
# g5 i0 y8 {" P4 I3 E. u0 OA. "dx,dy为传送源左上角坐标"9 l) d9 x: f$ g( D$ o2 d7 r( t1 N
B. "dx,dy为传送目标左上角坐标"1 ]' }/ Z" t2 N
C. "sw,sh为传送目标的大小"# T4 [( I! ^. H& A* Z4 c
D. "dw,dh为传送源的大小") x/ M! N# U- }* A3 Z8 v% C" e
正确资料:B, d9 w) [0 Z8 G
15.  以下叙述中错误的是
  b. B) t: h% Q3 g! G# x' yA. 一个工程可以包括多种类型的文件$ u6 C% B( g- s+ j
B. Visual Basic应用程序既能以编译方式执行,也能以解释方式执行
$ j# p3 c3 `: D# }# D; aC. 程序运行后,在内存中只能驻留一个窗体: p# O& s! E; r" Q
D. 对于事件驱动型应用程序,每次运行时的执行顺序可以不一样; J) x5 B6 M) u
正确资料:C0 c8 M8 p. {5 V" j
16.  设在菜单编辑器中定义了一个菜单项,名为menu1。为了在运行时隐藏该菜单项,应使用的语句是
. Y( K  }) A1 @A. menu1.Enabled=True. e: V& l. r5 n/ w4 ]+ m2 R
B. Munu1.Enabled=False& v, m, q, |  n( X
C. Menu1.Visible=True
/ V& V( ]: ]0 m# I! K/ BD. Menu1.Visible=False8 x3 s. `4 k+ \7 D
正确资料:D
3 R* V4 L) ^* P" X' T17.  假定有如下的Sub过程:Sub S(x As Single,y As Single)t = xx =t/y y =t Mod yEnd Sub在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Commandl_Click ( )Dim a As SingleDim b As Singlea =5b =4S a,b Print a,bEnd Sub程序运行后,单击命令按钮,输出结果为
) ]5 \4 {1 B/ C! B- R- N$ ~A. 5 4
' E9 l( A& Q* e5 J' qB. 1 1; ~2 P7 d" Z3 X# d5 b! z
C. 1.25 42 q) J4 O+ C* x( N
D. 1.25 1# u  W' V+ F9 ?+ N" @6 b& `- r( j
正确资料:D1 \) X0 d: f( x* n# {
18.  以下叙述中错误的是% m6 }9 V* T( v2 e% |4 Y1 \
A. 如果过程被定义为Static类型,则该过程中的局部变量都是Static类型: c% y2 D$ q  j! q3 b# X
B. Sub过程中不能嵌套定义Sub过程) ]+ ]; H( R  Y. f7 C
C. Sub过程中可以嵌套调用Sub过程
4 W3 @, x$ l1 ~D. 事件过程可以像通用过程一样由用户定义过程名
, H$ }$ M% {+ q( h7 n* s正确资料:C; F( Y' w9 B* R! E8 [, }
19.  在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程:Private Sub Command1_Click() n = Val(Text1.Text) For i = 2 To n For j = 2 To sqr(i) If i Mod j = 0 Then Exit For Next j If j > Sqr(i) Then Print i Next iEnd Sub该事件过程的功能是" J3 p) d+ o9 V
A. 输出n以内的奇数; L. ]  _4 u0 o! _
B. 输出n以内的偶数
, i! j% I( n$ T: MC. 输出n以内的素数6 R3 a) P9 u1 k
D. 输出n以内能被j整除的数  p# z) x7 G1 Y0 w/ v9 O) @* v8 o# O' z0 H
正确资料:C2 N# p' A7 z1 H: z) E3 _3 V4 Q
20.  对窗体编写如下事件过程:Private Sub Form _MouseDown(Button As Integer, _ Shift As Integer, X As Single Y As Single)If Button =2 ThenPrint "AAAAA"End IfEnd Sub Private Sub Form _ MouseUp(Button As Integer, _ Shift As Integer, X As Single, Y As Single)Print "BBBBB"End1 T/ W/ E, N* n2 a1 \6 V
A. AAAAABBBBB": X# U- {# a3 E2 j. N
B. BBBBB7 c. b# b4 [* h. C' h4 `
C. AAAAA
  ?( ?8 [7 E1 E9 aD. "BBBBBAAAAA"
" j" k7 |6 \! {* s5 K& d- y" T正确资料:A
$ z' X0 n, ^6 I, R8 p
' d4 P# a+ y4 i' q: N& A
" @6 T& h5 q) _% q& A+ } 9 P2 l/ ?1 Y  \$ m1 R/ ?) \1 n8 a
. l( s8 B3 a% Y

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?会员注册

×
奥鹏作业答案,奥鹏在线作业答案
您需要登录后才可以回帖 登录 | 会员注册

本版积分规则

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

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

GMT+8, 2024-3-29 12:38 , Processed in 0.117226 second(s), 24 queries .

Powered by Discuz! X3.5

Copyright © 2001-2023 Tencent Cloud.

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