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

久爱奥鹏晓林

一、单选题（共 20 道试题，共 100 分。）V 1.  要获得当前驱动器应使用驱动器列表框的哪个属性？（ ）
A. Path
B. Drive
C. Dir
D. Patten
      满分：5  分
: A' W8 e# A1 u2.  以下叙述中正确的是
A.
+ h* R  Z" H( W1 k$ y* {B. 随机文件中每个记录的长度是固定的
- d. L5 L6 ~) }' ]C. Open命令的作用是打开一个已经存在的文件
D. 使用Input #语句可以从随机文件中读取数据
      满分：5  分
3.  在如下工具栏按钮事件处理函数中，空白处应当添加的语句为Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case ...End select End Sub
A. Button
! `) H! r4 K& n; F2 R/ q8 _B. Button.index
C. Button.key=true
$ e* T+ R, @$ g) a* z# B8 t( ]D. Button.text
      满分：5  分
% g) f; l# `' a& e- L4.  关于子窗体说法正确的是
A. MDI子窗体与普通窗体没有区别
B. MDI子窗体与普通窗体不同，其活动区域为MDI窗体工作区，而普通窗体则没有此限制
C. MDI窗体菜单和子窗体可以同时显示出来
9 m* _. P1 ^# u* [  AD. 当子窗体激活时仅仅显示子窗体菜单
( j9 r$ W- o2 H4 K& `# ?      满分：5  分
1 t/ _9 M1 [9 n6 V# ^/ {5.  假定在窗体（名称为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
  Q/ E' k7 b1 @5 T0 L6 O( mA. 记录类型animal不能在Form1中定义，必须在标准模块中定义
+ m! R5 f. W2 R0 eB. 如果文件c:\vbTest.dat不存在，则Open命令执行失败
C. 由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾
D. "语句“Put #1, , rec”将animal类型的两个数据元素写到文件中"
      满分：5  分
6.  设在工程中有一个标准模块，其中定义了如下记录类型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"
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"
- s& D/ b0 A4 t1 |' K- z1 `D. "rivate Sub Command1_Click()Open “c:\Person.txt”For Input As #1Name=InputBox(“输入姓名”)TelNum=InputBox(“输入电话号码”)Print #1,Name,TelNumClose #1End Sub"
      满分：5  分
5 p* u. T( R6 g1 A& ]7.  以下能判断是否到达文件尾的函数是
A. BOF
B. LOC
C. LOF
8 E. ]5 W* _& ~* m+ G  SD. EOF
3 ]0 T0 g3 W, G; n& P' N- f      满分：5  分
+ D8 W! _" U5 M8.  在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：Private Sub Command1_Click()Static X As IntegerStatic Y As IntegerClsY=1Y=Y+5X=5+XPrint X,YEnd Sub程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为
A. 15 16
8 i' S* r7 r, H) dB. 15 6
C. 15 15
D. 5 6
( k! M, P6 J+ f0 u& n      满分：5  分
& N0 S1 b9 C  F$ L9.  在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是
A. Drive1_Change
' o  o& C% J! y/ M$ r1 W3 ^B. Drive1_Click
5 H  V0 v6 R% {& M5 p6 kC. Dir1_Click
D. Dir1_Change
2 K# @9 Z! P8 n, Q6 \' s1 @      满分：5  分
/ C$ c4 W: {1 x$ J10.  为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为()
; E$ N  m) t' v3 n' NA. Get文件号，记录号，变量名
  n. L8 l1 I+ \B. Get文件号，变量名，记录号
C. Put文件号，变量名，记录号
D. Put文件号，记录号，变量名
7 Y3 k6 X/ N5 N+ O      满分：5  分
11.  关于记录操作的说明错误的
- A: E7 \+ s9 j5 eA. 在通过Addnew增加记录后，需要调用Update方法更新数据库
B. 在通过Delete删除记录后，需要调用Update方法更新数据库
9 A' F8 K1 f3 A! Z& VC. 在通过Delete删除记录后，需要调用movelast或movenext方法
D. 在通过Edit编辑记录后，需要调用Update方法更新数据库
      满分：5  分
2 D; U8 M7 S6 W12.  设置VB窗口frm1绘图所用线型调整为点划线的方法
A. frm1.DrawMode =1
B. frm1.BorderStyle =1
C. frm1.DrawStyle =3
( f+ x" e' p* s6 pD. frm1.DrawStyle =1
( X" i+ B3 P0 ]# o      满分：5  分
13.  关于数据控件的描述中不正确的是
2 r7 P  `% l0 Q; w4 dA. 数据控件通过RecordSource属性获得数据库信息
' ~) y9 I1 [- N1 ~# w, d& ^, jB. 数据控件通过RecordType属性设置记录集类型
C. 数据控件通过Exclusive属性为True实现对数据库的共享访问
D. 数据控件通过readonly属性决定是否按只读方式打开数据库
      满分：5  分
1 k, K$ |7 B2 n# w3 ^0 D14.  当函数EOF()的返回值为-1时，表示文件的指针指向( )
# |. u( m# i. n+ dA. 开头
B. 结尾
C. 第一个记录
D. 最后一个记录
      满分：5  分
9 E) B6 k) A; J% t9 s. l' ?! ~/ K15.  设有语句 x=InputBox(“输入数值”，“0”，“示例”) 程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是
- I8 S/ D8 Q' I+ s7 QA. 变量X的值是数值10
; E7 ?* d8 A# R5 S9 a  EB. 在InputBox对话框标题栏中显示的是“示例”
) K. g! ?1 Y# X( R9 ?0 _. lC. 0是默认值
D. 变量X的值是字符串“10”
7 y+ Q* B- I  j* ]/ w" D7 G      满分：5  分
2 f8 c0 v# r% c16.  关于PaintPicture spic,dx,dy,dw,dh,sx,sy,sw,sh,rop语句正确的说法是
1 R7 R, ]9 v; X- j" @8 c4 _) c! ?2 u0 \A. "dx,dy为传送源左上角坐标"
% Q! l3 p- i/ X  Q. B0 Z. iB. "dx,dy为传送目标左上角坐标"
6 v/ y, d. R* T8 Q4 q) nC. "sw,sh为传送目标的大小"
D. "dw,dh为传送源的大小"
, }9 w( H* G4 ?2 {% \# N0 R0 Y  d      满分：5  分
& d# |5 C: x! a( I) m1 q17.  有如下语句：Open “f1.dat” For Random As #1 Len =15，表示文件f1.dat每个记录的长度等于（ ）
- |7 c9 N$ J. e0 [6 W, ?A. 15个字符
B. 15个字节
C. 或小于15个字符
2 v- d4 e" R, e$ {# u( h: z4 x! sD. 或小于15个字节
      满分：5  分
18.  设有如下声明：Dim X As Integer如果Sgn(X) 的值为-1，则X的值是
A. 整数
B. 大于0的整数
! u2 M! h4 ?" _# d8 o4 hC. 等于0的整数
D. 小于0的数
      满分：5  分
' C5 ?: j  B* C19.  要获得文件列表框中当前被选中的文件的文件名，则应使用哪个属性?( )
A. Dir
B. Path
C. Drive
D. FileName
( T7 k/ E- o) ?6 b+ p/ ~1 `7 t      满分：5  分
* [9 b# i8 U$ |# ^& ~20.  设置VB窗口frm1中坐标系为 X:（-100，100），Y：（-100，100）的方法为
A. "frm1.scale(0,0)-(200,200)"
B. "frm1.scale(-100,100)-(100,-100)"
5 T: N7 b' w( [2 [$ O# JC. "frm1.scale(100,-100)-(-100,100)"
D. "frm1.scale(0,0)-(100,-100)"
( f0 W1 X5 ^- O0 v      满分：5  分
- j* `- @9 @! q5 S
  u( _; F" M/ v/ c需要满分标准资料请直接加QQ :1306998094