(单选题)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.removeitemlist1.listcount
B:list1.removeitemlist1.listcount-1
C:list1.deleteitemlist1.listcount-1
D:list1.deleteitemlist1.listcount


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


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


(单选题)14:以下能够正确计算n!的程序是
A:PrivateSubCommand1_Click()n=5:x=1Dox=x*ii=i+1LoopWhilei<nPrintxEndSub
B:PrivateSubCommand1_Click()n=5:x=1:i=1Dox=x*ii=i+1LoopWhilei<nPrintxEndSub
C:PrivateSubCommand1_Click()n=5:x=1:i=1Dox=x*ii=i+1LoopWhilei<=nPrintxEndSub
D:PrivateSubCommand1_Click()n=5:x=1:i=1Dox=x*ii=i+1LoopWhilei>nPrintxEndSub


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


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


(单选题)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 获取