首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: Private Sub Command1_Click() Dim a As String a = "COMPUTER" n = search(a, "T") Print IIf(n = 0, "未找到",
有下面程序代码: Private Sub Command1_Click() Dim a As String a = "COMPUTER" n = search(a, "T") Print IIf(n = 0, "未找到",
admin
2015-10-23
56
问题
有下面程序代码:
Private Sub Command1_Click()
Dim a As String
a = "COMPUTER"
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 Len(str)
c = Mid(str, k, 1)
If c = ch Then
search = k
Exit Function
End If
Next k
search = 0
End Function
程序运行后,单击命令按钮Command1,输出结果是
选项
A、0
B、8
C、6
D、未找到
答案
C
解析
Mid函数从字符串中获取指定位置的字符值。Search函数中找到相同的字符时退出循环,并返回该字符在字串中的位置。Command1_Click事件中打印查找的结果。选C。
转载请注明原文地址:https://kaotiyun.com/show/rDLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面程序的功能是产生100个小于1000(不含1000)的随机正整数,并统计其中5的倍数所占比例,但程序不完整,请在[]和[]处把程序补充完整。
下列程序的运行结果是()。PrivateFunctionmyfun(m,n)DoWhilem>nDoWhilem>n:m=m-n:LoopDoWhilen>m:n=n-m:LoopLoopmyfun=mEndFun
下列程序的输出图形是()。Fork=0To360cr=Int(160*RnD)ang=-3.1415926/180*kCircle(2000,2000),500,cr,0,angNext
下列叙述中,不属于测试的特征的是______。
为了避免流程图在描述程序逻辑时的灵活性,提出了用方框图来代替传统的程序流程图,通常也把这种图称为______。
在窗体上画一个名称为Text1的文本框,然后画三个单选按钮,并用这三个单选按钮建立一个控件数组,名称为Option1,程序运行后,如果单击某个单选按钮,则文本框中的字体将根据所选择的单选按钮切换,请选择空白处合适的语句()。PrivateSub
下列对象不能响应Crick事件的是()。
3在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序:PrivateSubCommand1_Click()StaticXAsIntegerStaticYAsIntegerCls
下列程序执行后,变量x的值为()。Dima,b,c,dAsSingleDimxAsSinglea=100b=20c=1000Ifb>aThend=a:a=b:b=dEn
随机试题
下列情况中,不会调用拷贝构造函数的是()。
下列选项中,关于农产品供给量的说法,正确的是()。
与初级骨化中心形成无关的是
胸膜间皮瘤大叶性肺炎
某一中等城市,经对周边县改区后扩大为大城市,根据地价管理的要求需作基准地价更新评估。现委托一土地评估机构进行评估。基准地价评估期日为2004年1月1日。该机构在评估过程中调查了下述资料:(1)调查的样点中,有一个样点P为临街商业店铺,位于二级地,租金为2
财务评价中,改扩建项目的盈利能力分析依下列哪个分析为主()。
()是对组织中各类岗位某一专项事物或对某类员工的劳动行为、素质要求等所作的统一规定。
有人提议把古老运河建成“水上高速”。大运河山东段据说提出要大规模投资重新开挖被湮没的古河道,重建分水工程,以重现昔日辉煌。问题在于,大运河的功能已经发生了重大变化,以往农耕时代的“水上通衢”地位已让位于工业时代的铁路和公路。山东济宁以北的河段早已断流,水文
对于市社会保障局将行政审批权力下放到各区县。请问你有什么看法和建议?
Readthistexttakenfromanarticleaboutelectroniccommerce.Choosethebestanswerfromtheoppositepagetofilleacho
最新回复
(
0
)