VB程序选择题
作者：jnscsh 时间：2020-07-10 14:18:02 浏览次数：次
1
在以下有关对象属性的叙述中，不正确的是__A___。
A、一个对象的所有属性都可在属性窗口的列表中进行设置。
B、一个对象的属性可分为外观、行为等若干类。
C、属性窗口中的属性列表既可按字母序也可按类别排列。
D、不同属性可能具有不同的数据类型。
2
引用列表框(List1)最后一个数据项应使用___D__。
A、List1.List(List1.ListCount) B、List1.Lis(ListCount) C、List1.List(ListCount-1) D、List1.List(List1.ListCount-1) 3
表达式 Len("123 程序设计 ABC")的值是_____A_______。
A、10 B、20 C、17 D、14 4
表达式 16/4-2^5*8/4 MOD 5/2 的值为____D________。
A、2 B、14 C、20 D、4 5
设 a 为 Integer 型变量，s 为 Single 型变量，把 3.75 赋值给 s 后，再执行下列某一语句，则在文本框中显示 的结果与执行语句 a=s:Text1=a 的结果相同的有__C___个。
①a=Int(s):Text1=a ②a=Fix(s):Text1=a ③a=CInt(s):Text1=a ④a=Format(s,"#####"):Text1=a A、4 B、1 C、2 D、3 6
执行以下程序，在窗体上显示的第二行内容是___A______。
Private Sub Command1_Click() Dim x%, y% x = 10 y = 15 Call value(x, y) Print x;y End Sub Private Sub value(ByVal m%, n%) m = m * 2 n = n - 5 Print m; n
End Sub A、10
10 B、20
15 C、20
10 D、10
15 7
若磁盘文件 C:\Data1.dat 不存在，下列打开文件语句中，会产生错误的是____A____。
A、Open"C:\Data1.dat" For Input As #2 B、Open"C:\Data1.dat" For Append As #3 C、Open"C:\Data1.dat" For Output As #1 D、Open"C:\Data1.dat" For Binary As #4 8
要实现驱动器列表框、目录列表框及文件列表框之间数据的同步，须在驱动器列表框和目录列表框的 Change 事件分别添加以下代码__A______。
A、Dir1.Path=Drive1.Drive File1.Path=Dir1.Path B、File1.Path=Drive1.Drive Dir1.Path=Drive1.Drive C、Dir1.Path=Drive1.Drive File1.Path=Drive1.Drive D、File1.Path=Dir1.Path Dir1.Path=Drive1.Drive 9
执行 VB 工程时第一次出现的窗体称启动窗体，关于该窗体的叙述不正确的是__C___。
A、若不对启动窗体进行设置，工程中的第一个窗体默认为启动窗体
B、启动窗体和其他窗体一样可以隐藏和关闭
C、启动窗体一般作为用户工作的界面，不可更改
D、启动窗体可进行设置，设置方法是执行“工程”菜单中的“属性”
10
任何控件都具有__A___属性。
A、Name
B、Text
C、Caption
D、ForeColor
11
当用户单击命令按钮时，_B____属性可以使得命令按钮对激发事件无效。
A、Default B、Enabled C、Name D、Cancel 12
程序代码如下，当单击窗体上 Command1 控件时，窗体上显示的结果是____B_____。
Option Base 1 Private Sub Command1_Click( ) Dim i As Integer Dim x(3,3)As Integer For i = 1 To 3 For j = 1 To 3 x(i,j) = (i-1) * 3+j Next j Next i For i = 1 To 3 Print x(i,4-i)
Next i End Sub A、1 4 7 B、3 5 7 C、3 6 9 D、1 5 9 13
以下有关对象属性的说法中正确的是_A ____。
A、对象的某些属性即可在属性窗口设置，也可以通过属性代码设置或改变。
B、不同对象不可能有同名属性 C、对象所有的属性都罗列在属性窗口列表 D、不同对象的同名属性取值一定相同 14
当移动控件，重新设定其尺寸时，_D____属性会自动改变。
A、Cancel、Default B、Click、Change C、Name、Caption D、Top、Left 15
下列控件中，没有 Caption 属性的是__C___。
A、单选按钮 B、框架 C、列表框 D、复选框 16
下列叙述不正确的是__C__________。
A、注释语句是非执行语句，仅对程序的有关内容起注释作用，它不被解释和编译 B、注释语句可以作为代码中的一行 C、注释语句不可以放在其他语句的后面 D、代码中加入注释语句的目的是提高程序的可读性 17
有变量定义语句 Dim a, b As integer, 变量 a 的类型和初值是___D_____。
A、String,"" B、Integer,0 C、Long,0,0
D、Variant,空值 18
设整型变量 a、b 的当前取值分别为 200 与 20，以下赋值语句中不能正确执行的是___D_____。
A、Text1=“200”*a/b B、Text1=a/b*a C、Text1=a&b&a D、Text1=a*a/b 19
下列叙述不正确的是____C_______ .
A、代码中加入注释语句的目的的提高程序的可读性
B、注释语句是非执行语句，仅对程序的有关内容起注释作用，它不被解释和编译 C、注释语句可以放在代码中的任何位置
D、注释语句不能放在续行符的后面
20
假定时钟控件的 Interval 属性为 1000，Enabled 属性为 True，并且有下面的事件过程，则 1 秒钟的时候 窗体上将输出__A___个字母"a"。
Private Sub Timer1_Timer()
For i = 1 To 10
Print "a"
Next i End Sub A、10 次 B、10000 次 C、以上都不对 D、1 000 次 21
下面程序的运行结果是__D___。
Private Sub Command1 Click ( )
x=1: y=1
For i=1 TO 3
x=x+y: y=y+x
Next i
Print x;y End Sub A、34 35 B、5 8 C、6 6 D、13 21
22
以下程序段运行后，消息框的输出结果是
C a=sqr(5) b=sqr(3) c=a>b Msgbox c+2 A、2 B、-1 C、1 D、出错 23
下面有关数组处理的叙述中，不正确的是__A_____。
①控件数组可由多个控件组成，这些控件具有相同的名字 ②控件数组中的元素可以是不同类型的控件 ③用 ReDim 语句重新定义动态数组时，不得改变该数组 的数据类型 ④可用 Public 语句在窗体模块的通用说明处定义一个全 局数组 A、②④ B、①③④ C、①②③ D、①②③④
24
下面关于随机文件的描述不正确的是__D_______。
A、每条记录的长度必须相同 B、可通过编程对文件中的某条记录方便地修改 C、一个文件中记录号不必唯一 D、文件的组织结构比顺序文件复杂 25
要从磁盘上新建一个文件名为"c:\t1.txt"顺序文件，如下___A_________正确。
A、Open "c:\t1.txt" For Output As #2 B、F="c:\t1.txt" Open "F" For Output As #2 C、Open c:\t1.txt For Output As #2 D、F="c:\t1.txt" Open F For Append As #2 26
VisualBasic 标题栏上显示了应用程序的_c____。
A、名称 B、位置 C、状态 D、大小 27
在程序中可以通过复选框和单选框按钮的__B___属性值来判断它们的当前状态。
A、Checked B、Value C、Selected D、Caption 28
语句 Print 4 + 5\6*7/8 Mod 9 的值是____A________。
A、5 B、4 C、6 D、7 29
下面____D________是不合法的整常数。
A、100 B、&O100 C、&H100 D、%100 30
以下不合法的常量是____A_________.
A、10^2
B、100
C、10E+01
D、100.0
31
在窗体上画一个命令按钮名为 Command1，然后编写如下事件过程: Option Base 0 Private Sub Command1_Click() Dim city As Variant city = Array("Beijing", "Shanghai", "NewYork", "London") Print city(4)
End Sub 程序运行后，屏幕显示__A______ A、出错 B、空白 C、London D、Beijing Shanghai NewYork London 32
以下程序输出的结果是____B________。
Dim a a=Array(1,2,3,4,5,6,7) For i=Lbound(a)To Ubound(a) a(i)= a(i)*a(i) Next i Print a(i) A、49 B、程序出错 C、不确定 D、0 33
随机文件是因为_____C_______。
A、文件的每条记录的长度是随机的 B、文件中的内容是通过随机数产生的 C、可对文件中的记录根据记录号随机地读写 D、文件中的记录号通过随机数产生的 34