首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名为List1的列表框和一个名为Command1的命令按钮,并有下面的事件过程: Private Sub Command1_Click() n%=List1.ListIndex If n>0 Then ch$=List1.Lis
窗体上有一个名为List1的列表框和一个名为Command1的命令按钮,并有下面的事件过程: Private Sub Command1_Click() n%=List1.ListIndex If n>0 Then ch$=List1.Lis
admin
2015-06-30
39
问题
窗体上有一个名为List1的列表框和一个名为Command1的命令按钮,并有下面的事件过程:
Private Sub Command1_Click()
n%=List1.ListIndex
If n>0 Then
ch$=List1.List(n)
List1.List(n)=List1.List(n-1)
List1.List(n-1)=ch
End If
End Sub
程序运行时,选中1个列表项,然后单击Command1按钮,则产生的结果是( )。
选项
A、若选中的不是最前面的列表项,则选中的列表项与它前一个列表项互换位置
B、选中的列表项与它前面的列表项互换位置
C、若选中的不是最后面的列表项,则选中的列表项与它后一个列表项互换位置
D、选中的列表项与它后面的列表项互换位置
答案
A
解析
当单击Command1按钮后,List1列表框中被选中项的索引值赋给变量n,如果被选中项不是空也不是第1项时,将选中项的项目文字赋值给变量ch,用选中项的上面一项的文字替换选中项的文字,再把变量ch中的文字替换选中项上面一项的文字,简单说就是选中项和它上面一项的文字交换。因此A选项的说法正确。
转载请注明原文地址:https://kaotiyun.com/show/MAQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
假定程序中有以下语句:answer=MsgBox("String1",,"String2","String3",2)执行该语句后,将显示一个信息框,此时如果单击“确定”按钮,则answer的值为______。
执行下列语句后,显示输入对话框,此时如果单击“确定”按钮,则变量strInput的内容是______。atrlnput=-InputBox(“请输入字符串”,“字符串对话框”,“字符串”)
下列程序段的功能是输入一元二次方程ax2+bx+c=0(a≠0)的3个系数a、b、c,并判断它根的情况,请将程序补充完整。DimaAsSingle,bAsSingle,cAsSingleDimdeltaAsSin
用户可以用【】语句定义自己的数据类型。
以下叙述正确的是()
启动VisualBasic中,用鼠标右键单击窗体时所显示的菜单是()
在窗体中添加一命令按钮,并在命令按钮中编写如下代码:PrivateSubCommandl_C1ick()DimaAsSinglea=-1.234567b=Int(A)c=Sgn(A)d=Abs(A)e=Fix(A)
有如下程序:PrivateSubCommandl_Cick()a=10:b=50RemPrinta;bPrintblaPrinta;bEndSub运行后,单击命令按钮后的输出结果是
当VB执行下面语句后,A的值为()A=1IfA>0ThenA=A+1IfA>1ThenA=0
若要获得滚动条的当前值,可访问的属性是______。
随机试题
求函数的单调区间、极值和此曲线的凹凸区间.
下列选项中,属于共产主义人生价值观的是
提高帧频的方法有
前列腺癌的处理原则包括()
女性,30岁。反复皮肤瘀点、瘀斑伴月经量增多半年来诊。体检:轻度贫血貌,肝脾肋下未扪及,皮肤可见瘀点,下肢有瘀斑多处。门诊血常规检查:Hb86g/L,WBC6.5×109/L。[假设信息]假如检查结果是血红蛋白40g/L,血小板34×109/L,
根据归经学说,用辅料炮炙药物,盐制入
当药物不溶于水、乙醇或可与重金属离子形成配位化合物干扰检查时,需将药物加热灼烧破坏,所剩残渣用于检查。此时灼烧的温度应保持在
Donna’sfourthgradeclassroomlookedtypicallytraditional.YetsomethingseemeddifferentthatdaywhenIentereditforthef
有三十多年丰富教学经验的段老师,特别重视外出学习,一有机会就向其他老师取经,观摩别人的课堂,反思自己的教学方法,努力提高教育教学水平。这说明段老师具有()。
简述个体身心发展的一般规律。
最新回复
(
0
)