发布时间 : 星期二 文章全套试题.doc更新完毕开始阅读
莂
罿全套试题2
螇闭卷考试，考试时间120分钟
羄 一、
二、蒂选择题（40分，每题2分）
(1)
(2) 莀在设计阶段，当双击窗体上的某个控件时，所打开的窗口是
膅A) 工程资源管理器窗口 B) 工具箱窗口
螃C) 代码窗口 D) 属性窗口 (3)
(4) 蒂以下叙述中正确的是
蒇A) 窗体的Name属性指定窗体的名称，用来标识一个窗体
袆B) 窗体的Name属性的值是显示在窗体标题栏中的文本
薁C) 可以在运行期间改变对象的Name属性的值
薂D) 对象的Name属性值可以为空 (5)
(6) 袇以下不能在“工程资源管理器”窗口中列出的文件类型是
莄A) .bas B) .res C) .frm D) .ocx (7)
(8) 薄在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
蚂
Private Sub Command1_Click()
Move 500，500
芈
肆End Sub
莃
程序运行后，单击命令按钮，执行的操作为
螂A) 命令按钮移动到距窗体左边界、上边界各500的位置
虿B) 窗体移动到距屏幕左边界、上边界各500的位置
蒄C) 命令按钮向左、上方向各移动500
肂D) 窗体向左、上方向各移动500 (9)
(10)袂在窗体(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
莆(11)
(12)肁假定窗体上有一个标签，名为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
蒅(13)
(14)薆设有如下变量声明
芇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”) (15)
(16)螅设有如下声明：
肂Dim X As Integer
如果Sgn(X) 的值为-1，则X的值是
莈A) 整数 B) 大于0的整数 C) 等于0的整数 D) 小于0的数 (17)
(18)蒇在窗体上画一个名称为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 (19)
(20)肅设a=3,b=5，则以下表达式值为真的是
莂A) a>=b And b>10 B) (a>b)Or(b>0)
螀C) (a<0)Eqv(b>0) D) (-3+5>a)And(b>0) (21)
(22)螈设有语句
螇x=InputBox(“输入数值”，“0”，“示例”)
莅程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是
袀A) 变量X的值是数值10 B) 在InputBox对话框标题栏中显示的是“示例”
腿C) 0是默认值 D) 变量X的值是字符串“10” (23)
(24)芄在窗体上画一个名称为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
膀程序运行后，单击命令按钮，在文本框中显示的值是
羀
蕿
羆
羂
肀
蚆
蒄
蚁