下面关于VB应用程序的叙述中正确的是

单项选择题

下列关于栈的叙述中，正确的是

A．栈底元素一定是最后入栈的元素
B．栈顶元素一定是最先入栈的元素
C．栈操作遵循先进后出的原则
D．以上说法均错误

单项选择题

设循环队列的存储空间为Q(1: 35)，初始状态为front=rear=35。现经过一系列入队与退队运算后，front=15，rear=15，则循环队列中的元素个数为

A．15
B．16
C．20
D．0或35

单项选择题

设变量x中的值是395，则下面语句的输出是 Print x \ 100 + ((x Mod 100) \ 10) * 10 + (x Mod 10) * 100

A．935
B．395
C．539
D．593

单项选择题

如果要定义一个窗体级变量，定义变量语句的位置应该是

A．在使用该变量的过程中
B．在该窗体模块所有过程的前面
C．在该窗体模块所有过程的后面
D．在某个标准模块中

单项选择题

如果把程序的启动对象设置为：Sub Main，则Sub Main过程

A．只能写在Form1窗体中代码的最前面
B．可以写在Form1窗体中代码的任何位置
C．只能写在某个标准模块的代码中
D．可以写在任何窗体或标准模块的代码中

单项选择题

设有下面的程序段： x = InputBox("请输入一个整数") ReDim a(x) For k = x To 0 Step -1 a(k) = k Next k一般，在这段程序之前应先进行数组a的定义。下面定义语句中正确的是 A) B) C) D) 答案：

A．Dim a(100) As Integer
B．Dim a() As Integer
C．Dim a As Integer
D．Dim a(0 To 100) As Integer

单项选择题

设有以下过程：Private Sub proc(x As Integer, Optional y As Integer) Print x, yEnd Sub针对此过程，下面正确的过程调用语句是

A．Call proc(a!, 23)
B．Call proc x%, 12
C．proc b%
D．x = proc(12)

单项选择题

下面语句中能够打开随机文件的是

A．Open "file.txt" For Random As #1
B．Open "file.txt" For Input As #1
C．Open "file.txt" For Output As #1
D．Open "file.txt" For Append As #1

单项选择题

文本框的Locked属性被设置为True后产生的效果是

A．光标不能进入文本框
B．不能使文本框中的文本左右滚动
C．不能修改文本框中的文本
D．在程序中不能引用文本框的内容

单项选择题

下面关于直线控件的叙述中正确的是

A．它的X1、X2属性值必须满足X1B．如果显示的是一条垂直线，直线上面端点的坐标一定是（X1，Y1）
C．如果有2个直线控件Line1和Line2，若Line1.X1 = Line2.X2，则2条线有一端相连
D．上述都是错误的

单项选择题

下面叙述中错误的是

A．由于窗体不能获得焦点，所以窗体没有键盘事件
B．框架控件没有键盘事件
C．标签控件没有键盘事件
D．文本框有键盘事件，但当Enabled属性被设置为False时，其键盘事件无法被激活

单项选择题

设窗体上有一个Text1文本框和一个HScroll1水平滚动条，并有下面的事件过程： Private Sub HScroll1_Change() Text1 = HScroll1 End Sub在程序运行时，当把滚动框移动到最左边时，文本框中显示的是100；当把滚动框移动到最右边时，文本框中显示的是1。根据这些信息，下面的判断中错误的是

A．滚动条的Max和Min属性的值分别是1 和100
B．滚动条的Max和Min属性的值分别是100 和1
C．文本框中显示的是滚动条Value属性的值
D．如果把滚动框移动到中间位置，文本框中将显示50

单项选择题

设窗体上有1个名称为List1的列表框，程序运行时，如果选中了第3个列表项（最上面的列表项为第0个列表项），则下面不成立的是

A．List1.Selected(List1.ListIndex)的值为True
B．List1.Selected(3)的值为True
C．List1.List(3)的值为True
D．List1.ListIndex的值为3

单项选择题

利用通用对话框控件打开字体对话框的操作是

