单项选择题

在窗体上画一个名称为Text1的文本框，并编写如下程序：Option Base 1Private Sub Form_Click()　　Dim arr　　Dim Start As Integer， Finish As Integer　　Dim Sum As Integer　　arr＝Array(12， 4， 8， 16)　　Start＝LBound(arr)　　Finish＝UBound(arr)　　Sum＝0　　For i＝Start To Finish　　　　Sum＝Sum＋arr(i)　　Next i　　c＝Sum / Finish　　Text1.Text＝cEnd Sub运行程序，单击窗体，则在文本框中显示的是(　　)。

A．40
B．10
C．12
D．16

你可能感兴趣的试题

单项选择题

一棵二叉树中共有80个叶子结点与70个度为1的结点，则该二叉树中的总结点数为

A．219
B．229
C．230
D．231

单项选择题

下列叙述中正确的是

A．一个算法的空间复杂度大，则其时间复杂度也必定大
B．一个算法的空间复杂度大，则其时间复杂度必定小
C．一个算法的时间复杂度大，则其空间复杂度必定小
D．算法的时间复杂度与空间复杂度没有直接关系

单项选择题

对长度为10的线性表进行冒泡排序，最坏情况下需要比较的次数为

A．9
B．10
C．45
D．90

单项选择题

下列叙述中正确的是

A．循环队列中的元素个数随队头指针与队尾指针的变化而动态变化
B．循环队列中的元素个数随队头指针的变化而动态变化
C．循环队列中的元素个数随队尾指针的变化而动态变化
D．以上说法都不对

单项选择题

软件生命周期可分为定义阶段、开发阶段和维护阶段，下面不属于开发阶段任务的是

A．测试
B．设计
C．可行性研究
D．实现

单项选择题

构成计算机软件的是

A．源代码
B．程序和数据
C．程序和文档
D．程序、数据及相关文档

单项选择题

下面不能作为结构化方法软件需求分析工具的是

A．系统结构图
B．数据字典(DD)
C．数据流程图(DFD图)
D．判定表

单项选择题

在关系模型中，每一个二维表称为一个

A．关系
B．属性
C．元组
D．主码（键）

单项选择题

若实体A和B是一对多的联系，实体B和C是一对一的联系，则实体A和C的联系是

A．一对一
B．一对多
C．多对一
D．多对多

单项选择题

有三个关系R、S和T如下：
则由关系R和S得到关系T的操作是

A．选择
B．投影
C．交
D．并

单项选择题

以下合法的VB变量名是(　　)。

A．_x
B．2y
C．a#b
D．x_1_x

单项选择题

以下关于VB特点的叙述中，错误的是(　　)。

A．VB中一个对象可有多个事件过程
B．VB应用程序能以编译方式运行
C．VB应用程序从Form_Load事件过程开始执行
D．在VB应用程序中往往通过引发某个事件导致对对象的操作

单项选择题

Print Format(1234.56， "###.#")语句的输出结果是(　　)。

A．123.4
B．1234.6
C．1234.5
D．1234.56

单项选择题

Print Right("VB Programming"， 2)语句的输出结果是(　　)。

A．VB
B．Programming
C．ng
D．2

单项选择题

假定已在窗体上画了多个控件，其中有一个被选中，为了在属性窗口中设置窗体的属性，预先应执行的操作是(　　)。

A．单击窗体上没有控件的地方
B．单击任意一个控件
C．双击任意一个控件
D．单击属性窗口的标题栏

单项选择题

下列操作中不能向工程添加窗体的是(　　)。

A．执行"工程"菜单中的"添加窗体"命令
B．单击工具栏上的"添加窗体"按钮
C．右击窗体，在弹出的菜单中选择"添加窗体"命令
D．右击工程资源管理器，在弹出的菜单中选择"添加"命令，然后在下一级菜单中选择"添加窗体"命令

单项选择题

下列关于顺序文件的描述中，正确的是(　　)。

A．文件的组织与数据写入的顺序无关
B．主要的优点是占空间少，且容易实现记录的增减操作
C．每条记录的长度是固定的
D．不能像随机文件一样灵活地存取数据

单项选择题

下列操作说明中，错误的是(　　)。

A．在具有焦点的对象上进行一次按下字母键操作，会引发KeyPress事件
B．可以通过MousePointer属性设置鼠标光标的形状
C．不可以在属性窗口设置MousePointer属性
D．可以在程序代码中设置MousePointer属性

单项选择题

以下关于变量作用域的叙述中错误的是(　　)。

A．在窗体模块的声明部分声明的Private变量，其作用域是窗体内的所有过程
B．在标准模块的声明部分声明的Private变量，其作用域是模块内的所有过程
C．在窗体模块的声明部分声明的Pubilc变量，其作用域是本窗体的所有过程
D．在标准模块的声明部分声明的Pubilc变量，其作用域是应用程序的所有过程

