东北大学11秋学期《可视化程序设计Ⅰ》在线作业3

久爱奥鹏晓林

一、单选题（共 20 道试题，共 100 分。）V 1.  要获得当前驱动器应使用驱动器列表框的哪个属性？（ ）
A. Path
/ e' D8 e6 s* I7 A; L7 [B. Drive
C. Dir
D. Patten
      满分：5  分
2.  以下叙述中正确的是
A.
) n2 }# |3 h7 t7 c3 b. n" vB. 随机文件中每个记录的长度是固定的
; V( N/ Y# f5 }: `! M% P3 [C. Open命令的作用是打开一个已经存在的文件
D. 使用Input #语句可以从随机文件中读取数据
; b  Q, F  B& w6 H' R* c      满分：5  分
3.  在如下工具栏按钮事件处理函数中，空白处应当添加的语句为Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case ...End select End Sub
& V) G4 S5 Z/ B" C* WA. Button
1 |8 q+ A6 s2 |& R$ yB. Button.index
# S2 a) B" C3 W# ^# d( E8 yC. Button.key=true
2 U% }+ O( E+ E# @9 mD. Button.text
      满分：5  分
4.  关于子窗体说法正确的是
A. MDI子窗体与普通窗体没有区别
( m, o; W) W1 q7 w* X3 _B. MDI子窗体与普通窗体不同，其活动区域为MDI窗体工作区，而普通窗体则没有此限制
C. MDI窗体菜单和子窗体可以同时显示出来
D. 当子窗体激活时仅仅显示子窗体菜单
; a. i% [: B3 ~! Z      满分：5  分
, w1 J& U5 U5 Y& r3 h& R" N5.  假定在窗体（名称为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 = "C
* t2 q$ ~  ]2 x7 GA. 记录类型animal不能在Form1中定义，必须在标准模块中定义
* L2 d. L9 Y. b$ v% S+ fB. 如果文件c:\vbTest.dat不存在，则Open命令执行失败
4 T" w) _+ \3 Q! _8 e: NC. 由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾
8 `& G- w* s6 s2 h* @D. "语句“Put #1, , rec”将animal类型的两个数据元素写到文件中"
      满分：5  分
6.  设在工程中有一个标准模块，其中定义了如下记录类型Type BooksName As String *10TelNum As String *20End Type在窗体上画一个名为Command1的命令按钮。要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是
1 s3 _* P6 `$ {0 ]1 {A. "rivate 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"
B. "rivate 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"
C. "rivate Sub Command1_Click()Dim B As BooksOpen “c:\Person.txt”For Output As #1B.Name=InputBox(“输入姓名”)B.TelNum=InputBox(“输入电话号码”)Write #1,BClose #1End Sub"
/ g) ?" X* b0 R% ]% Q2 n. w+ oD. "rivate Sub Command1_Click()Open “c:\Person.txt”For Input As #1Name=InputBox(“输入姓名”)TelNum=InputBox(“输入电话号码”)Print #1,Name,TelNumClose #1End Sub"
      满分：5  分
5 J$ h6 t1 ~( A. F% {; k$ ?$ q6 _7.  以下能判断是否到达文件尾的函数是
; T) k* d& e* `- h$ K! }  @A. BOF
B. LOC
  T  P- }) f( B& m2 X3 n& jC. LOF
D. EOF
& j" h) w' c2 [, h* J, K; j      满分：5  分
& L$ o4 ^0 _0 a0 T8.  在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：Private Sub Command1_Click()Static X As IntegerStatic Y As IntegerClsY=1Y=Y+5X=5+XPrint X,YEnd Sub程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为
A. 15 16
: p1 e" N7 o1 F% y+ G4 oB. 15 6
1 L. I1 U) G: kC. 15 15
5 j( M% k: A4 v8 z" }D. 5 6
' }7 v! z" u" E9 i  n      满分：5  分
" Y: D1 R! x  n' b$ P+ ?( y$ l9.  在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是
A. Drive1_Change
B. Drive1_Click
0 J. S5 I* E, ?1 q2 J& c* NC. Dir1_Click
! f1 Q: X! W$ D/ c! j2 UD. Dir1_Change
# v$ b7 U- ~$ d2 z& J1 T* V      满分：5  分
10.  为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为()
A. Get文件号，记录号，变量名
B. Get文件号，变量名，记录号
6 n) S: [# b* `. `1 v* v8 v' yC. Put文件号，变量名，记录号
0 `/ A% L4 |4 L' b$ H; ^' fD. Put文件号，记录号，变量名
# N  l3 w: y8 Z2 }8 U' ?9 c8 \      满分：5  分
11.  关于记录操作的说明错误的
A. 在通过Addnew增加记录后，需要调用Update方法更新数据库
! V* x1 T; {! R8 h# hB. 在通过Delete删除记录后，需要调用Update方法更新数据库
C. 在通过Delete删除记录后，需要调用movelast或movenext方法
" H1 C1 x% T7 }$ J& q# T" UD. 在通过Edit编辑记录后，需要调用Update方法更新数据库
1 y% R. m6 c& A      满分：5  分
12.  设置VB窗口frm1绘图所用线型调整为点划线的方法
A. frm1.DrawMode =1
) c/ x' [1 J( y  s& N8 ~B. frm1.BorderStyle =1
C. frm1.DrawStyle =3
D. frm1.DrawStyle =1
6 b; l8 f0 v* I9 t( `      满分：5  分
; p1 X5 `; x+ G; Q13.  关于数据控件的描述中不正确的是
A. 数据控件通过RecordSource属性获得数据库信息
+ \, [) y/ i% YB. 数据控件通过RecordType属性设置记录集类型
  q6 v& A% @6 H* x3 q5 cC. 数据控件通过Exclusive属性为True实现对数据库的共享访问
3 j5 G: G: j' l1 B, d( z, E; nD. 数据控件通过readonly属性决定是否按只读方式打开数据库
      满分：5  分
14.  当函数EOF()的返回值为-1时，表示文件的指针指向( )
A. 开头
B. 结尾
. q+ ?' B7 t+ lC. 第一个记录
4 u) @  r- X6 g0 E7 ED. 最后一个记录
      满分：5  分
* @7 W- K' r+ |1 [1 D8 W! \15.  设有语句 x=InputBox(“输入数值”，“0”，“示例”) 程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是
, m+ l/ d+ ^/ |1 V! eA. 变量X的值是数值10
1 f# d; i9 {8 \$ f0 y' jB. 在InputBox对话框标题栏中显示的是“示例”
3 R7 d7 w+ u/ o7 ~, @7 ?C. 0是默认值
! O* F$ X% l6 }2 h* H4 {D. 变量X的值是字符串“10”
      满分：5  分
16.  关于PaintPicture spic,dx,dy,dw,dh,sx,sy,sw,sh,rop语句正确的说法是
A. "dx,dy为传送源左上角坐标"
: e  T! p+ K5 }7 \B. "dx,dy为传送目标左上角坐标"
C. "sw,sh为传送目标的大小"
5 k8 T; h2 M" [- `0 RD. "dw,dh为传送源的大小"
& N$ I: @3 Q3 b* u- t3 W# N      满分：5  分
17.  有如下语句：Open “f1.dat” For Random As #1 Len =15，表示文件f1.dat每个记录的长度等于（ ）
A. 15个字符
B. 15个字节
C. 或小于15个字符
, }! D7 t& G' g. w' V/ VD. 或小于15个字节
      满分：5  分
