首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。要求编写一个程序,统计文本框中0-9各数字字符的个数。某人编写如下程序: Private Sub Command1_Click() Dim count(10) As Int
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。要求编写一个程序,统计文本框中0-9各数字字符的个数。某人编写如下程序: Private Sub Command1_Click() Dim count(10) As Int
admin
2018-09-19
36
问题
窗体上有一个名称为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
解析
根据题意可知,第2个For循环应该是统计的字符个数。i是循环变量,所以选D)。
转载请注明原文地址:https://kaotiyun.com/show/O2Fp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据:PrivateSubCommand1_Click() Dims1AsString,s2AsString Open"
在窗体上建立三个菜单(名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后再添加一个文本框,名称为‘Textl,MultiLine属性设置为True,ScrollBars属性设置为2(如图所示)。程序运行后,如果
(1)在名称为Forml,标题为“图片”的窗体上添加1个名称为Imagel的图像框,其高为2500,宽为2000。请通过属性窗口设置适当属性,将考生文件夹下的图片文件piel.jpg插入图像框,并使图片自动适应图像框的大小(如图所示)。注意:存盘
设有如下事件过程:PrivateSubForm_Click()Dimf1AsInteger,f2AsInteger,iAsIntegerDimsAsIntegerf1=1:f2=1s=f1
以下叙述中正确的是( )。
下列说法中错误的是
在满足实体完整性约束的条件下( )。
数据流图中带有箭头的线段表示的是( )。
在医院,每个医生只属于某一个诊疗科,医生同一天可为多位患者看病,而一名患者可在多个科室治疗。则实体医生和患者之间的联系是
随机试题
人们在购买决策过程中可能扮演哪些不同的角色?
下列不属于M型超声心动图基本波群的是
A.肝外门静脉血栓形成B.肝炎后肝硬化C.血吸虫病D.布加综合征E.肝脓肿肝后型门静脉高压症的病因
关于游离胆红素的叙述,正确的是
关于联合体投标的说法,正确的有()。
“人的天赋就像火花,它既可以熄灭,也可以燃烧起来。而逼使它燃烧成熊熊大火的方法只有一个,就是劳动,再劳动。”从人生价值观的角度来看,高尔基的这句至理名言强调的是()。
某本科专业按如下原则选拔特别奖学金的候选人:将本专业的同学按德育情况排列名次,均分为上、中、下三个等级(即三个等级的人数相等,下同),候选人在德育方面的表现必须为上等;将本专业的同学按学习成绩排列名次,均分为优、良、中、差四个等级,候选人的学习成绩必须为优
A、Anewfuelforbuses.B、Thecausesofairpollution.C、Awaytoimprovefuelefficiencyinbuses.D、Careersinenvironmentale
Afewyearsagoitwas【B1】______tospeakofagenerationgap,adivisionbetweenyoungpeopleandtheirelders.Parents【B2】____
SmallStepsforBigResultsForthepast30years,mycolleaguesandIatthenonprofitPreventiveMedicineResearchInstitu
最新回复
(
0
)