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

久爱奥鹏晓林

一、单选题（共 20 道试题，共 100 分。）V 1.  要获得当前驱动器应使用驱动器列表框的哪个属性？（ ）
7 M. [2 W3 d; A( lA. Path
! |& C* n6 T6 o+ ?: x; zB. Drive
C. Dir
# W$ G' x9 M5 t5 T: hD. Patten
      满分：5  分
; w- m5 u% e" [. H; o' X2.  以下叙述中正确的是
A.
/ m" w- N% P' n. E/ V5 PB. 随机文件中每个记录的长度是固定的
C. Open命令的作用是打开一个已经存在的文件
  ~! w* L5 J, [) F/ {D. 使用Input #语句可以从随机文件中读取数据
      满分：5  分
3.  在如下工具栏按钮事件处理函数中，空白处应当添加的语句为Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case ...End select End Sub
A. Button
B. Button.index
  a% p$ M! A2 f. w5 XC. Button.key=true
D. Button.text
. e1 x' E7 I* f/ _! S      满分：5  分
8 D+ ]( I# @+ X: z; d4.  关于子窗体说法正确的是
A. MDI子窗体与普通窗体没有区别
B. MDI子窗体与普通窗体不同，其活动区域为MDI窗体工作区，而普通窗体则没有此限制
1 r9 Q: F/ }  A( H1 F8 GC. MDI窗体菜单和子窗体可以同时显示出来
D. 当子窗体激活时仅仅显示子窗体菜单
      满分：5  分
/ f2 g! E9 h  {- o5.  假定在窗体（名称为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
A. 记录类型animal不能在Form1中定义，必须在标准模块中定义
$ w* J  l. u4 R8 Z+ r( _B. 如果文件c:\vbTest.dat不存在，则Open命令执行失败
C. 由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾
D. "语句“Put #1, , rec”将animal类型的两个数据元素写到文件中"
      满分：5  分
* W7 @- g2 g4 n7 n3 S2 a6.  设在工程中有一个标准模块，其中定义了如下记录类型Type BooksName As String *10TelNum As String *20End Type在窗体上画一个名为Command1的命令按钮。要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是
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"
' |/ I3 S( j' b( m% E% wB. "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"
D. "rivate Sub Command1_Click()Open “c:\Person.txt”For Input As #1Name=InputBox(“输入姓名”)TelNum=InputBox(“输入电话号码”)Print #1,Name,TelNumClose #1End Sub"
      满分：5  分
7.  以下能判断是否到达文件尾的函数是
2 y2 w$ M! y: o$ AA. BOF
B. LOC
' ^# _9 s+ l3 r+ c1 l, H/ AC. LOF
D. EOF
# }5 {6 V% g. }6 }      满分：5  分
0 m, x# g& H$ ?8.  在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：Private Sub Command1_Click()Static X As IntegerStatic Y As IntegerClsY=1Y=Y+5X=5+XPrint X,YEnd Sub程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为
A. 15 16
: o6 ]8 B  M- DB. 15 6
C. 15 15
D. 5 6
      满分：5  分
9.  在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是
% Q/ g/ a2 G. b/ dA. Drive1_Change
* s) N3 S: C/ ~. n: WB. Drive1_Click
C. Dir1_Click
- m* U. X& a' R3 y5 `6 K. T9 rD. Dir1_Change
      满分：5  分
10.  为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为()
A. Get文件号，记录号，变量名
B. Get文件号，变量名，记录号
& x( R9 o1 q1 c) T3 U8 t+ GC. Put文件号，变量名，记录号
D. Put文件号，记录号，变量名
      满分：5  分
+ ?" n& p* m- [" A/ t9 T/ M11.  关于记录操作的说明错误的
A. 在通过Addnew增加记录后，需要调用Update方法更新数据库
B. 在通过Delete删除记录后，需要调用Update方法更新数据库
" @' ^  f8 J( h! q6 gC. 在通过Delete删除记录后，需要调用movelast或movenext方法
D. 在通过Edit编辑记录后，需要调用Update方法更新数据库
, E; @! K5 Y9 U5 y0 }3 b      满分：5  分
$ C4 p0 r( V' ~8 B12.  设置VB窗口frm1绘图所用线型调整为点划线的方法
) n5 G+ c. `* S& t  z1 i/ r4 t1 fA. frm1.DrawMode =1
B. frm1.BorderStyle =1
6 W3 x' I' B: qC. frm1.DrawStyle =3
D. frm1.DrawStyle =1
      满分：5  分
' s1 T# A# s- @13.  关于数据控件的描述中不正确的是
A. 数据控件通过RecordSource属性获得数据库信息
B. 数据控件通过RecordType属性设置记录集类型
3 H- K/ s: v, J. H, X0 E0 pC. 数据控件通过Exclusive属性为True实现对数据库的共享访问
4 I5 `+ g0 r& ?* ID. 数据控件通过readonly属性决定是否按只读方式打开数据库
      满分：5  分
; Z5 o* K' V9 E4 v+ F$ r14.  当函数EOF()的返回值为-1时，表示文件的指针指向( )
A. 开头
B. 结尾
C. 第一个记录
D. 最后一个记录
( n7 [4 V1 F7 O9 H& s      满分：5  分
15.  设有语句 x=InputBox(“输入数值”，“0”，“示例”) 程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是
6 r' J. s; Y/ n# tA. 变量X的值是数值10
B. 在InputBox对话框标题栏中显示的是“示例”
/ F1 x' M/ E  \* GC. 0是默认值
  L$ G3 a) U  `+ eD. 变量X的值是字符串“10”
      满分：5  分
16.  关于PaintPicture spic,dx,dy,dw,dh,sx,sy,sw,sh,rop语句正确的说法是
A. "dx,dy为传送源左上角坐标"
9 C' a) `/ g" f! l5 C- q+ IB. "dx,dy为传送目标左上角坐标"
C. "sw,sh为传送目标的大小"
7 N: E! J% M* h! Y8 n. W, q$ nD. "dw,dh为传送源的大小"
6 s! x2 G& k( c/ {% Z      满分：5  分
/ ?% I9 O( r* |/ k; _17.  有如下语句：Open “f1.dat” For Random As #1 Len =15，表示文件f1.dat每个记录的长度等于（ ）
A. 15个字符
4 d# |9 _) [' {: b( A' V5 r8 NB. 15个字节
C. 或小于15个字符
9 @2 P& Z: r+ n4 u# ]' RD. 或小于15个字节
      满分：5  分
18.  设有如下声明：Dim X As Integer如果Sgn(X) 的值为-1，则X的值是
A. 整数
B. 大于0的整数
C. 等于0的整数
( r7 O1 R6 ?5 U2 WD. 小于0的数
! [( Y" o) y5 n; B: j, ^      满分：5  分
19.  要获得文件列表框中当前被选中的文件的文件名，则应使用哪个属性?( )
" ?, F& Z5 p/ S4 AA. Dir
B. Path
, z9 U& r: d+ j+ X, a. S* {3 oC. Drive
6 Q) y# k- q& u0 QD. FileName
! H6 }( u. \! N& r& K' L) w! o5 [      满分：5  分
20.  设置VB窗口frm1中坐标系为 X:（-100，100），Y：（-100，100）的方法为
$ g- D- g9 \6 GA. "frm1.scale(0,0)-(200,200)"
3 h, J( D& x  i: DB. "frm1.scale(-100,100)-(100,-100)"
& N' h8 f4 l+ g- JC. "frm1.scale(100,-100)-(-100,100)"
D. "frm1.scale(0,0)-(100,-100)"
      满分：5  分
0 F5 j0 ~  l3 t% l+ r# o8 J2 r
需要满分标准资料请直接加QQ :1306998094