首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个名为List1的列表框,其中已经输入了若干个项目(如图3所示);还有2个文本框,名称分别为Text1、Text2,1个名称为Commandl的命令按钮,并有以下程序。 Private Sub Command 1 Click()
窗体上有1个名为List1的列表框,其中已经输入了若干个项目(如图3所示);还有2个文本框,名称分别为Text1、Text2,1个名称为Commandl的命令按钮,并有以下程序。 Private Sub Command 1 Click()
admin
2020-07-22
62
问题
窗体上有1个名为List1的列表框,其中已经输入了若干个项目(如图3所示);还有2个文本框,名称分别为Text1、Text2,1个名称为Commandl的命令按钮,并有以下程序。
Private Sub Command 1 Click()
Dim str As String,S As String,k As Integer
s=Text1:str=“”
For k=List1.ListCount.1 To 0 Step—1
If InStr(List 1.List(k),s)>0 Then
str=str&List 1.List(k)&“ ”
End If
Next k
If str=“”Then
Text2=“没有匹配项目”
Else
Text2=str
End If
End Sub
程序运行时,在Text1中输入”京”,单击命令按钮,则在Text2中显示的内容是( )。
选项
A、京
B、北京南京
C、南京 北京
D、没有匹配的项目
答案
C
解析
本题考查循环程序的分析以及列表框属性的应用。函数InStr(IAstl.List(k),s)的作用是在Listl.IAst(k)中从头开始寻找s,找不到就返回0,否则返回s在Listl.IAst(k)中的位置。整个循环的功能是,从列表框中最后一个列表项开始寻找含有与Textl中字符串相同的子串,如果存在相同的子串,把Listl.List(k)全部连接到str中,并显示在Text2中。
转载请注明原文地址:https://kaotiyun.com/show/RgHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列操作中不能向工程添加窗体的是( )。
下列关于栈的叙述中,正确的是
下面()不是VB的文件系统控件。
软件设计中模块划分应遵循的准则是
下列打开“代码窗口”的操作中错误的是()。
将窗体的KeyPreview属性设为True,然后编写如下程序:PrivateSUbForm_KeyDown(KeyCode_PrivateSUbForm_KeyPress(KeyAsciiAsInteger,Shi
Fibonacci数列的规律是:前2个数为1,从第3个数开始,每个数是它前2个数之和,即:1,1,2,3,5,8,13,21,34,55,89,…。某人编写了下面的函数,判断大于1的整数x是否是Fibonacci数列中的某个数,若是,则返回True,否则返
设A、B、C是三角形的3条边,则以下表示“任意两边之和大于第三边”的布尔表达式是
下列合法的变量名是
在名称为Form1,标题为“选课”的窗体上添加一个复选框数组,名称为CH1,共有四个复选框,按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”,其中“语文”、“计算机”复选框处在选中状态下,程序运行时的窗体如图所示。请按要求添加控件并设置相应属性。
随机试题
执行监督即对公安机关负责的执行刑事判决、裁定的活动实行监督,保障刑事判决、裁定的正确执行。其主要内容包括()。
具有解表、透疹功效的药物是
已知电路如图所示,设开关在t=0时刻断开,那么,如下表述中正确的是()。
下列关于变动成本法和完全成本法的说法中,正确的有()。
间接监督,是指不直接具有法律效力的监督,社会组织、公民的监督和新闻媒体的舆论监督都属于不具有直接的法律效力的监督。()
根据以下文字材料,回答下列问题。为什么要高度重视文艺和文艺工作?这个问题,首先要放在我国和世界发展大势中来审视,我说过,实现中华民族伟大复兴,是近代以来中国人民最伟大的梦想。今天,我们比历史上任何时期都更接近中华民族伟大复兴的目标,比历史上任何时期都更有
“信息高速公路”是指:
一元线性回归方程有效性检验及解释率的计算方法是
appeal-focusedtexts
MightyFlightyAflycandoonethingextremelywell:fly.(86)RecentlyateamofBritishscientistsdeclaredthatthecomm
最新回复
(
0
)