单项选择题

下面关于文件叙述中错误的是(　　)。

A．VB数据文件需要先打开，再进行处理
B．随机文件每个记录的长度是固定的
C．不论是顺序文件还是随机文件，都是数据文件
D．顺序文件的记录是顺序存放的，可以按记录号直接访问某个记录

单项选择题

要使图像框(Image)中的图像能随着图像框的大小伸缩，应该设置的属性及值是(　　)。

A．AutoSize值为True
B．AutoRedraw值为True
C．Stretch值为True
D．BorderStyle值为0

单项选择题

如果要在窗体上画一个标签，应在工具箱窗口中选择的图标是(　　)。

单项选择题

列表框中被选中的数据项的位置可以通过一个属性获得，这个属性是(　　)。

A．List
B．ListIndex
C．Text
D．ListCount

单项选择题

了使一个复选框被禁用(灰色显示)，应把它的Value属性设置为(　　)。

A．0
B．1
C．2
D．False

单项选择题

下列关于利用通用对话框产生的文件对话框的相关属性的描述中，错误的是(　　)。

A．InitDir属性用于设置对话框中显示的起始目录
B．Filter属性用于设置对话框默认的过滤器
C．DefaultExt属性用于设置对话框中默认的文件类型
D．FileTitle属性用于存放对话框中所选择的文件名

单项选择题

下列事件的事件过程中，参数是输入字符ASCII码的是(　　)。

A．KeyDown事件
B．KeyUp事件
C．KeyPress事件
D．Change事件

单项选择题

以下关于单选按钮和复选框的叙述中，正确的是(　　)。

A．单选按钮和复选框都能从多个选项中选择一项
B．单选按钮和复选框被选中时，选中控件的Value属性值为True
C．是否使用框架控件将单选按钮分组，对选项没有影响
D．是否使用框架控件将复选框分组，对选项没有影响

单项选择题

窗体的MouseUp事件过程如下：Private Sub Form_MouseUp(Button As Integer， Shift As Integer， X As Single， Y As Single)　　……End Sub关于以上定义，以下叙述中错误的是(　　)。

A．根据Shift参数，能够确定使用转换键的情况
B．根据X、Y参数可以确定触发此事件时鼠标的位置
C．Button 参数的值是在MouseUp事件发生时，系统自动产生的
D．MouseUp是鼠标向上移动时触发的事件

单项选择题

设窗体上有一个水平滚动条HScroll1和一个命令按钮Command1，及下面的事件过程：Private Sub Form_Load()　　HScroll1.Min＝0　　HScroll1.Max＝100End SubPrivate Sub Command1_Click()　　HScroll1.Value＝70End Sub程序运行时单击命令按钮，则滚动条上滚动块位置的图示是(　　)。

单项选择题

窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据：Private Sub Command1_Click()　　Dim s1 As String， s2 As String　　Open "c：\d4.dat" For Append As #3　　Line Input #3， s1　　Line Input #3， s2　　Text1.Text＝s1＋s2　　Close End Sub该程序运行时有错误，应该进行的修改是(　　)。

A．将Open语句中的For Append改为For Input
B．将Line Input改为Line
C．将两条Line Input语句合并为Line Input #3， s1，s2
D．将Close语句改为Close #3

单项选择题

有如下程序：Private Sub Form_Click()　　Dim i As Integer， n As Integer　　For i＝1 To 20　　　　i＝i＋4　　　　n＝n＋i　　　　If i>10 Then Exit For　　Next　　Print nEnd Sub程序运行后，单击窗体，则输出结果是(　　)。

A．14
B．15
C．29
D．30

单项选择题

窗体上有1个名称为Command1的命令按钮，事件过程如下：Private Sub Command1_Click()　　Dim num As Integer， x As Integer　　num＝Val(InputBox("请输入一个正整数"))　　Select Case num　　　　Case Is>100　　　　　　x＝x＋num　　　　Case Is<90　　　　　　x＝num　　　　Case Else　　　　　　x＝x * num　　End Select　　Print x；End Sub运行程序，并在三次单击命令按钮时，分别输入正整数100、90和60，则窗体上显示的内容为(　　)。

A．0 0 0
B．0 0 60
C．0 90 0
D．100 0 60

单项选择题

编写如下程序：Private Sub Command1_Click()　　Dim m As Integer， n As Integer　　m＝1： n＝0　　Do While m<20　　　　n＝m＋n　　　　m＝3 * m＋1　　Loop　　Print m， nEnd Sub程序运行后，单击命令按钮Command1，输出结果为(　　)。

A．40 18
B．40 19
C．20 64
D．21 64

单项选择题

