2. 计算机
  3. 窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。要求编写一个程序，统计文本框中0-9各数字字符的个数。某人编写如下程序： Private Sub Command1_Click() Dim count(10) As Int

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

admin2015-08-28  33
问题 窗体上有一个名称为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 = Len(s)
    ’第2个For循环
    For i = 1 To strLen
        c = Mid(s, i, 1)
        If c >= "0" And c <= "9" Then
            x = Val(c)
            count(i) = count(i) + 1
        End If
    Next
    ’第3个For循环
    For i = 0 To 9
        Print Str(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改为count(x) = count(x) + 1
答案D
解析 根据题意可知，第2个For循环应该是统计的字符个数。i是循环变量，所以选D）。
转载请注明原文地址:https://kaotiyun.com/show/mmLp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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