窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。要求编写一个程序,统计文本框中0~9各数字字符的个数。某人编写如下程序: Private Sub Command1_Click() Dim count(10

admin2020-04-18  15

问题 窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。要求编写一个程序,统计文本框中0~9各数字字符的个数。某人编写如下程序:
    Private Sub Command1_Click()
        Dim count(10)As Integer
        第1个For循环
        For i=0 To 9
        count(i)=0
        Next
        S=Trim(Text1.Text)
        strLen=kn(s)
        第2个For循环
        For i=1 To strLen
            c=Mid(S,i,1)
            If c>=”0”And e<="9" Then
                x=Val(c)
                count(i)=count(i)+1
            End If
        Next
        第3个For循环
        For i=0 To 9
            Print sty(i),count(i)
        Next
    End Sub
运行程序后,发现不能实现题目的要求,程序应该进行的修改是(    )。

选项 A、将第2个For循环的初值改为0
B、将第2个For语句改为For i=0 To 9
C、去掉x=Val C语句
D、将count(i)=count(i)+1改为coum(x)=c伽m(x)+1

答案D

解析 根据题意可知,第2个For循环统计的字符个数。i是循环变量,所以选D。
转载请注明原文地址:https://kaotiyun.com/show/kvTp777K
0

最新回复(0)