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

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

admin2018-10-15  55
问题 窗体上有一个名称为Textl的文本框，一个名称为Commandl的命令按钮。要求编写一个程序，统计文本框中0-9各数字字符的个数。某人编写如下程序：
Private Sub Commandl_Click()
  Dim count(10)As Integer’第1个For循环
  For i=0 To 9
      count(i)=0
    Next
    S=Trim(Textl．Text)
    strLen=Len(s)’第2个For循环
    For i=1 To strLen
      c=Mid(s，i，1)
      Ifc>=”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
解析 本题中要求分别统计数字0～9的个数，使用了一个数组count来存放各个数字的个数。在第一个For循环中，将数组的各个元素设置为0，在第二个循环中，依次取出字符串中的每一个字符，判断是不是在0～9之间，如果在范围内，则应该令对应的数组元素加1。如果写成count(i)=count(i)+l，只能顺序的令每一个数组元素都加1，只有改写成count(x)=count(x)+1，让x作为下标，才能保证让x对应的数组元素加1。
转载请注明原文地址:https://www.kaotiyun.com/show/LFFp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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