• 搜标题
  • 搜题干
  • 搜选项
0 / 200字
单项选择题

设有下面程序代码： 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
题目列表

你可能感兴趣的试题

单项选择题

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

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

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

A．15
B．16
C．20
D．0或35
单项选择题

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

A．二叉链表
B．循环链表
C．双向链表
D．带链的栈
单项选择题

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

A．属性
B．二维表
C．网状结构
D．树状结构
单项选择题


A．选择
B．投影
C．自然连接
D．并
单项选择题

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

A．1：1联系
B．m：1联系
C．1：m联系
D．m：n联系
单项选择题

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

A．数据流图（DFD图)
B．程序流程图
C．软件结构图
D．方框图
单项选择题

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

A．
B．
C．
D．
单项选择题

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

A．软件验收的依据
B．用户与开发人员对软件要做什么的共同理解
C．软件设计的依据
D．软件可行性研究的依据
单项选择题

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

A．语句覆盖
B．逻辑覆盖
C．边界值分析
D．路径覆盖
单项选择题

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

A．VB应用程序只能解释运行
B．VB应用程序只能编译运行
C．VB应用程序既能解释运行，也能编译运行
D．VB应用程序必须先编译，然后解释运行
单项选择题

下面变量定义中错误的是

A．Public mod As Integer
B．Static buf
C．Dim ch As String * 10
D．Dim a!(-5 To -1)
单项选择题

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

A．65
B．A
C．8765
D．W
单项选择题

设变量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．数据库设计
微信扫码免费搜题