首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: Private Sub Form_Click() Dim x As String Dim n As Integer x = InputBox("输入一个英文单词(全部大写)") n = Len(x) F
有如下程序: Private Sub Form_Click() Dim x As String Dim n As Integer x = InputBox("输入一个英文单词(全部大写)") n = Len(x) F
admin
2020-07-22
45
问题
有如下程序:
Private Sub Form_Click()
Dim x As String
Dim n As Integer
x = InputBox("输入一个英文单词(全部大写)")
n = Len(x)
For i = 2 To n
c = Asc(Mid(x)) + 32
Mid(x, i, 1) = Chr(c)
Next i
Print x
End Sub
以上程序的功能是,从键盘上输入一个由大写字母组成的英文单词,保留第一个字母为大写,把后面的字母全变成小写。程序中有错误,应做的修改是
选项
A、把Mid(x)改为:Mid(x, 1)
B、把Mid(x)改为:Mid(x, i +1, 1)
C、把Mid(x)改为:Mid(x, i, 1)
D、把Mid(x)改为:Mid(x, i - 1, 1)
答案
C
解析
主要是利用ASCII码中小写字母比对应的大写字母大32,通过For循环(i从2到字符串的长度),将字符串中第i位的字符取出,利用Asc转换函数得到对应的ASCII码值,将其加上32即为相应大写字母对应的ASCII值,再利用Chr转换函数,将ASCII码转换成为大写字母,并赋值给对应位置第i位字符。在取出第i位字符的语句错误,应改为 Mid(x, i, 1),故选择C项。
转载请注明原文地址:https://kaotiyun.com/show/BXHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设窗体上有一个名称为Checkl的复选框,并有下面程序代码:PrivateSubCheckl一MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Checkl.
若在窗体模块的声明部分声明了如下自定义类型和数组PrivateTyperecCodeAsInteger:CaptionAsStringEndTypeDimarr(5)Asrec则下
设窗体上有一个名称为List1的列表框,并有若干列表项。下面语句中不能在所有列表项之后追加一个列表项的是
下列运算符中,优先级别最高的是
下列能将输入焦点置于名称为txtAdd文本框中的语句是
下面关下VB应用程序的叙述中正确的是
设窗体上有一个Picture1图片框,要求在图片框中的指定位置(坐标为(500,300))输出“OK”,下面可以实现这一功能的事件过程是
A、DYBEAFCZXB、YDEBFZXCAC、ABDYECFXZD、ABCDEFXYZC前序遍历是指在访问根结点、遍历左子树与遍历右子树这三者中,首先访问根结点,然后遍历左子树,最后遍历右子树;并且,在遍历左右子树时,仍然先访问根结点,然后遍历左
下面不属于软件需求分析阶段主要工作的是
随机试题
造成专利发明人与申请人不一致的主要原因不包括【】
唯物辩证法的总特征是()
在正常机体中,下述哪个部位是无菌的
《中国药典》采用什么方法对司可巴比妥钠原料药及其胶囊进行含量测定
关于招标代理机构的说法,正确的有()。
()负责制定商业银行的声誉风险管理原则和操作流程,并在其直接领导下,独立设置声誉风险管理职能,负责识别、评估和监测声誉风险状况。
票据和结算凭证的金额、出票或者签发日期、收款人名称不得更改,更改的票据无效;更改的结算凭证,银行不予受理。()
(2017年)近年来,国内空调产业的销售额达到前所未有的水平,不同企业生产的空调在技术和质量等方面的差异不明显,空调生产企业的主要战略路径是提高效率,降低成本,按照产品生命周期理论,目前国内空调产业所处的阶段是()。
缺陷补偿是指个体在充当社会角色时不可能事事成功,当自我角色目标失败时,常常可能会对相关的社会角色的重要性做重新评价,从而进行自我定义以补偿自己的角色缺陷。根据上述定义,下列属于缺陷补偿的是()。
Thefollowingissueiswhatwearegoingtodiscuss.Mostofthepeoplewho【C1】______mostoftenand【C2】______gloriouslyintheh
最新回复
(
0
)