首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Textl的文本框,一个名称为Commandl的命令按钮。要求编写一个程序,统计文本框中0-9各数字字符的个数。某人编写如下程序: Prirate Sub Commandl_Click() Dim count(10)As Integer’
窗体上有一个名称为Textl的文本框,一个名称为Commandl的命令按钮。要求编写一个程序,统计文本框中0-9各数字字符的个数。某人编写如下程序: Prirate Sub Commandl_Click() Dim count(10)As Integer’
admin
2019-06-11
17
问题
窗体上有一个名称为Textl的文本框,一个名称为Commandl的命令按钮。要求编写一个程序,统计文本框中0-9各数字字符的个数。某人编写如下程序:
Prirate Sub Commandl_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对应的数组元素加1。
转载请注明原文地址:https://kaotiyun.com/show/TkUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在考生文件夹下有一个上程文件sjt3.vbp,窗体上已经有一个标签Label1,清添加一个单选按钮数组,名称为Op1,含三个单选按钮,它们的Index属性分别为0、1、2,标题依次为“飞机”、“火车”、“汽牟”,再添加一个名称为Text1的文本框。窗
考生文件夹下有工程文件sjt5.vbp,窗体界面如图所示。考生文件夹下的in5.dat文件中有某次歌曲大奖赛10位选手的得分,文件中的每一行数据包含选于的编号及5位评委的打分。程序运行时,单击“显示数据”按钮,则将in5.dat文件的内容读入二维数组a中,
在窗体上建立三个菜单(名称分别为:Read、Cale和Save,标题分别为“读入数据”、“计算并输出和“存盘”),然后再添加一个文本框,名称为Text1,MultiLine属性设置为True,ScrollBars属性设置为2(如图所示)。程序运行后,如果执
(1)在名称为Form1的窗体上画两个标签(名称分别为Label1和Label2,标题分别为“姓名”和“年龄”)、两个文本框(名称分别为Text2和Text2,初始内容均为空)和一个命令按钮(名称为Command1,标题为“显示”)。然后编写命令按钮的Cl
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装入数据”按钮,则从考生文件夹下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市时,它的距离就在Text1中显示
考生文件夹下有一个工程文件sjt5.vbp。在窗体Form1上有两个标题分别是“产生数据”和“重新排列”的命令按钮,有两个标题为“原始数据”和“排列数据”的标签。程序功能如下。①单击“产生数据”按钮,则随机产生20个一位整数,存入数组a中,并同时
使用()方法,可清除列表框中所有的列表项。
随机试题
变换反应的特点是什么?
T形管护理正确的是()。
内环境是指
能引起心率减慢的降压药有
监理的服务性指监理人员用自己的知识、技能和经验、信息以及必要的试验、检测手段为建设单位提供( )。
2017年1月1日,A公司购入一项管理用无形资产,双方协议采用分期付款方式支付价款,合同总价款为1600万元,自2017年起每年年末付款400万元,4年付清。假定银行同期贷款年利率为6%。购入无形资产当日另以现金支付相关税费13.96万元。该项无形资产购入
现代中国节庆的文化特征有()。
“山重水复疑无路,柳暗花明又一村”是陆游《游山西村》一诗中的颔联,它()。
ThemainreadersofmedicaljournalsareWhichofthefollowingstatementsisNOTtrue?
A、TalkwithJohnabouthisstudy.B、TakeJohntoadoctor.C、StudymathwithJohn.D、AskJohntobetheirtutor.A问题询问的是,这两个人可能会
最新回复
(
0
)