A．把通用对话框控件的Action属性设置为4
B．把通用对话框控件的Action属性设置为5
C．调用通用对话框控件的OpenFont方法
D．调用通用对话框控件的ShowText方法

单项选择题

为了显示弹出式菜单，要使用

A．窗体的PopupMenu方法
B．窗体的OpenMenu方法
C．菜单的PopupMenu方法
D．菜单的OpenMenu方法

单项选择题

为了实现对象的自动拖放，应该设置该对象的一个属性。下面设置中正确的是

A．DragMode=1
B．DragMode=0
C．DragIcon=1
D．DragIcon=0

单项选择题

设工程中有2个窗体：Form1和Form2，每个窗体上都有一个名称为Text1的文本框。若希望把Form1上文本框中的内容复制到Form2上的文本框中，应进行的操作是

A．执行Form1中的语句：Form1.Text1 = Form2.Text1
B．执行Form1中的语句：Text1 = Form1.Text
C．执行Form2中的语句：Form1.Text1 = Text1
D．执行Form2中的语句：Text1 = Form1.Text1

单项选择题

设窗体上有一个Picture1图片框，要求在图片框中的指定位置（坐标为（500，300））输出"OK"，下面可以实现这一功能的事件过程是

A．Private Sub Form_Click() Picture1.CurrentX = 500 Picture1.CurrentY = 300 Picture1.Print "OK" End Sub
B．Private Sub Form_Click() Picture1.Left = 500 Picture1.Top = 300 Picture1.Print "OK" End Sub
C．Private Sub Form_Click() Picture1.CurrentX = 500 Picture1.CurrentY = 300 Print "OK" End Sub
D．Private Sub Form_Click() Picture1.Left = 500 Picture1.Top = 300 Print "OK" End Sub

单项选择题

三角形的构成条件是：任意2边之和大于第3边。设变量a、b、c是3条直线的长度，要求判断这3条直线能否构成一个三角形。下面有3个程序段可以正确判断，另一个不能正确判断的是

A．If a + b > c And a + c > b And b + c > a Then Print "可以构成一个三角形" Else Print "不能构成三角形" End If
B．If a + b > c Or a + c > b Or b + c > a Then Print "可以构成一个三角形" Else Print "不能构成三角形" End If
C．If a + b <= c Or a + c <= b Or b + c <= a Then Print "不能构成三角形" Else Print "可以构成一个三角形" End If
D．If a + b <= c Or a + c <= b Then Print "不能构成三角形" ElseIf b + c <= a Then Print "不能构成三角形" Else Print "可以构成一个三角形" End If

单项选择题

有下面程序代码： Private Sub Command1_Click() i = 1 Do While i < 5 j = 1 Do j = j + 1 Print ""; Loop Until i + j > 10 Print i = i + 2 Loop End Sub 程序运行时输出字符""的个数是

A．50
B．20
C．16
D．15

单项选择题

下面程序的功能是输出100以内所有素数：Private Sub Command1_Click() For n = 2 To 100 isprime = True k = 2 Do While k <= n / 2 And __________ If n Mod k = 0 Then isprime = False k = k + 1 Loop If isprime Then Print n End If Next nEnd Sub为使上面程序可以实现该功能，程序代码中横线处应填写的代码是

A．isprime
B．Not isprime
C．n<100
D．n<=100

单项选择题

设有下面程序代码： Private Sub Command1_Click() Dim a As Variant a = Array(22, 43, 23, 56, 87, 45, 67, 12, 98, 98, 56, 34, 23, 75, 64) m = a(0) n = m For k = 1 To UBound(a) If a(k) > m Then n = m m = a(k) ElseIf a(k) > n And a(k) <> m Then n = a(k) End If Next k Print n End Sub 程序运行时的输出是

A．数组中最大的数（即98）
B．数组中最小的数（即12）
C．数组中第2大的数（即87）
D．数组中第1个数（即22）

单项选择题

设有下面程序代码： Private Sub Command1_Click() Dim str As String, ch As String str = "Visual Basic Programming" ch = "a" n = fun(ch, str) Print str, n End Sub Private Function fun(ch As String, str As String) As Integer Dim strbuf As String, c As String, n As Integer For k = 1 To Len(str) c = Mid$(str, k, 1) If c <> ch Then strbuf = strbuf & c Else strbuf = strbuf & UCase(c) n = n + 1 End If Next k str = strbuf fun = n End Function 程序运行时的输出是

