|
东北大学+ `: y$ |. x" v6 d
11春学期《可视化程序设计Ⅰ》在线作业三8 Z8 B- @9 t7 l% _0 x4 r+ G' t# _, i
单选题) e7 c% ?' z1 n7 b# w U- T0 N
1.设在工程中有一个标准模块,其中定义了如下记录类型Type BooksName As String *10TelNum As String *20End Type在窗体上画一个名为Command1的命令按钮。要求当执行事件过程Command1_Click时,在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是0 G* q& f+ A9 c' B. S
A. "Private Sub Command1_Click()Dim B As BooksOpen “c:\Person.txt”For Output As #1B.Name=InputBox(“输入姓名”)B.TelNum=InputBox(“输入电话号码”)Write #1,B.Name,B.TelNumClose #1End Sub"! V/ t( {: _4 V9 y$ _* x- r) S
B. "Private Sub Command1_Click()Dim B As BooksOpen “c:\Person.txt”For Input As #1B.Name=InputBox(“输入姓名”)B.TelNum=InputBox(“输入电话号码”)Print #1,B.Name,B.TelNumClose #1End Sub"9 S; _5 m9 J1 h* X
C. "Private Sub Command1_Click()Dim B As BooksOpen “c:\Person.txt”For Output As #1B.Name=InputBox(“输入姓名”)B.TelNum=InputBox(“输入电话号码”)Write #1,BClose #1End Sub"
; v9 | X* X' B( I# Q i$ @D. "Private Sub Command1_Click()Open “c:\Person.txt”For Input As #1Name=InputBox(“输入姓名”)TelNum=InputBox(“输入电话号码”)Print #1,Name,TelNumClose #1End Sub"4 X- t- I; C6 ^2 A
资料:A H! W, ^' f4 X4 l H
2.关于Line语句正确的说法是
6 {( C3 s( J- @3 {5 @A. Line只能绘制直线
9 w6 s5 t4 q h; M6 k e( x" aB. Line可以绘制矩形,但是不可以设置填充色
9 P! U2 ]2 C/ c, F( hC. Line在绘制矩形,填充色由FillColor属性决定9 v3 W z$ s& H5 p
D. Line在绘制矩形,填充色由forecolor属性决定
9 D$ z: j; w8 y- p w P资料:C
, h& W2 g4 R) `2 h; X8 H& w% \5 S3.下面的变量名合法的是()# _, O6 t: [! ]1 S
A. k_name# h% m0 I3 X/ M0 h2 ?0 `
B. k ame3 @. z! Z, \' Z) N) V4 F7 W
C. name9 N$ l& Z+ T" s
D. k-name
! j) e5 d: W N8 }资料:A% H4 j5 c( }8 j' y' A+ g# d1 b
4.在窗体中添加一个列表框,然后编写如下两个事件过程: Private Sub Form_Click()List1.RemoveItem 1List1.RemoveItem 3List1.RemoveItem 2End SubPrivate Sub Form_Load()List1.AddItem "AA"List1.AddItem "BB"List1.AddItem "CC"List1.AddItem "DD"List1.AddItem "EE"End Sub运行上面的程序,然后单击窗体,列表框中所显示的内
, Q v+ @. o9 j- J* t6 ]# m9 b4 rA. AABB
" p# N" v( u" |/ b% ]B. DDEE
6 p* i/ J) f; h% a2 H; p2 P, {4 t" {C. AACC
5 I K& ^: ~! M' d5 wD. BBCC; X; S. \8 c0 x% r! e/ X* I# {
资料:C
& z. i6 h! c, i5.要从磁盘上读入一个文件名为“c:\filel.txt”的顺序文件,下面程序段正确的是()& u5 z1 U- x3 Y+ w
A.
4 H, D- }7 L, B* v2 v! _' g- y# d0 {B. "F=""c:\filel.txt""Open ""F"" For Input As # 2"
" e0 `# t# ^" XC. "Open ""c:\filel.txt"" For Output As # 2"
" \, c& C: a7 B& E6 yD. Open c:\filel.txt For Input As # 1 r4 H T: l& F. v4 u6 Y) W; f
资料:
8 ]5 A& g& y, j$ V |% P6.以下关于变量作用域的叙述中,正确的是
1 Y) h3 H @( a- G, C2 EA. 窗体中凡被声明为Private的变量只能在某个指定的过程中使用
$ @) y: b9 o3 b$ C+ S5 _B. 全局变量必须在标准模块中声明
) L G# E7 k$ jC. 模块级变量只能用Private关键字声明! Q; O8 T/ u4 b
D. Static类型变量的作用域是它所在的窗体或模块文件
. w* z0 s* l |9 w* s4 k0 g$ \资料:
' @4 Q5 g6 q' B" a4 s" W( ?) q7.设置VB窗口frm1绘图所用线型调整为点划线的方法 D/ l( f# G6 y
A. frm1.DrawMode =16 Y2 {( h+ M- {0 J5 J( F/ ?
B. frm1.BorderStyle =1
% V- @0 b' y" OC. frm1.DrawStyle =34 K6 ^) X. N$ a1 }
D. frm1.DrawStyle =1! H' n- v- [0 r5 E4 c1 i
资料:& t& H& u4 J5 o2 h" t; O7 d) w! G
8.设置图片框pic1大小随所加载图像大小变化的正确语句是# P+ L. u0 T4 V, V
A. pic1.autosize =true
8 e4 }7 \( |& T) sB. pic1.strech =true, F F- d/ t- D& T
C. pic1.drawmode =1
3 X+ C6 C. s4 q, |! D6 ?D. pic1. drawmode =2
8 p6 m& `( ?; J$ U# C资料:8 G# ^/ H: T4 W- W6 w" A
9.执行语句Open“Tel.dat”For Random As #l Len=50后,对文件Tel.dat中的数据能够执行的操作是) p' e7 ?% Y( } u
A. 只能写,不能读
" J9 _2 Z9 e# I6 r( l) d' qB. 只能读,不能写* P* u8 N L W# b( W
C. 既可以读,也可以写# x( _$ U. i% h+ c: V6 H* C
D. 不能读,不能写* X, N F7 l- S' y4 Z
资料:
/ d; p0 N( r' d1 L& |6 |9 D! ~' V10.在窗体中添加一个命令按钮,名称为Command1,两个文本框名称分别为Text1、Text2,然后编写如下程序: Private Sub Command1_Click( ) a=Text1.text b=Text2.text C=Lcase(a) D=Ucase(b) PrintC;D End Sub 程序运行后,在文本框Text1、Text2中分别输入AbC和Efg,结果是& A, ]" k1 P H
A. abcEFG! [ E4 S: m7 {0 F- M5 v+ V# H; y
B. abcefg6 g D3 B: r3 Y& J
C. ABCefg6 M7 C9 Y" e% M7 S) [
D. ABCEFG
, a( i: r H4 n# X: {) k4 ^ u资料:
5 v \( Q/ T- X11.阅读下面的程序段:For i=1 To 3For j=1 To iFor k=j To 3a=a+1Next kNext jNext i执行上面的三重循环后,a 的值为
& P3 q( R3 t" ^+ y$ XA. 3- R6 Q" ~7 M4 y" X( A- l
B. 14
7 B- y9 v" s8 R2 K/ ?; pC. 21. g! W& Q4 k/ b7 G5 }8 d1 l1 G0 R
D. 9
" G }# Y; f! p! l5 A3 e, f资料:+ N$ b: c. n3 t& g
12.(2)以下叙述中正确的是; z3 W/ K$ I# q
A. 窗体的Name属性指定窗体的名称,用来标识一个窗体
; w3 h0 c+ V6 l2 O0 G( u b4 b# M; MB. " 窗体的Name属性的值是显示在窗体标题栏中的文本", k: \6 G( g8 a: ~
C. 可以在运行期间改变对象的Name属性的值9 T8 A o) {! r- @, N
D. "对象的Name属性值可以为空
9 R$ i( B* f* r4 F( C/ s. x资料:
6 [: A; d) |9 x: u$ E/ q13.以下叙述中错误的是( Q' K, x( B) j$ g5 o2 r
A. 一个工程中可以包含多个窗体文件
( u( g$ [# R' p2 S% p- {% UB. 在一个窗体文件中用Private定义的通用过程能被其他窗体调用 G5 N3 {+ @. Z5 L
C. 在设计VB程序时,窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件
- b& m- q$ w% R3 w, l' f- g& lD. 全局变量必须在标准模块中定义8 k6 B$ V- p, x
资料:7 ?% U$ y. f Q( T% x( F
14.以下不能在“工程资源管理器”窗口中列出的文件类型是
# I) ^* o6 q. F) q) _8 ?A. .bas
4 O/ ?4 a% V# u$ \2 n+ |* \0 H9 GB. .res3 M; K2 [* G1 L
C. .frm
2 T5 n7 p2 }* h9 s- T, ~D. .ocx2 J+ {/ U$ y" P |
资料:2 _* y4 r2 @6 X6 B
15.以下关于过程及过程参数的描述中,错误的是0 Y7 {- P( W7 o9 ^( M, G: n2 v0 u/ M
A. 过程的参数可以是控件名称
( k% l; o4 t3 m$ D6 \% h3 v7 l% s8 lB. 用数组作为过程的参数时,使用的是“传地址”方式% Q' {1 H0 U# }& X! r8 a2 r+ ^4 t' I
C. 只有函数过程能够将过程中处理的信息传回到调用的程序中4 G" H+ V3 f S3 M+ V' j1 }1 Q
D. 窗体可以作为过程的参数- K# Q6 r a! `" ?2 Q; i6 e8 r
资料:
. H& D6 }/ k8 A4 R5 K/ L16.设置一个检查框所代表选项的选中状态,应当在属性窗口中改变的属性是( )
8 r5 b, e& r$ p' A( M0 N6 kA.
% J# l. c2 ~% F) Z3 c" rB. Name1 u" c# ]3 ~% @) @
C. Text( S6 E5 B2 G4 ?* ]1 O, ]
D. Value% X; `- b7 D2 J5 j
资料:& Y( ~4 _& |: J, M9 X
17.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程Private Sub Command1_Click()x=0n=InputBox("")For i=1 To nFor j=1 Toix=x+1Next jNext iPrint xEnd Sub程序运行后,单击命令按钮,如果输入3,则在窗体上显示的内容是, p' `# _, D' G( l* i$ w6 i2 ?4 O
A. 3
& u" g k& a: o# }) {B. 40 P6 z' @0 p4 W0 X
C. 5
4 T. t* F) Z% m% U: t8 @3 [D. 6
; h! T9 W V8 {9 y4 z资料:4 w' x1 a8 x/ F) P& n
18.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Move 500,500End Sub. S; c' v- s/ c1 _, p3 C. o; _( Z% q
A. 命令按钮移动到距窗体左边界、上边界各500的位置( F" f0 G3 o& ]/ x' ?3 d" c1 a6 M
B. 命令按钮移动到距窗体左边界、上边界各500的位置
: E' K$ t) _% n% K4 h7 e! F- _. h( wC. 命令按钮向左、上方向各移动500. [8 E$ ]5 `* ]
D. 窗体向左、上方向各移动500- }# d( i5 B/ [
资料:
4 F" _% E* i2 }% m7 Q, x& @19.实现子窗体frmNewDoc自动加载的方法是
4 F; O# R, I$ Y' z4 Q- FA. frmNewDoc.show
& u" y- |; |# l8 B+ m& BB. frmNewDoc.autoshowchildren=true* u# @* E( j+ i- \1 n" c+ t3 {
C. frmNewDoc.visible=true
4 b3 ^2 i- x7 PD. frmNewDoc.Enable=true
' L7 F" p8 M! ~1 {资料:2 I9 U' @: Q6 m3 C+ ~
20.设有如下的记录类型Type StudentNumber As StringName As StringAge As IntegerEnd Type则正确引用该记录类型变量的代码是/ i- j% {" u |& T, t) j A
A. "Student.name=""张红"""
4 m& e" W+ |' N0 k: B3 u4 SB. Dim s As Student
/ u; _- S- d, }; ~+ c9 oC. "Dim s As Type Student s.name=""张红"""0 `% K0 B7 D6 f* [
D. "Dim s As Types.name=""张红"""0 U) Y, n1 S6 _. C6 I
资料: |
|