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

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

admin2016-06-23  74
问题 窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。要求编写一个程序，统计文本框中0-9各数字字符的个数。某人编写如下程序：
Prirate 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 vi=1 To strLen
c=Mid(s，i，1)
If c＞="0"And c＜="9"Thn
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/mSLp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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