首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
已知文本框Text1中输入了一篇英文短文,并编写了如下程序段: Str_x = Text1.Text n = Len(Str_x) m = 0 t = 0 For i = 1 To n w = UCase(Mid(
已知文本框Text1中输入了一篇英文短文,并编写了如下程序段: Str_x = Text1.Text n = Len(Str_x) m = 0 t = 0 For i = 1 To n w = UCase(Mid(
admin
2015-09-23
45
问题
已知文本框Text1中输入了一篇英文短文,并编写了如下程序段:
Str_x = Text1.Text
n = Len(Str_x)
m = 0
t = 0
For i = 1 To n
w = UCase(Mid(Str_x, i, 1))
If w >= "A" And w <= "Z" Then
If t = 0 Then m = m + 1
t = t + 1
Else
t = 0
End If
Next
Print m
该程序段的功能为统计并输出英文短文中( )。
选项
A、首字母大写的单词的个数
B、大写字母的个数
C、字母的个数
D、单词的个数
答案
D
解析
在变量Str_x中存放文本框中输入的一篇英文短文,通过Len函数获得短文的长度,并将其长度赋值给变量n。在外层For循环中,循环变量i从1开始到n结束。表达式Mid(Str_x,i,1)依次截取字符串Str_x中第i个字符,然后通过大写转换函数UCase转换成大写字母赋值给变量w。紧接着判断变量w中存放的字符是否为英文字母,若是,则通过变量t判断该字符是否为该单词的第一个字符,若是第一个字符,则计数器变量m加1。程序最终的功能是统计一篇英文短文中单词的个数,故选项D正确。
转载请注明原文地址:https://kaotiyun.com/show/0LLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
开发软件所需要的高成本和产品的低质量之间有着尖锐的矛盾,这种现象称作______。
在窗体上有一个计时器控件Timer1和一个标签控件Label1,在程序运行时可通过每隔30毫秒让Lable1左移100缇,从而产生文字移动动画效果。文字从右向左移动,当移动到接近窗体左边界时停止移动。空格处应填______。PrivateSub
对于如下程序,单击Co皿andl事件发生后,窗体上显示的内容为______。PrivateSubCommand1_Click()DimiAsInteger,aaAsIntegerDoWhilei<2
Jackson结构化程序设计方法是英国的M.Jackson提出的,它是一种面向【】的设计方法。
在深度为5的满二叉树中,叶子结点的个数为______。
一棵二叉树有10个度为1的结点,7个度为2的结点,则该二叉树共有_______个结点。
某二叉树中度为2的结点有18个,则该二叉树中有【】个叶子结点。
在C盘当前文件夹下建立一个名为StuData.txt的顺序文件。要求用InputBox函数输入5名学生的学号(StuNo)、姓名(StuName)和英语成绩(StuEng)。PfivateSubForm_Click()Open"C:Stu
如下图所示,在列表框List1中已经有若干人的简单信息,运行时在Text1文本框(即“查找对象”右边的文本框)输入一个姓或姓名,单击“查找”按钮,则在列表框中进行查找,若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列表项,则只显示第1个匹配
要建立一个学生成绩的随机文件,如下定义了学生的记录类型,由学号、姓名、三门课程成绩(百分制)组成,下列程序段正确的是()。
随机试题
A.溃疡的长轴与肠腔长轴平行B.溃疡呈环形与肠腔长轴垂直C.溃疡呈烧瓶状口小底大D.溃疡呈地图状肠伤寒的特点是
有关宫内节育器的避孕原理,正确的是
患者脘腹胀满疼痛,拒按,恶食,嗳腐吞酸,或痛而欲泻,泻后痛减,或大便秘结,舌苔腻.脉滑实。其首选取方为
【2019年真题】某仓储公司拟建六座油罐。其中,5000m3钢制拱顶油罐3座,分别是航空煤油罐1座,0号柴油罐2座,油罐附件有呼吸阀和阻火器;5000m3钢制内浮顶油罐1座,存储90号汽油;3000m3钢制内浮顶油罐2座,分别存储93号汽油、97号汽
下列属于成本费用中期间费用的是()。
“一国两制”构想之延伸的新思路是()。
下列关于综合布线的描述中,错误的是()。
十六进制数2BA对应的十进制数是
Wheredidthedamagehappen?
Whatarethoserepresentativesdiscussingabout?
最新回复
(
0
)