2012年计算机二级VB用户界面设计练习题及答案(4)

会计考友

2012年计算机二级VB用户界面设计练习题及答案(4)
31．在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干城市的名称。但单击列表框中的某个城市名时，该城市名从列表框中消失，并在标签中显示出来。下列能正确实现上述操作的程序是______。
　　A）Private Sub List_Click()
) t& W9 q- ^, q2 S2 b3 S" y5 O* n# @　　Label1.Caption=List1.ListIndex
　　List1.RemoveItem List1.Text
　　End Sub
4 @- l0 i& K; ^( x( x* Q5 v　　B）Private Sub List_Click()
　　Label1.Name=List1.ListIndex
$ y& A6 }* c( D( x- ~# E" ]7 E! |3 _0 }　　List1.RemoveItem List1.Text
% H. \. L: a* g0 h5 ?4 n　　End Sub
　　C）Private Sub List_Click()
4 \. u$ |/ g# N9 H* s0 L1 @　　Label1.Caption=List1.Text
! `/ g; ~( b. q) @* H2 M" W2 X" h0 S　　List1.RemoveItem List1.ListIndex
2 d  \! `' Z0 N: H- o　　End Sub
4 U$ V- Q3 x$ o+ t% b3 L: q- Y　　D）Private Sub List_Click()
& n* ~5 `$ A' W' K1 ]. B8 y) g　　Label1.Name=List1.Text
' T9 K: j6 H  n( Y- M8 `　　List1.RemoveItem List1.ListIndex
9 ^3 R) {8 c9 \　　End Sub
　　32．以下叙述中错误的是______。
　　A）在KeyPree事件过程中不能识别键盘的按下与释放
$ \% n7 s- B% j+ y- s　　B）在KeyPree事件过程中不能识别回车键
　　C）在KeyDown和KeyUp事件过程中，将键盘输入的“A”和“a”视作相同字母
9 [, |1 m7 x6 ?, x* a　　D）在KeyDown和KeyUp事件过程中，从大键盘输入的“1”和从小键盘输入的“1”被视作不同的字符
3 X! Q4 O; a9 t　　33．以下关于KeyPress 事件过程中参数KeyAscii的叙述中正确的是______。
# ]3 h* D. q; m" a　　A）KeyAscii 参数是所按键的ASCII码
　　B）KeyAscii参数的数据类型为字符串
$ Q  y3 O* C6 y" ?1 T$ S9 |& V. n2 U　　C）KeyAscii参数可以省略
$ k6 c2 V" n9 Q! j　　D）KeyAscii 参数是所按键上标注的字符
. A, E# z& Y. |6 i　　34．假定编写如下事件过程：
　　Private Sub Form_MouseMove(Button As Integer,Shift As Integer, _
5 P% @& p) e! m6 ^　　X As Single,Y As Single)
/ P# l+ q- `8 S! r* P　　If(Button And 2)=2 Then
+ D, \/ y- ~1 c6 J/ M7 g　　Print"Hi"
　　End If
( e2 ?& n% g' Z* {" v6 u　　End Sub
　　程序运行后，为了在窗体上输出“Hi”，应在窗体上执行以下______操作。
　　A）只能按下左按钮并拖动
" h* v# n# J5 N- J3 i7 j8 E　　B）只能按下右按钮并拖动
　　C）必须同时按下左）右按钮并拖动
/ Q9 N: d! a; v$ b2 n0 e9 @+ m+ e　　D）按下左按钮拖动或按下右按钮拖动都可
　　35．编写如下事件过程：
/ z1 E4 A6 f4 |% t/ U　　Private Sub Form_MouseDown(Button As Integer,Shift As Integer, _
- g! [" ^. Y4 ^　　X As Single,Y As Single)
　　If Shift=6 And Button=2 Then
　　Print "Hello"
  H; E6 B3 F( \2 w  e9 |# M# y　　End If
　　End Sub
　　程序运行后，为了在窗体上输出“Hello”，应在窗体上执行以下______操作。
' L! M- K7 W9 }' q  @1 e　　A）同时按下Shift键和鼠标左按钮
3 t: j, z3 u* S; u# _( b& \( R- M6 \& F　　B）同时按下Shift键和鼠标右按钮
3 p7 r: z: ~; J# w1 r　　C）同时按下Ctrl、Alt键和鼠标左按钮
' L/ |' n! L2 d! Y4 y- |　　D）同时按下Ctrl、Alt键和鼠标右按钮
. F% D2 e& Q3 Q' K# b　　36．在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False,程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：
　　Private Sub Command1_Click()
　　Timer1._________
　　End Sub
　　Private Sub Timer1_Timer()
　　Text1.Text = Time
　　End Sub
　　在______处应填入的内容是______。
& I: K0 w/ t) X. M& E　　A）Enabled=True
/ l% b4 P% g) m5 f/ x* G4 c　　B）Enabled=False
　　C）Visible=True
' T  U) I% p( Z' F　　D）Visible=False
　　37．假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是____。：
　　A）选择图片框，然后按Del键
　　B）执行语句Picture1.Picture=LoadPicture(“ ”)
- d8 N% v( f. H" q, ~) P　　C）执行语句Picture1.Picture=””
) ~/ g3 @7 Z1 `  l$ O4 x　　D）选择图片框，在属性窗口中选择Picture属性，然后按回车键
) u+ _( N* v6 d" |　　38.在窗体上画一个List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目，当单击列表框中的某个项目时，在标签中显示被选中的项目的名称，下列能正确实现上述操作的程序是____。
% b2 Y# y; o. M+ q: c, N, }$ l　　A） Private Sub List1_Click()
3 M; ^! @5 G% }" o# k6 g　　Label1.Caption = List1.ListIndex
; I5 X8 ^" N4 d　　End Sub
　　B） Private Sub List1_Click()
/ e9 n. Q( a! [& s% m: n% G　　Label1.Name = List1.ListIndex
　　End Sub
# H- P& }5 w3 v! {, L　　C） Private Sub List1_Click()
　　Label1.Name = List1.Text
　　End Sub
$ U- _1 w) O1 }1 A; D　　D） Private Sub List1_Click()
+ F. F3 q9 U0 }4 \) Q6 X9 O　　Label1.Caption = List1.Text
　　End Sub
6 Y+ s$ V2 W# D1 b  M3 q6 I　　39. 对窗体编写如下事件过程：
　　Private Sub Form _MouseDown(Button As Integer, _
　　Shift As Integer, X As Single ,Y As Single)
2 V3 V2 }8 p  a9 D( j0 ~; x6 a　　If Button =2 Then
# s) Z& H9 b8 v% `　　Print "AAAAA"
2 ^/ o" q0 T% k/ O　　End If
　　End Sub
- W8 _1 ?: `+ T. n8 i9 N7 m　　Private Sub Form _ MouseUp(Button As Integer, _
　　Shift As Integer, X As Single, Y As Single)
　　Print "BBBBB"
　　End Sub
　　程序运行后，如果单击鼠标右键，则输出结果为____。
　　A） AAAAA
4 V$ S& D8 n" {( ~6 z$ E; e6 ~% s　　BBBBB
　　B） BBBBB
3 G3 E8 a" T+ m' C; n　　AAAAA
" j. Z7 L6 N' \　　C） AAAAA
- _3 H$ l& m# ~. Y1 i　　D） BBBBB
　　40. 在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100，程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值。以下能实现上述操作的程序段是
　　A） Private Sub HScroll1_Change()
* B3 R6 W9 w- t9 X6 e7 R( n　　Text1.Text = HScroll1.Value
. w* ^; L& u4 _4 ~6 N! ]　　End Sub
　　B） Private Sub HScroll1_Click()
　　Text1.Text = HScroll1.Value
! _2 n. m. O# Y* X& o) O　　End Sub
) C5 ~' C3 M$ b( Y6 G6 ]　　C） Private Sub HScroll1_Change()
( a& A1 L# O: |8 N0 B% d  ~　　Text1.Text = HScroll1.Caption
0 I# d1 b6 ]- B　　End Sub
　　D） Private Sub HScroll1_ Click ()
5 d. Z$ r) }) [( }( S　　Text1.Text = HScroll1.Value
5 I! B/ v) s: ^* S. t! d" X* f$ b　　End Sub