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

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

admin2015-06-30  30
问题 窗体上有一个名称为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/U5Qp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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