首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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
39
问题
窗体上有一个名称为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://jikaoti.com/ti/2am0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是:PublicxAsIntegerPrivateyAsInteger窗体文件的程序代码是:DimaAsIntegerPrivateSubForm_Load()
窗体上有两个水平滚动条HV、HT,还有一个文本框Text1和一个标题为"计算"的命令按钮Command1,并编写了以下程序:PrivateSubCommand1_Click()Callcalc(HV.Value,HT.Value)EndSu
执行以下程序段:a$="VisualBasicProgramming"b$="C++"c$=UCase(Left$(a$,7))&b$&Right$(a$,12)后,变量c$的值为( )。
结构化程序设计的基本原则不包括( )。
窗体上有一个名称为Command1的命令按钮,其单击事件过程如下:OptionBase1PrivateSubCommand1_Click()Dima(4,4)AsIntegerFori=1To4
以下关于菜单的叙述中,错误的是( )。
在下面语句或函数中,不能描述选择结构的是()。
有下面的程序段:x=InputBox(”字符串”,”输入”,”请输入”)Printx如果执行上面程序段时没有从键盘输入任何内容就直接按了回车键,则输出内容是()。
设a=10,b=4,c=5,d=7,表达式a>bAndNotc
以下能对正实数d的第3位小数四舍五入的表达式是
随机试题
江泽民指出,加强文化建设,必须()
—Whereismycellphone?Ican’tfindit.—Well,you______haveputitsomewhere.
与外周血红细胞形态相关的疾病是A、镰形红细胞B、缗钱状红细胞C、泪滴形红细胞D、靶形红细胞E、棘形红细胞地中海贫血
斜向移乘训练中轮椅与床的倾斜角度为
通常情况下,BCWS在整个工作实施过程应保持不变,但当()时则会有变化。
中国银行业协会的主管单位是银监会。( )
某公司是一家亚洲地区的玻璃套装门分销商,套装门在中国香港生产然后运至上海。管理当局预计年度需求量为10000套。套装门的购进单价为395元(包括运费,单位是人民币,下同)。与定购和储存这些套装门相关资料如下:(1)去年的订单共22份,总处理成本
公安机关的专政职能是民主职能的基本保障。()
以下有关公文的说法错误的有()
ThemostwidelydiscussedalternativetothetraditionalcampusistheInternetUniversity—avoluntarycommunitytoscholars/tea
最新回复
(
0
)