首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Text1的文本框,一个名称为Commandl的命令按钮。要求编写一个程序,统计文本框中0-9各数字字符的个数。某人编写如下程序: Private Sub Commandl_Click() Dim count(10)As Integer第
窗体上有一个名称为Text1的文本框,一个名称为Commandl的命令按钮。要求编写一个程序,统计文本框中0-9各数字字符的个数。某人编写如下程序: Private Sub Commandl_Click() Dim count(10)As Integer第
admin
2019-03-08
34
问题
窗体上有一个名称为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
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如果在过程A中用语句:Callproc(a,b)调用下面的过程PrivateSubproc(bAsInteger,ByValaAsInteger)a=a+1b=b*2EndSub则调用结束后
下列叙述中正确的是
在窗体上画一个名称为Command1的命令按钮,并编写如下程序:FunctionFun(x) y=0 Ifx
窗体上有一个列表框控件List1。以下叙述中错误的是( )。
程序代码如下:PrivateSubForm_Click()a=3:b=3Callf(a,b)Printa;bEndSubPrivateSubf(ByValx,ByRefy)x
设a=2,b=3,c=4,d=5,下列表达式的值是( )。a>bAndc<=dOr2*a>c
以下关于框架的叙述中,错误的是
设a=10,b=4,c=5,d=7,表达式a>bAndNotc
设:a=2,b=8,c=6,d=3,表达式a>bAndNot(c>d)Ord>c的值是
在学校中,“班级”与“学生”两个实体集之间的联系属于()关系。
随机试题
甲、乙两国因种族纠纷导致全面的战争,战争开始后,交战国之间的外交关系和领事关系会出现下列哪一种结果?()
关于河流水质采样,下列选项不属于垂线上取样点原则的是( )。
关于自动喷水灭火系统的报警阀组在安装过程中应注意的事项正确的是()。
下列有关税法解释的表述中,正确的是()。(2008年)
从2005年9月21日起,我国对活期存款实行按季度结息,每季度()付息。
2003年,我国总人口约为多少人?( )根据上表,从1985年至2003年,从事非农劳动的比例上升最快的行业是( )。
甲公司因生产经营需要,于2007年10月10日以自有的2号厂房作抵押向A银行借款200万元,双方于10月15日办理了抵押登记手续。同年10月30日,甲公司又以自有的专利权作质押与B银行签订了100万元的借款合同及专利权质押合同,但未办理质押登记。2008年
计算机系统软件中最核心的是( )。
Completethetablebelow.WriteNOMORETHANTHREEWORDSAND/ORANUMBERforeachanswer.
GrowingUpColoredA)Youwouldn’tknowPiedmontanymore-myPiedmont,Imean-thetowninWestVirginiawhereIlearnedtobeaco
最新回复
(
0
)