4 V2 I/ Z) E! U. ]18.  设有如下声明：Dim X As Integer如果Sgn(X) 的值为-1，则X的值是
  G0 C- x* d0 _: e% PA. 整数
6 E6 f( o* Z$ m  NB. 大于0的整数
9 Z( Z! s- F3 b9 b. R) O: MC. 等于0的整数
6 ?) s4 f! G8 Q7 V- i) Q& K! @D. 小于0的数
$ }" o1 h- ?- w( t      满分：5  分
5 r7 g* Y* j0 G" T* i) u4 l19.  要获得文件列表框中当前被选中的文件的文件名，则应使用哪个属性?( )
A. Dir
" W+ r9 N* i# e+ x0 t+ Z: uB. Path
C. Drive
# [; s# a5 D8 y5 ~& aD. FileName
      满分：5  分
20.  设置VB窗口frm1中坐标系为 X:（-100，100），Y：（-100，100）的方法为
A. "frm1.scale(0,0)-(200,200)"
B. "frm1.scale(-100,100)-(100,-100)"
" d; ]+ Y3 G6 D8 [& I3 m8 FC. "frm1.scale(100,-100)-(-100,100)"
; b2 \& ]. q! r2 R( D! mD. "frm1.scale(0,0)-(100,-100)"
      满分：5  分

需要满分标准资料请直接加QQ :1306998094