窗体上有一个名称为Textl的文本框,一个名称为Commandl的命令按钮。命令按钮的单击事件过程如下: Private Sub Command l_Click() Dim x 1 As Integer,x2 As Intege

admin2013-10-16  40

问题 窗体上有一个名称为Textl的文本框,一个名称为Commandl的命令按钮。命令按钮的单击事件过程如下:
    Private Sub Command l_Click()
          Dim x 1 As Integer,x2 As Integer,x3 As Integer
          s=Trim(Textl.Text)
          strLen=Len(s)
          For i=1 To strLen
              c=Mid(s,i,1)
              Select Case c
                  Case”0”To”9”
                       x1=x1+1
                  Case”A”To”Z”
                       x2=x2+1
                  Case”a”To”Z”
                       x3=3+1
                  Case Else
                       x4=x4+1
              End Select
          Next
          Print”x1”;x1,”x2”;x2,”x3”;x3,”x4”;x4
    End Sub
    以下关于上述程序的叙述中,正确的是

选项 A、S是去掉文本框中字符串末尾的空格
B、Select Case c有误,Case后应该是一个表达式
C、各Case分支条件有误,不能用To表示字符的取值区间
D、x4是字符串中非字母、非数字字符的个数

答案D

解析 Trim函数的作用是去掉文本框中字符串两端的空格:多分支控制结构又称为Select Case语句或Case语句,可以同时对条件的多个取值来判断,Case后面的表达式可采用3种形式:
①表达式1[,表达式2]…;
②表达式1 To表达式2;
③Is关系运算表达式。
最终xl是字符串中数字的个数;x2是字符串中大写字母的个数;x3是字符串中小写字母的个数;x4是字符串中非字母、非数字字符的个数。
转载请注明原文地址:https://jikaoti.com/ti/9J60FFFM
0

最新回复(0)