(单选题)1: 为使计时器控件每隔5秒钟产生一个计时器事件（Timer事件），则应将其Interval属性值设置为（ ）
A: 5
B: 500
C: 300
D: 5000


(单选题)2: 以下程序的输出结果是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
D: 37


(单选题)3: 关于记录集的常用方法说法不正确的
A: EOF属性用于获得是否到达记录集末尾
B: BOF属性用于获得是否到达记录集开始
C: AbsolutionPostion属性用于获得记录的当前位置
D: RecordCount属性用于获得精确的记录数量


(单选题)4: 有如下语句：Open “test.dat” For Random As #1 Len =20，表示文件f1.dat每个记录的长度等于（ ）
A: 20个字符
B: 20个字节
C: 或小于20个字符
D: 或小于20个字节


(单选题)5: 假定窗体上有一个Text1文本框，为使它的文本内容位于中间并且没有边框，则正确的属性设置为
A: Text1.Alignment=1: Text1.BorderStyle=0
B: Text1.Alignment=2: Text1.BorderStyle=1
C: Text1.Alignment=1 : Text1.BorderStyle=1
D: Text1.Alignment=2 : Text1.BorderStyle=0


(单选题)6: 关于Line语句正确的说法是
A: Line只能绘制直线
B: Line可以绘制矩形，但是不可以设置填充色
C: Line在绘制矩形，填充色由FillColor属性决定
D: Line在绘制矩形，填充色由forecolor属性决定


(单选题)7: 文件列表框的Pattern属性的作用是（ ）
A: 显示当前驱动器或指定驱动器上的目录结构
B: 显示当前驱动器或指定驱动器上的某目录下的文件名
C: 显示某一类型的文件
D: 显示该路径下的文件


(单选题)8: 执行语句Open“Tel.dat”For Random As #l Len=50后，对文件Tel.dat中的数据能够执行的操作是
A: 只能写，不能读
B: 只能读，不能写
C: 既可以读，也可以写
D: 不能读，不能写


(单选题)9: 在窗体上画两个文本框(其Name 属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程：Private Sub Command1_Click()x=0Do While x<50x=(x+2)*(x+3)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为
A: 1和0
B: 2和72
C: 3和50
D: 4和168


(单选题)10: 列表框控件中的列表内容是通过（ ）属性设置的
A: Name
B: Caption
C: List
D: Text


(单选题)11: 删除ListBox对象list1最后一个列表项的可行语句
A: list1.removeitem list1.listcount
B: list1.removeitem list1.listcount -1
C: list1.deleteitem list1.listcount -1
D: list1.deleteitem list1.listcount


(单选题)12: 为了把窗体上某个控件变成活动控件，应执行的操作是
A: 单击窗体的边框
B: 单击控件的内部
C: 双击控件
D: 双击窗体


(单选题)13: 在如下工具栏按钮事件处理函数中，空白处应当添加的语句为Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case ...End select End Sub
A: Button
B: Button.index
C: Button.key=true
D: Button.text


(单选题)14: 以下能够正确计算n!的程序是
A: Private Sub Command1_Click()n=5:x=1Dox=x*ii=i+1Loop While i<nPrint xEnd Sub
B: Private Sub Command1_Click()n=5:x=1:i=1Dox=x*ii=i+1Loop While i<nPrint xEnd Sub
C: Private Sub Command1_Click()n=5:x=1:i=1Dox=x*ii=i+1Loop While i<=nPrint xEnd Sub
D: Private Sub Command1_Click()n=5:x=1:i=1Dox=x*ii=i+1Loop While i>nPrint xEnd Sub


(单选题)15: 刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是
A: 单选按钮
B: 图片框
C: 通用对话框
D: 文本框


(单选题)16: 窗体中有3个按钮Command1、Command2和Command3，该程序的功能是当单击按钮Command1时，按钮2可用，按钮3不可见，正确的程序是
A: Private Sub Command1_Click( ) Command2.Visible=True :Command3.Enabled=TrueEnd Sub
B: Private Sub Command1_Click( ) Command2.Visible=False:Command3.Enabled=False End Sub
C: Private Sub Command1_Click( ) Command2.Enable=True :Command3.Visible=FalseEnd Sub
D: Private Sub Command1_Click( ) Command2.Enabled=False : Command3.Visible=False End Sub


(单选题)17: 从键盘上输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是
A: Left
B: Mid
C: String
D: Instr


(单选题)18: 设有如下声明：Dim X As Integer如果Sgn(X) 的值为-1，则X的值是
A: 整数
B: 大于0的整数
C: 等于0的整数
D: 小于0的数


(单选题)19: 为了保存一个VB应用程序，下列中正确的是
A: 只保存窗体文件（.frm）
B: 只保存工程文件（.vbp）
C: 分别保存工程文件和窗体文件
D: 分别保存工程文件和标准模块文件（.bas）


(单选题)20: 在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：Private Sub TxtA_KeyPress(keyascii as integer)……End Sub若焦点位于文本框中，则能够触发KeyPress事件的操作是
A: 单击鼠标
B: 双击文本框
C: 鼠标滑过文本框
D: 按下键盘上的某个键

(责任编辑：admin)要这答案加QQ：800020900 或加微信：vq800020900 获取