奥鹏作业资料东大11春学期《可视化程序设计Ⅰ》在线作业三

久爱奥鹏晓林

东北大学
11春学期《可视化程序设计Ⅰ》在线作业三
2 z2 P* F7 J8 `6 i- @单选题
& G5 n4 }  n% X4 b0 z+ I1.设在工程中有一个标准模块，其中定义了如下记录类型Type BooksName As String *10TelNum As String *20End Type在窗体上画一个名为Command1的命令按钮。要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是
+ r3 j2 v! w2 f7 p8 ]$ dA. "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"
* `( }! {- q5 j- [7 f8 S! A& UB. "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"
: r. x$ o' X1 S) j0 X( a$ e6 B) \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"
D. "Private Sub Command1_Click()Open “c:\Person.txt”For Input As #1Name=InputBox(“输入姓名”)TelNum=InputBox(“输入电话号码”)Print #1,Name,TelNumClose #1End Sub"
' O; ]' A' }, n资料：A
2.关于Line语句正确的说法是
# J+ P) w! t  \5 q- E) m- CA. Line只能绘制直线
B. Line可以绘制矩形，但是不可以设置填充色
C. Line在绘制矩形，填充色由FillColor属性决定
! v: R$ P; \2 h& JD. Line在绘制矩形，填充色由forecolor属性决定
. h8 @3 x( N- |$ A2 f! g, W资料：C
3.下面的变量名合法的是（）
A. k_name
B. k ame
% L, L# y$ \$ s' \C. name
D. k-name
资料：A
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运行上面的程序，然后单击窗体，列表框中所显示的内
A. AABB
% C/ t% W% t; ~+ y# tB. DDEE
C. AACC
D. BBCC
1 Q1 V* C: Z8 z5 |资料：C
5.要从磁盘上读入一个文件名为“c:\filel.txt”的顺序文件，下面程序段正确的是（）
2 o6 _' o# I4 H) L+ {. BA.
! w4 j& e8 v& ^( v7 l; dB. "F=""c:\filel.txt""Open ""F"" For Input As # 2"
  P7 t) J0 z; N+ b4 p! @8 R/ |C. "Open ""c:\filel.txt"" For Output As # 2"
0 Y9 i" j& `3 N8 V( TD. Open c:\filel.txt For Input As # 1
资料：
- P6 q; ^% i- I- j& |  v' R6.以下关于变量作用域的叙述中，正确的是
% y9 k4 \: \- y  t5 ]A. 窗体中凡被声明为Private的变量只能在某个指定的过程中使用
B. 全局变量必须在标准模块中声明
C. 模块级变量只能用Private关键字声明
D. Static类型变量的作用域是它所在的窗体或模块文件
资料：
+ p2 M6 N- o8 K1 J* [" c- J. w- J7.设置VB窗口frm1绘图所用线型调整为点划线的方法
A. frm1.DrawMode =1
$ t. r. s& D% f4 u2 b% x/ l2 t$ \B. frm1.BorderStyle =1
: ]  z# Q! ~0 _; j/ ~C. frm1.DrawStyle =3
. ?0 g& A" z" m" S) rD. frm1.DrawStyle =1
8 m; m! Y* ^+ ^9 j0 P! R7 V资料：
+ t; D) P# X1 r  s" R8.设置图片框pic1大小随所加载图像大小变化的正确语句是
6 H2 H. d: w' p4 tA. pic1.autosize =true
B. pic1.strech =true
$ s; M; V- e7 K+ F' [) b- HC. pic1.drawmode =1
D. pic1. drawmode =2
7 ^9 M/ }. ]" M1 D6 k资料：
9.执行语句Open“Tel.dat”For Random As #l Len=50后，对文件Tel.dat中的数据能够执行的操作是
A. 只能写，不能读
B. 只能读，不能写
C. 既可以读，也可以写
D. 不能读，不能写
资料：
10.在窗体中添加一个命令按钮，名称为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，结果是
0 z9 d. i8 J  h' J& Z3 E- XA. abcEFG
B. abcefg
C. ABCefg
# J& P: g  g1 f) |D. ABCEFG
4 w  y" `7 e! d. ~3 M资料：
, O: U+ j( G$ e  f! J: W9 u11.阅读下面的程序段：For i=1 To 3For j=1 To iFor k=j To 3a=a+1Next kNext jNext i执行上面的三重循环后，a 的值为
/ L* p* j. g. ^% eA. 3
B. 14
C. 21
6 m. z" j) D$ O$ |" pD. 9
资料：
12.(2)以下叙述中正确的是
A. 窗体的Name属性指定窗体的名称，用来标识一个窗体
0 P6 E7 d$ l3 y! q# `B. " 窗体的Name属性的值是显示在窗体标题栏中的文本"
. X, [, [7 {! P7 ~: EC. 可以在运行期间改变对象的Name属性的值
0 V0 Z. |, R! a, n( U. x8 w9 h9 q" UD. "对象的Name属性值可以为空
资料：
+ N4 u: _* r3 b! p# m13.以下叙述中错误的是
A. 一个工程中可以包含多个窗体文件
- p0 E) i" W% r/ F- n+ NB. 在一个窗体文件中用Private定义的通用过程能被其他窗体调用
4 w% D5 C1 z4 v6 {1 ^' r) _& {C. 在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件
- E6 |# V* a1 @D. 全局变量必须在标准模块中定义
9 ^9 o' @/ n- e. L; [资料：
6 [+ I. @# A, j' m! l# h; {14.以下不能在“工程资源管理器”窗口中列出的文件类型是
A. .bas
; g; Z! E9 i- T9 m: A% m# t- V% jB. .res
C. .frm
7 g, c, c! U0 q0 ED. .ocx
4 e! `$ J  _8 F资料：
# D' P' F% r+ g. Y6 T3 g% H! G, W15.以下关于过程及过程参数的描述中，错误的是
A. 过程的参数可以是控件名称
B. 用数组作为过程的参数时，使用的是“传地址”方式
$ c3 b5 v8 i9 g4 d  bC. 只有函数过程能够将过程中处理的信息传回到调用的程序中
/ C+ ?7 M* S& h/ tD. 窗体可以作为过程的参数
4 H& c& s9 j! A* [" k  w4 [% |资料：
16.设置一个检查框所代表选项的选中状态，应当在属性窗口中改变的属性是（ ）
% G  I4 y; z' C; A! G- l9 x5 a( zA.
B. Name
4 I5 R; `1 I1 a! IC. Text
D. Value
, Z# W$ P$ ]! b1 ?资料：
17.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程Private Sub Command1_Click()x=0n=InputBox("")For i=1 To nFor j=1 Toix=x+1Next jNext iPrint xEnd Sub程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是
, n% R- {' I  rA. 3
4 ?0 a# G+ l7 E0 n7 ]% }% x9 AB. 4
( D! D. _; }9 r4 _5 L  ZC. 5
2 M8 {5 U2 a5 h3 \D. 6
资料：
7 h/ k8 y' c- U7 T1 r18.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Move 500，500End Sub
( F( q' z! v) }2 k# nA. 命令按钮移动到距窗体左边界、上边界各500的位置
) {: A/ U: N1 a+ r# d; @' iB. 命令按钮移动到距窗体左边界、上边界各500的位置
C. 命令按钮向左、上方向各移动500
; q8 c, S' ]& k0 g6 J( JD. 窗体向左、上方向各移动500
( {7 g2 g! P+ l, c资料：
% {5 Y  R! ]$ S/ l19.实现子窗体frmNewDoc自动加载的方法是
A. frmNewDoc.show
. o7 m, ?4 E$ S6 Q8 l8 xB. frmNewDoc.autoshowchildren=true
C. frmNewDoc.visible=true
; t/ n6 l6 F; L" K" |D. frmNewDoc.Enable=true
资料：
20.设有如下的记录类型Type StudentNumber As StringName As StringAge As IntegerEnd Type则正确引用该记录类型变量的代码是
A. "Student.name=""张红"""
B. Dim s As Student
% F  _4 z: e, @2 a8 qC. "Dim s As Type Student s.name=""张红"""
( A5 d" A2 K/ t9 `8 x; B+ SD. "Dim s As Types.name=""张红"""
7 X& Q( x' r- g资料：