首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为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
44
问题
在窗体上画一个名称为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全国计算机二级
相关试题推荐
假定在工程文件中有一个标准模块,其中定义了如下记录类型TypeBooksNameAsString*10TelNumAsString*20EndType要求在
信息隐蔽的概念与下述哪一种概念直接相关______。
数据库保护分为:安全性控制、【】、并发性控制和数据的恢复。
确定复选框是否选中,可访问的属性是______。
下列关于线性表的叙述中,不正确的是______。
在有n个结点的--31链表中,值为非空的链域的个数为______。
下列关于文件的叙述正确的是
下列有关数据库的描述,正确的是
一个项目具有一个项目主管,一个项目主管可管理多个项目,则实体“项目主管”与实体“项目”的联系属于【】的联系。
随机试题
螺杆式压缩机排气量公式中()。
胆汁酸生成过程的限速步骤是
男,15岁,出生后常有外伤出血不止,现已形成关节肿胀及活动受限制,血常规检查血小板计数正常。其出血疾病最可能的诊断是
缩余釉上皮牙板上皮剩余
慢性粒细胞白血病最突出的体征是
尾部可见6~7个银灰色环带的药材为
在企业可持续增长的情况下,下列计算各相关项目的本期增加额的公式中,正确的有()。2011年
下图中左图为反射弧,右图为左图中D结构的放大示意图。请根据图分析,回答下列问题。问题:用针刺A时,引起E收缩的现象称为________,完成这一过程的结构基础称为________。
Afour-yearstudybysociologistsatTheUniversityofManchesterhasfoundthatwomenaremuchlikelythanmento【M1】______mak
【S1】【S7】
最新回复
(
0
)