首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: Private Sub Command1_Click() Dim a As String a="CONPUTER" n=search(a,"T") Print IIf(n=0,"未找到",n) End Sub Private Functi
有下面程序代码: Private Sub Command1_Click() Dim a As String a="CONPUTER" n=search(a,"T") Print IIf(n=0,"未找到",n) End Sub Private Functi
admin
2019-03-08
26
问题
有下面程序代码:
Private Sub Command1_Click()
Dim a As String
a="CONPUTER"
n=search(a,"T")
Print IIf(n=0,"未找到",n)
End Sub
Private Function search(str As String,ch As String)
As Integer
For k=1 To ten(str)
c=Mid(str,k,1)
If c=ch Then
search=k
Exit Funotion
End If
Next k
search=0
End Function
程序运行后,单击命令按钮Command1,输出结果是
选项
A、0
B、8
C、6
D、未找到
答案
C
解析
Mid函数从字符串中获取指定位置的字符值。Search函数中找到相同的字符时退出循环,并返回该字符在字符串中的位置。Command1_Click事件中打印查找的结果。选C。
转载请注明原文地址:https://jikaoti.com/ti/7Um0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如果要在窗体上使用2组单选按钮,每组都可以有一个被选中,则应该做的是( )。
在考生文件央下有一个工程文件sjt5.vbp,窗体如图所示。运行程序时,从考生文件夹数据文件中读取学生的成绩(均为整数)。要求编写程序,统计总人数,同时统计不及格、60~69、70~79、80~89及90~100各分数段的人数,将统计结果显示在相应的文本框
(1)在名称为Form1的窗体上添加一个名称为Picture1的图片框(PictureBox),高、宽均为1000。在图片框内再添加一个有边框的名称为Imagel的图像框(Image)。并通过属性窗几把考生文什火下的图标文件Pointl1(香蕉图标)装入图
窗体上有一个名称为Picture1的图片框控件,一个名称为Label1的标签控件,如图所示。现有如下程序:PublicSubdisplay(xAsControl) IfTypeOfxIsLabelThen xCapti
在数据库系统中,用于对客观世界中复杂事物的结构及它们之间的联系进行描述的是
如果要在图片框Picture1中输出文本"图片框",则正确的语句是
为了在窗体上画一个文件列表框,应先在工具箱窗口中选中的图标是
下面对软件测试和软件调试有关概念叙述错误的是
若实体A和B是一对多的联系,实体B和C是一对一的联系,则实体A和C的联系是
在深度为7的满二叉树中,叶子结点的个数为
随机试题
首选大环内酯类抗生素治疗的肺炎是
年轻恒牙发生牙髓、根尖周病变后,诱导根尖形成所依赖的组织有
8个月男婴,咳嗽3天,发热伴气促1天,查体:呼吸急促,口周略发青,咽部充血,双肺闻及中小水泡音,心、腹(-):白细胞10×109/L,N0.65,L0.35,其最可能的诊断是
A、简单扩散B、易化扩散C、膜孔扩散D、胞饮E、主动转运小分子水溶性高的药物可通过
项目采购的对象包括()。
财政金库存款由( )直接掌握。
《狐狸和乌鸦》教学片断:学习了课文最后一段,教师打出幻灯片:乌鸦寂寞地站在一棵树上。师:请小朋友仔细观察这只乌鸦的神态,想一想:看着狐狸叼起肉进洞,她心中会想些什么?(学生稍加思考,纷纷举起了小手)生:乌鸦很伤心,心想:哎!都怪我爱听好话,才会上当。生:乌
t为int类型,进入下面的循环之前,t的值为0。while(t=1){...}则以下叙述中,正确的是()。
HowtoBeaSuccessfulBusinesspersonHaveyoueverwonderedwhysomepeoplearesuccessfulinbusinessandothersarenot?
TheWeightExperimentNicolaWaltershasbeentakingpartinexperimentsinScotlandtodiscoverwhyhumansgainandlosewe
最新回复
(
0
)