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

谋学网

一、单选题（共 20 道试题，共 100 分。）V 1.  为使计时器控件每隔5秒钟产生一个计时器事件（Timer事件），则应将其Interval属性值设置为（ ）
! N8 K, @4 K5 @7 t" E! eA. 5
2 r# U$ K' Z% d$ MB. 500
  |4 P- M2 ?  ]/ \" xC. 300
D. 5000
      满分：5  分
6 h* r7 x4 _  I/ ]9 q2.  表达式4+5 \ 6 * 7 / 8 Mod 9 的值是
A. 4
B. 5
C.
; S4 t( v+ `+ I7 O# Y3 PD. 7
      满分：5  分
( W, i; L& I& _  |2 Q6 ~' L) G5 N3.  以下关于图片框控件的说法中，错误的是
A. 可以通过Print方法在图片框中输出文本
B. 清空图片框控件中图形的方法之一是加载一个空图形
4 ~4 `- z7 u- wC. 图片框控件可以作为容器使用
D. 用Stretch属性可以自动调整图片框中图形的大小
: t* v* F; _  e9 {* G! a& ?8 J      满分：5  分
7 S% o! B* m0 R  P! ^5 s4.  目录列表框的Path属性的作用是
A.
+ j& G& |3 a2 {0 E- x4 N9 A8 fB. 显示当前驱动器或指定驱动器上的某目录下的文件名
! p2 |: u; s$ GC. 显示根目录下的文件名
D. 只显示当前路径下的文件
' p7 I. l- M4 k9 G4 U! m      满分：5  分
. @& N: ~$ R5 I; W! L; I; `" F5.  设a=“Visual Basic”，下面使b=“Basic”的语句是
A. "b=Left(a,8,12) "
B. " b=Mid(a,8,5)"
C. "b=Rigth(a,5,5)"
8 P% M  z7 u! o( S/ xD. "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程序运
2 I7 h9 p+ B* W4 _3 M2 d& _1 |A. 15
; T! k' S1 }6 X. H  {6 B8 TB. 14
3 H4 t+ Y& d9 yC. 13
/ F5 X- @. E$ {# ~1 l+ SD. 12
' f. i5 i& [/ {/ T' K8 I      满分：5  分
7.  定时器的Interval属性以（ ）为单位指定Timer事件之间的时间间隔
A. 分
B. 秒
C. 毫秒
; L( j9 F/ g  u$ p  W; {, xD. 微秒
; ~7 F" I6 S+ c. x1 O- E5 F      满分：5  分
2 m- ^% z5 j: ^5 T1 G1 O# w3 j8.  有如下语句：Open “f1.dat” For Random As #1 Len =15，表示文件f1.dat每个记录的长度等于（ ）
A. 15个字符
B. 15个字节
C. 或小于15个字符
1 h3 {5 }  l5 L% B. x/ P( Z% AD. 或小于15个字节
      满分：5  分
3 _% d  Q( j8 S4 w- ^9.  设在菜单编辑器中定义了一个菜单项，名为menu1。为了在运行时隐藏该菜单项，应使用的语句是
A. menu1.Enabled=True
B. Munu1.Enabled=False
C. Menu1.Visible=True
/ F7 ^; t9 u* j- s6 O( YD. Menu1.Visible=False
5 c% }/ y; F' `! N      满分：5  分
7 Q; }- l6 s: F# o10.  在窗体上画两个名称分别为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
3 Q- R$ x! T8 I; a% k  qC. 195和3
5 M0 {3 F  U$ I4 ~4 s( }D. 600和4
, \* H; S( a4 |0 \, m- q9 s      满分：5  分
  d9 [# ?4 `: m11.  执行下面的语句后，所产生的信息框的标题是（ ）a = MsgBox("AAAA", "BBBB", "", 5)
1 J9 e. S  \7 fA. BBBB
B. 空
0 ^6 O( C& u; sC. AAAA
: |9 X1 z; e  Q3 G: x0 k1 LD. 出错，不能产生信息框
+ q: i) K  T% c" W+ c. b! I& D5 A      满分：5  分
12.  在窗体上画两个名称分别为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
9 c: G6 w9 h, {- T) XC. 195和3
* U" L3 r4 K8 Y' z4 mD. 600和4
9 ?# }! V3 k  S" M" o8 V- K9 T( z      满分：5  分
. i, k( S; h3 T4 B$ T% i13.  在窗体上画一个命令按钮，然后编写如下事件过程：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
B. 3
C. 14
2 r4 M: ]$ o. d' VD. 15
      满分：5  分
2 N( @0 ~6 L9 W, c5 O3 f14.  以下关于变量作用域的叙述中，正确的是
A. 窗体中凡被声明为Private的变量只能在某个指定的过程中使用
B. 全局变量必须在标准模块中声明
C. 模块级变量只能用Private关键字声明
9 c4 V2 K. H: {( w5 sD. Static类型变量的作用域是它所在的窗体或模块文件
' g0 Z1 |) q+ l: ]1 {/ s      满分：5  分
& X/ w2 y% t$ _. {" b5 D) s+ s( P* P15.  在窗体中添加一个命令按钮，名称为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，结果是
/ l( Y% z* l% J( UA. abcEFG
B. abcefg
' l7 }9 K& A! X% wC. ABCefg
D. ABCEFG
      满分：5  分
16.  关于记录操作的说明错误的
5 _; m$ P# J7 ?6 g( dA. 在通过Addnew增加记录后，需要调用Update方法更新数据库
B. 在通过Delete删除记录后，需要调用Update方法更新数据库
+ y2 B+ t+ _9 J, b. dC. 在通过Delete删除记录后，需要调用movelast或movenext方法
$ W: m: [& R6 m* ~0 QD. 在通过Edit编辑记录后，需要调用Update方法更新数据库
      满分：5  分
17.  在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为“Save”，缺省文件名为“Savefile”，在“文件类型”栏中显示*.txt。则能够满足上述要求的程序是
) u2 k: Q# o1 r" W" F, W! FA. "Private Sub Command1_Click()CommonDialog1.FileName=""SaveFile""CommonDialog1.Filter=""All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc""CommonDialog1.FilterIndex=2CommonDialog1.DialogTitle=""Save""CommonDialog1.Action=2End Sub"
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"
6 T; p2 J  V6 P7 D# hC. "Private Sub Command1_Click()CommonDialog1.FileName=""Save""CommonDialog1.Filter=""All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc""CommonDialog1.FilterIndex=2CommonDialog1.DialogTitle=""SaveFile""CommonDialog1.Action=2End Sub"
; x, E+ T" A1 ?, Q' {6 vD. "Private Sub Command1_Click()CommonDialog1.FileName=""SaveFile""CommonDialog1.Filter=""All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc""CommonDialog1.FilterIndex=1CommonDialog1.DialogTitle=""Save""CommonDialog1.Action=1End Sub"
; ]* M2 g) C1 O. y      满分：5  分
" O1 J6 i  g) C) r7 H8 X18.  文件列表框的Pattern属性的作用是（ ）
A. 显示当前驱动器或指定驱动器上的目录结构
) a) X9 \, c& OB. 显示当前驱动器或指定驱动器上的某目录下的文件名
C. 显示某一类型的文件
D. 显示该路径下的文件
8 ], D" ]2 W* n( i( o! m) D9 k      满分：5  分
9 p$ E+ I8 ?" _2 m" W; m19.  在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件)，则正确的描述格式是
( d0 p- z9 O3 zA. “text (.txt)|(*.txt)”
: ?. \! d: [* }( @; \$ Z1 UB. “文本文件( .txt) | (.txt)”
C. “text(.txt)||(*.txt)”
D. “text(.txt)(*.txt)”
* ~' l% E& f0 _      满分：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程序运行后，单击命令按钮
; e5 j+ N* j8 q* R: @) Q) ~A. 5和3
" \! p$ d& J! g: V3 i1 N; LB. 25和3
6 D: |. Q# _% Z' S4 I/ S4 sC. 25和6
5 D! c2 A, j, W3 C$ g9 g' L7 j/ tD. 5和6
+ B' \, Q" ?1 y      满分：5  分

8 W5 q4 s- c3 `7 l; g/ ^