首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Command1的命令按钮,然后编写以下程序代码: Option Base 1 Private Sub Command1_Click() Dim data As Variant, m As Integer, n As Integer
在窗体上画一个名称为Command1的命令按钮,然后编写以下程序代码: Option Base 1 Private Sub Command1_Click() Dim data As Variant, m As Integer, n As Integer
admin
2020-02-27
68
问题
在窗体上画一个名称为Command1的命令按钮,然后编写以下程序代码:
Option Base 1
Private Sub Command1_Click()
Dim data As Variant, m As Integer, n As Integer
m = Val(InputBox("输入"))
data = Array(-2, -1, 0, 1, 2)
Call ser(data, m, n)
Print n
End Sub
Private Sub ser(d, a, b)
Dim m As Integer, n As Integer, k As Integer
Dim i As Integer
m = LBound(d): n = UBound(d)
k = (m + n) / 2
Do While m < n And d(k) <> a
If a < d(k) Then n = k - 1
If a > d(k) Then m = k + 1
k = (m + n) / 2
Loop
If d(k) = a Then b = k Else b = -1
End Sub
程序运行过程中单击命令按钮Command1,在出现的输入对话框中输入"-1"并回车后,则程序的输出结果为
选项
A、-1
B、1
C、2
D、-2
答案
C
解析
InputBox函数可以产生一个对话框,作为输入数据的界面,等待用户输入数据,并且返回输入的内容。类型转换函数Val(s),返回值为字符串表达式s中所包含的数值,若遇到字母(指数符号除外)则终止转换。m = Val(InputBox("输入"))=Val(-1) = -1。变体型数组data。用Call语句调用Sub过程。如果形参前面有关键字ByVal,则该参数以传值方式传送。默认是按地址传递,data,m,n把地址传给了形参d,a,b后,d,a,b值的变化会引起相应实参值的变化。在过程ser中,UBound函数返回为指定的数组维可用的最大下标,LBound函数返回为指定的数组维可用的最小下标。程序开头定义了Option Base 1这时定义一维数组下标从1开始;故m = LBound(d)=1,n= UBund(d)=5。k=(m+n)/2=6/2=3。Do While…Loop,当程序开始执行时,先计算循环"条件"值,当条件为假时结束循环,否则执行循环体。while m
a,第一次执行,循环条件1<5 And d(3)< >-1,其中d(3)=0,a=-1,a
-1为假,结束循环,再执行if ……Then……else语句,d(k)=d(2)=-1,故b=k=2,对应的实参为n,所以n=2。故本题正确答案为C。
转载请注明原文地址:https://kaotiyun.com/show/vUTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在长度为n的有序线性表中进行二分查找,最坏情况下需要比较的次数是()。
以下关于函数过程的叙述中,正确的是()。
语句Dima(-3To4,3To6)AsInteger定义的数组的元素个数是()。
在考生文件夹下有一个工程文件sjt5.vbpc,其窗体中有2个标题分别为“读数据”和“查找水仙花数”的命令按钮。请画1个名称为Text1、初始值为空的文本框,该文本框允许显示多行内容,且有垂直滚动条,如图所示。程序功能如下:(1)考生文件夹下in5.
考生文件夹下有一个工程文件sjt5.vbp。运行程序后,从文件中读出数据,将其放入一个5×5的二维数组a中。请编写程序,找出数组a中每行的最大值及该值在行中的次序(列下标),并将所找到的结果分别保存到一维数组b、c中(a中第一行的最大值保存在b(1)中,最
一个栈的初始状态为空。现将元素1,2,3,A,B,C依次入栈,然后再依次出栈,则元素出栈的顺序是
在排序过程中,每一次数据元素的移动会产生新的逆序的排序方法是()。
在某个事件过程中定义的变量是()。
在关系中凡能惟一标识元组的最小属性集称为该表的键或码。二维表中可能有若干个键,它们称为该表的()。
与十进制数511等值的十六进制数为
随机试题
根据十九大精神,全面从严治党需要把()摆在首位。
下列有关报价先后的说法中,正确的有()
计算机系统的硬件主要包括运算器、_______、存储器、输入设备、输出设备五大部分组成。
数字化彩超的关键技术是
船舶碰撞,是由于()的原因造成的,碰撞各方相互不负赔偿责任。
根据下列经济业务编制会计分录资料:某企业2009年10月份发生下列经济业务:1.10月1日,企业从银行借入期限为6个月的借款500000元,存入银行。2.10月2日,总经理出差归来报销差旅费4500元,交回多余现金500元。3.10月5日,以银
陆先生在人身保险合同中指定了数人作为自己的受益人,后陆先生突然病故,在其去世前未确定受益人的受益顺序和受益份额,那么其受益人应按照( )享有受益权。
国务院某部委出台一部行政规章,规定对某种行政违法行为不仅要处罚该单位,还要给予直接责任人罚款的处罚。但有关规定这一违法行为处罚的行政法规并没有规定对直接责任人给予行政处罚。以下表述错误的有()。
下列说法正确的是()。
已知二叉树后序遍历序列是CDABE,中序遍历序列是CADEB,它的前序遍历序列是()。
最新回复
(
0
)