首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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
2015-08-28
24
问题
窗体上有一个名称为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://jikaoti.com/ti/ggJ0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()x=0DoUntilx=-1a=InputBox("请输入A的值")
要使菜单项MenuOne在程序运行时失效,使用的语句是()。
在数据管理技术的发展过程中,经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是______。
设有如下记录类型:TypestudentNumberAsString*10NameAsString*8EndType窗体中有若干控件,单击其中的一个按钮Command1时,执行如下事件过程,该过程的功能是把数据输出到指定的文件中。根据
以下程序段运行的结果是______。Dima(-1To5)AsBooleanDimflagAsBooleanflag=FalseDimiAsIntegerDimjAsIntegerDoUntilflag=TrueFor
在窗体上画一个命令按钮(名称为Command1),然后编写如下事件过程:PrivateSubCommand1_Click()b=5c=6Printa=b+cEndSub程序运行后,单击命令按钮,输出的结果是____
下面叙述中不正确的是______。
下列叙述中正确的是______。
在窗体上画一个名称为“Command1”、标题为“计算”的命令按钮,再画7个标签,其中5个标签组成名称为Label1的控件数组;名称为Label2的标签用于显示计算结果,其Caption属性的初始值为空;标签Label3的标题为“计算结果”。运行程序时会自
下列叙述中正确的是()。
随机试题
在铣床上对圆柱类工件在圆柱面上加工孔时,一般用()或分度头和尾座来装夹。
牙槽嵴修整术适用于
对口服敌百虫中毒的患者,处理措施不正确的是
有关雨水系统的设置。以下哪项正确?(2007,71)
按施工责任分类,浇筑混凝土时随意加水属于()事故。
下列各项中,属于永久保存的会计档案有()
下列各项展开式中,不等于每股收益的是()。
“人心不同,各如其面”,反映了人格的()的特点。
设某种电子产品的产量是劳动力x和原料y的函数:F(x,y)=假设每单位劳动力花费100元,每单位原料花费200元,现有30000元资金用于生产,产量最大时的劳动力为_________.
Whichofthefollowingargumentsistrueaccordingtothearticle?Theword"benevolent"(Line3,Para.3)means______.
最新回复
(
0
)