首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下通用过程: Public Function Fun(xStr As String)As String Dim tStr As String,strL As Integer tStr="" strL=Lea(xStr)
设有如下通用过程: Public Function Fun(xStr As String)As String Dim tStr As String,strL As Integer tStr="" strL=Lea(xStr)
admin
2016-08-24
55
问题
设有如下通用过程:
Public Function Fun(xStr As String)As String
Dim tStr As String,strL As Integer
tStr=""
strL=Lea(xStr)
i=strL/2
Do While i<=strL
tStr=tStr & Mid(xStr,i+l,1)
i=i+1
Loop
Fun=tStr&tStr
End Function
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程:
Private Sub Command1_Click()
Dim S1 As String
S1="ABCDEF"
Text1.Text=LCase(Fun(S1))
End Sub
程序运行后,单击命令按钮,文本框中显示的是( )。
选项
A、ABCDEF
B、abcdef
C、defdef
D、defabc
答案
C
解析
程序中过程Fun的Do循环的功能是从参数字符串中依次取出后半部分的字符组成一个字符串,然后这个字符串再重复一次由函数返回。函数Len用于返回字符串的长度,过程中字符串的长度做为Do循环的结束条件。Mid是字符串中部截取函数,用来从指定位置开始截取指定个数的字符。过程中使用Mid(xStr,i+1,1),通过循环依次取出字符串后半部分的字符。函数返回的字符串经Lcase函数转换为小写然后显示在文本框中。程序中做为Fun过程参数的字符串为“ABCDEF”,经处理返回并转为小写后为“defdef”。
转载请注明原文地址:https://kaotiyun.com/show/niLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下各项中,VisualBasic不能接收的图形文件是
当文本框ScrollBars属性设置了非零值,却没有效果,原因是
下面程序段的运行结果是()。PrivateSubForm_Click() ForI=3to1step-1 PrintSpc(10-I); Forj=1to2*I-1 print"*
如果要将窗体中的某个命令按钮设置成不可见状态,应该设置命令按钮的什么属性
对长度为n的线性表排序,在最坏情况下,比较次数不是n(n-1)/2的排序方法是
下列叙述中,不属于测试的特征的是
______是数据库设计的核心。
关于MDI窗体下列说法正确的是()。
面程序的功能是找出能够被13、23、43除余数分别为1、2、3的最小的两位正整数。请填空。PrivateSubForm_Click() DimiAsInteger,jAsInteger j=0 j=43
在下列模式中,能够给出数据库物理存储结构与物理存取方法的是
随机试题
空气和物体表面常选用的灭菌方法是
甲公司与乙公司订立了一份委托技术开发合同,甲公司委托乙公司研究开发一项新技术,双方同时约定,如果在2005年6月份以前,乙公司尚未就该技术开发取得实质性成果,则甲公司有权解除合同,双方未约定解除权的行使期限。至2005年6月时,乙公司果然没有取得任何实质性
大成公司会计部门2013年开出和收到的票据情况如下:(1)2月5日,收到甲公司的开户银行开出的银行汇票一张,注明的出票日期为2013年2月4日,金额10万元。(2)2月10日,大成公司向客户乙企业开出一张支票,由于乙企业的名称全称和金额不确定,因此出纳
信托公司接受委托人的委托,全权管理受托资金或财产,所以信托管理公司对信托产品要承担绝大部分风险。()
以下关于咨询式谈话中询问方法的叙述、正确的说法是()。
如何实现回收站的清空和还原?
【2013年山东省属真题】某些能力在大脑发展的某一敏感时期最容易获得。对语言学习来讲,其关键期大约在16岁稍前的是()。
在计算机网络中,表征数据传输可靠性的指标是______。
Duringthe19thcenturyscientistsfoundthatwhencertainpartsofthebrainwere(36),menlostthe(37)todocertaint
Thesurge______wheatanddairycostsmadeitdifficultforpizzarestaurantstostayinbusiness.
最新回复
(
0
)