首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为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
38
问题
在窗体上画一个名称为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://jikaoti.com/ti/IyJ0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有下列程序,程序运行后,单击“Command1”按钮,在列表框List1中显示的第一行和第二行的结果分别是【】和【】,最后一行的结果是【】。Typetype_achr1AsString*1num1AsIntegerEndTy
设一个工程由两个窗体组成,其名称分别为Form1和Form2,在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下:PrivateSubCommand1_Click()DimaksInteger
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:OptionBase1PrivateSubCommand1_Click()DimcAsInteger,dAsInteger
为了使标签能自动调整大小以显示全部文本内容,应把标签的【】属性设置为True。
在窗体上画两个文本框Text1和Text2,一个命令按钮Command1,请阅读以下程序段:PrivateSubCommand1_Click()x=0DoUntilx>=50x=(x+4)*(x+3)n=n+1
在考生文件夹中有一个工程文件execise29.vbp,相应的窗体文件为execise29.frm。在名为Form1的窗体上有一个命令按钮和一个文本框(如下图所示)。程序运行后,单击命令按钮,即可计算出0~1000范围内不能被7整除的整数的个数,并在文本框
数列:1,1,2,3,5,8,13,21,…的规律是从第3个数开始,每个数是它前面两个数之和。在考生文件夹下有一个工程文件execise36.vbp(相应的窗体文件为execise36.frm)。窗体Form1中已经给出于所有控件,如下图所示;
在窗体上画一个名称为Filel的文件列表框,并编写如下程序:PrivateSubFUel_DblClick()x=Shell(File1_ileName,1)EndSub以下关于该程序的叙述中,错误的是()。
设A$="北京",B$="Shanghai",则表达式LEFTS(A$,2)+STRINGS(3,"-")+LEFTS(BS,8)构成的字符串是
具有3个结点的二叉树有
随机试题
Jolt通过大量伪造的ICMP和UDP导致系统变的非常慢甚至重新启动,这种攻击方式是____________?
首先阐述了“公共关系咨询”这一概念的是()
在Word2003中,正常情况下,段落内的每一行都是根据页面宽度自动换行。若需要在段落内的某个位置强制换行,但不拆分段落,则可插入_______。
《麦琪的礼物》运用的结构方法是【】
患者,女,40岁。月经或前或后,烘热出汗,五心烦热,头晕耳鸣,神疲乏力,舌红苔薄,脉细数。治疗应首选()
A、成型材料B、增塑剂C、增稠剂D、遮光剂E、溶剂制备空胶囊时加入下列物质的作用是山梨醇是
以出让方式取得的工业用地使用年限最高为:(2017年第18题)
安全生产责任追究是国家法律规定的一项法定制度,根据责任人员在事故中承担责任的不同,分为直接责任者、主要责任者和______。
简述360度考评的实施程序及其工作内容。
A、Therearemanyvisitorsthere.B、Therearemanystudentsthere.C、Therearemanyoldstreetsthere.D、Therearemanybicycles
最新回复
(
0
)