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

久爱奥鹏晓林

东北大学
11春学期《可视化程序设计Ⅰ》在线作业三
单选题
1.设在工程中有一个标准模块，其中定义了如下记录类型Type BooksName As String *10TelNum As String *20End Type在窗体上画一个名为Command1的命令按钮。要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是
3 d9 _* ^4 T. ZA. "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"
5 d' Q0 I4 ]2 J) H% x" L# F2 U. @" EB. "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"
5 B- C, R7 ?8 l2 {/ VC. "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
2.关于Line语句正确的说法是
A. Line只能绘制直线
B. Line可以绘制矩形，但是不可以设置填充色
) t+ a9 p$ k+ e0 W6 rC. Line在绘制矩形，填充色由FillColor属性决定
D. Line在绘制矩形，填充色由forecolor属性决定
& y% S; }% `. ^! `/ E7 ]资料：C
0 P' ]# \0 Q: V/ s3.下面的变量名合法的是（）
! d$ m+ j& ~' k/ l1 J. F5 m4 _8 @A. k_name
B. k ame
( X) _) J- P$ |1 V9 B# QC. 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运行上面的程序，然后单击窗体，列表框中所显示的内
3 w4 [; e3 a( w; c/ H! X4 Y+ PA. AABB
B. DDEE
C. AACC
, k" l. D: ?$ {: M" i8 U% F' |+ ED. BBCC
# [! L- k0 q1 }# s) E资料：C
: Q3 O* Q; M$ d$ N5.要从磁盘上读入一个文件名为“c:\filel.txt”的顺序文件，下面程序段正确的是（）
0 G; B4 b" H1 e5 JA.
B. "F=""c:\filel.txt""Open ""F"" For Input As # 2"
- O- f: j3 T) f# FC. "Open ""c:\filel.txt"" For Output As # 2"
- P4 x4 F6 `, j+ E1 J( eD. Open c:\filel.txt For Input As # 1
资料：
6.以下关于变量作用域的叙述中，正确的是
. X+ A* C% b( \& S& I" nA. 窗体中凡被声明为Private的变量只能在某个指定的过程中使用
B. 全局变量必须在标准模块中声明
C. 模块级变量只能用Private关键字声明
D. Static类型变量的作用域是它所在的窗体或模块文件
" O7 u- l  r% K; n2 e资料：
7.设置VB窗口frm1绘图所用线型调整为点划线的方法
% b- r. ^- C$ h8 \) F( w: c4 ?A. frm1.DrawMode =1
B. frm1.BorderStyle =1
C. frm1.DrawStyle =3
9 |; w+ f4 g' I9 q& H6 q+ fD. frm1.DrawStyle =1
资料：
. D3 o% _' H' ], @1 l" m3 n( p9 ~8.设置图片框pic1大小随所加载图像大小变化的正确语句是
2 p/ \! p+ Z* m5 rA. pic1.autosize =true
B. pic1.strech =true
C. pic1.drawmode =1
D. pic1. drawmode =2
资料：
9.执行语句Open“Tel.dat”For Random As #l Len=50后，对文件Tel.dat中的数据能够执行的操作是
A. 只能写，不能读
% h8 H' o4 j- N2 fB. 只能读，不能写
  p0 u" g. Y9 AC. 既可以读，也可以写
4 C1 k/ c# U7 s5 m& w! kD. 不能读，不能写
* B. @' \+ S6 n2 j3 B资料：
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，结果是
/ g- G, i! a4 P3 o' S2 L! B' ~A. abcEFG
B. abcefg
" J* V" }' M6 L$ HC. ABCefg
5 @5 r7 k+ e5 W+ y# N& ]D. ABCEFG
资料：
11.阅读下面的程序段：For i=1 To 3For j=1 To iFor k=j To 3a=a+1Next kNext jNext i执行上面的三重循环后，a 的值为
A. 3
4 s# D9 [' e! u* ], xB. 14
C. 21
" R* t* }1 H8 ^) n* Z; I: }& T  cD. 9
资料：
12.(2)以下叙述中正确的是
6 X$ @4 U& e! b7 Y( SA. 窗体的Name属性指定窗体的名称，用来标识一个窗体
7 o0 R8 R3 F$ f  r1 K+ g1 AB. " 窗体的Name属性的值是显示在窗体标题栏中的文本"
C. 可以在运行期间改变对象的Name属性的值
9 O+ Z' o( _' K5 D. N: [- [$ Y" SD. "对象的Name属性值可以为空
! ?- [$ X' \9 z资料：
1 X* ]* }- R+ @' K3 j4 ^# Z" t13.以下叙述中错误的是
A. 一个工程中可以包含多个窗体文件
4 {- q4 S" G" g5 f4 l9 ]6 Q! U; z4 ~6 i. \B. 在一个窗体文件中用Private定义的通用过程能被其他窗体调用
C. 在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件
# s+ y, P2 q) k9 P! }D. 全局变量必须在标准模块中定义
8 I* W% x2 H, F资料：
1 r2 d8 Z1 w& V0 g1 W0 R. o. x/ q- F14.以下不能在“工程资源管理器”窗口中列出的文件类型是
A. .bas
+ d3 z* ?' z1 W- q) EB. .res
- u" f' A4 p+ H0 V- A2 i: q( _4 AC. .frm
6 n: R5 U7 T* O3 yD. .ocx
% x; \6 p+ H8 W# j/ K7 I! b1 n资料：
. M, d! e* v1 c5 c15.以下关于过程及过程参数的描述中，错误的是
2 C2 N; k# Z& u3 FA. 过程的参数可以是控件名称
B. 用数组作为过程的参数时，使用的是“传地址”方式
/ i; M2 D4 C! e) I# u2 x- E! MC. 只有函数过程能够将过程中处理的信息传回到调用的程序中
D. 窗体可以作为过程的参数
. a3 u3 O4 h+ ?& F) z资料：
) J( ^1 z9 g4 n; J" G! D16.设置一个检查框所代表选项的选中状态，应当在属性窗口中改变的属性是（ ）
A.
8 z, @/ ^" ~7 q; Q% o% W7 b7 MB. Name
C. Text
. S3 H8 X$ Z& Y! S$ E6 m; RD. Value
7 \# h; W" J: C4 V6 U  a7 x2 S资料：
17.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程Private Sub Command1_Click()x=0n=InputBox("")For i=1 To nFor j=1 Toix=x+1Next jNext iPrint xEnd Sub程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是
5 I7 P  }* w8 N: ^7 AA. 3
B. 4
C. 5
: ?/ M+ T7 A. K( O  \D. 6
, W8 I* V- ^; ]# [  f' m资料：
18.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Move 500，500End Sub
- i* G" `) f0 q8 C1 g( h6 f- M6 X) WA. 命令按钮移动到距窗体左边界、上边界各500的位置
4 c6 O( U7 `: L2 s7 |& wB. 命令按钮移动到距窗体左边界、上边界各500的位置
C. 命令按钮向左、上方向各移动500
1 D3 C+ Z3 H$ VD. 窗体向左、上方向各移动500
6 y& T% L" `- j3 ?# {) D资料：
$ o( k" {0 X1 g) N; b19.实现子窗体frmNewDoc自动加载的方法是
A. frmNewDoc.show
3 C8 ]: _# u+ N3 M. bB. frmNewDoc.autoshowchildren=true
C. frmNewDoc.visible=true
D. frmNewDoc.Enable=true
* P# x, H% J0 G资料：
20.设有如下的记录类型Type StudentNumber As StringName As StringAge As IntegerEnd Type则正确引用该记录类型变量的代码是
$ @9 b3 T5 \7 W# m5 `6 mA. "Student.name=""张红"""
B. Dim s As Student
C. "Dim s As Type Student s.name=""张红"""
D. "Dim s As Types.name=""张红"""
$ ~& e4 m& y- @$ Q1 ?资料：