首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Text1的文本框,一个名称为Command 1的命令按钮。要求编写一个程序,统计文本框中0-9各数字字符的个数。某人编写如下程序: Private Sub Command 1_Click() Dim count(10)As Inte
窗体上有一个名称为Text1的文本框,一个名称为Command 1的命令按钮。要求编写一个程序,统计文本框中0-9各数字字符的个数。某人编写如下程序: Private Sub Command 1_Click() Dim count(10)As Inte
admin
2020-04-18
88
问题
窗体上有一个名称为Text1的文本框,一个名称为Command 1的命令按钮。要求编写一个程序,统计文本框中0-9各数字字符的个数。某人编写如下程序:
Private Sub Command 1_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)+l改为count(x)=count(x)+1
答案
D
解析
本题中要求分别统计数字0~9的个数,使用了一个数组count来存放各个数字的个数。在第一个For循环中,将数组的各个元素设置为0,在第二个循环中,依次取出字符串中的每一个字符,判断是不是在0~9之间,如果在范围内,则应该令对应的数组元素加l。如果写成count(i)=coum(i)+1,只能顺序的令每一个数组元素都加1,只有改写成count(x)=count(x)+1,让x作为下标,才能保证让x对应的数组元素加1。
转载请注明原文地址:https://kaotiyun.com/show/95Tp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写如下程序:PrivateSubCommand1_Click() DimmAsInteger,nAsInteger m=1:n=0 DoWhilem
有下面程序代码:PrivateSubCommand1_Click()Dima(3,3)AsIntegers=0Fori=1To3Forj=1To3
在窗体上画1个文本框,名称为Text1(muhiline属性为True),然后再添加三个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“读数”、“统计”和“存盘”,如图所示。程序的功能是:单击“读数”按钮,则把考生文件
下列可以打开立即窗口的操作是()。
下面关于KeyPress事件的叙述中正确的是
在窗体上画一个水平滚动条,其属性值满足Min
在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1),程序运行后,在文本框中每输入一个字符,都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是( )。
为把圆周率的近似值3.14159存放在变量pi中,应该把变量pi定义为( )。
数据库系统的核心是()。
以下VisualBasic不支持的循环结构是
随机试题
简述第二次科技革命的主要内容及其影响。(南京大学2005年世界史真题;四川大学2005年世界近现代史真题)
轮廓;纲要n.o______
Excel2010中,工作表是一个________。
下列不符合大叶性肺炎的描述是
乳果糖治疗肝性脑病的机制是( )。支链氨基酸治疗肝性脑病的机制是( )。
A、荆芥B、防风C、羌活D、白芷E、细辛具有“祛风发表,透疹止痒,炒炭止血”功效的药物是()
某甲针织厂进行了一系列的不正当竞争行为,而这些不正当竞争行为给被侵害的某乙针织厂造成了损失,但是由于市场的变幻莫测,所遭受的损失难以计算,被侵害人某乙针织厂可以请求的赔偿额为()。
根据证券投资基金法律制度的规定,下列选项中,属于开放式证券投资基金的基金份额持有人享有的权利有()。
把道德说成圣人立法,在很大程度上背离了道德。正如恩格斯所说的“没有爱情的婚姻是不道德的”中的不道德,恰恰是封建伦理中极力宣扬的“道德”。而这种所谓道德的阶级性,这种成为意识形态的道德,只不过是伪道德,并不能证明道德在不同的阶级那里有不同的性质。从以上
Althoughhehasnoeducation,heisoneofthe______businessmeninthecompany.
最新回复
(
0
)