东北大学13春学期《可视化程序设计Ⅰ》在线作业2

谋学网

一、单选题（共 20 道试题，共 100 分。）V 1.  为使计时器控件每隔5秒钟产生一个计时器事件（Timer事件），则应将其Interval属性值设置为（ ）
A. 5
5 X2 \, J7 l) J  H9 |7 u) {. HB. 500
C. 300
) Y( t/ }( T7 Y4 m0 ~: V; bD. 5000
! N- W4 o# X: Q$ C# n& t' V* E      满分：5  分
2.  表达式4+5 \ 6 * 7 / 8 Mod 9 的值是
A. 4
: Q. K. [8 V9 A& s" AB. 5
5 y9 Z8 ^( k2 a' pC.
% M' y$ J, o4 B( p* v  z+ rD. 7
) X3 `: s5 w+ e+ u      满分：5  分
3.  以下关于图片框控件的说法中，错误的是
( R; i, ^: @+ [A. 可以通过Print方法在图片框中输出文本
& c4 G+ l+ g+ aB. 清空图片框控件中图形的方法之一是加载一个空图形
' A7 Z# i9 L" H& z6 m' MC. 图片框控件可以作为容器使用
D. 用Stretch属性可以自动调整图片框中图形的大小
      满分：5  分
4.  目录列表框的Path属性的作用是
A.
B. 显示当前驱动器或指定驱动器上的某目录下的文件名
C. 显示根目录下的文件名
D. 只显示当前路径下的文件
      满分：5  分
5.  设a=“Visual Basic”，下面使b=“Basic”的语句是
, E: L3 C, N% ^7 T% jA. "b=Left(a,8,12) "
B. " b=Mid(a,8,5)"
, a$ `+ |0 k$ \/ t) g: K1 o1 g& FC. "b=Rigth(a,5,5)"
D. "b=Left(a,8,5)"
      满分：5  分
6.  在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim array1(10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 2 To 4 array1(i, j) = i + j Next j Next i Text1.Text = array1(2, 3) + array1(3, 4)End Sub程序运
A. 15
5 X9 `7 J% d; J' J5 h- ^. ^B. 14
5 s; k% b. S# z2 CC. 13
D. 12
" H! g& A1 t& S( k: ~0 g$ I6 T      满分：5  分
7.  定时器的Interval属性以（ ）为单位指定Timer事件之间的时间间隔
5 n( Q; X% M* Z3 FA. 分
% Q2 z: E( V# h6 f$ AB. 秒
C. 毫秒
D. 微秒
      满分：5  分
& i6 ?/ S3 F7 t& X0 n+ f: I- M8.  有如下语句：Open “f1.dat” For Random As #1 Len =15，表示文件f1.dat每个记录的长度等于（ ）
+ q8 N7 U2 ?7 }5 I; ?$ a7 iA. 15个字符
B. 15个字节
: r$ a- ^% T1 k- }7 S2 }. S! BC. 或小于15个字符
D. 或小于15个字节
. O) x4 s; u8 M/ x: p6 [      满分：5  分
. v/ q1 q: S# h9.  设在菜单编辑器中定义了一个菜单项，名为menu1。为了在运行时隐藏该菜单项，应使用的语句是
A. menu1.Enabled=True
% ~# x  O/ G; ]- ?" E9 O" ]B. Munu1.Enabled=False
C. Menu1.Visible=True
D. Menu1.Visible=False
      满分：5  分
+ S% Z' {+ w1 V& p; a& ~& G10.  在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim x As Integer,n As Integerx=1n=0Do While x<20x=x*3n=n+1LoopText1.Text=Str(x)Text2.Text=Str(n)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别是
A. 15和1
B. 27和3
5 J+ Q( N8 x; p/ B( y5 HC. 195和3
) r& ]* I' O$ J$ ]' R; i1 gD. 600和4
: R# }1 C: f5 x! ~      满分：5  分
, `8 ~; T# A% i& m% Q11.  执行下面的语句后，所产生的信息框的标题是（ ）a = MsgBox("AAAA", "BBBB", "", 5)
9 d! t1 m8 ~4 n8 u4 pA. BBBB
9 K; k# }: C4 X4 x4 mB. 空
C. AAAA
5 ]# K) o) n3 ~D. 出错，不能产生信息框
      满分：5  分
- _! |: u+ m) L6 o12.  在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim x As Integer,n As Integerx=1n=0Do While x<20x=x*3n=n+1LoopText1.Text=Str(x)Text2.Text=Str(n)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别是
A. 15和1
B. 27和3
C. 195和3
D. 600和4
7 ]. h  _+ r8 z  k- W( {      满分：5  分
13.  在窗体上画一个命令按钮，然后编写如下事件过程：Prevate Sub Command1_Click()x=0Do Until x=-1a = InputBox(“请输入A的值”)a = Val(a)b = InputBox(“请输入B的值”)b = Val(b)x = InputBox(“请输入x的值”)x = Val(x)a = a+b+xLoopPrint aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为
A. 2
( n+ s0 ^6 B, v3 ]- x( HB. 3
C. 14
+ |5 ?0 M+ b; g3 V( ^D. 15
7 |: S) Q# m1 h- {% E" Z      满分：5  分
. Q0 w% l5 h7 ?14.  以下关于变量作用域的叙述中，正确的是
A. 窗体中凡被声明为Private的变量只能在某个指定的过程中使用
B. 全局变量必须在标准模块中声明
2 F6 |  b9 ]' n' B. jC. 模块级变量只能用Private关键字声明
D. Static类型变量的作用域是它所在的窗体或模块文件
( j( ?0 Q: ^' v. G& S      满分：5  分
  N% D) z2 e) u* f0 [15.  在窗体中添加一个命令按钮，名称为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，结果是
" W/ T, o$ W6 M. G: o0 E# _A. abcEFG
B. abcefg
8 z+ j+ S  [# ^1 ], }C. ABCefg
! k. i2 G3 w$ z. X5 [' D! r0 uD. ABCEFG
      满分：5  分
16.  关于记录操作的说明错误的
  v. ?% ?5 C) i- k" H+ y2 I/ zA. 在通过Addnew增加记录后，需要调用Update方法更新数据库
B. 在通过Delete删除记录后，需要调用Update方法更新数据库
/ U" g' Q' u. w- ]( WC. 在通过Delete删除记录后，需要调用movelast或movenext方法
D. 在通过Edit编辑记录后，需要调用Update方法更新数据库
      满分：5  分
17.  在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为“Save”，缺省文件名为“Savefile”，在“文件类型”栏中显示*.txt。则能够满足上述要求的程序是
$ G$ w' B+ C( @7 w  {2 P7 l% T3 D8 e/ AA. "Private Sub Command1_Click()CommonDialog1.FileName=""SaveFile""CommonDialog1.Filter=""All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc""CommonDialog1.FilterIndex=2CommonDialog1.DialogTitle=""Save""CommonDialog1.Action=2End Sub"
4 r1 P4 G, h  a# n4 `B. "Private Sub Command1_Click()CommonDialog1.FileName=""SaveFile""CommonDialog1.Filter=""All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc""CommonDialog1.FilterIndex=1CommonDialog1.DialogTitle=""Save""CommonDialog1.Action=2End Sub"
  ]  L3 \- R8 D& |C. "Private Sub Command1_Click()CommonDialog1.FileName=""Save""CommonDialog1.Filter=""All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc""CommonDialog1.FilterIndex=2CommonDialog1.DialogTitle=""SaveFile""CommonDialog1.Action=2End Sub"
D. "Private Sub Command1_Click()CommonDialog1.FileName=""SaveFile""CommonDialog1.Filter=""All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc""CommonDialog1.FilterIndex=1CommonDialog1.DialogTitle=""Save""CommonDialog1.Action=1End Sub"
; v6 c  [/ ^. O% X      满分：5  分
18.  文件列表框的Pattern属性的作用是（ ）
A. 显示当前驱动器或指定驱动器上的目录结构
B. 显示当前驱动器或指定驱动器上的某目录下的文件名
C. 显示某一类型的文件
) L* V& q4 C! N& YD. 显示该路径下的文件
      满分：5  分
6 h& e) y6 U" D% a. ]3 c19.  在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件)，则正确的描述格式是
" y6 K8 }5 u: g2 W5 Z& i" |* _A. “text (.txt)|(*.txt)”
1 o) \1 f+ E- u+ y. B7 OB. “文本文件( .txt) | (.txt)”
C. “text(.txt)||(*.txt)”
" N9 k7 q/ L( H4 l; K1 QD. “text(.txt)(*.txt)”
* J8 s. x% ]  Q1 X1 a      满分：5  分
20.  在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码：Private X As IntegerPrivate Sub Command1_Click()X=5:Y=3Call Proc(X,Y)Label1.Caption= XLabel2.caption=YEnd Sub Private Sub proc(ByVal a As Integer,ByVal b As Integer)X=a*aY=b+bEnd Sub程序运行后，单击命令按钮
" }( j% E8 f. z% RA. 5和3
B. 25和3
, }, w0 Q$ {9 r0 F$ HC. 25和6
4 x7 E, J) v$ Z0 m. h0 WD. 5和6
      满分：5  分

* b0 r  T* V5 H0 ~( U! u$ \