首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。要求编写一个程序,统计文本框中0-9各数字字符的个数。某人编写如下程序: Private Sub Command1_Click() Dim count(10) As Int
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。要求编写一个程序,统计文本框中0-9各数字字符的个数。某人编写如下程序: Private Sub Command1_Click() Dim count(10) As Int
admin
2020-02-27
114
问题
窗体上有一个名称为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 = 1 To strLen
c = Mid(s, i, 1)
If c >= "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
解析
根据题意可知,第2个For循环应该是统计的字符个数。i是循环变量,所以选D。
转载请注明原文地址:https://kaotiyun.com/show/lxTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
假定有如下的程序段:DimintVarAsIntegerintvar=TruePrintintVar则输出结果是
现有如下程序:PrivateSubCommand1_Click()s=0Fori=1To5S=s+f(5+i)NextPrintsEndSubPublicFunctionf(xAsInteger)Ifx>=10Thent
下列关于通用对话框CommonDialog1的叙述中,错误的是()。
以下关于过程及过程参数的描述中,错误的是()。
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm,此外还有一个名为datain.txt的文本文件,其内容如下:32437658281298573142536475869713243546
在窗体上画一个名称为Dir1的目录列表框,一个名称为File1的文件列表框。当改变当前目录时,文件列表框中同步显示目录列表框中当前被打开目录中的文件,则所使用的事件过程是()。
设程序中定义了下面的过程:PrivateSubproc(chAsString)PrintchEndSub下面语句中错误的是()。
在软件开发中,需求分析阶段产生的主要文档是()。
以下说法中正确的是()。
随机试题
运输问题是_________问题中一类具有特殊性质的问题,它通过选择最佳的运输方案,以达到总的运输费用最低或获得的利润最大等目标。
在Word中进行文档录入时,系统会在_______位置显示当前改写,插入状态。
输尿管的三个狭窄,由起始端至末端依次为
为严格控制超沉,沉井终沉时,沉井的标高、轴线位移至少()测量一次。
“常在河边走,就是不湿鞋”,这句话体现的会计职业道德是()。
某股份有限公司对外币业务采用业务发生日的市场汇率进行折算,按月计算汇兑差额。2012年6月10日从境外购买零配件一批,价款总额为1000万美元,货款尚未支付,当日的市场汇率为1美元=21元人民币。6月30日的市场汇率为1美元=22元人民币。7月31日的市场
《中华人民共和国义务教育法》第二十六条规定,依法聘任校长的部门是()
把下面的六个图形分为两类,使每一类图形都有各自的共同特征或规律,分类正确的一项是:
微分方程y’+y=e-xcosx满足条件y(0)=0的解为________.
A、Hecheckedthroughtheexpiringdateofhiscurrentmileage.B、HelookedroundmileageinhisfrequentflieraccountC、Helook
最新回复
(
0
)