A．Visual Basic Programming 0
B．VisuAl BAsic ProgrAmming 3
C．Visul Bsic Progrmming 3
D．VisualBasicProgramming 2

单项选择题

设有下面程序代码：Option Base 1Private Sub Command1_Click() Dim x(6) a = Array(4, 2, 5, 1, 6, 3) b = Array(64, 24, 98, 27, 58, 41) For k = 1 To 6 x(a(k)) = b(k) Next k For k = 1 To 6 Print x(k); Next kEnd Sub程序运行时的输出是

A．27 24 41 64 98 58
B．64 24 98 27 58 41
C．24 27 41 58 64 98
D．98 64 58 41 27 24

单项选择题

由高中数学可知，对于连续函数f(x)，若f(x1)与f(x2)值的符号相反，则在x1和x2之间必存在x0，使得f(x0)=0（该点称为"零点"）。设有VB函数：Private Function f(x As Single) As Single 可以返回f(x)的值（函数体没有给出）。下面程序的功能是从键盘输入2个实数x1、x2，判断在x1、x2之间是否存在零点。Private Sub Command1_Click() Dim x1 As Single, x2 As Single x1 = InputBox("请输入一个实数x1") x2 = InputBox("请再输入一个实数x2") If ( ____________ ) Then Print "在"; x1; "与"; x2; "之间存在零点" Else Print "不能确定在"; x1; "与"; x2; "之间是否存在零点" End IfEnd SubPrivate Function f(x As Single) As Single ……End Function为使上面程序可以实现该功能，程序代码中横线处应填写的代码是

A．f(x1) >0 Or f(x2) < 0
B．f(x1) < 0 And f(x2) < 0
C．f(x1) * f(x2) < 0
D．f(x1) * f(x2) > 0

单项选择题

设窗体上有3个图像框：Image1、Image2、Image3，并有下面的程序代码：Private Sub Form_Load() Image1.Picture = LoadPicture("LEAF.bmp") Image2.Picture = LoadPicture("OPEN.bmp") Image3.Visible = FalseEnd SubPrivate Sub Image1_Click() Image2.Picture = Image1.PictureEnd SubPrivate Sub Image2_Click() Image3.Picture = Image2.Picture Image2.Picture = Image1.Picture Image1.Picture = Image3.PictureEnd Sub在程序运行期间单击Image2，则在窗体上看到的结果是

A．在Image3中显示Image2中的图片
B．Image1、Image2中原有图片被交换了
C．Image1、Image2中都是原来Imege1中的图片
D．Image1、Image2中都是原来Imege2中的图片

单项选择题

设窗体上有一个名称为List1的列表框和一个名称为Check1的复选框数组（下标从0开始）。程序运行时，单击某个复选框，如果列表框中没有该复选框的标题，则把该复选框的标题添加到列表框中，否则从列表框中把该复选框标题删除。Private Sub Check1_Click(Index As Integer) For k = 0 To List1.ListCount - 1 If Check1(Index).Caption = List1.List(k) Then Exit For End If Next k If k < List1.ListCount Then List1.RemoveItem k Else List1.AddItem______________________ End IfEnd Sub 为使上面程序可以实现该功能，程序代码中横线上应该填入的代码是

A．k
B．Check1.Caption
C．Check1(k)
D．Check1(Index).Caption

单项选择题

窗体上有一个名称为Shape1并显示为圆的形状控件（其Width和Height属性值相等），一个名称为Timer1的计时器，并有下面程序代码： Dim r As Single, flag As Integer Private Sub Form_Load() r = Shape1.Width Timer1.Enabled = True Timer1.Interval = 500 End Sub Private Sub Timer1_Timer() If flag = 0 Then Shape1.Width = Shape1.Width - 10 If Shape1.Width <= 100 Then flag = 1 End If Else Shape1.Width = Shape1.Width + 10 If Shape1.Width >= r Then flag = 0 End If End If End Sub 运行程序后产生的结果是

