首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。要求编写一个程序,统计文本框中0-9各数字字符的个数。某人编写如下程序: Private Sub Command1_Click() Dim count(10)As
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。要求编写一个程序,统计文本框中0-9各数字字符的个数。某人编写如下程序: Private Sub Command1_Click() Dim count(10)As
admin
2017-04-25
35
问题
窗体上有一个名称为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
解析
本题中要求分别统计数字0~9的个数,使用了一个数组count来存放各个数字的个数。在第一个For循环中,将数组的各个元素设置为0,在第二个循环中,依次取出字符串中的每一个字符,判断是不是在0~9之间,如果在范围内,则应该令对应的数组元素加1。如果写成count(i)=count(i)+1,只能顺序的令每一个数组元素都加1,只有改写成count(x)=count(x)+1,让x作为下标,才能保证让x对应的数组元素加l。
转载请注明原文地址:https://jikaoti.com/ti/PJy0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上有三个控件:名称为Label1的标签控件、名称为Text1的文本框控件和名称为Hscroll1的水下滚动条控件。程序的功能是通过滚动条移动Label1,并把滚动条的值显示在文本框中。滚动条的值作为Label1的Left属性。程序运行时的界面如右图所
在面向对象的程序设计中,下列叙述错误的是______。
下列程序段的执行结果是______。i=4a=5Doi=i+1a=a+2LoopUntili>=7Print"A=";a
庄面向对象程序设计方法中,类的实例称为______。
只能用来显示文本信息的控件是()。
刚建立工程时,使窗体上的所有控件具有区别于默认值的相同的字体格式,应对Form窗体的______属性进行设置。
下列说法有错误的是()。
代数|3e+lgx+arctgy|对应的VisualBasic表达式是
以下关于保存工程的说法正确的是
随机试题
小分子蛋白尿主要含
不属于医德关系的是
限制管道径向位移,但允许轴向位移的支架称为()。
“生产成本”账户期末借方余额表示()。
关于上市公司组织机构的特别规定,下列说法正确的有()。
A.压疮B.尿道损伤C.损伤性骨化D.缺血性肌挛缩脊髓损伤的并发症
以下有关宏操作的叙述正确的是()。
AnnouncementForestapartmentJune5RE:NewDirectorWehavebeenlookingforournewdirectorinthelast3months.Afterane
Thewomanis______.
Childrenaresensitivetodisapprovalandadjusttheirbehaviour______.
最新回复
(
0
)