首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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
74
问题
窗体上有一个名称为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全国计算机二级
相关试题推荐
以下叙述中错误的是( )。
下列叙述中正确的是( )。
要求在程序运行时,如果按住鼠标左键不放而移动鼠标,鼠标的位置坐标同步显示在窗体右上角的标签(名称为Label1)中,如右图所示,放开鼠标左键后,停止同步显示。下面可以实现此功能的程序是( )。
窗体上有一个名称为Command1的命令按钮,其事件过程如下:PrivateSubCommand1_Click() x="VisualBasicProgramming" a=Right(x,11) b=Mid(x,7,5) c=
设Label1、Command1、Text1、Check1分别为标签、命令按钮、文本框、复选框的名称,则以下属性设置语句中,运行时不会出错的是
将文本框的ScrollBar设置为2,文本框中却没有垂直滚动条,其原因可能是
窗体上有一个名称为Command1的命令按钮。要求编写程序,把文件f1.txt的内容写到文件f2.txt中,然后将f1.txt删除。命令按钮的单击事件过程如下:PrivateSubCommand1_Click()Open"c:\f1.tx
以下关于VB对象属性的叙述中,错误的是
以下不合法的VB变量名是
数学式y2>x>=10在VB中应表示为
随机试题
小直径管对接水平固定TIG焊时,打底层焊道的厚度为3mm左右。太薄易导致在盖面时将焊道烧穿,或使焊缝背面内凹或剧烈氧化。
相对多数代表制
书褒城驿壁(唐)孙樵褒城驿号天下第一。及得寓目,视其沼,则浅混而茅;视其舟,则离败而胶:庭除甚芜,堂庑甚残,乌睹其所谓宏丽者?讯于驿吏,则
A.胁胀痛B.太息C.两者均有D.两者均无
国际标准化组织ISO质量管理体系标准的质量管理原则提出以()为质量管理工作的中心。
适于采用干砌片石护坡的情况有()。
利率是国民经济调控的重要杠杆之一,利率提高的原因是()。
这位经理十分精明,其做生意时特别善于谈判。
Themoreparentstalktotheirchildren,thefasterthosechildren’svocabulariesgrowandthebettertheirintelligencedevelop
Labelthemapbelow.Writethecorrectletter,A-L,nexttoQuestions11-16.Staffhouses
最新回复
(
0
)