首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为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
2015-06-30
42
问题
在窗体上画一个名称为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/eNQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个文本框(其中Name属性为Text1),然后编写如下事件过程:PrivateSubForm_Load()Text1.Text=“”Text1.SetFocusFori
设置复选框中或单选按钮的标题对齐方式的属性是______。
VB的工程资源管理器可管理多种类型的文件,下面叙述正确的是______。
一个教师能开多门课程,一门课程有许多教师会开,实体课程与实体教师间是______。
用如下语句所定义的数组的元素个数是______个。Dimb(-2to4)asstring
以下语句错误的是:______。
为了克服软件危机,人们提出了用______的原理来设计软件,这就是软件工程诞生的基础。
下面的程序用“冒泡”法将数组a中的10个整数按升序排列,请在【】、【】、【】处将程序补充完整。OptionBase1PrivateSubCommand1_Click()Dima
以下叙述中正确的是
复选框的Value属性为0时,表示该复选框()。
随机试题
2008年9月,甲市海龙公司与乙市太平洋公司签订了一份技术转让合同,约定双方共同开发手写笔记本电脑,合同中的仲裁条款规定:因履行本合同发生的争议,若双方无法协商解决,则应申请乙市仲裁机构进行仲裁。2009年2月,双方发生争议,太平洋公司即向其所在地乙市仲裁
下列建筑不必采用固定消防炮灭火系统的是()。
风险影响估计方法中不包括()。
某公司进口货物应缴纳关税20000元,增值税30000元,海关于2006年6月27日开出缴纳通知单,该公司于7月17日缴纳,海关应该征收滞纳金()元。
《担保法》规定的法定担保范围包括()。
工资集体协商时,一方在接到另一方提出的书面的协商意向书后,应于()日内予以书面答复。
教育要素不包括()。
—DoyouspeakEnglish?—Yes,only______.
Themostexcitingkindofeducationisalsothemost.Nothingcan【C1】______thejoyofdiscoveringforyourselfsomethingthatis
Malariaisworld’ssecondmostcommondiseasecausingover【C1】______infectionsandonemilliondeathseveryyear.【C2】______itis
最新回复
(
0
)