首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为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
28
问题
在窗体上画一个名称为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的有序线性表中进行二分查找,最坏情况下需要比较的次数是()。
在窗体上画一个名称为Commandl的命令按钮,编写如下程序代码PrivateTvpeStudentsnAsString*10classAsString*20scoreAsDoubleEnd
名称为List1的列表框中已有若干列表项,为了使选中的列表项重复出现在列表的最后,应使用的语句为()。
耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是()。
软件按功能可以分为:应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是()。
命令按钮Command1的单击事件过程如下:PrivateSubCommand1_Click()Dima(10,10)AsIntegerx=0Fori=1To3Forj=lTo3
窗体上有名称分别为Text1、Text2的文本框,名称为Command1的命令按钮。运行程序,在Text1中输入“FormList”,然后单击命令按钮,执行如下程序:PrivateSubCommandl.Click()Text2.Text=UCas
(1)在名称为Form1的窗体上画两个标签(名称分别为Label1和Labe12,标题分别为“姓名”和“年龄”)、两个文本框(名称分别为Text1和Text2,初始内容均为空)和一个命令按钮(名称为Command1,标题为“显示”)。然后编写命令按钮的Cl
在Form1窗体上有一个菜单项,名称为Menu,它有自己的子菜单。若希望在鼠标右键单击窗体时能够弹出Menu的子菜单,某人编写了下面的事件过程:PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAs
关于菜单设计,下列叙述中错误的是()。
随机试题
患者,男,34岁。现经口气管插管,口腔pH中性,护士选用0.02%呋喃西林溶液为患者进行口腔护理的作用是
提问是访谈调查的关键,下列属于接触性问题的有【】
HistorianstendtotellthesamejokewhentheyaredescribinghistoryeducationinAmerica.It’stheone【56】theteacherstandin
男性,60岁,主诉间断性腹痛3月余,疼痛为阵发性绞痛,可自行缓解,有时可见到腹部“起包”。大便基本正常,在外院以胃肠炎治疗,无明显效果。查体:腹平坦,右上腹轻压痛,肠鸣音稍活跃。化验白细胞5.7×109/L,Hb89g/L。你考虑其诊断可能是(
A、 B、 C、 D、 C
设定泥水式盾构泥水压控制值时,预备压通常取()。
秘书要围绕工作中心,突出重点,根据()来确定督察工作任务。
行政决策的步骤排列正确的是()。①设计活动阶段②抉择活动阶段③情报活动阶段④审查活动阶段
孙某在商场购物时,被正在追小偷的商场保安王某撞伤。孙某的损害应由()。
当x→1时,函数的极限()
最新回复
(
0
)