A．圆逐渐缩小，再逐渐增大，然后再逐渐缩小，依此往复
B．圆一直在缩小
C．圆每隔0.5秒向右移动一次
D．圆每隔1秒向下移动一次

单项选择题

下面不属于软件设计阶段任务的是

A．软件总体设计
B．算法设计
C．制定软件确认测试计划
D．数据库设计

下面关于VB应用程序的叙述中正确的是

你可能感兴趣的试题

下列关于栈的叙述中，正确的是

设循环队列的存储空间为Q(1: 35)，初始状态为front=rear=35。现经过一系列入队与退队运算后，front=15，rear=15，则循环队列中的元素个数为

下列链表中，其逻辑结构属于非线性结构的是

在关系数据库中，用来表示实体间联系的是

公司中有多个部门和多名职员，每个职员只能属于一个部门，一个部门可以有多名职员。则实体部门和职员间的联系是

数据字典（DD) 所定义的对象都包含于

在编辑VB应用程序时，如果不小心关闭了属性窗口，则可以单击主窗口标准工具栏上的一个按钮直接打开属性窗口，这个按钮的图标是

软件需求规格说明书的作用不包括

下面属于黑盒测试方法的是

下面关于VB应用程序的叙述中正确的是

下面变量定义中错误的是

语句：Print Asc(Chr$(Mid$("98765432", 4, 2))) 的输出是

设变量x中的值是395，则下面语句的输出是 Print x \ 100 + ((x Mod 100) \ 10) * 10 + (x Mod 10) * 100

如果要定义一个窗体级变量，定义变量语句的位置应该是

如果把程序的启动对象设置为：Sub Main，则Sub Main过程

设有下面的程序段： x = InputBox("请输入一个整数") ReDim a(x) For k = x To 0 Step -1 a(k) = k Next k一般，在这段程序之前应先进行数组a的定义。下面定义语句中正确的是 A) B) C) D) 答案：

设有以下过程：Private Sub proc(x As Integer, Optional y As Integer) Print x, yEnd Sub针对此过程，下面正确的过程调用语句是

下面语句中能够打开随机文件的是

文本框的Locked属性被设置为True后产生的效果是

下面关于直线控件的叙述中正确的是

下面叙述中错误的是

设窗体上有1个名称为List1的列表框，程序运行时，如果选中了第3个列表项（最上面的列表项为第0个列表项），则下面不成立的是

利用通用对话框控件打开字体对话框的操作是

为了显示弹出式菜单，要使用

为了实现对象的自动拖放，应该设置该对象的一个属性。下面设置中正确的是

设工程中有2个窗体：Form1和Form2，每个窗体上都有一个名称为Text1的文本框。若希望把Form1上文本框中的内容复制到Form2上的文本框中，应进行的操作是

设窗体上有一个Picture1图片框，要求在图片框中的指定位置（坐标为（500，300））输出"OK"，下面可以实现这一功能的事件过程是

三角形的构成条件是：任意2边之和大于第3边。设变量a、b、c是3条直线的长度，要求判断这3条直线能否构成一个三角形。下面有3个程序段可以正确判断，另一个不能正确判断的是

有下面程序代码： Private Sub Command1_Click() i = 1 Do While i < 5 j = 1 Do j = j + 1 Print "*"; Loop Until i + j > 10 Print i = i + 2 Loop End Sub 程序运行时输出字符"*"的个数是

设有下面程序代码：Option Base 1Private Sub Command1_Click() Dim x(6) a = Array(4, 2, 5, 1, 6, 3) b = Array(64, 24, 98, 27, 58, 41) For k = 1 To 6 x(a(k)) = b(k) Next k For k = 1 To 6 Print x(k); Next kEnd Sub程序运行时的输出是

下面不属于软件设计阶段任务的是

有下面程序代码： Private Sub Command1_Click() i = 1 Do While i < 5 j = 1 Do j = j + 1 Print ""; Loop Until i + j > 10 Print i = i + 2 Loop End Sub 程序运行时输出字符""的个数是