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

久爱奥鹏晓林

东北大学
1 }! v) U) A) t4 y$ ]: s' ]! U11春学期《可视化程序设计Ⅰ》在线作业三
5 Z; e, V* A0 c单选题
; H3 E* G$ X# J: x5 ^, V0 z1.设在工程中有一个标准模块，其中定义了如下记录类型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"
/ C+ B' U, B( q7 t* PB. "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"
6 g% e' z0 P" Y5 ?C. "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"
2 e/ I# Z1 }. L. h( v9 c' {D. "Private Sub Command1_Click()Open “c:\Person.txt”For Input As #1Name=InputBox(“输入姓名”)TelNum=InputBox(“输入电话号码”)Print #1,Name,TelNumClose #1End Sub"
资料：A
1 E* E2 n5 \8 A- {6 c% R2 b2.关于Line语句正确的说法是
/ N! S1 J0 z" {; @6 c# B0 hA. Line只能绘制直线
B. Line可以绘制矩形，但是不可以设置填充色
C. Line在绘制矩形，填充色由FillColor属性决定
D. Line在绘制矩形，填充色由forecolor属性决定
资料：C
) ~! T% u* M4 @* F3.下面的变量名合法的是（）
A. k_name
" t: w* z  Q! [! l1 sB. k ame
3 c9 L. \! _, H7 [" A8 pC. name
D. k-name
3 ?; Y2 {) o) O4 g  ~! a* q( h资料：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运行上面的程序，然后单击窗体，列表框中所显示的内
A. AABB
+ d' ~' M& T* ?. [4 ^1 JB. DDEE
C. AACC
D. BBCC
资料：C
( G& s' N+ `: H& M5 s5.要从磁盘上读入一个文件名为“c:\filel.txt”的顺序文件，下面程序段正确的是（）
A.
B. "F=""c:\filel.txt""Open ""F"" For Input As # 2"
; [8 C- x' z" D4 j7 a! OC. "Open ""c:\filel.txt"" For Output As # 2"
D. Open c:\filel.txt For Input As # 1
资料：
6.以下关于变量作用域的叙述中，正确的是
A. 窗体中凡被声明为Private的变量只能在某个指定的过程中使用
B. 全局变量必须在标准模块中声明
/ y+ J" \: G/ F3 yC. 模块级变量只能用Private关键字声明
D. Static类型变量的作用域是它所在的窗体或模块文件
* o1 E& u) Y3 G# O4 w0 v+ T. V资料：
7.设置VB窗口frm1绘图所用线型调整为点划线的方法
A. frm1.DrawMode =1
B. frm1.BorderStyle =1
C. frm1.DrawStyle =3
D. frm1.DrawStyle =1
资料：
8.设置图片框pic1大小随所加载图像大小变化的正确语句是
( q3 _  K% n) F5 DA. pic1.autosize =true
* a; F% K3 q' a" S- l9 _6 nB. pic1.strech =true
& M# F( t" l7 bC. pic1.drawmode =1
  r) `9 J# C0 E9 O5 ED. pic1. drawmode =2
资料：
, V: W8 z. s6 n( V7 E- S9.执行语句Open“Tel.dat”For Random As #l Len=50后，对文件Tel.dat中的数据能够执行的操作是
A. 只能写，不能读
% D3 `# G  j* |( x/ tB. 只能读，不能写
C. 既可以读，也可以写
/ }2 |! [; [! vD. 不能读，不能写
资料：
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，结果是
A. abcEFG
# B& l) @; h2 \) L) qB. abcefg
% s8 f: X+ Y0 m, WC. ABCefg
D. ABCEFG
3 y! N$ x, ]  F3 K. R3 b% j- R6 _- f资料：
2 x: M# J; M6 M( ^! }$ |11.阅读下面的程序段：For i=1 To 3For j=1 To iFor k=j To 3a=a+1Next kNext jNext i执行上面的三重循环后，a 的值为
8 U$ N( v% {$ KA. 3
B. 14
0 Q* a2 k( E. O( f7 c7 }5 \0 T: \2 aC. 21
) a% p- _9 N* s- K+ ^' \$ LD. 9
+ j; D. o! Z; W7 i% R/ N6 M/ v1 o9 }资料：
12.(2)以下叙述中正确的是
A. 窗体的Name属性指定窗体的名称，用来标识一个窗体
B. " 窗体的Name属性的值是显示在窗体标题栏中的文本"
C. 可以在运行期间改变对象的Name属性的值
- i$ {1 z4 C. a% y( u+ iD. "对象的Name属性值可以为空
: U; ^6 b4 I( [$ Z1 `资料：
* ^. F4 w( l8 G$ A" W13.以下叙述中错误的是
A. 一个工程中可以包含多个窗体文件
) ~. m2 n  _& Z8 k' vB. 在一个窗体文件中用Private定义的通用过程能被其他窗体调用
! |- M* k6 D' P2 }. C* _' U9 AC. 在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件
) S  N" x- J7 ~3 r4 q$ v3 JD. 全局变量必须在标准模块中定义
资料：
14.以下不能在“工程资源管理器”窗口中列出的文件类型是
, p% ~7 Z) p/ U2 X7 C& cA. .bas
$ u% U# H: s- i/ A+ fB. .res
6 Q" O7 |  J  g7 B; `  SC. .frm
: e; @  T1 e7 y- B0 T4 VD. .ocx
8 ]' `! a7 V# m6 d/ g- F资料：
15.以下关于过程及过程参数的描述中，错误的是
2 d# L* y+ S6 K" yA. 过程的参数可以是控件名称
B. 用数组作为过程的参数时，使用的是“传地址”方式
C. 只有函数过程能够将过程中处理的信息传回到调用的程序中
D. 窗体可以作为过程的参数
资料：
+ Q. z1 O+ J; Q: L16.设置一个检查框所代表选项的选中状态，应当在属性窗口中改变的属性是（ ）
$ v# C0 t5 D  E- E/ }$ {' P2 P  iA.
B. Name
6 V# x6 U1 k- l- x" l2 J  o1 nC. Text
3 q+ T# S; n& C) x4 B, X6 R! [D. Value
4 O3 p+ e3 Q: Y8 A0 e1 [资料：
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 [1 s; i! p! _0 t# A+ ~% k$ _A. 3
B. 4
C. 5
4 M8 P8 C& q0 G, F% h7 C1 kD. 6
( W/ ~5 |8 I& [# C- ]% S  {, p资料：
% b/ Z9 ], V+ S* y, X( ^6 q# f18.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Move 500，500End Sub
A. 命令按钮移动到距窗体左边界、上边界各500的位置
B. 命令按钮移动到距窗体左边界、上边界各500的位置
: T( j* E: @  n1 g# KC. 命令按钮向左、上方向各移动500
D. 窗体向左、上方向各移动500
$ ^1 B" c4 [8 h; U1 ?0 b+ I$ g, o资料：
19.实现子窗体frmNewDoc自动加载的方法是
* k9 ^/ P  B9 Z2 A" @1 VA. frmNewDoc.show
7 N( d  D+ `1 s$ N+ Z- D% W' nB. frmNewDoc.autoshowchildren=true
C. frmNewDoc.visible=true
6 Y, c- z/ o, i  P8 FD. frmNewDoc.Enable=true
资料：
20.设有如下的记录类型Type StudentNumber As StringName As StringAge As IntegerEnd Type则正确引用该记录类型变量的代码是
- H( _0 b  d$ i: l: W# bA. "Student.name=""张红"""
B. Dim s As Student
C. "Dim s As Type Student s.name=""张红"""
2 i3 w" q9 E1 hD. "Dim s As Types.name=""张红"""
) e' X$ B' P0 a+ N$ a& N8 b+ m资料：