窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。命令按钮的单击事件过程如下: Private Sub Command1_Click() Dim x1 As Integer, x2 As Integer, x3 As In

admin2020-06-30  29

问题 窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。命令按钮的单击事件过程如下:
Private Sub Command1_Click()
    Dim x1 As Integer, x2 As Integer, x3 As Integer
    s = Trim(Text1.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函数是去掉字符串前面和后面的空格,A)错。Select Case语句的测试表达式,可以是算术表达式或字符表达式,其值应是数字或字符型, B)错。Case语句可以是连续的范围:界1  To 界2 ,如:12 To 20,C)错。x4是排除了字符串中字母、数字字符的个数的和。选D)。
转载请注明原文地址:https://kaotiyun.com/show/KGHp777K
0

随机试题
最新回复(0)