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

久爱奥鹏晓林

一、单选题（共 20 道试题，共 100 分。）V 1.  在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序：Private Sub Command1_Click()Dim x,y,z As Integerx=5y=7z=0Text1.text=“”Call P1(x,y,z)Text1.Text=Str(x)End SubSub P1(ByVal a As Integer,ByVal b As Integer,c As Integer)c=a+bEnd Sub程序运行后，如果单击命令按钮，则在文本框中显示的内容是
A. 0
8 ^3 A& E; Z3 W; Z$ {B. 12
C. Str(z)
. N. I4 G9 ]+ X! Q0 D3 qD. 没有显示
      满分：5  分
2.  下列叙述中正确的是
A. 在窗体的Form_Load事件过程中定义的变量是全局变量
B. 局部变量的作用域可以超出所定义的过程
! Q7 P' u# q4 q; K7 }( |: z! w1 z* n: g$ wC. 在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程
D. 在调用过程时，所有局部变量被系统初始化为0或空字符串
      满分：5  分
  c5 k+ o) A' E3.  对窗体编写如下事件过程：Private Sub Form _MouseDown(Button As Integer, _ Shift As Integer, X As Single Y As Single)If Button =2 ThenPrint "AAAAA"End IfEnd Sub Private Sub Form _ MouseUp(Button As Integer, _ Shift As Integer, X As Single, Y As Single)Print "BBBBB"End
A. AAAAABBBBB"
6 }( R! o+ w9 `/ X& u7 N: N9 ZB. BBBBB
, B4 a0 X" [( m1 }C. AAAAA
D. "BBBBBAAAAA"
      满分：5  分
4.  以下叙述中错误的是
& }% P, N! @  i" NA. 一个工程中只能有一个Sub Main过程
B. 窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体
C. 窗体的Hide方法和Unload方法的作用完全相同
D. 若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体
& Q" C9 H! V" u* ?, v+ j      满分：5  分
& U8 v6 C- F& E5.  要清除组合框Combol中的所有内容，可以使用（ ）语句
A.
3 H& a; j1 ~5 u: E2 B' u6 gB. Combo1.Clear
C. Combo1.Delete
- H$ d1 t8 c4 j4 vD. Combo1.Remove
5 x6 Q, s' X2 g& s* W0 D      满分：5  分
6.  删除ListBox对象list1最后一个列表项的可行语句
A. list1.removeitem list1.listcount
B. list1.removeitem list1.listcount -1
7 y+ r; d6 \8 PC. list1.deleteitem list1.listcount -1
D. list1.deleteitem list1.listcount
. F) ^7 U0 A* E3 r$ `      满分：5  分
7.  以下程序的输出结果是Option Base 1Private Sub Command1_Click()Dim a(10),p(3) As Integerk=5For i=1 To 10a(i)=iNext iFor i=1 To 3p(i)=a(i*i)Next IFor i=1 To 3k=k+p(i)*2Next iPrint kEnd sub
A. 33
B. 28
C. 35
% X" K: Z+ u& Z; eD. 37
3 {  a# X( J1 ?: v/ l" u8 Q      满分：5  分
5 ]' u& Q  N7 s3 [$ Q$ R! u4 l7 `# _0 C8.  以下关于变量作用域的叙述中，正确的是
: @$ A; o( n5 ~9 B+ o+ [2 b3 p% z' OA. 窗体中凡被声明为Private的变量只能在某个指定的过程中使用
9 W9 q+ W- M. }2 E/ q! X/ M& HB. 全局变量必须在标准模块中声明
& a* a- P& i4 ^4 sC. 模块级变量只能用Private关键字声明
  z$ C0 ?1 K  a$ q3 SD. Static类型变量的作用域是它所在的窗体或模块文件
      满分：5  分
9.  下面关于多重窗体的叙述中，正确的是（）
6 @% q/ P& ~6 q8 }! e' L6 J, _7 PA. 作为启动对象的Main 子过程只能放在窗体模块内
0 N  S3 T1 Q# o6 kB. 如果启动对象是Main 子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载窗体或加载哪一个窗体
" u4 U  H8 ?! S- o/ ~C. 没有启动窗体，程序不能执行
" }+ E, r* I* z, Y4 D% ?* q6 \$ MD. 以上都不对
7 ~/ \# M  O: O      满分：5  分
* @/ D9 L, P% X0 F* ]- @" g* A  _10.  在窗体上有一个文本框控件，名称为TxtTime：一个计时器控件，名称为Timerl，要求每一秒钟在文本框中显示一次当前的时间。程序为：Private Sub Timer1_ ()TxtTime.text=TimeEnd Sub在下划线上应填入的内容是
4 J+ j* p# Q, NA. Enabled
* y# y+ G! n) @( ?B. Visible
C. Interval
D. Timer
5 }. {$ ?( v* G      满分：5  分
/ j3 a: q8 s) g" I11.  以下叙述中错误的是
# [1 o. |" X7 k9 M8 b9 qA. 下拉式菜单和弹出式菜单都用菜单编辑器建立
3 K* j% ]/ q+ p4 N0 R. l$ z* [$ m  RB. 在多窗体程序中，每个窗体都可以建立自己的菜单系统
C. 除分隔线外，所有菜单项都能接收Click事件
& A0 l& u& ^# L) j- Z& @D. 如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见
: Y! Q0 \8 F6 x. F      满分：5  分
12.  在一行内写多条语句时，语句之间要用某个符号分隔。这个符号是（）
A. ","
B. ；
C. 、
. F% j+ I6 l5 U+ V6 }7 _D. ：
      满分：5  分
