首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读程序: Option Base 1 Private Sub Form Click() Dim a(3)As Integer For i=1 TO 3 a(i)=InputBox(“输入数据”) Print a(i);
阅读程序: Option Base 1 Private Sub Form Click() Dim a(3)As Integer For i=1 TO 3 a(i)=InputBox(“输入数据”) Print a(i);
admin
2012-12-08
40
问题
阅读程序:
Option Base 1
Private Sub Form Click()
Dim a(3)As Integer
For i=1 TO 3
a(i)=InputBox(“输入数据”)
Print a(i);
Next
Print
If a(1)
t=a(1)
a(1)=a(2)
a(2)=___________
End If
If a(2)>a(3)Then
m=a(2)
Else If a(1)>a(3)Then
m=_______
Else
m=__________
End If
Print“中间数是:”;m
End Sub
程序运行后,单击窗体,在输入对话框中分别
输人3个整数,程序将输出3个数中的中间数,如
图2所示。请填空。
选项
答案
.t a(3) a(1)
解析
程序主要作用是在运行后,提示用户输入3个整数,然后对用户输入的3个整数进行打印,并进行大小比较,最后输出中间值。程序的思路为将第一和第二个数进行比较,较大的放到前面,然后比较第二个数与第三个数,若第二个数大于第三个数,则第二个数为中间数。若第二个数小于第三个数则比较第三个数和第一个数,较小的为中间数。主要完成当a(1)
转载请注明原文地址:https://kaotiyun.com/show/Sjhp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如果存在如下过程: PrivateFunctionFMax(a()AsInteger) DimFirstAsInteger,LastAsInteger,iAsInteger First=LBound(A)Last=UB
Print方法可以在对象上输出数据,这些对象包括
在下列几种排序方法中,要求内存量最大的是
单元测试又称模块测试,一般采用【】测试。
在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序:OptionBase1PrivateSubCommandl_Click()DimcASInteger,dAsIntegerd=0
把窗体的KeyPreview属性设置为Tree,然后编写如下事件过程PrivateSubForm_KeyPress(KeyAsciiAsInteger)DimchAsStringch=Chr(KeyAscii)
在VisualBasic程序启动运行中设置一个封面窗口,显示一些有意义的信息,要求显示时间5秒。Subdlys(ByValnAsSingle)DimtlAsSingleDimt2AsSing
按照逻辑结构分类,数据结构可分为线性结构和非线性结构,队列属于【】。
菜单项能触发的事件是______。
下列有关二叉树的说法中,正确的是()。
随机试题
说服型的领导方式适用于高度成熟的下属。()
A.一侧肢体抽搐B.全身抽搐,意识丧失C.无意识搓手、解扣D.猝倒伴意识丧失E.短暂性遗忘症癫痫强直阵挛发作
A.丙戊酸钠B.苯妥英钠C.乙琥胺D.苯巴比妥E.卡马西平癫痫小发作首选
《物业管理条例》规定的业主大会制度,是为了保障众多业主的公众权益不受损害,只要不影响业主民主决策,是否成立业主大会,由()决定。
国家文化部研究拟定文化事业()和发展规划,指导文化体制改革。
窗外,博斯普鲁斯海峡中,两艘巨大的货轮交错而过,相互鸣笛致意。货轮的速度很慢,却有着既定的航线,它们不会相撞。而对于生活在由这个窄窄的海峡所分隔的两大宗教文明中的人们,要想找到解除宗教文明排他性的途径,是没有航线可循的。对这段文字的主旨概括最准确
根据下列资料,回答问题。2015年,某市消费品市场保持平稳增长态势,全年共实现社会消费品零售额268.9亿元,同比增长12.4%。高出全省平均增速4.7个百分点,增速和总量分别居全省十六个地市第五和第八位。2014年,该市社会消费品零售总额
急性胰腺炎的发病原因在中国主要是
试析南京临时政府的性质。(vip2014年中国近代史真题)
Accordingtothepassage,itcanbeconcludedthattheUnitedStates______.Bytheendof______,manyAmericansfeltitwasn
最新回复
(
0
)