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

 找回密码
 会员注册

微信登录,扫一扫

手机号码,快捷登录

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

东北大学14春学期《可视化程序设计Ⅰ》在线作业3辅导资料

[复制链接]
发表于 2014-6-2 22:31:42 | 显示全部楼层 |阅读模式
谋学网
谋学网(www.mouxue.com)是国内最专业的奥鹏作业资料,奥鹏离线作业资料及奥鹏毕业论文辅导型网站,主要提供奥鹏中医大、大工、东财、北语、北航、川大、南开等奥鹏作业资料辅导,致力打造中国最专业的远程教育辅导社区。/ m5 ~6 H3 N" D9 {; G+ R
7 R; ?" h& l/ j( D
3 f- K" k: |- C4 D9 |
  % l/ O- K! g, O: R9 i1 ~
14春学期《可视化程序设计Ⅰ》在线作业3   k6 L  l9 ~7 D, J* T
       1 G5 i% m% E9 T0 W' f3 Q0 L
单选 ; P& x& H9 I' W! C

. Z- b  |7 f5 s- ^8 L
6 {8 U1 h- V; L8 Z; [+ d% V0 t一、单选题(共 20 道试题,共 100 分。)( \& E' w4 D$ P- K0 j( ~
1.  在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:Private Function f(m As Integer) If m Mod 2 = 0 Then f = m Else f = 1 End IfEnd FunctionPrivate Sub Command1_Click() Dim i As Integer s = 0 For i = 1 To 5 s = s + f(i) Next Print sEnd Sub程序运行后,单击命令按钮,在窗体上显示的是6 t3 O% M; ~/ \9 v( ?
A. 112 Y! O; L6 x  ]/ Y0 I: M
B. 10
5 i3 C0 K- |# Z+ W/ H8 V' N& [C. 9! @& H' E, b/ B0 |
D. 8( b* `7 r- t8 I) G* o* l) s
-----------------选择:C      
' c/ Z$ f! J( H; ~6 X: h1 Y* H2.  在窗体上画一个名称为CommonDialog1的通用对话框,一个名称为Command1的命令按钮。要求单击命令按钮时,打开一个保存文件的通用对话框。该窗口的标题为“Save”,缺省文件名为“Savefile”,在“文件类型”栏中显示*.txt。则能够满足上述要求的程序是
, V3 {2 Y; q8 ]A. "rivate Sub Command1_Click()CommonDialog1.FileName=""SaveFile""CommonDialog1.Filter=""All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc""CommonDialog1.FilterIndex=2CommonDialog1.DialogTitle=""Save""CommonDialog1.Action=2End Sub"
8 B( j) V& w; d& K& |9 }B. "rivate Sub Command1_Click()CommonDialog1.FileName=""SaveFile""CommonDialog1.Filter=""All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc""CommonDialog1.FilterIndex=1CommonDialog1.DialogTitle=""Save""CommonDialog1.Action=2End Sub"5 i0 P  ]5 _" a: K6 e% {3 x( D
C. "rivate Sub Command1_Click()CommonDialog1.FileName=""Save""CommonDialog1.Filter=""All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc""CommonDialog1.FilterIndex=2CommonDialog1.DialogTitle=""SaveFile""CommonDialog1.Action=2End Sub"
/ d2 b  ~; R' R; a: v1 ~D. "rivate Sub Command1_Click()CommonDialog1.FileName=""SaveFile""CommonDialog1.Filter=""All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc""CommonDialog1.FilterIndex=1CommonDialog1.DialogTitle=""Save""CommonDialog1.Action=1End Sub"  [/ |) H9 v; x8 }  N
-----------------选择:A      ! U+ c# O5 v; F$ j
3.  在窗体上画一个名称为Check1复选框,在程序运行的过程中,若选中复选框,则Check1.value的值是()( M7 X# _" |$ t5 k; C7 N
A. TRUE) T8 [0 g- Y3 @4 e) i0 W! ~
B. 21 M8 p; }: Z1 L( S3 W7 [: T
C. 0
* n/ g% [" l& X9 @* y7 tD. 1
4 Z2 ~9 T. @8 J+ g$ }) I1 _-----------------选择:D      
- W& S) g' e! x5 e  Z4.  在窗体上画一个名称为Command1的命令按钮,再画两个名称分别为Label1、Label2的标签,然后编写如下程序代码:Private X As IntegerPrivate Sub Command1_Click()X=5:Y=3Call Proc(X,Y)Label1.Caption= XLabel2.caption=YEnd Sub Private Sub proc(ByVal a As Integer,ByVal b As Integer)X=a*aY=b+bEnd Sub程序运行后,单击命令按钮
4 n0 x' l  W  d; O: q) K' ZA. 5和3- m( T6 q  V& Z) {/ W- q8 _& D/ k
B. 25和3
/ ?& @1 Z' h7 N2 y! ^7 S" ?1 {& |C. 25和6/ N1 \/ j4 X! z" h
D. 5和6
, B# Z0 O! X* v$ M1 u0 {; W-----------------选择:B      
7 A7 s( g' H5 f/ P5.  在窗体上画一个命令按钮,名称为Command1。单击命令按钮时,执行如下事件过程rivate Sub Command1_Click()a$="software and hardware"b$=Right(a$,8)c$=Mid(a$,1,8)MsgBox a$,,b$,c$,1End Sub则在弹出的信息框的标题栏中显示的信息是
, c: s7 m* @! k! [! QA. software and hardwar9 ~7 H: U  `4 Y
B. software) u0 ?5 m* X; B2 w6 B3 G
C. hardware
1 B' Y: `8 u# T8 YD. 1
7 m/ w" ]1 I8 f+ g2 G1 W-----------------选择:      " \" G, S) \; A0 a% a/ V4 v& }
6.  (5)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Move 500,500 End Sub 程序运行后,单击命令按钮,执行的操作为# s, n. q$ s. M& Q! w# j  h7 A: Q) ^
A. 命令按钮移动到距窗体左边界、上边界各500的位置
$ ?  z4 U1 N4 H( F3 xB. 窗体移动到距屏幕左边界、上边界各500的位置  S+ z8 y  \! g: `0 G$ o$ w0 p% t: d) C8 Q
C. 命令按钮向左、上方向各移动500. g5 Z/ {( I& s$ d% H; C
D. 窗体向左、上方向各移动500: m* s+ |8 J3 |
-----------------选择:      1 _' n4 k" ~  K: N! M4 j. c2 H
7.  下列叙述中正确的是
2 N% L; j2 R4 S. b: KA. "在窗体的Form_Load事件过程中定义的变量是全局变量"
; W/ ~: X8 |2 i" ~# n6 K. ^B. "局部变量的作用域可以超出所定义的过程"3 n$ G! l9 W# J$ {
C. 在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名,但其作用域只限于该过程
( T& M9 f  d6 y7 W$ Q! d8 {D. "在调用过程时,所有局部变量被系统初始化为0或空字符串
6 N# K1 S  g; a+ R-----------------选择:      
( w0 [) I6 g( h' v- c8.  在窗体上面画一个命令按钮,然后编写如下事件过程:Option Base 1Private Sub Commandl_Click()Dim aa = Array(1,2,3,4)j = 1For i = 4 To Step -1s = s + a(i)*jj =j*10Next iPrint sEnd Sub运行上面的程序,单击命令按钮,其输出结果是+ w' H9 c/ E2 w9 p
A. 4321+ d& B* G) r& L
B. 12
5 l  O( B0 X& v4 L8 m& @C. 34
# K( D5 A0 X* L# k( n, h" J$ ID. 1234
! p% e/ A" @- ]- G2 ?-----------------选择:      
9 f  p- A" O; H0 v7 k9.  假定有一个菜单项,名为MenuItem,为了在运行时使该菜单项失效(变灰),应使用的语句为3 `& a0 m5 [- [9 C
A. MenuItem. Enabled=False
- D* |, U4 N: t; O4 i% HB. MenuItem. Enabled=True1 c. E7 Q& c: j. x
C. MenuItem. Visible=True
+ d' s  p; e* d" yD. Menultem. Visible=False
9 k6 E7 W: s  f0 ?8 r& r: m-----------------选择:      
5 Q* U  j, h7 P6 K5 y& E10.  阅读程序:Sub subP(b() As Integer)For i =1 To 4b(i)=2*i Next iEnd Sub Private Sub Commandl_Click()Dim a(1 To 4)As Integera (1)=5a (2)=6a (3)=7a (4)=8subP a ()For i =1 To 4Print a(i)Next iEnd Sub运行上面的程序,单击命令按钮,输出结果为
0 H; a! @( c, ?5 Y% T% r. DA. 2 4 6 8# T  J6 \6 m, W$ P+ z$ ^* `3 ]. G
B. 5 6 7 8
3 F' Y+ O) ~0 _2 _1 A6 dC. 10 12 14 16#出错8 d% I" P+ X% @' k
-----------------选择:     
0 Y8 I; l8 `4 m" I+ }0 k$ U6 P, l11.  在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Dim i As Integer,n As IntegerFor I=0 To 50i=i+3n=n+1If i>10 Then xit forNextText1.Text=Str(n)End Sub程序运行后,单击命令按钮,在文本框中显示的值是! @6 ~2 J% w9 z# A
A. 2- V2 ~, g$ L3 S$ g* J% X
B. 3! n  |' m' s6 u' e1 A
C. 4! ?2 [$ O6 N+ w" a& h
D.
" x; j4 u8 d8 d1 p) B-----------------选择:      " h( w! O6 m" Z+ h; p& n! q
12.  决定窗体有无控制菜单的属性是" M6 N& f( e$ R2 _5 B
A. ControlBox
4 V1 p% [1 V- m9 \/ [: cB. MinButton
( g# ~: p0 C( ?3 ^7 C) n/ |6 f# K' _C. Enabled* V  |: ^9 r5 t+ I- v/ J+ u
D. MaxButton
' ]/ Z' P% A% n-----------------选择:        w; ~, f- C3 u# I/ z5 P$ J+ X6 D7 ]
13.  在如下工具栏按钮事件处理函数中,空白处应当添加的语句为Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case ...End select End Sub
2 Z5 [2 f) t. i. K( l) K1 l' Q, ~A. Button. @7 S2 ]5 E# }& n
B. Button.index8 c9 q! F/ o" T0 k2 ^3 k# x$ l/ Z
C. Button.key=true
! b7 e, Q* P/ e  c- y* mD. Button.text! P; f" i' E0 t" Z1 \
-----------------选择:      
# u# a3 a; W8 v! C9 U& H14.  窗体中有3个按钮Command1、Command2和Command3,该程序的功能是当单击按钮Command1时,按钮2可用,按钮3不可见,正确的程序是
2 ?5 \0 }2 Q4 T0 i( RA. Private Sub Command1_Click( ) Command2.Visible=True :Command3.Enabled=TrueEnd Sub
" z) W) ?& r) X; E! t$ p' F7 CB. Private Sub Command1_Click( ) Command2.Visible=False:Command3.Enabled=False End Sub
- N, X* V6 G8 u: Q' C7 D( c% JC. Private Sub Command1_Click( ) Command2.Enable=True :Command3.Visible=FalseEnd Sub
. g6 R5 i3 v- d/ |! hD. Private Sub Command1_Click( ) Command2.Enabled=False : Command3.Visible=False End Sub0 G4 D8 Q3 P. D% Z- E
-----------------选择:      7 ?% `3 J, `% Q. t
15.  在窗体上画一个命令按钮,名称为Command1。程序运行后,如果单击命令按钮,则显示一个输入对话框,在该对话框中输入一个整数,并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数,如果是奇数,过程F1返回1,否则返回0。能够正确实现上述功能的代码是
8 k* x$ t6 Z* ?9 U+ yA. ") Private Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function"1 [, y* d8 c# J; z% W: Q8 f
B. "rivate Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=0 Else F1=1 End If End Function"$ O/ C6 w' B, N" T( L/ Y$ |8 T3 P+ N! E
C. "rivate Sub Command1_Click() x=InputBox(“请输入整数”) F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=1 Else F1=0 End If End Function "
+ c: x1 p  `3 kD. "rivate Sub Command1_Click() x=InputBox(“请输入整数”) F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function& I- a3 z! P* E1 ?
-----------------选择:      
, K9 I3 W2 |  k7 o& V+ B% |16.  执行下面的语句后,所产生的信息框的标题是( )a = MsgBox("AAAA", "BBBB", "", 5)
+ ^& a+ Y* N. e. Q: w! hA. BBBB- y+ _6 Q6 m& \4 b) y+ b. A  e
B. 空6 O+ f4 h7 |* |1 d" J
C. AAAA( N2 e* A. P2 e: K3 I7 d. _3 `4 B
D. 出错,不能产生信息框
4 z1 `4 }* p* V-----------------选择:      
! q9 Q, l2 O0 V5 s" G/ l+ F5 c17.  假定在窗体(名称为Form1)的代码窗口中定义如下记录类型:Private Type animal AnimalName As String*20 AColor As String*10End Type在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程rivate Sub Command1_Click() Dim rec As animal Open "c:\vbTest.dat" For Random As #1 Len = Len(rec) rec.animalName = "C5 V; m4 p6 ]' ^7 i4 l( H
A. 记录类型animal不能在Form1中定义,必须在标准模块中定义
8 ~9 [8 z( m; I3 f/ P+ T* HB. 如果文件c:\vbTest.dat不存在,则Open命令执行失败
' T' v, Q4 _9 Q1 I9 CC. 由于Put命令中没有指明记录号,因此每次都把记录写到文件的末尾6 s- f+ u; R  a2 D" O
D. "语句“Put #1, , rec”将animal类型的两个数据元素写到文件中"
4 {- w* @, S  R. [" l: t/ a# h-----------------选择:
% i- g+ v" g, ~2 `0 L18.  以下Case语句中错误的是9 b) h. z2 o! r
A. Case 0 To 10
7 T, O+ K% Q8 ^' zB. Case Is>102 L; N8 g  Q9 {0 m' h4 `. a4 N
C. Case Is>10 And Is<50
9 S8 B  L( N! m# }: u4 J' l& aD. "Case 3,5,Is>10"
$ s1 C& X! c3 I5 j-----------------选择:      
# a4 v. }! T3 n. [' O! {' _. ?19.  在窗体上画一个名称为List1的列表框,一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时,在标签中显示选中城市的名称。下列能正确实现上述功能的程序是$ s5 F: W) P1 n! `5 K
A. Private Sub List1_Click()Label1.Caption=List1.ListIndexEnd Sub"+ r3 O" B* D& n; k& a0 Z3 Y; U
B. "rivate Sub List1_Chilk()Label1.Name=List1.ListIndexEnd Sub"
) G4 H2 J8 d8 v/ o1 {C. "rivate Sub List1_click()Label1.Name=List1.TextEnd Sub"
5 v' R) E' `3 R" D" {6 J! ^D. "rivate Sub List1_Click()Label1.Caption=List1.TextEnd Sub"
( d6 I( I% ?3 K. F-----------------选择:      
# J4 N  z' i& u* w% H2 d20.  设置VB窗口frm1绘图所用线型调整为点划线的方法$ d* _* F- m9 |+ E  y3 w
A. frm1.DrawMode =1+ v% ~+ u6 R" U: x
B. frm1.BorderStyle =1! h- U; K8 v8 s" \, }) U/ \6 K2 J
C. frm1.DrawStyle =3
% g  n/ w3 w" x) K) o& _8 U% ND. frm1.DrawStyle =1
( X5 \! _4 i, a( _0 ?5 ~8 g-----------------选择:      3 p( s- f7 L7 S, a( G

) g, ~7 ^/ z% _" `$ N- D$ _: w8 \+ y# \9 O  X/ X2 x" a0 V
; V3 C! t6 L' o+ E' Q8 D# U0 l
谋学网(www.mouxue.com)是国内最专业的奥鹏作业资料,奥鹏离线作业资料及奥鹏毕业论文辅导型网站,主要提供奥鹏中医大、大工、东财、北语、北航、川大、南开等奥鹏作业资料辅导,致力打造中国最专业的远程教育辅导社区。

本帖子中包含更多资源

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

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

本版积分规则

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

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

GMT+8, 2024-3-29 21:59 , Processed in 0.131146 second(s), 24 queries .

Powered by Discuz! X3.5

Copyright © 2001-2023 Tencent Cloud.

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