DOC《全套试题2》

全套试题2 闭卷考试,考试时间120分钟 选择题(40分,每题2分) 在设计阶段,当双击窗体上的某个控件时,所打开的窗口是 A) 工程资源管理器窗口 B) 工具箱窗口 C) 代码窗口 D) 属性窗口 以下叙述中正确的是 A) 窗体的Name属性指定窗体的名称,用来标识一个窗体 B) 窗体的Name属性的值是显示在窗体标题栏中的文本 C) 可以在运行期间改变对象的Name属性的值 D) 对象的Name属性值可以为空 以下不能在 工程资源管理器 窗口中列出的文件类型是 A) .

bas B) .res C) .frm D) .ocx 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Move 500,500 End Sub 程序运行后,单击命令按钮,执行的操作为 A) 命令按钮移动到距窗体左边界、上边界各500的位置 B) 窗体移动到距屏幕左边界、上边界各500的位置 C) 命令按钮向左、上方向各移动500 D) 窗体向左、上方向各移动500 在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name 属性为Command1),然后编写如下两个事件过程: Private Sub Command1_Click() a=Text1.Text+Text2.Text Print a End Sub Private Sub Formm_Load() Text1 Text= Text2 Text= End sub 程序运行后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入123和321,然后单击命令按钮,则输出结果为 . A)

444 B)

321123 C)

123321 D)

132231 假定窗体上有一个标签,名为Labell,为了使该标签透明并且没有边框,则正确的属性设置为 . A) Label1. BackStyle=0 Label1.Borderstyle=0 B) Label1.BackStyle=1 Label1.Borderstyle=1 C) Label1.BackStyle=True Label1.BorderStyle=True D) Label1.BackStyle=False Label1.Borderstyle=False 设有如下变量声明 Dim TestDate As Date 为变量TestDate正确赋值的表达方式是 A) TextDate=#1/1/2002# B) TestDate=# 1/1/2002 # C) TextDate=date( 1/1/2002 ) D) TestDate=Format( m/d/yy , 1/1/2002 ) 设有如下声明: Dim X As Integer 如果Sgn(X) 的值为-1,则X的值是 A) 整数 B) 大于0的整数 C) 等于0的整数 D) 小于0的数 在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序: Private Sub Command1_Click() Static X As Integer Static Y As Integer Cls Y=1 Y=Y+5 X=5+X Print X,Y End Sub 程序运行时,三次单击命令按钮Commandl后,窗体上显示的结果为 A)

15 16 B)

15 6 C)

15 15 D)

5 6 设a=3,b=5,则以下表达式值为真的是 A) a>

=b And b>

10 B) (a>

b)Or(b>

0) C) (a0) D) (-3+5>

a)And(b>

0) 设有语句 x=InputBox( 输入数值 ,

0 , 示例 ) 程序运行后,如果从键盘上输入数值10并按回车键,则下列叙述中正确的是 A) 变量X的值是数值10 B) 在InputBox对话框标题栏中显示的是 示例 C) 0是默认值 D) 变量X的值是字符串

10 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim i As Integer,n As Integer For I=0 To

50 i=i+3 n=n+1 If i>

10 Then xit for Next Text1.Text=Str(n) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是 A)

2 B)

3 C)

4 D)

5 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim array1(10,10) As Integer Dim i,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)