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

admin2019-03-08  21

问题 窗体上有一个名称为Text1的文本框,一个名称为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)
If C>=“0”And c<=“

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

答案D

解析 本题中要求分别统计数字0~9的个数,使用了一个数组couIlt来存放各个数字的个数。在第一个For循环【}】,将数组的各个元素设置为0,在第二个循环中,依次取出字符串中的每一个字符,判断是不是在0~9之间,如果在范围内,则应该令对应的数组元素加1。如果写成count(i)=count(i)+1,只能顺序的令每一个数组元素都加1,只有改写成count(x)=count(x)+1,让x作为下标,才能保征让x对应的数组元素加1。
转载请注明原文地址:https://kaotiyun.com/show/8iFp777K
0

最新回复(0)