首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为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-09-23
25
问题
在窗体上画一个名称为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/WGLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Coramandl的命令按钮,然后编写如下程序;DimSWAsBooleanFunctionfunc(XAsInteger)AsIntegerIfX<20Then
在窗体上放一个文本框Text1,在文本框中输入456,并有如下事件过程,PrivateSubFormClick()x=InputBox("请输入一个整数")Printx+Text1.TextEndSub单击该窗体,在
在考生文件夹中有工程文件execise15.vbp及其窗体文件execise15.frm。在窗体上有3个名称分别为Opt1、Opt2和Opt3的单选按钮,标题分别为“宋体”、“隶书”和“黑体”;一个名称为Text1的文本框,字体为楷体GB2312,字号为四
在考生文件夹中有一个工程文件execise81.vbp及窗体文件execise81.frm。在名为Form1的窗体上已经绘制出所有控件,如下图所示。在Text1文本框中输入一个任意的字符串(要求串的长度≥10),然后选择组合框中的3个截取运算选项之一。单击
在考生文件夹下有一个工程文件execise21.vbp(相应的窗体文件为execise21.frm),在该工程中为考生提供了一个通用过程,考生可以直接调用。请在窗体上绘制一个名为Text1的文本框;绘制一个名为Cmd1,标题为“计算”的命令按钮:再绘制两
下列叙述中错误的是()。
设有数组定义语句:Dima(5)AsInteger,并设List1为列表框控件。下列给数组元素赋值的语句错误的是()。
执行inputbox函数后,会产生一个对话框,对话框上通常有两个按钮,它们是______按钮和取消按钮。
排序是计算机程序设计中的一种重要操作,常见的排序方法有插入排序、【】和选择排序等。
以下关系表达式中,其值为假的是
随机试题
给脊柱损伤的患者翻身时,下列哪几项是正确的()。
被狂犬咬伤后,对伤口的处理错误的是
男性,20岁,以头外伤2小时入院。入院查体:刺痛时可以睁眼,刺痛肢体回缩,言语不清。该患者GCS为
A.发热,盗汗,心前区疼痛少见,易转变为缩窄性心包炎B.心前区剧烈疼痛,有病毒感染史,能自愈C.血性心包积液,渗液抽出后又迅速产生D.高热,脓性心包积液E.心脏术后2周出现发热,胸痛,关节痛化脓性心包炎
用化肝煎加减治疗失笑散合丹参饮可治疗
在0.1mol/L的下列溶液中,说法正确的是()。
如托运人与承运人之间事先无货运协议或类似性质的任何协议,提单就是双方之间订立的运输合同。当托运人将提单通过背书方式转让给第三者时,提单就是承运人与第三者之间的合同。()
(2009年考试真题)W股份有限公司2008年有关资料如下:(1)1月1日部分总账及其所属明细账余额如表2—1—1所示:注:①该公未单独设置“预付账款”会计科目。②表中长期借款为2007年10月1日从银行借入,借款期限2年,年利率5%,每年付息一次。
下列博物馆中,与其类型一一对应正确的是()。
王国维(1877—1927)是我国近代著名的学者。他在《人间词话》中说:“古今之成大事业、大学问者,必经过三种之境界:‘昨夜西风凋碧树。独上高楼,望尽天涯路’。此第一境也;‘衣带渐宽终不悔,为伊消得人憔悴。’此第二境也;‘众里寻他千百度,蓦然回首,那人却在
最新回复
(
0
)