下列循环中，可以正常结束的是(　　)。

A．i＝10 Do i＝i＋1 Loop Until i<1
B．i＝1 Do i＝i＋1 Loop Until i＝10
C．i＝10 Do i＝i＋1 Loop While i>1
D．i＝10 Do i＝i－2 Loop Until i＝1

单项选择题

现有程序如下：Option Base 1Private Sub Form_Click()　　Dim x(5， 6)As Integer， y(5)As Integer　　For i＝1 To 5　　　　For j＝1 To 6　　　　　　x(i， j)＝Int(Rnd * 9＋1)　　　　Next j　　Next i　　Call f(5， 6， x， y)　　For i＝1 To 5　　　　Print y(i)；　　Next iEnd SubSub f(m As Integer， n As Integer， a()As Integer， b()As Integer)　　For i＝1 To m　　　　b(i)＝0　　　　For j＝1 To n　　　　 b(i)＝b(i)＋a(i， j)　　　　Next j　　Next iEnd Sub关于上述程序，以下叙述中正确的是(　　)。

A．调用过程语句有错，参数不匹配
B．程序有错，数组下标越界
C．y数组中保存的是x数组每行数据之和
D．x数组中数据的取值范围是1－10

单项选择题

窗体上有一个名称为Label1的标签；一个名称为Timer1的计时器，其Enabled和Interval属性分别为True和1000。编写如下程序：Dim n As IntegerPrivate Sub Timer1_Timer()　　ch＝Chr(n＋Asc("A"))　　Label1.Caption＝ch　　n＝n＋1　　n＝n Mod 4End Sub运行程序，将在标签中( )。

A．不停地依次显示字符"A"、"B"、"C"、"D"，直至窗体被关闭
B．依次显示字符"A"、"B"、"C"、"D"各一次
C．每隔1秒显示字符"A"一次
D．每隔1秒依次显示26个英文字母中的一个

单项选择题

要求在程序运行时，如果按住鼠标左键不放而移动鼠标，鼠标的位置坐标同步显示在窗体右上角的标签(名称为Label1)中，如右图所示，放开鼠标左键后，停止同步显示。
下面可以实现此功能的程序是(　　)。

A．Private Sub Form_MouseDown(Button As Integer， Shift As Integer， X As Single， Y As Single) Y As Single) If Button＝1 Then Label1＝"X＝" & X & " Y＝" & Y End If End Sub
B．Private Sub Form_MouseUp(Button As Integer， Shift As Integer， X As Single， Y As Single) Y As Single) If Button＝1 Then Label1＝"X＝" & X & " Y＝" & Y End If End Sub
C．Private Sub Form_MouseMove(Button As Integer， Shift As Integer， X As Single， Y As Single) Y As Single) If Button＝1 Then Label1＝"X＝" & X & " Y＝" & Y End If End Sub
D．Private Sub Form_MouseMove(Button As Integer， Shift As Integer， X As Single， Y As Single) Y As Single) Label1＝"X＝" & X & " Y＝" & Y End Sub

单项选择题

窗体上有一个名为List1的列表框和一个名为Command1的命令按钮，并有下面的事件过程：Private Sub Command1_Click()　　n%＝List1.ListIndex　　If n>0 Then　　　　ch$＝List1.List(n)　　　　List1.List(n)＝List1.List(n－1)　　　　List1.List(n－1)＝ch　　End IfEnd Sub程序运行时，选中1个列表项，然后单击Command1按钮，则产生的结果是(　　)。

A．若选中的不是最前面的列表项，则选中的列表项与它前一个列表项互换位置
B．选中的列表项与它前面的列表项互换位置
C．若选中的不是最后面的列表项，则选中的列表项与它后一个列表项互换位置
D．选中的列表项与它后面的列表项互换位置

单项选择题

在窗体上画一个名称为Text1的文本框，并编写如下程序：Option Base 1Private Sub Form_Click()　　Dim arr　　Dim Start As Integer， Finish As Integer　　Dim Sum As Integer　　arr＝Array(12， 4， 8， 16)　　Start＝LBound(arr)　　Finish＝UBound(arr)　　Sum＝0　　For i＝Start To Finish　　　　Sum＝Sum＋arr(i)　　Next i　　c＝Sum / Finish　　Text1.Text＝cEnd Sub运行程序，单击窗体，则在文本框中显示的是(　　)。

A．40
B．10
C．12
D．16

单项选择题

在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下事件过程：Private Sub Command1_Click()　　Dim arr(10)　　For i＝6 To 10　　　　arr(i)＝i－5　　Next i　　Label1.Caption＝arr(0)＋arr(arr(10)/ arr(6))End Sub运行程序，单击命令按钮，则在标签中显示的是(　　)。

A．0
B．1
C．2
D．3