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

久爱奥鹏晓林

东北大学
11春学期《可视化程序设计Ⅰ》在线作业三
- \& F9 X- J/ y6 @. j: A单选题
1.设在工程中有一个标准模块，其中定义了如下记录类型Type BooksName As String *10TelNum As String *20End Type在窗体上画一个名为Command1的命令按钮。要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是
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"
- f9 E1 X+ M' T6 x" |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"
, p8 p; r; h' {' {! D) s. kC. "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"
资料：A
5 F: ?; r. V$ c  m5 g2.关于Line语句正确的说法是
A. Line只能绘制直线
( Q6 b- O; O2 N9 z+ x: d1 kB. Line可以绘制矩形，但是不可以设置填充色
C. Line在绘制矩形，填充色由FillColor属性决定
  B' C* [! ^- y5 Y* p. I& ^. pD. Line在绘制矩形，填充色由forecolor属性决定
资料：C
3.下面的变量名合法的是（）
A. k_name
6 a" D- \3 A& n1 Y" O& E0 e# ?7 qB. k ame
C. name
$ s; |+ t3 Q/ q! C% C# PD. k-name
8 k+ L- q* q- j4 _: H资料：A
. s1 c0 e) ]$ @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
B. DDEE
C. AACC
D. BBCC
资料：C
5.要从磁盘上读入一个文件名为“c:\filel.txt”的顺序文件，下面程序段正确的是（）
7 }4 A% ~$ w+ r  p1 k- L" sA.
B. "F=""c:\filel.txt""Open ""F"" For Input As # 2"
C. "Open ""c:\filel.txt"" For Output As # 2"
D. Open c:\filel.txt For Input As # 1
资料：
3 n7 q+ Q6 T5 b6.以下关于变量作用域的叙述中，正确的是
A. 窗体中凡被声明为Private的变量只能在某个指定的过程中使用
B. 全局变量必须在标准模块中声明
5 H, [# l. i, R  Y2 w; \' CC. 模块级变量只能用Private关键字声明
D. Static类型变量的作用域是它所在的窗体或模块文件
资料：
7.设置VB窗口frm1绘图所用线型调整为点划线的方法
A. frm1.DrawMode =1
' |3 I8 W& g1 ~+ ?% K' gB. frm1.BorderStyle =1
" Y$ k; u$ f" n: gC. frm1.DrawStyle =3
; i! ~2 |: h, F: W& t5 z7 qD. frm1.DrawStyle =1
0 \' i( V& f0 ~  C5 o2 q资料：
8.设置图片框pic1大小随所加载图像大小变化的正确语句是
; Q& V8 V- P1 M- H! O8 v7 S" SA. pic1.autosize =true
' `; Y: `; @$ p6 X' KB. pic1.strech =true
8 w/ ^# _. D1 J  |* DC. pic1.drawmode =1
D. pic1. drawmode =2
资料：
9.执行语句Open“Tel.dat”For Random As #l Len=50后，对文件Tel.dat中的数据能够执行的操作是
7 j. G% O' H6 a3 v3 V: A& ZA. 只能写，不能读
$ g) A0 Q! W3 ~  WB. 只能读，不能写
6 N/ o6 k3 t. W+ _' h- FC. 既可以读，也可以写
D. 不能读，不能写
资料：
  ~/ W, r- B  G' H10.在窗体中添加一个命令按钮，名称为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，结果是
3 Q0 a" v! P( c7 O. v. _/ AA. abcEFG
B. abcefg
" }, _6 u+ R% F% }, @) TC. ABCefg
D. ABCEFG
资料：
, n& n* R3 \  r& Y, n6 s2 t0 H11.阅读下面的程序段：For i=1 To 3For j=1 To iFor k=j To 3a=a+1Next kNext jNext i执行上面的三重循环后，a 的值为
A. 3
B. 14
C. 21
1 _" e; w6 a/ I# T1 oD. 9
1 g7 \9 q7 z  j6 C! v5 x资料：
8 h& O  W' J% N+ t7 y12.(2)以下叙述中正确的是
A. 窗体的Name属性指定窗体的名称，用来标识一个窗体
B. " 窗体的Name属性的值是显示在窗体标题栏中的文本"
C. 可以在运行期间改变对象的Name属性的值
) ~2 }5 s( a! }D. "对象的Name属性值可以为空
! v3 N# D3 p" |3 a" Y4 G资料：
13.以下叙述中错误的是
A. 一个工程中可以包含多个窗体文件
B. 在一个窗体文件中用Private定义的通用过程能被其他窗体调用
C. 在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件
+ j1 m+ i, [% D6 w& m/ FD. 全局变量必须在标准模块中定义
2 v! o) W, E; [! a, X) x9 W资料：
14.以下不能在“工程资源管理器”窗口中列出的文件类型是
A. .bas
B. .res
C. .frm
D. .ocx
资料：
15.以下关于过程及过程参数的描述中，错误的是
A. 过程的参数可以是控件名称
B. 用数组作为过程的参数时，使用的是“传地址”方式
0 r2 {6 l8 k3 V/ c1 G  d) ?" v  w$ I% Y, `C. 只有函数过程能够将过程中处理的信息传回到调用的程序中
D. 窗体可以作为过程的参数
! A! @/ a" c  P$ \/ e资料：
16.设置一个检查框所代表选项的选中状态，应当在属性窗口中改变的属性是（ ）
' r/ V1 m5 L* u6 i: q1 ]  \A.
; |6 h' l9 O2 jB. Name
C. Text
D. Value
资料：
17.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程Private Sub Command1_Click()x=0n=InputBox("")For i=1 To nFor j=1 Toix=x+1Next jNext iPrint xEnd Sub程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是
A. 3
B. 4
% c8 Y2 m. G4 b" t6 U+ PC. 5
D. 6
资料：
( S) r  Q0 B0 `  h/ r8 @18.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Move 500，500End Sub
( t; v0 E  g/ o$ WA. 命令按钮移动到距窗体左边界、上边界各500的位置
, |* j7 d" V# G) rB. 命令按钮移动到距窗体左边界、上边界各500的位置
# @0 E8 d. F1 @% nC. 命令按钮向左、上方向各移动500
D. 窗体向左、上方向各移动500
资料：
19.实现子窗体frmNewDoc自动加载的方法是
" {# R# g5 s% _, TA. frmNewDoc.show
) M) u; w+ f  v' l# N+ OB. frmNewDoc.autoshowchildren=true
C. frmNewDoc.visible=true
D. frmNewDoc.Enable=true
资料：
7 i1 v6 Z0 Z4 h" W9 D* @20.设有如下的记录类型Type StudentNumber As StringName As StringAge As IntegerEnd Type则正确引用该记录类型变量的代码是
A. "Student.name=""张红"""
B. Dim s As Student
7 O- a2 _" S8 Q. @8 gC. "Dim s As Type Student s.name=""张红"""
# L8 u) E' w2 ^5 t# I& B: PD. "Dim s As Types.name=""张红"""
; o5 ?' G0 j$ Q7 G资料：