首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。要求编写一个程序,统计文本框中0-9各数字字符的个数。某人编写如下程序: Private Sub Command1_Click() Dim count(10)As Integer’
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。要求编写一个程序,统计文本框中0-9各数字字符的个数。某人编写如下程序: Private Sub Command1_Click() Dim count(10)As Integer’
admin
2018-10-18
40
问题
窗体上有一个名称为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=1To strLen
c=Mid(s,i,1)
If c>="0"Andc<="9"Then
x=Val(c):count(i)=count(i)+1
EndIf
Next’第3个For循环
For i=0 To 9
Print Str(i),count(i)
Next
End Sub
运行程序后,发现不能实现题目的要求,程序应该进行的修改是
选项
A、将第2个For循环的初值改为0
B、将第2个For语句改为Fori=0To9
C、去掉x=Val(c)语句
D、将count(i)=count(i)+1改为count(x)=count(x)+1
答案
D
解析
本题中要求分别统计数字O~9的个数,使用了一个数组count来存放各个数字的个数。在第一个For循环中,将数组的各个元素设置为0,在第二个循环中,依次取出字符串中的每一个字符,判断是不是在0~9之间,如果在范围内,则应该令对应的数组元素加1。如果写成count(i)=count(i)+1,只能顺序的令每一个数组元素都加1,只有改写成count(x)=count(x)+1,让x作为下标,才能保证让x对应的数组元素加1。
转载请注明原文地址:https://kaotiyun.com/show/gxFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下关系表达式中,其值为True的是( )。
以下关于单选按钮和复选框的叙述中,正确的是( )。
构成计算机软件的是
设有如下通用过程:PublicFunctionFun(xStrAsString)AsString DimtStrAsString,strLAsInteger tStr="" strL=Len(xStr) i=
在窗体上画一个文本框,其名称为Text1,为了在程序运行后隐藏该文本框,应使用的语句为( )。
窗体上有一个名称为VScroll1的垂直滚动条,为了设定单击滚动条两端箭头时的Value增量值,应设置的属性是
以下说法中正确的是( )。
为了通过传值方式来传送过程参数,在函数声明部分应使用的关键字为( )。
在下面语句或函数中,不能描述选择结构的是()。
表达式12/2\4的值是( )。
随机试题
体重超过多少为肥胖(按身高测体重)()
关于乳腺的检查中,与放射线有关的是
患儿,6岁,因发热2天,伴呕吐、头痛来诊。查体:体温39.2℃,脉搏130次/分,呼吸40次/分,血压95/55mmHg,心、肺、腹未见异常,布鲁津斯基征阳性,凯尔尼格征阳性,初步诊断为病毒性脑炎。其脑脊液特点不包括
在进度计划实施中,若某工作的进度偏差小于或等于该工作的(),此偏差将不会影响总工期。
干粉灭火系统试压试验和管网吹扫在管网安装完毕后进行,下列规定试压、吹扫条件符合要求的是()。
国家税务局稽查局、地方税务局稽查局联合检查的,应当出示各自的()。
根据《证券法》规定,向不特定对象发行的证券票面总值超过人民币()的,应当由承销团承销。
凡是课堂上发生的预设外的情况,老师都应该将其开发成课程资源,这才符合新课程改革的要求。()
•ReadthearticlebelowaboutMOO.•ChoosethecorrectwordtofilleachgapfrOmA,B,CorD.•Foreachquestion(21-30),
Theweatherwasn’tfavorableandbothteamshadto______icyrainandastrongwindduringthematch.
最新回复
(
0
)