2. 计算机
  3. 已知文本框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(

admin2015-09-23  71
问题 已知文本框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://www.kaotiyun.com/show/0LLp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)