首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下程序: 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
2018-05-08
29
问题
设有如下程序:
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/IlGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面是求最大公约数的函数的首部()。Functionfun(ByValxAsInteger,ByValyAsInteger)AsInteger若要输出8、12、16这3个数的最大公约数,下面正确的语句是
在窗体上画一个命令按钮(Name属性为Commandl),然后编写如下事件过程:PrivateSubCommandl_Click()Dima(10)AsInterger,p(3)AsIntergerK=5Fori=1To
()控件可以使图形根据控件大小而改变大小。
窗体上有1个名称为Textl、内容为空的文本框。编写如下事件过程:PrivateSubTextl_KeyUp(KeyCodeAsInteger,ShiftAsInteger)PrintTextl.Text;En
设变量x中的值是395,则下面语句的输出是Printx\100+((xMod100)\10)*10+(xMod10)*100
计算下面分段函数的正确语句是
VisualBasic控件一般都规定一个默认属性,在引用这样的属性时,只写对象名而不必给出属性名。默认属性为Caption的控件是
在名称为Forml的窗体上设计一个菜单。要求在窗体上添加名为menu0,标题为“菜单命令”的主菜单,再添加两个名称分别为“menul”、“menu2”,标题分别为“不可用菜单项”、“上一菜单项可用”的子菜单,并且使程序运行时,menu1子菜单不可用,men
下列排序方法中,最坏情况下比较次数最少的是()。
某二叉树中有n个叶子结点,则该二叉树中度为2的结点数为
随机试题
对不宜应用大剂量糖皮质激素治疗的重症SLE患者应首先考虑
某患者,男性,66岁,高血压史30年,糖尿病史1年,未规律服用降糖药物,身高164cm,重72kg,血清肌酐146μmol/L,空腹血糖8.5mmol/L。对于糖尿病的诊断下列哪项是正确的()
A.周期性麻痹D.病毒性肌炎B.急性感染性多神经根炎E.多发性肌炎C.急性脊髓炎女孩15岁。1周前受凉后咳嗽、发热,3天后四肢乏力、发麻,说话口齿不清,逐渐加重而不能行走入院。检查:双眼睑闭合不全,不能皱额、鼓腮,四肢弛缓性瘫痪,肌力2级。诊断
地下室水泥砂浆防水层的以下说法,错误的是:[2018—045]
道氏理论把价格的波动趋势分为主要趋势、次要趋势和平衡趋势。()
企业所处的成长和发展阶段不同,相应采用的股利分配政策也不同,下列说法正确的有()。
确定股东是否有权领取本期股利的截止日期是()。
5A级旅游景区导游(讲解员)需持证上岗,均应具备大专以上文化程度,其中本科以上不少于()。
()后,辽东局势起了根本变化,明朝在军事上失去主动进攻的力量,而后金则由防御转入进攻。
GoingDigital:California’sTextbookProjectCaliforniaapprovestraditionaltextbooksinsix-yearcycles.Digitalonescan
最新回复
(
0
)