13.  以下关系表达式中，其值为False的是
* r$ D: T, g7 t* {( t/ aA. """ABC"">""AbC"""
B. """the""<>""they"""
3 {' |/ K( C% G, C" I0 @0 V8 ^C. """VISUAL""=UCase(""Visual"")"
D. """Integer"">""Int"""
# H) P5 N$ D0 S9 Y; p, i% F; M      满分：5  分
/ p0 Q/ W  ~  X& V& F7 \0 x- M14.  在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim x As Integer,n As Integer x=1 n=0 Do While x窗体上有一组合框Combo1，并将下列项“Chardonnay”、“FunBlanc”、“Gewrzt”和“Zinfande”放置到组合框中，当窗体加载时的代码如下：Private Sub Form_Load()Combo1.AddIt
A. Text1.Text=Combo1.List(0)
B. Text1.Text=Combo1.List(1)
& Y: H9 F# N* y+ B7 ?+ F0 i  ~C. Text1.Text=Combo1.List(2)
D. Text1.Text=Combo1.List(3)
      满分：5  分
15.  假设有如下事件过程Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)If Button=2 ThenPopupMenu popFormEnd IfEnd Sub则以下描述中错误的是
9 e- r/ s# U+ k# w" o8 f; \* QA. 该过程的功能是弹出一个菜单
( _0 D" W2 ^/ x' j0 _B. popForm是在菜单编辑器中定义的弹出式菜单的名称
C. 参数X、Y指明鼠标的当前位置
D. Button=2表示按下的是鼠标左键
      满分：5  分
. y. P8 w. m  c' j# {4 S, j16.  阅读程序：Function F(a As Integer)b = 0Static cb = b+1c = c+1f = a+b+cEnd Function Private Sub Commandl_Click ()Dim a As Integera =2For i =1 To 3Print F(a)Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为
A. 4 4 4
% ]8 Q# V3 ]; tB. 4 5 6
& o4 {) U4 s" ?4 P) {/ V* mC. 4 6 8
D. 4 7 9
      满分：5  分
2 W& i! e$ T4 Y2 T8 E- n# x17.  不能实现向ListBox对象list1追加一项 “Test”的语句
7 p2 k: X/ V: J+ t( EA. list1.additem “Test”
B. list1.additem “Test” list1.listcount
C. list1.List（list1.listcount -1）= “Test”
2 D4 }! D6 J6 _8 @: xD. list1.List（list1.listcount）= “Test”
5 O0 \" S/ H7 t+ g, [6 b2 p  ]      满分：5  分
18.  在窗体上画一个名称为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程序运
- y$ ^/ c6 C" T# h/ ~5 `A. 15
$ v# F: Q! x2 N' [9 R$ z' G: y0 C1 h  SB. 14
C. 13
# A# _0 S* v  J2 X& k  ^! ?D. 12
0 M' Q/ p( V7 `  x% D: O      满分：5  分
19.  假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用的语句为
# Y1 {" ~5 g0 \. _A. MenuItem. Enabled=False
+ W5 f, l4 _! y) j: i, mB. MenuItem. Enabled=True
. B& y0 `  t% C# p- S! r5 T6 iC. MenuItem. Visible=True
+ ?# S2 Z9 F$ a  {2 [D. Menultem. Visible=False
      满分：5  分
20.  以下关于函数过程的叙述中，正确的是
' F- R; U1 l2 N3 |2 D7 @A. 函数过程形参的类型与函数返回值的类型没有关系
B. 在函数过程中，过程的返回值可以有多个
C. 当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
D. 如果不指明函数过程参数的类型，则该参数没有数据类型
) f* \1 W5 f5 _8 F% L2 g; e      满分：5  分

需要满分标准资料请直接加QQ :1306998094