首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下程序: Private Sub Inv(ByVal xStr As String, yStr As String) Dim tStr As String Dim L As Integer L = Len(xStr)
设有如下程序: Private Sub Inv(ByVal xStr As String, yStr As String) Dim tStr As String Dim L As Integer L = Len(xStr)
admin
2015-06-30
72
问题
设有如下程序:
Private Sub Inv(ByVal xStr As String, yStr As String)
Dim tStr As String
Dim L As Integer
L = Len(xStr)
Do While L >= 1
tStr = tStr + Mid(xStr, L, 1)
L = L - 1
Loop
yStr = tStr
End Sub
Private Sub Form_Click()
Dim S1 As String, S2 As String
S1 = "abcdef"
Inv S1, S2
Print S2
End Sub
运行程序,单击窗体,输出结果为
选项
A、abcdef
B、afbecd
C、fedcba
D、defabc
答案
C
解析
Mid函数将返回字符串中从L开始的一个字符,L从字符串长度反向递减。因此Inv函数实现字符串翻转功能。选C)。
转载请注明原文地址:https://kaotiyun.com/show/YwQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
阅读程序:OptionBase1PrivateSubFormClick()Dima(3)AsIntegerPrint“输入的数据是:”;Fori=1To3
随机生成的10个两位数,求出它们的总和与平均数。产生两位数采用的算法如下:分别产生个位数(0~9)和十位数(1~9),然后十位数乘10再加上个位数即得到一个两位数。说明:在窗体上有一个Commandl按钮,单击它将计算10个随机数的和与平均数,
阅读程序:PrivateSubForm_Click()msg1$="继续吗?"msg2$="操作对话框"r=MsgBox(msgl$,vbYesNoOrvbDefaultButton2,m
下列程序段的功能是:从文本框中输入一个数值,如果该数值满足“除以4余1,除以5余2”条件,则在窗体上输出文本框中的数值,否则,将焦点定位在文本框中,并清除文本框的内容。请填空。PrivateSubCommandl_Click()x=Val(
有如下的程序段,该程序段的执行完后,共执行循环的次数是PrivateSubCommand1_Click()total=0Counter=lDoPrintCountertota
下列数据结构中,能用二分法进行查找的是
下列选项中,不是一个算法的基本特征的是()。
设通用对话框控件的名称为CD1,希望在打开文件对话框中的“文件类型”列表中包含:所有文件、Word文档和文本文件这3类文件,在程序中设置Filter属性时正确的是
随机试题
“二”和“两”在用法上有什么区别?
胸部高千伏摄影器件的选择,错误的是
A.葡萄胎B.胎动不安C.胎萎不长D.难免流产E.子宫发育不良淄体激素黄体酮适用于治疗
通常,掺有缓凝剂的混凝土浇水养护期不少于()。
1.背景某场道工程按工程量清单计价,得到如下数据:分部分项工程工程量清单计价合计1600万元,措施项目清单计价合计75万元,其他项目清单计价合计150万元,规费95万元,税率是不含税造价的3.4%。在工程进行中,按25%支付工程预付款,在未完施工尚需的
下列各项中,反映区域信贷资产质量水平在银行系统中所处的相对位置的指标是()。
根据税收征收管理法律制度的规定,因纳税人计算错误少缴税款,累计数额不足10万元的,税务机关在一定期限内可以追征税款和滞纳金,该一定期限是()。
挤出效应指在一个相对平稳的市场上,由于供应、需求有新的增加,导致部分资金从原来的预支中挤出,而流人到新的商品中。下列属于挤出效应的是()。
某市公安局针对电信诈骗,专门成立了反电信诈骗中心。依托反电信诈骗中心,仅一年,警方就为市民止损近20个亿。下列关于反电信诈骗中心以及警方可实施的防范电信诈骗举措的表述,正确的是()。
Jazzbeganintheearly20thcenturyasakindofmusicofblackAmericans.Itwas(36)______forsinging,fordancing,andfor
最新回复
(
0
)