东北大学13春学期《可视化程序设计(VB)》在线作业3

谋学网

一、单选题（共 15 道试题，共 75 分。）V 1.  设a=5,b=10，在执行c=int((b-a)*Rnd +a)+1语句后，求c值的范围为（ ）。
A. 5~10
$ X: c# s5 k3 w0 m3 bB. 6~9
& c! O0 Q$ X" V) i7 J- ]0 ~C. 6~10
D. 5~9
' _$ T! y: R0 Z, ~; L6 t      满分：5  分
; k& ]% L, Y) Y- |/ H1 V/ V2.  以下Case语句中错误的是（ ）。
! B: K2 f2 A3 D( W1 G# ^& S2 M8 {A. Case 0 To 10
B. Case Is>10
* A! B+ m, o; @" L( K, nC. Case Is>10 And Is<50
- Q1 a0 E) R3 V5 B6 hD. "Case 3,5,Is>10"
      满分：5  分
4 r* p1 |) R% J8 b; ?0 C2 l; B3.  在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Option Base 0 Private Sub Command1_Click() Dim city As Variant city = Array("北京", "上海", "天津", "沈阳") Print city(1) End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是（）。
- x9 k3 X/ T+ {A. 空白
% U# m$ K) z" c; n3 G& t) }. @B. 错误提示
2 ^- ?3 T3 t: l; R/ V( mC. 北京
. g4 Y  A+ q* V5 {: b: K' @) XD. 上海
      满分：5  分
3 t- s+ A/ }4 A& F% F4 m: @4.  设s=2,b=3,c=4,d=5 ，表达式Not a<=c Or 4*c=b^2 And b <> a+c的值是（ ）。
A. -1
2 g6 [9 I0 j$ D) R* E: B; k% oB. 1
C. TRUE
6 U+ f  n2 G7 h5 gD. FALSE
      满分：5  分
2 y: J0 H; U1 d) K/ ~5.  以下声明语句中错误的是（）。
/ @% `4 Z/ Y/ i% ^7 `' zA. Const var1=123
B. Dim var2 = 'ABC'
7 o* G  O" b5 b# Q% M7 @C. DefInt a-z
) _5 c+ \9 c! Z. I$ N1 CD. Static var3 As Integer
      满分：5  分
6.  下列Visual Basic程序段运行后，变量s、t的值为（）。 s=0:t=1 For k=2 To 4 s=s+k t=t*k Next k
& _1 ^1 V) s7 d& jA. 2 2
8 |. {  h# Z* q+ p# S, GB. 9 24
$ X! t$ e4 W4 G7 p# a+ ^7 H  a2 GC. 5 6
/ O5 _5 R# {, r8 G: {' q  B# QD. 0 1
) u: t8 |6 \& m- S3 ?" S! h; j( D      满分：5  分
' n) P8 U  C9 S& x1 o3 w1 P# n! q7.  以下不能在"工程资源管理器"窗口中列出的文件类型是( )。
A. .bas
7 r" x* R) X5 J! E% pB. .res
C. .frm
$ I9 S+ _* Q1 P* I6 j0 zD. .ocx
" b$ ~' f7 U- ?3 C' W      满分：5  分
8.  能显示窗体的方法是（ ）。
A. Visible
6 H  t) O) t4 dB. Show
, _  ]$ D: ]# DC. New
. Y2 o& _2 u2 S' a: c& bD. Open
0 k! X/ Y" p, e  L      满分：5  分
9.  窗体的MouseDown事件过程Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)有4个参数，关于这些参数，正确的描述是（）。
A. 通过Button参数判定当前按下的是哪一个鼠标键
, c9 ^8 N3 u3 C6 x0 b1 XB. Shift参数只能用来确定是否按下Shift键
C. Shift参数只能用来确定是否按下Alt和Ctrl键
8 ]  |3 D3 s% e/ H2 k% jD. "参数x,y用来设置鼠标当前位置的坐标"
      满分：5  分
10.  执行语句Open "Tel.dat" For Random As #1 Len = 50后，对文件Tel.dat中的数据能够执行的操作是（）。
: |2 E8 R) @! |A. 只能写，不能读
B. 只能读，不能写
9 z2 P( J* G; Y8 p& eC. 既可以读，也可以写
& H. g: W8 R' J  H4 \7 TD. 不能读，不能写
      满分：5  分
6 S' ]7 u* ^# u& g& z0 G11.  为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（）。
A. Value
B. Default
C. Cancel
D. Enabled
      满分：5  分
12.  函数Int(-3.6)的值是（ ）。
2 T* C" w7 k* I2 ~; }) @. KA. -3
B. 3
C. -4
D. 4
      满分：5  分
3 V! f- V) w& ~9 F13.  下面程序段运行后，变量s的值为（）。 a=2:b=1:s=0 For i=10 To 6 Step-1 s=s+a c=a+b a=b b=c Next i
A. 10
9 }4 X- l9 b% [- m7 tB. 17
6 D. I! Z- [: F6 v% ^& D- pC. 6
D. 28
- K" t, c% z7 m1 {: c1 m      满分：5  分
14.  在窗体上画一个名称为File1的文件列表框，并编写如下程序： Private Sub File1_DblClick() x=Shell(File1.FileName,1) End Sub 以下关于该程序的叙述中，错误的是（）。
# v! s+ t5 W2 ?' b% g- y, j( BA. x没有实际作用，因此可以将该语句写为：Call Shell(File1,FileName,1)
& g% ^" R8 x" F3 X  WB. 双击文件列表框中的文件，将触发该事件过程
C. 要执行的文件的名字通过File1.FileName指定
D. File1中显示的是当前驱动器、当前目录下的文件
" y& X0 E; K1 W! j" k      满分：5  分
15.  下面程序段运行后，变量a,b的值为（ ）。 a=3:b=4 IF a>b Then x=a:a=b:b=x
+ y3 D! ?6 s* x. S. NA. 3 4
B. 4 3
C. 3 3
, k2 l2 S+ @$ U) r4 K- Q. qD. 4 4
      满分：5  分
6 u* ]; ?" A: r# v
二、判断题（共 5 道试题，共 25 分。）V 1.  鼠标左键单击“工具”菜单中的“菜单编辑器”菜单项就可打开“菜单编辑器”窗口。
3 F3 f: g4 C4 gA. 错误
/ }& f' O& H/ u+ P% [  n) p. jB. 正确
2 T9 l2 m: z* T" b' r      满分：5  分
2.  vb的窗体中凡被声明为Private的变量只能在某个指定的过程中使用。
A. 错误
* J6 j: E  w. t8 ?) }9 GB. 正确
5 X- c! W9 }, z. b* T      满分：5  分
7 u$ A( ~. E8 {0 r2 Z5 k3 M3.  Visual Basic 应用程序只能以解释方式执行
% b- C  l& b! D4 j# wA. 错误
' N7 x! S6 U& ~: pB. 正确
      满分：5  分
! c/ ]6 F& e1 a4.  当文本框失去焦点时，触发LostFocus事件
A. 错误
B. 正确
# z7 P6 Q4 l+ q2 d      满分：5  分
5.  “函数过程形参的类型与函数返回值的类型没有关系”的叙述是正确的。
A. 错误
. z5 G! a% o  l9 w4 A( B8 kB. 正确
7 T# d, P% m8 |& ^- T- f9 k8 u      满分：5  分
2 X$ M5 C* a- v: o+ D
5 `  i' u1 H% _- E0 m